I have a folder with 199 files (from blah-001-a.exp
to blah-199-a.exp
)
I want to do something like this for every file:
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...
I tried some code like this but it only reads the files without trasform them into 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=';')
)}
Could you give me some suggestions? Thanks in advance.
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)
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.