closeAllConnections()   # .........................

字符串
随着时间的推移，我得到了更多的支持，沿着，但西蒙·萨和其他人更好。

你可以使用sink.number()来告诉你已经设置了多少个分流，然后调用sink很多次。

sink.reset <- function(){
    for(i in seq_len(sink.number())){
        sink(NULL)
    }
}

字符串

根据@mnel的评论：

sinkall <- function() {
  i <- sink.number()
  while (i > 0) {
    sink()
    i <- i - 1
  }
}

字符串
应关闭所有开放的Flume。
在处理设备和绘图时，您也可能遇到此问题，其中打开的设备的数量不会在任何地方报告。对于更一般的情况，您可以使用以下命令：

stopWhenError <- function(FUN) {
  tryCatch({
    while(TRUE) {
      FUN()
    }
  }, warning = function(w) {
    print("All finished!")
  }, error = function(e) {
    print("All finished!")
  })
}

stopWhenError(sink) # for sink.
stopWhenError(dev.off) # close all open plotting devices.

型

编辑：sink抛出了一个警告而不是错误，所以我修改了代码，这样它就不会永远运行，哎呀！

完全避免问题

这个问题可以通过使用'on.exit'函数来避免：

sink("output.txt")
on.exit(sink())
my_function_that_might_error()

字符串

说明

我遇到的最常见的情况是当发生错误时，阻止接收器关闭。例如，下面的代码将在执行后保留一个打开的接收器。

sink("output.txt")
my_function_that_will_error()
sink()

型
这可以通过使用on.exit(sink())来避免。这将在“当前函数退出时（自然退出或由于错误退出）”关闭接收器（documentation here）。
但你必须改变顺序：

sink("output.txt")
on.exit(sink())
my_function_that_might_error()

型
因此，我们创建了接收器，告诉R在它退出时关闭它，然后执行可能出错的代码。这将关闭接收器，而不管代码是否出错。

限制

注意，on.exit的行为在交互式运行时可能不会像预期的那样工作。如果on.exit(sink())行在控制台上运行，它会在所有当前命令结束时立即触发。
因此，这种方法需要在某个R函数/进程中创建并关闭脚本或接收器。
有关详细信息，请参阅on.exit的文档。