R:用于静态内容的 Shiny 下载按钮

Question

我的 www 中有一个静态 PDF 文件文件夹，我想链接到 UI downloadButton() .好像是服务器端downloadHandler需要 content选项被填充，用于 react 性产生的输出。

我知道我可以使用 HTML 标签链接到静态内容，tags$a('Download file.', href = 'foo.pdf')在用户界面方面。

关于如何将两者结合在一起的任何建议都会有所帮助。

Answer 1

我猜你只是想显示一个按钮？您可以添加 class = 'btn'到你的 anchor 。
这是一个显示 class = 'btn' 的示例而没有。

library(shiny)
runApp(list(
  ui = bootstrapPage(
    numericInput('n', 'Number of obs', 100),
    plotOutput('plot'),
    tags$a(href = 'foo.pdf', class = "btn", icon("download"), 'Download file.'),
    tags$a('Download file2.', href = 'foo2.pdf'),
    downloadButton('downloadData', 'Download')
  ),
  server = function(input, output) {
    output$plot <- renderPlot({ hist(runif(input$n)) })
    output$downloadData <- downloadHandler(
      filename = function() {
        paste('data-', Sys.Date(), '.csv', sep='')
      },
      content = function(con) {
        write.csv(data, con)
      }
    )

  }
))

添加像 shiny 这样的图标功能 downloadHandler已引用 fontawesome 库。例如
这是 Shiny 功能使用的图标 http://fontawesome.io/icon/download/ . Shiny 有一个包装函数 icon包括这些图标。