rename files in R

filez <- list.files(pattern="bscore_with*")

file.rename(filez, sub(pattern="bscore_with_package_scorecard", replacement="bscore_vs_pkg_scorecard", filez))