R/spbar.R

#' 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)
evgeniikonev/simplepbar documentation built on May 16, 2019, 9:40 a.m.