R/logutil.R

Defines functions getMark log.error log.warning log.info

#
# Logs
#
# moved to a separate file
#

log.info = function(...) {
    cat(paste(date(), getMark(), ... , "\n", sep=""));
}

log.warning = function(...) {
    cat(paste(date(), getMark(), "*** WARNING ***\n", sep=""));
    cat(paste(date(), getMark(), "\n", sep=""));
    cat(paste(date(), getMark(), "    ", ... , "\n", sep=""));
    cat(paste(date(), getMark(), "\n", sep=""));
    
    if (.stop.on.warnings) {
        stop();
    }
}

log.error = function(...) {
    cat(paste(date(), getMark(), "*** ERROR ***\n", sep=""));
    cat(paste(date(), getMark(), "\n", sep=""));
    cat(paste(date(), getMark(), "    ", ... , "\n", sep=""));
    cat(paste(date(), getMark(), "\n", sep=""));
    
    #stop();
}


getMark = function() {
    " [AEHTS] ";
}

Try the ArrayExpressHTS package in your browser

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

ArrayExpressHTS documentation built on Nov. 8, 2020, 7:50 p.m.