using cards::process_formula_selectors() instead of `.formula_list_…

…to_named_list()`

R/tidy_add_variable_labels.R

@@ -12,11 +12,14 @@
 #'
 #' It is possible to pass a custom label for an interaction
 #' term in `labels` (see examples).
-#' @param x a tidy tibble
-#' @param labels an optional named list or named vector of
-#' custom variable labels
-#' @param interaction_sep separator for interaction terms
-#' @param model the corresponding model, if not attached to `x`
+#' @param x (`data.frame`)\cr
+#' A tidy tibble as produced by `tidy_*()` functions.
+#' @param labels ([`formula-list-selector`][gtsummary::syntax])\cr
+#' An optional named list or a named vector of custom variable labels.
+#' @param interaction_sep (`string`)\cr
+#' Separator for interaction terms.
+#' @param model (a model object, e.g. `glm`)\cr
+#' The corresponding model, if not attached to `x`.
 #' @inheritParams tidy_plus_plus
 #' @export
 #' @family tidy_helpers
@@ -68,10 +71,12 @@ tidy_add_variable_labels <- function(x,
     x <- x |> tidy_identify_variables(model = model)
   }
 
-  labels <- .formula_list_to_named_list(labels, var_info = x, arg_name = "labels")
-  if (is.list(labels)) {
-    labels <- unlist(labels)
-  }
+  if (is.atomic(labels)) labels <- as.list(labels) # vectors allowed
+  cards::process_formula_selectors(
+    data = scope_tidy(x),
+    labels = labels
+  )
+  labels <- unlist(labels)
 
   # start with the list of terms
   var_labels <- unique(x$term)