examples of using the {progressr} package

progressr-examples.R

library(progressr)
library(furrr)

handlers("void")

handlers(list(
  handler_progress(
    format = ":spin :current/:total (:message) [:bar] :percent in :elapsed ETA: :eta",
    width = getOption("width"),
    complete = "="
  )
))

foo <- function(x, p = invisible) {
  p <- progressor(along = x)
  future_walk(
    x,
    function(.x, p) {
      on.exit(p())
      p()
      message(.x)
      Sys.sleep(.x)
    },
    p = p,
    .progress = TRUE
  )
}

plan(multisession, workers = 2)
with_progress(foo(runif(20)), enable = TRUE)

foo <- function(x, p = invisible) {
  for (i in x) {
    p()
    message("i: ", i)
    Sys.sleep(i)
  }
  invisible()
}

with_progress(enable = TRUE, {
  p <- progressor(10)
  foo(runif(10), p = p)
})