<div dir="ltr"><div>Senhores, boa tarde!</div><div><br></div><div>Mais uma sugestão...</div><div><br></div>### <code r><br><div><div><font face="courier new, monospace">setwd('C:/LAB/Temp') ### local com arquivos a serem unidos</font></div>
<div><font face="courier new, monospace">lista <- grep('.*csv', tolower(dir()), value=T)</font></div><div><font face="courier new, monospace">for (i in 1:length(lista)) {</font></div><div><font face="courier new, monospace">          tmp <- read.table(lista[i], head=T)</font></div>
<div><font face="courier new, monospace">          if (i==1) arq <- tmp else arq <- rbind(arq, tmp)</font></div><div><font face="courier new, monospace">}</font></div><div><font face="courier new, monospace">arq</font></div>
</div><div><font face="courier new, monospace">### </code></font></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div></div>