将文件重命名为向量中内容的值

Question

我正在尝试解压缩文件的hundreads。但是，我希望在解压缩后将文件重命名为先前未压缩文件的编号。这是代码：

zip_postos <- setwd("ZIP_Postos")
zip_postos <- list.files(zip_postos)
postos <- setwd("Postos")
for (i in 1:184){
  unzip(zip_postos[[2]], "CHUVAS.MDB", exdir = postos)
  file.rename("CHUVAS.MDB", paste(zip_postos[[2]]))
}

我知道粘贴部分是错误的，但我不知道要解决它。我怎么能这样做？