Sink does not release file

Question

I know that the sink() function can be used to divert R output into a file, e.g.

sink('sink-closing.txt')
cat('Hello world!')
sink()

Is there a simple command to close all outstanding sinks?

Below, I elaborate on my question.

Suppose that my R-script opens a sink() in an R-script, but there is an error in the R-script which occurs before the script closes the sink(). I may run the R-script multiple times, trying to fix the error. Finally, I want to close all the sinks and print to the console. How do I do so?

Finally, in the interest of concreteness, I provide a MWE to illustrate the problem I face.

First, I write an R-script sink-closing.R which has an error in it.

sink('sink-closing.txt')

foo <- function() {
  cat(sprintf('Hello world! My name is %s\n', 
              a.variable.that.does.not.exist))
}

foo()

sink()

Next, I source the R-script multiple times, say 3 times by mistake as I try to find and fix the bug.

> source('~/Dropbox/cookbook/r-cookbook/sink-closing.R')
Error in sprintf("Hello world! My name is %s\n", a.variable.that.does.not.exist) : 
  object 'a.variable.that.does.not.exist' not found

Now, suppose that I am debugging the R-script and want to print to the console. I can call sink() multiple times to close the earlier sinks. If I call it 3 times, then I can finally print to the console as before. But how do I know how many sinks I need to close?

Answer 1

You can use sink.number() to tell you how many diversions are already set and then call sink that many times. Putting it into a function you could have this

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