Fix typo

hadley · hadley · commit c54f5cbf5847 · 2018-05-08T14:19:33.000-05:00
diff --git a/R/replace.r b/R/replace.r
@@ -57,7 +57,7 @@ str_replace <- function(string, pattern, replacement) {
   }
 
   switch(type(pattern),
-    empty = stop("Empty `pattern`` not supported", call. = FALSE),
+    empty = stop("Empty `pattern` not supported", call. = FALSE),
     bound = stop("Boundary `pattern` not supported", call. = FALSE),
     fixed = stri_replace_first_fixed(string, pattern, replacement,
       opts_fixed = opts(pattern)),

Original file line number	Diff line number	Diff line change
`@@ -57,7 +57,7 @@ str_replace <- function(string, pattern, replacement) {`
`57`	`57`	`}`
`58`	`58`
`59`	`59`	`switch(type(pattern),`
`60`		- empty = stop("Empty `pattern`` not supported", call. = FALSE),
	`60`	+ empty = stop("Empty `pattern` not supported", call. = FALSE),
`61`	`61`	bound = stop("Boundary `pattern` not supported", call. = FALSE),
`62`	`62`	`fixed = stri_replace_first_fixed(string, pattern, replacement,`
`63`	`63`	`opts_fixed = opts(pattern)),`