R/tryCatchWE.R

In jaspwn/simbaR: Mosquito flight tone analysis

#' @export

tryCatchWE <- 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)
}