fix: fixed an issue of a solitary NA as var_labels passed to analyze

insightsengineering · Nov 22, 2024 · ed93699 · ed93699
1 parent 88428b3
commit ed93699
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/colby_constructors.R b/R/colby_constructors.R
@@ -1113,6 +1113,7 @@ analyze <- function(lyt,
                     section_div = NA_character_) {
   show_labels <- match.arg(show_labels)
   subafun <- substitute(afun)
+  var_labels <- vapply(var_labels, function(label) ifelse(is.na(label), NA_character_, label), character(1))
   if (
     is.name(subafun) &&
       is.function(afun) &&