orTextual: fixed bug where element would be selected because of match…

…ing sub string
loosolab · Jun 25, 2019 · b0dd242 · b0dd242
1 parent 82ce2c3
commit b0dd242
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/orTextual.R b/R/orTextual.R
@@ -104,7 +104,8 @@ orTextual <- function(input, output, session, choices, selected = NULL, label =
       esc_choices <- paste0("\\Q", input$column, "\\E")
 
       if (contains | !is.null(delimiter)) {
-        result <- grepl(pattern = paste0(esc_choices, paste0("($|", delimiter, ")"), collapse = "|"), raw_choices, perl = TRUE)
+        print(paste0(paste0("(^|", delimiter, ")"), esc_choices, paste0("($|", delimiter, ")"), collapse = "|"))
+        result <- grepl(pattern = paste0(paste0("(^|", delimiter, ")"), esc_choices, paste0("($|", delimiter, ")"), collapse = "|"), raw_choices, perl = TRUE)
       } else {
         result <- grepl(pattern = paste0("^(", esc_choices, ")$", collapse = "|"), raw_choices, perl = TRUE)
       }