如何保存多个数据框列表并限制可以保存的列表元素数量？

Question

我有多个列表，每个列表中有不同数量的元素，如屏幕截图所示。

我当前的代码允许用户一次保存一个列表。 但我很好奇是否有一种方法可以让用户一次保存所有列表。

另外（如果可能的话）我想限制一次可以下载的列表元素的数量。 假设对于数据集，列表包含 64 个元素，但我希望用户一次只能下载 15 个文件。

当前代码如下：

saveFiles <- Function(list){
sapply(names(list), function(x) write.table(list[[x]], file= paste(x,".txt"), sep= "\t", quote=F))
}

任何建议如何解决。

Answer 1

我不确定我是否理解你的问题。 这有什么好处吗？

library(tictoc) #measure time difference
library(doParallel)

LIST<-lapply(1:150, function(X) X) #create data
names(LIST)<-1:150

doParallel::registerDoParallel(5)
# run in parallel 
tic()
foreach(list=LIST) %dopar% {
  write.table(LIST[[list]], file= paste(list,".txt"), sep= "\t", quote=F)
}
toc()

# regular loop
tic()
for(list in LIST) {
  write.table(LIST[[list]], file= paste(list,".txt"), sep= "\t", quote=F)
}
toc()