incl/progressr-package.R

library(progressr)

xs <- 1:5

with_progress({
  p <- progressor(along = xs)
  y <- lapply(xs, function(x) {
    Sys.sleep(0.1)
    p(sprintf("x=%g", x))
    sqrt(x)
  })
})
HenrikBengtsson/progressr documentation built on Jan. 26, 2024, 12:18 p.m.