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)