R/aaa.R

In thomasp85/routr: A Simple Router for HTTP and WebSocket Requests

Defines functions is.error_cond is.condition tri

# better try
tri <- function(expr) {
  tryCatch(expr, error = function(e) e)
}
is.condition <- function(x) inherits(x, 'condition')
is.error_cond <- function(x) is.condition(x) && inherits(x, 'error')