Merge pull request #746 from DyfanJones/main

faster paws_parse_match

paws.common/R/url.R

@@ -76,13 +76,15 @@ paws_url_parse <- function(url) {
   )
 }
 
-paws_parse_match <- function(x, pattern) {
-  m <- regexec(pattern, x, perl = TRUE)
-  pieces <- regmatches(x, m)[[1]][-1]
-  empty <- pieces == ""
-  pieces <- as.list(pieces)
-  pieces[empty] <- list(NULL)
-  return(pieces)
+paws_parse_match <- function(char, pattern) {
+  match_loc <- regexpr(pattern, char, perl = TRUE)
+  cap_start <- attr(match_loc, "capture.start")
+  cap_len <- attr(match_loc, "capture.length")
+  cap_end <- cap_start + cap_len - 1
+  cap_end[cap_end == -1] <- 0
+  pieces <- as.list(substring(char, cap_start, cap_end))
+  pieces[pieces == ""] <- list(NULL)
+  pieces
 }
 
 # Build a URL from a Url object.