Progress bar

I usually use a print() statement within for loops but this progress bar seems better.  I wish packages had this included.

Q = 10000
pb = txtProgressBar(min = 0, max = Q, style = 3)
for(i in 1:Q)
{
  Sys.sleep(0.01)
  setTxtProgressBar(pb, i)
}
close(pb)

Tags: