R/stop.R

In mjkallen/rlogging: Simple logging in R

stop <- function(..., call.=TRUE, domain=NULL) {

    args <- list(...)
    is.condition <- length(args) == 1L && inherits(args[[1L]], "condition")
    if (!is.condition) {
        split.files <- get("split.files", envir=.rloggingOptions)
        # error messages are always printed (i.e. for levels INFO, WARN and STOP)
        if (split.files) {
            PrintLogMessage(..., level="STOP")
        } else {
            PrintLogMessage("[STOP] ", ...)
        }
    }
    base::stop(..., call.=call., domain=domain)
    invisible()

}