R/mgsub.R

In msuprun/bbeaR: an R package and framework for epitope-specific antibody profiling

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
}