#' A function for show Very simple and usfule TextProgressBar in 1 code string
#'
#' @param k - value of progress. In [0:1]
#' @keywords Progress Bar
#' @examples
#'
#' library(spbar)
#' n <- 1000000
#' for(i in 1:n){
#' spbar(i/n)
#' }
#' @export
spbar <- function(k=0){
setTxtProgressBar(.pbar_t, k)
}
.pbar_t <- txtProgressBar(style = 3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.