javascript - 如何在 Shiny 的仪表板的标题中添加下载按钮

Question

我想在我的 shiny Dashboard 上有一个 downloadButton 来下载我在 www 文件夹中的 .pdf，它解释了如何使用仪表板。

到目前为止，我已经成功添加了一个 Home Button 和一个 GitHub 链接 (window.open)，但是我找不到实现 downloadButton< 的方法.

到目前为止，这是我的代码:

标题.R:

header <- dashboardHeader(title = "Support Vector Machine - Credit Fraud",
                          titleWidth = 400,
                          tags$li(a(onclick = "onclick =window.open('https://github.com/xxx/xxx')",
                                    href = NULL,
                                    icon("github"),
                                    title = "GitHub",
                                    style = "cursor: pointer;"),
                                  class = "dropdown"),
                          tags$li(a(onclick = "openTab('foa')",
                                    href = NULL,
                                    icon("home"),
                                    title = "Homepage",
                                    style = "cursor: pointer;"),
                                  class = "dropdown",
                                  tags$script(HTML("
                                       var openTab = function(tabName){
                                       $('a', $('.sidebar')).each(function() {
                                       if(this.getAttribute('data-value') == tabName) {
                                       this.click()
                                       };
                                       });
                                       }")))


)

服务器.R :

server <- function(input, output, session) {

  observeEvent(input$home, {
    updateTabItems(session, "sidebar", "foa")
  })
}

结果是:

我只想在 GitHub 图标旁边添加一个 downloadButton ，上面写着“How to use this Dashboard”，当你点击它时，它会下载一个我的 www 文件夹中的 .md 或 .pdf。

Answer 1

您可以通过为下载按钮添加另一个 tag 来完成此操作(假设您的 pdf 文件保存在 www 文件夹下名为 img 的子文件夹下).

 tags$li(a(id = "download", class = "fa fa-download",
           href = "/img/how_to.pdf", download = "how_to.pdf"), class = "dropdown")

因此附加到您现有的 header 代码:

header <- dashboardHeader(title = "Support Vector Machine - Credit Fraud",
                          titleWidth = 400,
                          tags$li(a(onclick = "onclick =window.open('https://github.com/xxx/xxx')",
                                    href = NULL,
                                    icon("github"),
                                    title = "GitHub",
                                    style = "cursor: pointer;"),
                                  class = "dropdown"),
                          tags$li(a(onclick = "openTab('foa')",
                                    href = NULL,
                                    icon("home"),
                                    title = "Homepage",
                                    style = "cursor: pointer;"),
                                  class = "dropdown",
                                  tags$script(HTML("
                                       var openTab = function(tabName){
                                       $('a', $('.sidebar')).each(function() {
                                       if(this.getAttribute('data-value') == tabName) {
                                       this.click()
                                       };
                                       });
                                       }"))),

                          ## DOWNLOAD
                          tags$li(a(id = "download", class = "fa fa-download",
                                    href = "/img/how_to.pdf", download = "how_to.pdf"),
                                    class = "dropdown")



)