Copiar archivos específicos de múltiples subdirectorios en una sola carpeta en R

Suponiendo que tengo 3 carpetas con una gran cantidad de archivos en cada una, quiero seleccionar solo unos pocos archivos de cada subdirectorio y pegar solo esos archivos en una nueva carpeta. Llamemos a las 3 carpetas:

escritorio / dir / sub_11s_gi01_abescritorio / dir / sub_11f_gi01_bescritorio / dir / sub_12s_gi02_ms

Los archivos que deben copiarse tienen la extensión ".wang.tax.sum"

Todos los demás archivos no se pueden copiar y luego eliminar porque tomaría días.

De otras preguntas, puedo combinar todos los archivos en una lista y copiarlos todos, pero no sé cómo copiar solo los archivos que terminan en .wang.tax.sum
Puedo usar la función grep para obtener una lista de los archivos que quiero transferir, pero no estoy seguro de cómo copiar esa lista de archivos en sus subdirectorios a una nueva carpeta. Esto es lo que tengo hasta ahora, que no 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")
}

Sé que el grep no funciona aquí, pero no estoy seguro de cómo crear una función que solo seleccione los archivos que quiero y los copie en una sola carpeta. Tengo aproximadamente 50 subcarpetas en total, cada una con aproximadamente 1 gb de datos, así que nuevamente, copiar todos los datos y luego eliminar lo que no quiero no es una opción. Cualquier ayuda es muy apreciada

Respuestas a la pregunta(2)

Su respuesta a la pregunta