progressbar Package

This package allow R user to simply monitor loop execution (apply,for).

Installation

First of all you must install the devtools package in order to isntall package from github

install.packages('devtools')

Then install the progressbar package using the install_github function

devtools::install_github('zwanto/progressbar')

Usage

for loop

library(progressbar)

max = 20
min = 1

pb = progressBar(min=min,max=max) # progress bar initialization

for (i in min:max){
  
  # Your expressions
  Sys.sleep(runif(n = 1,min = 0.2,max = 1))
  
  # Important part
  print(pb) # Refresh the progress bar
}

apply loop

library(progressbar)

vect = 1:20

pb = progressBar(min = 1, max = length(vect)) # progress bar initialization

lapply(vect,function(x){

  # Your expressions
  Sys.sleep(runif(n = 1,min = 0.2,max = 1))
  
  # Important part
  print(pb) # Refresh the progress bar
})

Arguments

refresh

The refresh argument allow you to specify the refresh rate in seconds.
The progress bar is refresh every loop if one loop take more time than the value of the refresh argument. Otherwise it will be refresh according to the value of the refresh argument.

output

By default the progress bar is output to stderr(). You can change this using the output argument.
For exemple, if you want to output to stdout() instead:

pb = progressBar(..., output = stdout)