从Lapply（）获得临时结果

Question

我有一些lapply代码，需要很长时间才能计算。类似的事情：

n <- 10^7
res <- lapply(1:n, function(i){
  print(round(i/n*100, 0))
  rnorm(100)
  })

我们可以以某种方式保存临时结果，而回合（i/n*100，0）比100％少，即代码仍在运行？

我现在正在运行实际的lapply（）代码，零件print（rough（i/n*100，0））告诉我，我的计算机几乎完成了（99％！）。问题是我需要关闭计算机，因为我离开了工作场所。在res＆lt; - lapply（...）零件仍在运行时，是否有机会获得数据R的计算？真的不想让他明天再次计算这99％的年龄。

Answer 1

一旦lapply（）代码运行，似乎无法捕获临时结果。但是，有两个选项

• 使用循环的@gregorthomas建议
• 使用＆lt;＆lt; -在lapply（Lapply（）函数中，确实保存了临时结果。

这是问题中代码的第二个选项：

n <- 10^7
res <- vector("list", n)
res <- lapply(1:n, function(i){
  print(round(i/n*100, 0))
  res[[i]] <<- rnorm(100)
})

现在我们可以查看并查看临时数据实际上保存了：

head(res)
tail(res)