Nothing
#' @rdname newArgCheck
#' @export addError
#'
addError <- function(msg, argcheck)
{
if (!"ArgCheck" %in% class(argcheck))
stop("'argcheck' must be an object of class 'ArgCheck'")
assign("n_error",
get("n_error", envir = argcheck) + 1,
envir = argcheck)
assign("error_msg",
c(get("error_msg", envir = argcheck),
msg),
envir = argcheck)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.