if (FALSE) {
f <- function() {
if (isTRUE(check_packages_installed("progressr"))) {
pb <- progressr::progressor(steps = 5, message = "looping")
} else {
pb <- NULL
}
for (i in 1:5) {
pbtick(pb)
Sys.sleep(0.5)
}
}
progressr::with_progress(
f()
)
}
Run the code above in your browser using DataLab