Envie um anexo em R com o gmail

Desejo enviar um email em R com um anexo usando o gmail. Descobri que o sendmailR não funciona com o gmail porque requer autenticação (não consegui fazê-lo funcionar com o gmail, portanto, presumo que isso seja verdade, a menos que alguém me diga que estou errado; nesse caso, postarei o R saída e mensagem de erro para isso). Encontrei um snippet de código encontradoaqui (LINK). Como o site sugere, o código não está formatado para enviar anexos, mas eu tenho que enviar um email. Gostaria de estender esse código para enviar anexos (em uma correspondência por email, o autor deste código não conseguiu estender o código para enviar anexos

Eu quero enviar e-mails com R usando o gmail. Eu sou um usuário do Windows 7 com a versão 2.14 beta do R.

O código que envia emails, mas não anexos:

require(rJython) 
rJython <- rJython() 
rJython$exec( "import smtplib" ) 
rJython$exec("from email.MIMEText import MIMEText") 
rJython$exec("import email.utils") 

mail<-c( 
#Email settings 
"fromaddr = '[email protected]'", 
"toaddrs  = '[email protected]'", 
"msg = MIMEText('This is the body of the message.')", 
"msg['From'] = email.utils.formataddr(('sender name', fromaddr))", 
"msg['To'] = email.utils.formataddr(('recipient name', toaddrs))", 
"msg['Subject'] = 'Simple test message'", 

#SMTP server credentials 
"username = '[email protected]'", 
"password = 'pw'", 

#Set SMTP server and send email, e.g., google mail SMTP server 
"server = smtplib.SMTP('smtp.gmail.com:587')", 
"server.ehlo()", 
"server.starttls()", 
"server.ehlo()", 
"server.login(username,password)", 
"server.sendmail(fromaddr, toaddrs, msg.as_string())", 
"server.quit()") 

jython.exec(rJython,mail) 

Observe que esta mensagem é postada cruzadamente em talkstats.com. Não recebi uma resposta lá (apenas os membros me disseram que gostariam de poder ajudar). Se eu receber uma solução viável, também a publicarei lá.

questionAnswers(8)

yourAnswerToTheQuestion