Gsub over a map

gsub_map.R

convert <- function(x) {
  map <- c("\\[:alpha:\\]" = "a-zA-Z", "\\[:digit:\\]" = "0-9")
  for (i in seq_along(map)) {
    x <- gsub(names(map)[[i]], map[[i]], x)
  }
  x
}
convert("[[:alpha:]](?:(?:[[:digit:]]){1,2}(?:[[:alpha:]]){1,2})(?:(?:[[:digit:]]){6,7})")
#> [1] "[a-zA-Z](?:(?:[0-9]){1,2}(?:[a-zA-Z]){1,2})(?:(?:[0-9]){6,7})"