用R进行批量文件的重命名

需求：books文件夹下有xxx.001.zip格式的文件需要去掉.zip后缀
实现：

folder <- "c:/books"
files <- list.files(folder)
for(f in files){
  newname <- sub('\\.zip','',f)
  file.rename(paste0(folder,'/',f),paste0(folder,'/',newname))
}