复制/复制同一文件N次

你可以用 file.copy 需要原始文件名作为第一个参数并接受所需文件名向量作为第二个参数的函数。

file.copy(dir(getwd()), paste0(2:10, ".R"))

PS:确保当前目录的开头只有一个文件。

或者你可以用一个安全的解决方案 list.files file.exists :

nFiles <- 10
myFile <- list.files(pattern = "\\d.R")
for(i in seq_len(nFiles)) {
   wantedFile <- sub("\\d", i, myFile)
   if (!file.exists(wantedFile)) {
      file.copy(myFile, wantedFile)
   }
}