R logging framework

logging.r

require(logging)

# LOG_LEVEL = "FINEST"
# LOG_LEVEL = "DEBUG"
LOG_LEVEL = "INFO"
# LOG_LEVEL = "ERROR"
logReset()
basicConfig(LOG_LEVEL) # bootstrapping the logging package
removeHandler("basic.stdout")
addHandler("mybasic.stdout", action=writeToConsole, level=LOG_LEVEL,
           formatter=function(record) paste0(paste0(rep(" ", (50-record$level)/5), collapse=""), gsub("\\n", "\\\\n", record$msg)) )

# Usage:

logfinest("x=%s", x)
logfiner(...)
logdebug(...)
loginfo(...)
logwarn(...)
logerror(...)