From 922800546bb0bd5aeb45ebd943985958642aaeae Mon Sep 17 00:00:00 2001
From: Emily de la Rua <59304861+edelarua@users.noreply.github.com>
Date: Tue, 27 Feb 2024 08:25:09 -0500
Subject: [PATCH] Apply suggested change

Co-authored-by: Pawel Rucki <12943682+pawelru@users.noreply.github.com>
Signed-off-by: Emily de la Rua <59304861+edelarua@users.noreply.github.com>
---
 R/formatters_var_labels.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/formatters_var_labels.R b/R/formatters_var_labels.R
index 1fae7182a..55cb1fcb9 100644
--- 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)) {