R - フォルダから複数のファイルを読み込み、xtsでそれらを変換し、いくつかのデータ分析を行うには？

Question

私はすべてのファイルに対して、このような何かをしたい199個のファイル（blah-001-a.expからblah-199-a.expまで）

のフォルダがあります。私はこのようないくつかのコードを試みたが、それだけでなくて、ファイルを読み込み

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... 

をそれらを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=';') 
    )} 

私にいくつかの提案を教えてください。 ありがとうございます。

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)