R/tryCatchWE.R

In c5sire/quipu: Summary Charts of Micro-Satellite Profiles for a Set of Biological Samples

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