# 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