在单独的文件中保存for循环的每次运行的控制台输出

Question

我想在单独的文本文件中保存for循环的每次运行的控制台输出。我正在做以下事情。

for(i in 1:x)
{
  sink(paste0("file", i, ".txt"))

  ## do something

}

但是有一段时间后我会收到错误

Error in sink() : sink stack is full

最有效的方法是什么？

Answer 1

您必须按sink()关闭与文件的连接，所以：

for(i in 1:x) {
  sink(paste0("file", i, ".txt"))
  ## do something
  sink()
}