Use cg_missing in str_match too.

hadley · hadley · commit fe5285721ecc · 2015-04-15T07:52:41.000-05:00
diff --git a/R/match.r b/R/match.r
@@ -28,7 +28,7 @@
 str_match <- function(string, pattern) {
   switch(type(pattern),
     regex = stri_match_first_regex(string, pattern,
-      opts_regex = attr(pattern, "options")),
+      opts_regex = attr(pattern, "options"), cg_missing = ""),
     stop("Can only match regular expressions", call. = FALSE)
   )
 }

Original file line number	Diff line number	Diff line change
`@@ -28,7 +28,7 @@`
`28`	`28`	`str_match <- function(string, pattern) {`
`29`	`29`	`switch(type(pattern),`
`30`	`30`	`regex = stri_match_first_regex(string, pattern,`
`31`		`- opts_regex = attr(pattern, "options")),`
	`31`	`+ opts_regex = attr(pattern, "options"), cg_missing = ""),`
`32`	`32`	`stop("Can only match regular expressions", call. = FALSE)`
`33`	`33`	`)`
`34`	`34`	`}`