Предполагая, что у меня есть 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 подпапок, каждая из которых содержит около 1 ГБ данных, поэтому снова скопировать все данные, а затем удалить то, что мне не нужно, не вариант. Любая помощь с благодарностью