R/catchWarning.R

In pbreheny/html: Functions for creating HTML reports

catchWarning <- function(expr) {
  W <- NULL
  w.handler <- function(w){ # warning handler
    W <<- w
    invokeRestart("muffleWarning")
  }
  list(value = withCallingHandlers(tryCatch(expr, error = function(e) e), warning = w.handler),
       warning = W)
}