fix mk.lev2

jinseob2kim · May 8, 2024 · ad342a1 · ad342a1
1 parent 7a55fd0
commit ad342a1
Showing 1 changed file with 8 additions and 10 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -7,21 +7,19 @@
 #' @importFrom DT  %>%
 mk.lev2 <- function(out.old, out.label) {
   . <- variable <- val_label <- level <- NULL
-  label.value <- sapply(out.old, function(x) attr(x, "labels")) %>%
-    .[!sapply(., is.null)] %>%
-    sapply(function(x) {
-      dd <- names(x)
-      names(dd) <- x
-      return(dd)
-    })
+  label.value <- sapply(out.old, function(x) attr(x, "labels")) %>% .[!sapply(., is.null)] %>% sapply(function(x){dd <- names(x);names(dd) <- x;return(dd)})
   label.variable <- sapply(out.old, function(x) attr(x, "label")) %>% .[!sapply(., is.null)]
 
-  for (v in names(label.variable)) {
+  for (v in names(label.variable)){
     out.label[variable == v, var_label := label.variable[v]]
   }
-  for (v in names(label.value)) {
-    out.label[variable == v, val_label := label.value[[v]][level]]
+  for (v in names(label.value)){
+    if (is.factor(out.old[[v]])){
+      out.label[variable == v, val_label := label.value[[v]][level]]
+    }
   }
 
   return(out.label[])
 }
+
+