自定义html与闪亮的下载数据按钮

Question

我想知道如何downloadHandler使用自定义HTML UI 进行Shiny 工作.

在我,index.html我有以下内容:

<a id="downloadproject" class="shiny-download-link shiny-bound-output">export</a>

在server.R我有:

output$downloadproject <- downloadHandler(
    filename = "test.csv",
    content = function(file) {
        test_data <- c(1,2,3,4,5,6,7)
        write.csv(test_data, file)
    }
 )

但是,我无法让它发挥作用.我注意到在演示页面上检查源代码:http://shiny.rstudio.com/gallery/file-download.html那里的链接指向一个资源:

<a id="downloadData" class="btn shiny-download-link shiny-bound-output" href="session/58c63083742fd00d75ac37732eb224bc/download/downloadData?w=299e8cd2e7b56a2507a31ddbe72446fd2ce5d51f5940ea0a" target="_blank">
      <i class="fa fa-download"></i>
      Download
</a>

但是,我猜这是由downloadHandler服务器端设置的.然而,我的a-tag根本没有得到任何href.我想要做甚么可能吗？我在这里犯了一些错误吗？关于如何解决这个问题的任何想法将非常感激.

Answer 1

我认为 A 标签正在被一些 JavaScript 修改。如果您只是下载该文件的 HTML 源代码（位于 iframe 包装器中），那么您不会看到很长的href.

因此，我进一步认为您的自定义 HTML UI 不包含调整标签的正确 javascript。

我认为它是通过shiny.js第1402行或附近的downloadLinkOutputBinding完成的。

这些演示加载了大量的 js 和 css，其中一些显然是至关重要的！