fix test

Author: d-morrison

R/combine_checkboxes.R

@@ -30,7 +30,7 @@
 #' by adding numeric suffixes. See [vctrs::vec_as_names()] for more options.
 #' @param multi_value_label A string specifying the value to be used when multiple
 #' checkbox fields are selected. Default "Multiple".
-#' If `NULL`, multiple selections will be pasted together
+#' If `NULL`, multiple selections will be pasted together.
 #' @param multi_value_sep (if `multi_value_label` is `NULL`) a string
 #' specifying the separator to use to paste multiple selections together.
 #' @param values_fill Value to use when no checkboxes are selected. Default `NA`.

tests/testthat/test-combine_checkboxes.R

@@ -233,21 +233,22 @@ test_that("combine_checkboxes works for multiple checkbox fields with concatenat
   out <- combine_checkboxes(
     supertbl = supertbl,
     tbl = "nonrepeat_instrument",
-    cols = starts_with("multi"),
+    cols = c(starts_with("multi"), starts_with("single_checkbox")),
     keep = FALSE,
     multi_value_label = NULL
   ) %>%
     pull(redcap_data) %>%
     dplyr::first()
 
   expected_out <- tibble::tribble(
-    ~"study_id", ~"single_checkbox___1", ~"extra_data", ~"multi",
-    1, TRUE,  1, "Red",
-    2, TRUE,  2, "Red, Yellow",
-    3, FALSE, 3,  NA
+    ~"study_id", ~"extra_data", ~"multi", ~"single_checkbox",
+    1, 1, "Red", "Green",
+    2, 2, "Red, Yellow", "Green",
+    3, 3, NA, NA
   ) %>%
     mutate(
-      multi = factor(multi, levels = c("Red", "Yellow", "Blue", "Red, Yellow"))
+      multi = factor(multi, levels = c("Red", "Yellow", "Blue", "Red, Yellow")),
+      single_checkbox = factor(single_checkbox, levels = "Green")
     )
 
   expect_equal(out, expected_out)