Apply suggested change

Co-authored-by: Pawel Rucki <[email protected]> Signed-off-by: Emily de la Rua <[email protected]>
insightsengineering · Feb 27, 2024 · 9228005 · 9228005
1 parent 9710a2a
commit 9228005
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/formatters_var_labels.R b/R/formatters_var_labels.R
@@ -43,7 +43,7 @@ col_labels <- function(x, fill = FALSE) {
     return(character(0L))
   }
 
-  labels <- lapply(x, function(x) unname(attr(x, "label")))
+  labels <- lapply(x, function(x) as.vector(attr(x, "label")[[1]]))
 
   nulls <- vapply(labels, is.null, logical(1L))
   if (any(nulls)) {