R/sleep.R

In KWB-R/fhpredict: R Package for the Project Flusshygiene

#' Wait a Given Number of Seconds
#'
#' @param seconds time to wait, in seconds
#' @export
#' @return list with elements \code{data}, \code{success}, \code{message}
sleep <- function(seconds)
{
  Sys.sleep(seconds)

  create_result(message = paste("Back after waiting for", seconds, "seconds"))
}