<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px"><div id="yui_3_16_0_ym19_1_1474544452606_3613">Bom dia!</div><div id="yui_3_16_0_ym19_1_1474544452606_4879"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_4878">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:</div><div id="yui_3_16_0_ym19_1_1474544452606_5137"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5135" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5133" dir="ltr">filenames <- list.files ()<br id="yui_3_16_0_ym19_1_1474544452606_4945">mydata <- do.call ("rbind", lapply (filenames, read.csv, header = TRUE))</div><div id="yui_3_16_0_ym19_1_1474544452606_5153" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5090" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5089" dir="ltr">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.</div><div id="yui_3_16_0_ym19_1_1474544452606_5130" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5128" dir="ltr">Alguém poderia me ajudar?</div><div id="yui_3_16_0_ym19_1_1474544452606_5155" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5126" dir="ltr"><br></div><div id="yui_3_16_0_ym19_1_1474544452606_5125" dir="ltr">Desde já muito obrigado! <br></div></div></body></html>