Added str_remove() and str_remove_all()

NAMESPACE

@@ -25,6 +25,8 @@ export(str_match)
 export(str_match_all)
 export(str_order)
 export(str_pad)
+export(str_remove)
+export(str_remove_all)
 export(str_replace)
 export(str_replace_all)
 export(str_replace_na)

NEWS.md

@@ -12,6 +12,10 @@
 
 * `str_trunc()` now preserves NAs (@ClaytonJY, #162)
 
+* New `str_remove()` and `str_remove_all()` functions. These wrap 
+  `str_replace()` and `str_replace_all()` to remove patterns from strings.
+  (@Shians, #178)
+
 # stringr 1.2.0
 
 ## API changes

R/remove.r

@@ -0,0 +1,22 @@
+#' Remove matched patterns in a string.
+#'
+#' Alias for str_replace(string, pattern, "").
+#'
+#' @inheritParams str_detect
+#'
+#' @return A character vector.
+#' @seealso \code{\link{str_replace}} for the underlying implementation.
+#' @export
+#' @examples
+#' fruits <- c("one apple", "two pears", "three bananas")
+#' str_remove(fruits, "[aeiou]")
+#' str_remove_all(fruits, "[aeiou]")
+str_remove <- function(string, pattern) {
+  str_replace(string, pattern, "")
+}
+
+#' @export
+#' @rdname str_remove
+str_remove_all <- function(string, pattern) {
+  str_replace_all(string, pattern, "")
+}

tests/testthat/test-remove.r

@@ -0,0 +1,6 @@
+context("Removal")
+
+test_that("basic removal works", {
+  expect_equal(str_remove_all("abababa", "ba"), "a")
+  expect_equal(str_remove("abababa", "ba"), "ababa")
+})