Simple Text Iteration Counter
iterCount(n = 100, i0 = 0L, title = "Iterations", extra = NULL, verbose = TRUE)
A function that can be used to increment progress.
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
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