将特定文件从多个子目录复制到 R 中的单个文件夹中

假设我有 3 个文件夹，每个文件夹中都有大量文件，我只想从每个子目录中选择几个文件，然后仅将这些文件粘贴到新文件夹中。 让我们调用这 3 个文件夹：

• 桌面/目录/sub_11s_gi01_ab
• 桌面/目录/sub_11f_gi01_b
• 桌面/目录/sub_12s_gi02_ms

需要复制的文件扩展名为“.wang.tax.sum”

所有其他文件都无法复制然后删除，因为这需要几天时间。

从其他问题来看，我可以将所有文件合并到一个列表中并复制所有文件，但我不知道如何仅复制以 .wang.tax.sum 结尾的文件
我可以使用 grep 函数获取要传输的文件列表，但不确定如何将该子目录中的文件列表复制到新文件夹。 这是我到目前为止所拥有的，但不起作用。

parent.folder <- "C:/Desktop/dir"
my_dirs <- list.files(path = parent.folder, full.names = T, recursive = T, include.dirs = T)

##this does not work##
a <- grep("wang.tax.sum",my_dirs)
my_dirs <- my_dirs[a]

files <- sapply(my_dirs, list.files, full.names = T)

dir.create("taxsum", recursive = T)

for(file in files) {
  file.copy(file, "taxsum")
}

我知道 grep 在这里不起作用，但我不确定如何创建一个仅选择我想要的文件并将它们复制到单个文件夹的函数。我总共有大约 50 个子文件夹，每个子文件夹大约有 1GB 的数据，因此，复制所有数据然后删除我不想要的数据并不是一种选择。任何帮助是极大的赞赏

parent.folder <- "C:/Desktop/dir"
files <- list.files(path = parent.folder, full.names = T, recursive = T, include.dirs = T)

之后您需要选择相关文件：

files <- files[grep("wang\\.tax\\.sum", files)]

（注意点之前的双转义：\\.- 点对于 grep 有特殊含义。）

或者你可以这样做pattern一步完成 list.files 的参数：

files <- list.files(path = parent.folder, full.names = T, recursive = T, include.dirs = T, pattern = "wang\\.tax\\.sum")

创建新目录：

dir.create("taxsum", recursive = T)

现在您需要创建新文件名：

newnames <- paste0("taxsum/", gsub("/|:", "_", files))
# replace "special" characters with underscore
# so that your file names will be different and contain the 
# original path

# alternatively, if you know that file names will be different:
newnames <- paste0("taxsum/", basename(files))

现在你可以使用mapply复制（同样可以用for需要一点额外的努力）：

mapply(file.copy, from=files, to=newnames)