bug fix: keep factor rows with completely missing values

Merck · Jul 12, 2024 · bfaee2d · bfaee2d
1 parent 1c102e1
commit bfaee2d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/collect_n_subject.R b/R/collect_n_subject.R
@@ -272,7 +272,10 @@ collect_n_subject <- function(meta,
 
   # standardize categorical variables
   if (any(c("factor", "character") %in% class_var)) {
-    var <- factor(var, exclude = NULL)
+
+    if (any(c("character") %in% class_var)) {
+      var <- factor(var, exclude = NULL)
+    }
 
     if (all(is.na(var))) {
       levels(var) <- c(levels(var), title["missing"])