# 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