R/mgsub.R

In gexp: Generator of Experiments

mgsub <- function(pattern, 
                  replacement, 
                  x, 
                  ...) {
  if (length(pattern) != length(replacement)) {
    stop("pattern and replacement do not have the same length.")
  }
  result <- x
  for (i in 1:length(pattern)) {
    result <- gsub(pattern[i], 
                   replacement[i], 
                   result, 
                   ...)
  }
  result
}