在R中如何将for循环转换为lappy？

我有一个for循环，用于读取目录中的文件并对其进行一些计算。 我想用lapply替换我的for循环，以便能够使用parralel包进行计算parralel。 有人能帮我把这个for循环转换成lappy吗

for (filename in dir(data.dir))
{


    filename = paste(data.dir,filename,sep="/")
    dfr=read.table(filename,header=TRUE)

    if (ncol(dfr) > 1)
    {
.
.
.

将（dir（data.dir）中的文件名{…}替换为

lappy（dir（data.dir），函数（filename）{…}

您可能需要在其中添加某种返回值，但代码中不清楚循环的输出是什么。

将（dir中的文件名（data.dir））{…}替换为

lappy（dir（data.dir），function（filename）{…}

files <- list.files(path="...") # fill in the path, if you only want say .txt files then add pattern="txt"
data.list <- lapply(files, function(x) read.table(x,header=T))

您可能需要在其中添加某种返回值，但代码不清楚循环的输出是什么。

files
files
files <- list.files(path="...") # fill in the path, if you only want say .txt files then add pattern="txt"
data.list <- lapply(files, function(x) read.table(x,header=T))