A simple, lite, and pretty progress bar.
Install the development version of pbr:
remotes::install_github("mkearney/pbr")Test out the progress bar
> pb_test <- function(n = 50, secs = 3) {
pb <- pbr::pbr(n)
for (i in seq_len(n)) {
Sys.sleep(secs / n)
pb$tick()
}
pb$done()
}
> pb_test()
███████████████████████████████████████████████████████████ 1s