R/catch_error.R

In kristian-bak/madplan: An Amazing Shiny App

#' Catch error
#' @param expr expression to evaluate
catch_error <- function (expr) {
  warn <- err <- NULL
  value <- withCallingHandlers(tryCatch(expr, error = function(e) {
    err <<- e
    NULL
  }), warning = function(w) {
    warn <<- w
    invokeRestart("muffleWarning")
  })
  list(value = value, warning = warn, error = err)
}