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

我想知道如何使闪亮downloadHandler使用自定义 html UI。

In my index.html我有以下内容：

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

并且在server.R I have:

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 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。我想做的事情有可能吗？我在这里犯了一些错误吗？任何有关如何解决此问题的想法将不胜感激。

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

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

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

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