Nothing
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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.