clean arg col_labels to match cleaned survey and choices dfs (bug fix)

epicentre-msf · Mar 29, 2024 · 06f124e · 06f124e
1 parent 3f4d02e
commit 06f124e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/dict_from_odk.R b/R/dict_from_odk.R
@@ -37,6 +37,7 @@ dict_from_odk <- function(survey,
  names(choices) <- janitor::make_clean_names(names(choices))
 
  if (is.null(col_labels)) col_labels <- grep("^label_*", names(survey), value = TRUE)[1]
+ col_labels <- janitor::make_clean_names(col_labels)
 
  # remove empty or non-relevant rows
  survey_clean <- as_tibble(survey) %>%