fix: improve on pattern by using ] as first element

insightsengineering · Oct 24, 2024 · 76ef423 · 76ef423
1 parent 91f2576
commit 76ef423
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -74,14 +74,10 @@ make_c_call <- function(choices) {
 #'
 #' @keywords internal
 sanitize_id <- function(id) {
-  escape_characters <- " !\"#$%&'()*+,./:;<=>?@[\\]^`{|}~"
-  pattern <- paste(
-    sep = "", collapse = "|", "\\", strsplit(escape_characters, "")[[1]]
-  )
-  pattern <- gsub("\\<", "<", pattern, fixed = TRUE)
-  pattern <- gsub("\\>", ">", pattern, fixed = TRUE)
+  # Left square bracket needs to be first in the pattern to avoid errors with pattern
+  pattern_escape <- "[] !\"#$%&'()*+,./:;<=>?@[\\^`{|}~]"
 
-  id_new <- gsub(pattern, "_", id)
+  id_new <- gsub(pattern_escape, "_", id)
   hashes <- vapply(
     id[id != id_new],
     rlang::hash, character(1),