如何保存多個數據框列表並限制可以保存的列表元素數量？

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()