1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
source("incl/start.R")
options(progressr.clear = FALSE)
message("txtprogressbar ...")
for (style in 1:3) {
message(sprintf("- style = %d ...", style))
handlers(handler_txtprogressbar(style = style))
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(sprintf("- style = %d ... done", style))
}
message("txtprogressbar ... done")
source("incl/end.R")
|
