R/tcwarn.R

In oliver-wyman-actuarial/easyr: Helpful Functions from Oliver Wyman Actuarial Consulting

#' tryCatch with warning
#'
#' Easy Try/Catch implementation to return the same message as a warning on error or warning. Makes it easier to write tryCatches.
#' Author: Bryce Chamberlain. Tech review: Lindsay Smelzter.
#'
#' @param code_block Code to run in Try Catch.
#' @param ... Strings to concatenate to form the message that is returned.
#'
#' @export
#'
#' @examples
#' tryCatch({
#'    tcwarn({ NULL = 1 },'Cannot assign to NULL','variable') 
#'  }, 
#'  warning = function(e) print( e ) 
#')
#'
#' tryCatch({ 
#'    tcwarn({ as.numeric('abc') },'Issue in as.numeric()') 
#'  }, 
#'  warning = function(e) print( e )
#')
tcwarn <- function( code_block, ... ){
  message = paste( ... , collapse = ' ' )
  tryCatch(
    code_block,
    error = function(e) warning( e, message ),
    warning = function(w) warning( w, message )
)}