# Simple usage
if (FALSE) {
nosleep_on()
long_running_job()
nosleep_off()
# Handle-based usage
h <- nosleep_on()
long_running_job()
nosleep_off(h)
# Keep the display awake as well (when supported)
h <- nosleep_on(keep_display = TRUE)
Sys.sleep(100) # simulate long job
nosleep_off(h)
}
Run the code above in your browser using DataLab