This is an extended version of the txtProgressBar function from the utils package. Please refer to that documentation with help(txtProgressBar, utils). Use library(pbarETA, warn=F) to override utils::setTxtProgressBar with pbarETA::setTxtProgressBar.

Latest version is available on Github at:

https://github.com/franapoli/pbarETA

The package can be installed from the downloaded sources as follows:

install.packages("path-to-downloaded-source", repos=NULL)

devtools users can download and install at once the latest development version from github as follows:

install_github("franapoli/pbarETA")

pb <- txtProgressBar()
for(i in 1:100) {
  Sys.sleep(1)
  setTxtProgressBar(pb, i/100)
}
|===========                                                           |  10%, ETA 01:24

• Adding library(pbarETA, warn=F) to an existing script will provide ETA to any txtProgressBar object.
• The estimation is accurate when different iterations tend to take the same amount of time.
• Shows the significant part of Years:Months:Days:Hours:Minutes:Seconds.
• Redrawn at least once per second (the original txtProgressBar is redrawn when values change).
• Only tested for bar style=3 (default for pbarETA).