[R-br] "Append" arquivos csv de diversos subdiretórios

Quinta Setembro 22 08:58:33 BRT 2016

Bom dia!
Tenho um diretório com 50 subdiretórios sendo que cada um possui 11 arquivos csv. O que preciso é "empilhar" esses arquivos (em um único arquivo) e para isso estou fazendo o seguinte:

filenames <- list.files ()
mydata <- do.call ("rbind", lapply (filenames, read.csv, header = TRUE))

Entretanto, gostaria de "automatizar" esse script, ou seja, o próprio comando fosse em cada subdiretório e fizesse o "append" (dos 550 arquivos csv) dando o resultado final.
Alguém poderia me ajudar?

Desde já muito obrigado!  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160922/2e54252c/attachment.html>