Merge pull request #33 from Merck/show_empty_row_for_categorical_vari…

…able Update collect.R
Merck · Jul 30, 2024 · c47d53e · c47d53e
2 parents d6e959b + 4cdfc1f
commit c47d53e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/collect.R b/R/collect.R
@@ -152,7 +152,9 @@ collect_baseline <- function(
 
   # 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"])