example code for a progress bar in R

progressbaR.R

pb <- txtProgressBar(style = 3, min = 0, max = length(files_list))
i <- 0

for (file in files_list){
  i <- i+1
  setTxtProgressBar(pb, i)

  do_computations()
}