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

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

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

  ## do something

}

但过了一段时间，我就犯了一个错误

Error in sink() : sink stack is full

---

执行此操作最有效的方法是什么？

您必须根据

sink（）

关闭与文件的连接，因此：

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