r - 从 Shiny 的发送电子邮件

Question

我是 Shiny 的新用户，我有兴趣创建一个 Web 应用程序，访问者可以在其中填写一些问题(取决于随机 R 数据)，然后他们可以提交这些问题。

我的问题是找到通过电子邮件向我发送该信息的方式，例如，每次他们提交数据时。

我是一名大学讲师，我认为这是评估学生的好方法。

Answer 1

这是我写的用于测试 sendmailR 的 Shiny 电子邮件发件人在 Shiny 应用程序中打包。在 Linux 平台上，我没有配置任何东西，应用程序完美运行。用户在由 shinyAce 生成和处理的文本区域中键入消息正文。包裹。

ui.R

shinyUI(pageWithSidebar(

  headerPanel("Email sender"),

  sidebarPanel(
    textInput("from", "From:", value="from@gmail.com"),
    textInput("to", "To:", value="to@gmail.com"),
    textInput("subject", "Subject:", value=""),
    actionButton("send", "Send mail")
  ),

  mainPanel(    
    aceEditor("message", value="write message here")
  )

))

server.R

library(shinyAce)
library(sendmailR)

shinyServer(function(input, output, session) {

  observe({
    if(is.null(input$send) || input$send==0) return(NULL)
    from <- isolate(input$from)
    to <- isolate(input$to)
    subject <- isolate(input$subject)
    msg <- isolate(input$message)
    sendmail(from, to, subject, msg)
  })

})