From 19b12abc73343cc95a76df29ce06c1296c834026 Mon Sep 17 00:00:00 2001 From: Daniel Sjoberg Date: Fri, 4 Oct 2024 08:48:02 -0700 Subject: [PATCH] Update tbl_ard_hierarchical.R --- R/tbl_ard_hierarchical.R | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/R/tbl_ard_hierarchical.R b/R/tbl_ard_hierarchical.R index ce3788933..cafc6ff3c 100644 --- 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")]