#mail #error in #R

mailErr.R

options(error = function() {
  subject.msg <- paste0("Error Subject,  ", format(Sys.time(), "%A %d %B %Y %X"))
  from <- "sender@mail"
  body <- geterrmessage()
  mailControl = list(smtpServer = "mail.server.com", smtpPort = "25")

  sendmail(from = from,
           to = c("[email protected]","[email protected]"),
           subject = subject.msg,
           msg = body,
           control = mailControl)

  flog.error(geterrmessage())
  traceback()
  stop()
})