/usr/share/doc/r-cran-progressr/tests/handler_rstudio.R

source("incl/start.R")

options(progressr.clear = FALSE)

if (requireNamespace("rstudioapi", quietly = TRUE) && rstudioapi::isAvailable()) {
  options(progressr.handlers = handler_rstudio)
}  

message("handler_rstudio() ...")

for (x in list(integer(0), 1:10, 1L)) {
  message("length(x): ", length(x))
  with_progress({
    progress <- progressor(along = x)
    for (ii in x) {
      Sys.sleep(getOption("progressr.demo.delay", 0.1))
      progress(message = sprintf("(%s)", paste(letters[1:ii], collapse="")))
    }
  })
}

message("handler_rstudio() ... done")

source("incl/end.R")

Generated by dwww version 1.15 on Sat May 18 12:08:35 CEST 2024.