try readr for checbox_choices()

ref #500
OuhscBbmc · Jul 14, 2023 · 5f89356 · 5f89356
1 parent 1bdde82
commit 5f89356
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/R/metadata-utilities.R b/R/metadata-utilities.R
@@ -114,7 +114,12 @@ regex_named_captures <- function(pattern, text, perl = TRUE) {
 checkbox_choices <- function(select_choices) {
   checkmate::assert_character(select_choices, any.missing=FALSE, len=1, min.chars=1)
 
-  pattern_checkboxes <- "(?<=\\A| \\| |\\| )(?<id>\\d{1,}), (?<label>[^|]{1,}?)(?= \\| |\\| |\\Z)"
-
-  regex_named_captures(pattern = pattern_checkboxes, text = select_choices)
+  strsplit(select_choices, split = "|", fixed = TRUE)[[1]] |>
+    I() |>
+    readr::read_csv(
+      col_names = c("id", "label"),
+      col_types = "cc"
+    )
+  # pattern_checkboxes <- "(?<=\\A| \\| |\\| )(?<id>\\d{1,}), (?<label>[^|]{1,}?)(?= \\| |\\| |\\Z)"
+  # regex_named_captures(pattern = pattern_checkboxes, text = select_choices)
 }