1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
library(progressr)
options(progressr.clear = FALSE)
if (requireNamespace("cli", quietly = TRUE)) {
options(progressr.handlers = handler_cli)
}
message("handler_cli() ...")
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_cli() ... done")
|
