如何在程序结束的时候发送email

# MyEmail.R
library(mailR)
sender <- "[email protected]"
recipients <- c("[email protected]")
send.mail(from = sender,
          to = recipients,
          subject = "Program Done.",
          body = "My program is finished.",
          smtp = list(host.name = "smtp.qq.com", port = 587,
                      user.name =sender,
                      passwd = "cceaqupijmkxbffa", ssl = TRUE),
          authenticate = TRUE,
          send = TRUE)