R Shiny：下载预设 .csv 文件

Question

我正在开发一个闪亮的应用程序，它允许用户下载位于服务器上的现有.csv文件（称为template.csv ）（在名为“data”的文件夹中）。

使用downloadHandler ，我没有得到任何输出。

library(shiny)

ui <- fluidPage(
  downloadButton("download", label = "Download")
)

server <- function(input,output) {
  output$download <- downloadHandler(
  filename <- function() {
    "template_output.csv"
  }
  content <- function(file) {
    file.copy("./data/template.csv", file)
  }
}

shinyApp(ui = ui, server = server)

我哪里做错了？ 有人可以帮我让它工作吗？ 非常感谢！

Answer 1

请尝试以下操作：

library(shiny)

ui <- fluidPage(
    downloadButton("download", label = "Download")
)

server <- function(input,output) {
    output$download <- downloadHandler(
        filename <- function() {
            "template_output.csv"
        },
        content <- function(file) {
            file.copy("./data/template.csv", file)
        }
    )
}

shinyApp(ui = ui, server = server)