使用downloadHandler/downloadButton在shiny应用上下载表格

library(shiny)

ui <- fluidPage(
  downloadButton("downloadData", "下载表格")
)

server <- function(input, output) {
  # 服务器逻辑部分
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  downloadButton("downloadData", "下载表格")
)

server <- function(input, output) {
  output$downloadData <- downloadHandler(
    filename = function() {
      "data.csv"  # 下载的文件名
    },
    content = function(file) {
      # 生成表格的逻辑
      data <- data.frame(
        Name = c("Alice", "Bob", "Charlie"),
        Age = c(25, 30, 35)
      )
      write.csv(data, file, row.names = FALSE)  # 将表格写入文件
    }
  )
}

shinyApp(ui, server)