if (FALSE) {
# POST messages to localhost.
appender <- http_appender("localhost")
appender("INFO", "Message.")
# POST JSON-encoded messages.
appender <- http_appender(
"localhost", method = "POST", layout = default_log_layout(),
httr::content_type_json()
)
appender("INFO", "Message.")
}
Run the code above in your browser using DataLab