# NOT RUN {
if (requireNamespace("rsyslog", quietly = TRUE)) {
lg <- get_logger("rsyslog/test")
lg$add_appender(AppenderSyslog$new(), "syslog")
lg$info("A test message")
if (Sys.info()[["sysname"]] == "Linux"){
system("journalctl -t 'rsyslog/test'")
}
invisible(lg$config(NULL)) # cleanup
}
# }
Run the code above in your browser using DataLab