## 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)
# }
#
# ## End(Not run)
Run the code above in your browser using DataLab