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
|
source("incl/start.R")
message("Exceptions ...")
message("- with_progress()")
invalid <- progression(type = "unknown", session_uuid = "dummy", progressor_uuid = "dummy", progression_index = 0L)
print(invalid)
res <- tryCatch(with_progress({
signalCondition(invalid)
}, handlers = handler_debug), error = identity)
str(res)
stopifnot(inherits(res, "error"))
message("- progress_aggregator()")
invalid <- progression(type = "unknown", session_uuid = "dummy", progressor_uuid = "dummy", progression_index = 0L)
print(invalid)
local({
progress <- progress_aggregator(progressor(2L))
res <- tryCatch(progress({
signalCondition(invalid)
}), error = identity)
str(res)
stopifnot(inherits(res, "error"))
})
message("Exceptions ... done")
source("incl/end.R")
|
