# NOT RUN {
mailSettings <- list(from = "someone@gmail.com",
to = c("someone_else@gmail.com"),
smtp = list(host.name = "smtp.gmail.com",
port = 465,
user.name = "someone@gmail.com",
passwd = "super_secret!",
ssl = TRUE),
authenticate = TRUE,
send = TRUE)
# Setting test to TRUE in this example so we don't really send an e-mail:
appender <- createEmailAppender(layout = layoutEmail,
mailSettings = mailSettings,
label = "My R session",
test = TRUE)
logger <- createLogger(name = "EMAIL",
threshold = "FATAL",
appenders = list(appender))
registerLogger(logger)
logFatal("Something bad")
unregisterLogger("EMAIL")
# }
Run the code above in your browser using DataLab