Update tbl_ard_hierarchical.R

ddsjoberg · Oct 4, 2024 · 19b12ab · 19b12ab
1 parent 3248933
commit 19b12ab
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/R/tbl_ard_hierarchical.R b/R/tbl_ard_hierarchical.R
@@ -83,11 +83,7 @@ tbl_ard_hierarchical <- function(cards,
   tbl_ard_hierarchical_inputs[["data"]] <- NULL
 
   # fill in missing labels -----------------------------------------------------
-  default_label <- sapply(
-    variables,
-    \(x) if (!is_empty(attr(data[[x]], "label"))) attr(data[[x]], "label") else x
-  ) |>
-    as.list()
+  default_label <- default_label <- names(data) |> as.list() |> setNames(names(data))
   label <- c(
     label, default_label[setdiff(names(default_label), names(label))]
   )[c(variables, if ("overall" %in% names(label)) "overall")]