sending mail from R with attachments

send_mail.R

library(sendmailR)

send_mail <- function(msg="", subject, tos = c("[email protected]"), attachment}
    from <- sprintf("<abc@%s.inst.edu>", Sys.info()[4])
    
    if(missing(subject)) 
      subject <- paste("morning!")
      
    salute <- paste("Hello there\n I just ran the tracker on ")
    body <- c(salute, "\n", msg, "\n", mime_part(attachment))
    
    sapply(tos,function(to) sendmail(from, to, subject, body, control=list(smtpServer="mail.institute.org")))
}