custom levels

[mfrasca]

from an email (Paul Roebuck, 2014-10-03)
can I add a custom level?

Desired processing follows...

R> addLevelName <- function(value, levelname) {
    stopifnot(is.numeric(value) && length(value) == 1)
    stopifnot(is.character(levelname) && length(levelname) == 1 && nzchar(levelname))
    names(value) <- levelname
    loglevels <<- sort(c(loglevels, as.integer(value)))
}

R> addLevelName(9, 'NUMBER9')
R> loglevels
  NOTSET   FINEST    FINER     FINE  NUMBER9    DEBUG     INFO
  WARNING     WARN    ERROR CRITICAL    FATAL 
  0        1        4        7        9       10       20
  30       30       40       50       50