R/addMessage.R

Defines functions addMessage

Documented in addMessage

#' @rdname newArgCheck
#' @export addMessage
#'

addMessage <- function(msg, argcheck)
{
  if (!"ArgCheck" %in% class(argcheck))
    stop("'argcheck' must be an object of class 'ArgCheck'")
  
  assign("n_message", 
         get("n_message", envir = argcheck) + 1, 
         envir = argcheck)
  assign("message_msg", 
         c(get("message_msg", envir = argcheck),
           msg), 
         envir = argcheck)
}

Try the ArgumentCheck package in your browser

Any scripts or data that you put into this service are public.

ArgumentCheck documentation built on May 2, 2019, 9:15 a.m.