# NOT RUN {
  
# }
# NOT RUN {
  
# Creates a progress bar (of length 100) that displays it self as a file.
pb <- FileProgressBar("~/progress.simulation")
reset(pb)
while (!isDone(pb)) {
  x <- rnorm(3e4)
  increase(pb)
  # Emulate a slow process
  if (interactive()) Sys.sleep(0.1)
  Sys.sleep(0.01)
}
  
# }
# NOT RUN {
 
# }
Run the code above in your browser using DataLab