Nothing
# See http://adv-r.had.co.nz/Exceptions-Debugging.html
Condition <- function(subclass, message, ...) {
structure(
class = c(subclass, "condition"),
list(message = message, call = call),
...
)
}
Exception <- function(subclass, message = "", ...) {
# This should be called only via specific exception type constructors, not directly.
# Since this is a helper function to be called by other exception-generators,
# `call` needs to look two calls up the stack.
message <- paste0(subclass, ": ", message)
return(Condition(c(subclass, "error"), message, call = call, ...))
}
Raise <- function(condition, call = sys.call(-1), ...) {
# This wrapper around `stop` is necessary to get the `call` correct.
condition$call <- call
stop(condition)
}
Exceptions <- list(
PendingJobFinished = function(message = "") Exception("PendingJobFinished", message = message),
PendingJobNotFinished = function(message = "") Exception("PendingJobFinished", message = message),
PendingJobFailed = function(message = "") Exception("PendingJobFailed", message = message),
AsyncTimeout = function(message = "") Exception("AsyncTimeout", message = message)
)
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.