#' Slow function/script down
#'
#' @param x time to sleep (pause/wait)
#'
#' @return NULL
#' @export
#'
#' @examples waitFor(4.4)
waitFor <- function(x)
{
p1 <- proc.time()
Sys.sleep(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.