correct the way to assign levels attribute for observation dataset

Merck · Jan 22, 2024 · c607c4b · c607c4b
1 parent 84daec8
commit c607c4b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/prepare_ae_specific.R b/R/prepare_ae_specific.R
@@ -95,7 +95,8 @@ prepare_ae_specific <- function(meta,
 
   if (!"factor" %in% class(obs[[obs_group]])) {
     warning("In observation level data, force group variable '", obs_group, "' be a factor")
-    obs[[obs_group]] <- factor(obs[[obs_group]], levels = levels(pop[[pop_group]]))
+    obs[[obs_group]] <- factor(obs[[obs_group]])
+    levels(obs[[obs_group]]) <- levels(pop[[pop_group]])
   }
 
   # Add a total group to display total column