如何将文件从文件夹和子文件夹复制到 R 中的另一个文件夹？

Question

我只想从包含 100 个文件夹和子文件夹的 1 个根文件夹中复制文件。我不想复制文件夹。我只想将这些文件夹中的所有文件（*.iso、*.txt、*.docx、*.pdf 等）复制到另一个文件夹中。

我的代码：

setwd("/Users/RLearner/Desktop/RDMS")

if (file.exists(list.files(path=".",recursive=TRUE)))
  file.copy(from=".", to="/Users/RLearner/Desktop/Test", recursive=TRUE)

但是此代码正在将根文件夹按原样复制到我想要的Test文件夹中。我只想复制这些文件夹中的文件？

Answer 1

我会做：

from.dir <- "/Users/RLearner/Desktop/RDMS"
to.dir   <- "/Users/RLearner/Desktop/Test"
files    <- list.files(path = from.dir, full.names = TRUE, recursive = TRUE)
for (f in files) file.copy(from = f, to = to.dir)