R - Wie liest man mehrere Dateien aus einem Ordner, konvertiert sie in xts und führt eine Datenanalyse für sie durch?

Question

Ich habe einen Ordner mit 199 Dateien (blah-001-a.exp-blah-199-a.exp)

ich so etwas wie dies für jede Datei tun:

DF<- read.csv("D:/ebook/myfolder/blah-001-a.exp", sep=";") 
xts<-xts(x=DF[,-c(1,13)], order.by = as.Date(x=DF$DATA,format="%d.%m.%Y")) 
#other codes and report pdf file... 

ich so etwas Code versucht, aber es liest nur die Dateien, ohne trasform sie in xts:

folder <- "D:/ebook/myfolder/"  
filenames <- list.files(path=folder) 
for (i in 1:length(filenames)){ 
     assign(filenames[i], 
      read.csv(paste0(folder, filenames[i]),sep=';') 
    )} 

Könnten Sie mir einige Vorschläge geben? Vielen Dank im Voraus.

Answer 1

do.stuff <- function(file_in){ 
    DF <- read.csv(file_in, sep=";") 
    xts <-xts(x=DF[,-c(1,13)], order.by =as.Date(x=DF$DATA,format="%d.%m.%Y")) 
} 
the_files <- list.files('path/to/files',full.names = T) 
the_stuff <- lapply(1:length(the_files),function(i)do.stuff(the_files[[i]])) 
names(the_stuff) <- basename(the_files)