replace stringr::str_detect() by grepl()

epiverse-trace · Apr 18, 2024 · 0473995 · 0473995
1 parent 6b6cbaa
commit 0473995
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -43,7 +43,6 @@ Imports:
     readr,
     rlang,
     snakecase,
-    stringr,
     utils
 Suggests: 
     kableExtra,

diff --git a/R/date_standardization_helpers.R b/R/date_standardization_helpers.R
@@ -288,7 +288,7 @@ date_detect_separator <- function(x) {
   if (!is.na(x)) {
     sep <- NULL
     for (spec_char in special_characters) {
-      if (stringr::str_detect(x, spec_char)) {
+      if (grepl(pattern = spec_char, x)) {
         sep <- c(sep, spec_char)
       }
     }