sleepy.R

# Make a function sleep 

sleepy <- function(fun, sleep){
  function(...){
    Sys.sleep(sleep)
    fun(...)
  }
}

sleep_print <- sleepy(print, 2)
Sys.time()
sleep_print("pouet")
Sys.time()

purrr::walk(1:5, ~ sleep_print(Sys.time()))