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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
source("incl/start.R")
message("progressor() ...")
message("- basic")
local({
p <- progressor(3L)
print(p)
p()
p("A message")
})
message("- default message")
local({
p <- progressor(along = 1:3, message = "A default message")
print(p)
p()
p("A message")
})
message("- zero length")
local({
p <- progressor(0L)
print(p)
p()
p("A message")
})
message("- multiple consequtive progressors")
local({
message("Progressor #1")
p <- progressor(2L)
for (kk in 1:2) p()
message("Progressor #2")
p <- progressor(3L)
for (kk in 1:3) p()
message("Done")
})
message("progressor() ... DONE")
source("incl/end.R")
|
