Created on Fri Jul 19 2013
Revised on Thu Aug 08 13:31:55 2013
original post is here
total <- 20
pb <- txtProgressBar(min = 0, max = total, style = 3) # create progress bar
##
|
| | 0%
for (i in 1:total) {
Sys.sleep(0.3)
setTxtProgressBar(pb, i)
}
##
|
|=== | 5%
|
|====== | 10%
|
|========== | 15%
|
|============= | 20%
|
|================ | 25%
|
|==================== | 30%
|
|======================= | 35%
|
|========================== | 40%
|
|============================= | 45%
|
|================================ | 50%
|
|==================================== | 55%
|
|======================================= | 60%
|
|========================================== | 65%
|
|============================================== | 70%
|
|================================================= | 75%
|
|==================================================== | 80%
|
|======================================================= | 85%
|
|========================================================== | 90%
|
|============================================================== | 95%
|
|=================================================================| 100%
close(pb)
n = 5000
pb <- winProgressBar(title = "R progress bar", label = "", min = 0, max = n)
for (i in 1:n) {
Sys.sleep(0.002)
info <- sprintf("%d%% done", round(i/50))
setWinProgressBar(pb, i, sprintf("test (%s)", info), info)
}
close(pb)
## NULL