将定义的函数应用于lapply

Question

我已经定义了一个我想要应用于数据集列表的函数，但是我得到了错误而无法找出原因。我尝试调试我的代码，但仍然不知道它有什么问题。我的职责是：

lire<-function(element){ 
    d=read.csv(file="element.csv", sep=';', header=FALSE, dec = ",",
    col.names= c("Action", "Date", "Ouverture", "Haut","Bas","Cloture","VolumeEch")) 
    return(d) 
} 

我想像这样申请：

L <- lapply(Sys.glob("*.csv"), function(x) lire(x))

Answer 1

这个很好用：

lire<-function(element){ 
  read.csv(file=element, sep=';', header=FALSE, dec = ",",
             col.names= c("Action", "Date", "Ouverture", "Haut","Bas","Cloture","VolumeEch")) 
} 

element会连续从Sys.glob("*.csv")获取每个值。分配给d并返回是不必要的。