str_replace() with function

[hadley]

Something like

str_replace <- function(x, pattern, replace, ...) {
  loc <- gregexpr(pattern, x, perl = TRUE)

  out <- lapply(seq_along(out), function(i) {
    match <- regmatches(x[[i]], loc[[i]])
    transform(match, ...)
  })

  regmatches(x, loc) <- out
  x
}

[hadley]

Or rather

str_replace <- function(x, pattern, fun, ...) {
  loc <- gregexpr(pattern, x, perl = TRUE)
  matches <- regmatches(x, loc)
  out <- lapply(matches, fun, ...)

  regmatches(x, loc) <- out
  x
}