Merge pull request #165 from Merck/bug-empty-factor

bug fix: keep factor rows with completely missing values

Author: fb-elong

R/collect_n_subject.R

@@ -272,7 +272,9 @@ 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"])