# NOT RUN {
f <- function(){
on.exit({rxProgressAbort()});
rxProgress(100)
for (i in 1:100) {
rxTick()
Sys.sleep(1 / 100)
}
rxProgressStop();
}
# }
# NOT RUN {
f()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab