if (FALSE) {
# Enable progress reporting
progressr::handlers("progress")
# Use within a function
result <- with_progress({
p <- progressr::progressor(steps = 10)
lapply(1:10, function(i) {
Sys.sleep(0.1)
p() # Signal progress
i^2
})
}, name = "Computing squares")
}
Run the code above in your browser using DataLab