Restore check for length of pattern vs result in str_extract_all().

jonovik · jonovik · commit 6efaf9726724 · 2025-09-08T14:23:47.000+02:00
diff --git a/R/extract.R b/R/extract.R
@@ -78,9 +78,9 @@ str_extract_all <- function(string, pattern, simplify = FALSE) {
       simplify = simplify, omit_no_match = TRUE, opts_regex = opt)
   )
   if (simplify) {
-    rownames(out) <- names(string)
+    if (nrow(out) == length(string)) rownames(out) <- names(string)
   } else {
-    names(out) <- names(string)
+    if (length(out) == length(string)) names(out) <- names(string)
   }
   out
 }

Original file line number	Diff line number	Diff line change
`@@ -78,9 +78,9 @@ str_extract_all <- function(string, pattern, simplify = FALSE) {`
`78`	`78`	`simplify = simplify, omit_no_match = TRUE, opts_regex = opt)`
`79`	`79`	`)`
`80`	`80`	`if (simplify) {`
`81`		`- rownames(out) <- names(string)`
	`81`	`+ if (nrow(out) == length(string)) rownames(out) <- names(string)`
`82`	`82`	`} else {`
`83`		`- names(out) <- names(string)`
	`83`	`+ if (length(out) == length(string)) names(out) <- names(string)`
`84`	`84`	`}`
`85`	`85`	`out`
`86`	`86`	`}`