una - El fregadero no libera el archivo

como destapar una tuberia

Question

Sé que la función sink() se puede usar para desviar la salida R a un archivo, por ejemplo

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

¿Hay un comando simple para cerrar todos los sumideros pendientes?

A continuación, elaboro mi pregunta.

Supongamos que mi script R abre un sink() en un script R, pero hay un error en el script R que se produce antes de que el script cierre el sink() . Puedo ejecutar el script R varias veces, tratando de corregir el error. Finalmente, quiero cerrar todos los lavabos e imprimir en la consola. ¿Cómo lo hago?

Finalmente, en aras de la concreción, proporciono un MWE para ilustrar el problema que enfrento.

En primer lugar, escribo un script R- sink-closing.R que contiene un error.

sink(''sink-closing.txt'')

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

foo()

sink()

A continuación, source el script R varias veces, por ejemplo, 3 veces por error mientras trato de encontrar y corregir el error.

> 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

Ahora, supongamos que estoy depurando el script R y quiero imprimir en la consola. Puedo llamar a sink() varias veces para cerrar los lavabos anteriores. Si lo llamo 3 veces, finalmente puedo imprimir en la consola como antes. ¿Pero cómo sé cuántos lavamanos necesito cerrar?

Answer 1

Basado en el comentario de @mnel:

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

Debe cerrar todos los lavamanos abiertos.

También puede encontrar este problema al tratar con dispositivos y gráficos, donde el número de dispositivos abiertos no se informa en ningún lugar. Para un caso más general puedes usar esto:

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.

EDITAR: sink lanza una advertencia, no un error, así que modifiqué el código para que no se ejecute para siempre, ¡vaya!

Answer 2

Puede usar sink.number() para decirle cuántos desvíos ya están configurados y luego llamar al sink muchas veces. Poniéndolo en una función podría tener esto.

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

Answer 3

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