Replace Phrase
Examples
x <- c('pop', 'pop_2020_est', 'pop_white_2020', 'pop_black_2020')
repl_phrase(x, '_2020', '_20')
#> [1] "pop" "pop_20_est" "pop_white_20" "pop_black_20"
Replace Phrase
x <- c('pop', 'pop_2020_est', 'pop_white_2020', 'pop_black_2020')
repl_phrase(x, '_2020', '_20')
#> [1] "pop" "pop_20_est" "pop_white_20" "pop_black_20"