Senhores, boa tarde!

Mais uma sugestão...

### <code r>

setwd('C:/LAB/Temp') ### local com arquivos a serem unidos

lista <- grep('.*csv', tolower(dir()), value=T)

for (i in 1:length(lista)) {

tmp <- read.table(lista[i], head=T)

if (i==1) arq <- tmp else arq <- rbind(arq, tmp)

}

arq

### </code>

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]