inst/doc/logging-beyond-local-files.R

In log4r: A Fast and Lightweight Logging System for R, Based on 'log4j'

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(log4r)

## ----rsyslog, eval=requireNamespace("rsyslog", quietly = TRUE)----------------
logger <- logger(appenders = syslog_appender("my-R-script"))

## ----http-1-------------------------------------------------------------------
logger <- logger(appenders = http_appender("http://logging.example.local"))

## ----http-2-------------------------------------------------------------------
logger <- logger(
  appenders = http_appender("http://logging.example.local", method = "GET")
)

## ----http-3-------------------------------------------------------------------
logger <- logger(
  appenders = http_appender(
    "http://logging.example.local",
    method = "GET",
    layout = default_log_layout(),
    httr::add_headers(`X-Custom-Header` = 1),
    httr::user_agent("my-r-script/1.0.0")
  )
)

## ----tcp, eval = FALSE--------------------------------------------------------
#  logger <- logger(
#    appenders = tcp_appender("tcp://logging.example.local", port = 9551)
#  )