Improve performance of is_tz_present() by vectorizing regex

rstudio · Dec 6, 2024 · 99abec0 · 99abec0
1 parent af2cb77
commit 99abec0
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/R/utils-date_time_parse.R b/R/utils-date_time_parse.R
@@ -44,14 +44,14 @@ is_time_present <- function(input) {
 
 is_tz_present <- function(input) {
 
-  any(
-    c(
-      grepl(get_tz_pattern_z(), input),
-      grepl(get_tz_pattern_hh(), input),
-      grepl(get_tz_pattern_hh_mm(), input),
-      grepl(get_tz_pattern_hhmm(), input)
-    )
+  regex <- paste0(
+    get_tz_pattern_z(),
+    get_tz_pattern_hh(),
+    get_tz_pattern_hh_mm(),
+    get_tz_pattern_hhmm(),
+    collapse = "|"
   )
+  any(grepl(regex, input))
 }
 
 is_long_tzid_present <- function(input) {