Gửi tệp đính kèm từ Shiny

Question

Tôi đã tạo một ứng dụng bằng cách sử dụng Shiny và được tải lên máy chủ thuộc về shinyapps.io; Tôi đã thử nghiệm nó và tất cả đều ổn. Ứng dụng của tôi tạo ra thông qua máy chủ.R một tệp văn bản mà tôi muốn gửi đến email của tôi khi người dùng hoàn thành một tác vụ. Tôi muốn gửi tệp đó vào email của mình vì tôi không thấy cách để xem các tệp mà ứng dụng sáng bóng của tôi xuất ra trong công cụ quản trị shinyapps.io. Vì vậy, dưới cùng, làm thế nào tôi có thể gửi một tập tin từ một ứng dụng sáng bóng đến email của tôi?

Ví dụ nếu tôi có sau đây:

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) 

Tôi muốn biết những gì tôi nên đặt trong từ phần, tôi có nghĩa là tôi đã đặt nó localhost, nhưng tôi cần phải đặt địa chỉ nơi ứng dụng sáng bóng đang chạy; từ đâu tôi có thể nhận được điều đó?

Ngoài ra khi tôi chạy đoạn mã trên, không phải trong một môi trường Shiny, nhưng như một kịch bản tôi đã nhận lỗi sau đây sau khi phần sendmail:

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

bất kỳ trợ giúp sẽ là tuyệt vời

Answer 1

tác phẩm này đối với tôi để gửi email từ Outlook bằng cách sử dụng thư việnmailR:

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))}