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