Random exponential sleep + warns it sleeps

sleep.R

#' Random sleep
#'
#' Random exponential sleep + prints "sleeping".
#'
#' @param short Toogle shorter wait time
#' @references \url{https://twitter.com/ArthurFlam}
# @ArthurFlam

# random Sleep function
# Prints out

# mean time wait :
SLEEP = 5 #seconds

sleep=function(short=FALSE){
  cat("...sleeping...")
	if(short==FALSE) {Sys.sleep(rexp(1,1/SLEEP))} else Sys.sleep(rexp(1,10/SLEEP))
	cat("\r                 \r")
}