Apply automatic stylistic changes

jinseob2kim · May 8, 2024 · 177d71d · 177d71d
1 parent 3c97c9a
commit 177d71d
Showing 1 changed file with 10 additions and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -7,14 +7,20 @@
 #' @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)){
-    if (any(out.label[variable == v, class] != "numeric")){
+  for (v in names(label.value)) {
+    if (any(out.label[variable == v, class] != "numeric")) {
       out.label[variable == v, val_label := label.value[[v]][level]]
     }
   }