R/find_replace.r

In nikolaifish/bamExtras: Functions and Data in Support of Stock Assessments with the Beaufort Assessment Model (BAM)

#' Find and replace single or multiple values in a vector. Usage is similar to gsub except that this function will not replace parts of character strings
#'
#' @param pattern vector of values to find
#' @param replacement vector of values to replace
#' @param x a character vector where matches are sought
#' @keywords bam stock assessment fisheries
#' @author Nikolai Klibansky
#' @export
#' @examples
#' \dontrun{
#' # Find and replace names of multiple parameters
#' rdat <- rdat_BlackSeaBass
#' parms <- rdat$parms
#' parms_names <- names(parms)
#' parms_key <- c("R0"="BH.R0", "M.msst"="M.constant", "M.MSST"="M.constant")
#' find_replace(names(parms_key),parms_key,parms_names)
#' }

find_replace <- function(pattern,replacement,x)  {
  found   <- match(x, pattern)

  ifelse(is.na(found), x, replacement[found])
  }