##############################################
# utility functions
##############################################
#' Progress function
#'
#' Non exported function, plots the prgress of an iterative procedure using "[=> ]", "[==> ]", etc.
#'
#' @param p Value
#' @return NULL
loader <- function(p)
{
if (p==0) cat("0% 50% 100%\n")
str <- paste0(rep(c("\r[", "=", ">", " ", "]"), c(1, floor(p*50), 1, 50 - floor(p*50), 1)), collapse = "")
cat(str)
utils::flush.console()
if (floor(p) == 1) cat("\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.