R Shiny：如何将变量从 Server.R 传递到 RMD 脚本答案

【问题标题】：RShiny: How to pass variable from Server.R to an RMD scriptR Shiny：如何将变量从 Server.R 传递到 RMD 脚本
【发布时间】：2013-04-01 05:07:16
【问题描述】：

我最近在玩 RShiny，我已经构建了一个有效的 Web 界面，它接受两个参数“日期”和“位置”，并从我们的数据库中返回一系列符合标准的图形和表格。

我想做的是让用户能够以 HTML 格式的 RMD 报告的形式下载所有数据和图表。

所以我有 1. 带有下载按钮的 UI.R 2.Server.R的downloadHandler启动我的RMD脚本 3. ？？？

UI.R

downloadButton('downloadData','Download')

服务器.R

output$downloadData<- downloadHandler(filename ="myData.html", 
                                  content= function(file= NULL){
                                    knit(thread.RMD) 
                                  }

【问题讨论】：

你能把温斯顿的答案贴在这里吗？ groups.google.com/group/shiny-discuss/browse_thread/thread/…
感谢您的提醒。已更新。

标签： r scope knitr shiny

【解决方案1】：

这是我从 Shiny Google Group 得到的答案：https://groups.google.com/forum/?fromgroups=#!topic/shiny-discuss/XmW9V014EtI

作为“内容”参数提供给 downloadHandler 的函数采用一个选项，“文件”。单击下载按钮时，下载处理程序会调用该函数，并使用文件参数告诉它应该将输出文件保存在哪里。

我没有看到从 knit2html() 设置输出文件名的方法，但您可以在创建后重命名它：

  output$downloadData <- downloadHandler(
    filename ="ShinyData.html", 
    content = function(file) {
      knit2html("myreport.rmd")
      file.rename("myreport.html", file)
    }
  )

（另外，您在 ui.r. 中缺少右括号）

-温斯顿

【讨论】：