gsub_eval.R

gsub_eval = function(pattern, replacement, x, ignore.case = FALSE, perl = FALSE,
    fixed = FALSE, useBytes = FALSE, envir = parent.frame()) {
    txt = gsub(
        pattern = pattern, 
        replacement = replacement, 
        x = x, 
        ignore.case = ignore.case, 
        perl = perl,
        fixed = fixed, 
        useBytes = useBytes
    )
    unname(sapply(txt, function(x) glue::glue(x, envir = envir)))
}