R/withWarnings.R

In Boshoffsmit/novaReport: Nova reporting functions

#' With Warnings
#' 
#' This function is used by chi.2.eksp to ensure that the function works correctly. It makes use
#' of functions that provide a mechanism for handling unusual conditions, including errors and warnings. 
#' A list is returned of the value and the associated warning
#' 
#' @param expr expression to be evaluated
#' @references Bill Dunlap
#' @export


withWarnings <- function (expr) 
{
  warnings <- character()
  retval <- withCallingHandlers(expr, warning = function(ex) {
    warnings <<- c(warnings, conditionMessage(ex))
    invokeRestart("muffleWarning")
  })
  list(Value = retval, Warnings = warnings)
}