Ensure factors become large factors objects (this drastically speeds …

…up summary statistics
Crunch-io · Sep 9, 2022 · 037c3b0 · 037c3b0
1 parent 0c641d6
commit 037c3b0
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/codeBookGeneric.R b/R/codeBookGeneric.R
@@ -101,6 +101,9 @@ writeCodeBookLatexGeneric <- function(
         if (cls == "integer") {
           x <- as.integer(as.numeric(x))
         }
+        if (cls == "factor") {
+          x <- factor(levels(x)[as.integer(x)], levels = levels(x))
+        }
       }
 
     } else {