powered by
Simple Text Iteration Counter
iterCount(n = 100, i0 = 0L, title = "Iterations", extra = NULL, verbose = TRUE)
number of total steps
starting step
character string to use as title
character vector providing extra text to add at each step
logical that toggles the counter
# NOT RUN { progress <- iterCount(LETTERS) res <- sapply(LETTERS, function(x){ Sys.sleep(.1) progress() }) # terminate counter i_end <- progress(NULL) i_end # }
Run the code above in your browser using DataLab