# NOT RUN {
logger <- Logger$new("loggername")
default <- tempfile()
fancy <- tempfile()
json <- tempfile()
logger$add_appender(AppenderFile$new(default), "default")
logger$add_appender(
AppenderFile$new(fancy, layout = LayoutFormat$new("[%t] %c(): %L %m")), "fancy"
)
logger$add_appender(
AppenderFile$new(json, layout = LayoutJson$new()), "json"
)
logger$info("A test message")
readLines(default)
readLines(fancy)
readLines(json)
# }
Run the code above in your browser using DataLab