Update var_labels map syntax

Richard Hanna · Richard Hanna · commit b95f40c6c343 · 2025-03-20T15:39:07.000-04:00
diff --git a/R/write.R b/R/write.R
@@ -284,7 +284,7 @@ add_labelled_xlsx_features <- function(supertbl,
   }
 
   # Define redcap_data variable labels
-  var_labels <- supertbl$redcap_data %>% map(\(x) generate_dictionaries(x))
+  var_labels <- map(.x = supertbl$redcap_data, ~generate_dictionaries(.x))
 
   for (i in seq_along(supertbl$redcap_form_name)) {
     wb$add_data(

Original file line number	Diff line number	Diff line change
`@@ -284,7 +284,7 @@ add_labelled_xlsx_features <- function(supertbl,`
`284`	`284`	`}`
`285`	`285`
`286`	`286`	`# Define redcap_data variable labels`
`287`		`- var_labels <- supertbl$redcap_data %>% map(\(x) generate_dictionaries(x))`
	`287`	`+ var_labels <- map(.x = supertbl$redcap_data, ~generate_dictionaries(.x))`
`288`	`288`
`289`	`289`	`for (i in seq_along(supertbl$redcap_form_name)) {`
`290`	`290`	`wb$add_data(`