Invio di un allegato da Shiny

Question

Ho creato un'applicazione che utilizza Shiny e caricata sul server che appartiene a shinyapps.io; L'ho provato e va tutto bene. La mia applicazione crea tramite il server.R un file di testo che desidero inviare alla mia posta elettronica quando un utente termina l'esecuzione di un'attività. Desidero inviare il file alla mia email perché non vedo un modo per vedere i file che la mia applicazione lucida produce nello strumento di amministrazione shinyapps.io. In conclusione, come posso inviare un file da un'applicazione lucida alla mia email?

Per esempio se io ho il seguente:

library(sendmailR) 
datos<-read.table("data.txt") 
to <- "<loretta@gmail.com>" 
subject <- "Email Subject" 
body <- "Email body."      
mailControl=list(smtpServer="ASPMX.L.GOOGLE.COM") 
sendmail(from="localhost",to=to,subject=subject,msg=body,control=mailControl) 
attachmentObject <- mime_part(name=datos) 
bodyWithAttachment <- list(body,attachmentObject) 
sendmail(from="localhost",to=to,subject=subject,msg=bodyWithAttachment,control=mailControl) 

Vorrei sapere cosa devo mettere nel da parte, voglio dire che ho messo localhost, ma ho bisogno di mettere l'indirizzo di dove è in esecuzione l'applicazione lucida; da dove posso averlo?

anche quando si esegue il codice di cui sopra, non in un ambiente Brillante, ma come uno script che ho ottenuto il seguente errore dopo che la parte di sendmail:

Error in wait_for(code) : 
    SMTP Error: 5.5.2 Syntax error. g22si4860678yhc.87 - gsmtp 

qualsiasi aiuto sarebbe grande

Answer 1

questo funziona per me per l'invio di e-mail da Outlook utilizzando il biblioteca mailR:

library(mailR) 

bodyMsg <- "Some message to be included in the body of the email" 

send.mail(from = "sender@xyz.com", to = "receiver@xyz.com", subject = "Some topic", 
       body = bodyMsg , authenticate = TRUE, html = TRUE, send = TRUE, attach.files = file.path(folder, fileName), 
       smtp = list(host.name = "abcdef.xyz.com", port = 587, user.name = "sender@xyz.com", passwd = "password", tls = TRUE))}