r - 复制/复制同一文件 N 次

Question

我有一个 R 文件存储在我的计算机上的目录中。我想以自动方式创建此 R 文件的 10 个副本。该 R 文件的 10 个副本应存储在同一目录中，并且每个副本应具有不同的文件名。

示例:

我的工作目录:

getwd()
# [1] "D:/Example Directory"

与 dir function ，我可以提取存储在该目录中的所有文件的名称:

path <- getwd()
dir(path)
# "1.R"

此目录中唯一的文件是 R 文件 1.R。我想复制这个 R 文件 10 次。重复项应命名为 2.R、3.R、4.R 等。

这可以通过手动复制/粘贴轻松完成。但是，由于我必须多次复制该文件，因此我正在 R 中寻找一种自动化方法。

问题:如何以自动方式复制此 R 文件？

Answer 1

您可以使用 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)
   }
}