if (FALSE) {
derr <- function(x) discord_cond("error", x)
dwarn <- function(x) discord_cond("warning", x)
dmess <- function(x) discord_cond("message", x)
return_class <- function(func) {
tryCatch(func,
error = function(cond) class(cond),
warning = function(cond) class(cond),
message = function(cond) class(cond)
)
}
return_class(derr("error-class"))
return_class(dwarn("warning-class"))
return_class(dmess("message-class"))
}
Run the code above in your browser using DataLab