从SHINY发送电子邮件 [英] Sending email from shiny

问题描述

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

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

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

推荐答案

这是我为在一个闪亮的应用程序中测试sendmailR包而编写的闪亮的电子邮件发件人。在Linux平台上，我没有配置任何东西，这款应用程序运行得很好。用户在shinyAce包生成和处理的文本区域中键入消息正文。

ui.R

shinyUI(pageWithSidebar(

  headerPanel("Email sender"),

  sidebarPanel(
    textInput("from", "From:", value="[e-mail]"),
    textInput("to", "To:", value="[e-mail]"),
    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)
  })

})

这篇关于从SHINY发送电子邮件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！