Intento unificar archivos (cuyos nombres son 001.csv
,...,332.csv
)con el siguiente for:
files.together<- function(directory,id=1:332) {
files<-list.files(path = directory,full.names = T)
values<-numeric()
for(i in id){
data<-read.csv(files[i])
values<-rbind(values,data)
}
write.csv(x = values,file = "data.csv")
data<-read.csv(file.path(getwd(),"data.csv"),header = T)
}
Funciona muy bien, excepto la última línea, donde lo que intento hacer es que cargue automáticamente el nuevo archivo unificado que ha sido creado con el for
return(data)
e invocar a la función así:datos = files.together('directorio/donde/estan/los/csv')
Lo demás dependerá de cómo estén separados los csv, de si tienen cabecero,... Pero no aportas esa información.