Supondo que eu tenha 3 pastas com um grande número de arquivos em cada uma, desejo selecionar apenas alguns arquivos de cada subdiretório e colar apenas esses arquivos em uma nova pasta. Vamos chamar as 3 pastas:

área de trabalho / dir / sub_11s_gi01_abárea de trabalho / dir / sub_11f_gi01_bárea de trabalho / dir / sub_12s_gi02_ms

Os arquivos que precisam ser copiados têm a extensão ".wang.tax.sum"

Todos os outros arquivos não podem ser copiados e excluídos, porque levaria dias.

De outras perguntas, posso combinar todos os arquivos em uma lista e copiá-los, mas não sei como copiar apenas os arquivos que terminam com .wang.tax.sum
Posso usar a função grep para obter uma lista dos arquivos que desejo transferir, mas não sei como copiar essa lista de arquivos em seus subdiretórios para uma nova pasta. Aqui está o que eu tenho até agora, que não funciona.

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")
}

Eu sei que o grep não está funcionando aqui, mas não tenho certeza de como criar uma função que apenas selecione os arquivos desejados e os copie para uma única pasta. Eu tenho aproximadamente 50 subpastas no total, cada uma com cerca de 1 gb de dados, então, novamente, copiar todos os dados e excluir o que não quero não é uma opção. Qualquer ajuda é muito apreciada