Funciones que no se ejecutan antes de Sys.sleep()

Question

Estoy escribiendo una función que necesita capturar un error que limita la velocidad al hacer ping a una API basada en web.

estoy usando tryCatch a detectar el error, y dentro de esta función se especifica la siguiente función de error:

error=function(e) { 
       warning(paste(e,"\nWaiting an hour for rate limit to reset...")) 
       Sys.sleep(3600) # Wait an hour for rate-limit to reset 
       return(user.info(user, ego.count)) 
      } 

La función parece funcionar, pero cuando la comprobación de los registros de salida para el script noto que la mensaje de advertencia no se escribe hasta después de el tiempo de suspensión se ha agotado.

puedo reproducir este comportamiento en la consola R con:

print("Drew sucks") 
Sys.sleep(10) 

Diez segundos antes de Drew sucks se imprime en la consola. En mi función, me gustaría proporcionar algunos comentarios al usuario sobre esta larga pausa antes de que ocurra la pausa.

¿Qué está causando este comportamiento?

Answer 1

Por el placer de hacerlo, trate de:

system(sprintf('sleep %d', seconds)) 

Suponiendo que tenga el comando * NIX habitual del sueño en el camino.

Answer 2

probablemente relacionadas con el almacenamiento en búfer de salida - ver ?flush.console

Answer 3

Por defecto, las advertencias no se imprimen inmediatamente, sino que se imprimen después de los mejores rendimientos de funciones de nivel. Puede establecer warn a '1' si desea que se imprima inmediatamente, y aún más si lo quiere detener

Answer 4

Debe establecer immediate.=TRUE en su función de advertencia o establecer options(warn=1); y pueden agregar flush.console() (en algunos sistemas operativos) antes de la llamada Sys.sleep().

foo <- function() { 
    warning("uh-oh...", immediate.=TRUE) 
    flush.console() 
    Sys.sleep(5) 
    "done" 
} 
foo() 
# Warning in foo() : uh-oh... 
# [1] "done" 

Los detalles se explican en la sección "Detalles" de ?warning. Parafraseando, "if options (warn = 0), las advertencias se almacenan e imprimen después de que se haya completado la función de nivel superior, si las opciones (warn = 1) se imprimen a medida que ocurren".