in this session we are going to see how to generate a diagnostics file for a system that organizes logrecords in a different way than Python. let's jump into the implementation, if you can write R you surely won't need more explaination but will want to tell me how to make this function faster, more readable, shorter...
formatter.fewsdiagnostics <- function (record) {
if (record$level <= loglevels[['INFO' ]])
level <- 3
else if (record$level <= loglevels[['WARNING' ]])
level <- 2
else if (record$level <= loglevels[['ERROR' ]])
level <- 1
else
level <- 0
sprintf(' <line level="%d" description="LizardScripter :: %s :: %s"/>\n' , level, record$timestamp, record$msg)
}
notice that the field $msg of a record is already "formatted", as we have seen with logwarn('my %s is %d', 'name', 5). that part can be used but not undone any more.
when you add a handler to a logger, you can use the formatter parameter to associate to the handler a function that takes a logrecord and returns a string. the above example function is such a function.
the formatter you can associate to a handler can combine the tags in the logrecord to produce a string. the tags that are available in a logrecord are: $logger (the name of the logger which produced the record), $msg, $timestamp, $level (numeric), $levelname (character).
if you don't specify the formatter parameter, the default formatter is used, which looks like this:
defaultFormat <- function (record) {
text <- paste(record$timestamp, paste(record$levelname, record$logger, record$msg, sep=':' ))
}
the rest of the code, just slightly simplified, showing how we (me at my company) actually use this capability is given here.
notice that the 'diagnostics' handler we add will not handle DEBUG logrecords.
setup.fewsdiagnostics <- function (filename) {
cat('<?xml version="1.0" encoding="UTF-8" standalone="yes"?>\n' , file=filename, append=FALSE )
cat('<Diag version="1.2" xmlns="..." xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="...">\n' , file=filename, append=FALSE )
addHandler('diagnostics' ,
writeToFile, file=filename,
logger='fews.diagnostics' ,
formatter=formatter.fewsdiagnostics)
}
teardown.fewsdiagnostics <- function (filename) {
cat('</Diag>\n' ', file=filename, append=TRUE )
removeHandler('diagnostics' , logger='fews.diagnostics' )
}