r - Rでフォルダーとサブフォルダーから別のフォルダーにファイルをコピーするにはどうすればよいですか?

Question

何百ものフォルダーとサブフォルダーを持つ 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)