1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
source("incl/start.R")
options(progressr.clear = FALSE)
if (requireNamespace("progress", quietly = TRUE)) {
options(progressr.handlers = handler_progress)
}
message("handler_progress() ...")
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_progress() ... done")
source("incl/end.R")
|
