simple_error <- function(message) {
errorCondition(message, class = "SimpleError")
}
# Unhandled, this stop() would end the script
err <- tryCatch(stop(simple_error("Oops!")),
error = identity)
err_class <- class(err)
# err_class = SimpleError error condition
err_message <- conditionMessage(err)
# err_message = Oops!
cat("err_class =", err_class, "\n")
cat("err_message =", err_message, "\n")