# NOT RUN {
# File oriented progression
testFun = function() {
obj <- new("progress.file", main="Iterating", iMax=20)
for(i in 1:20) {
obj = set(obj, i)
Sys.sleep(0.1)
}
}
testFun()
# Console oriented progression
testFun = function() {
obj <- new("progress.console", main="Iterating", iMax=20)
for(i in 1:20) {
obj = set(obj, i)
Sys.sleep(0.1)
}
}
testFun()
# }
Run the code above in your browser using DataLab