R script - basic logging functions [Refactored]

RLogger.r

MSG_TYPE_INFO    <- "[INFO]"
MSG_TYPE_WARNING <- "[WARNING]"
MSG_TYPE_DEBUG   <- "[DEBUG]"
MSG_TYPE_ERROR   <- "[ERROR]"

log.ANY     <- function(typeOfMessage, message) {
 print(paste(date(), typeOfMessage, message))
}

log.INFO    <- function(message) {
  log.ANY(MSG_TYPE_INFO,    message)
}

log.WARNING <- function(message) {
 log.ANY(MSG_TYPE_WARNING, message)
}

log.DEBUG   <- function(message) {
 log.ANY(MSG_TYPE_DEBUG,   message)
}

log.ERROR   <- function(message) {
 log.ANY(MSG_TYPE_ERROR,   message)
}