R Shiny：下载现有文件

使用R Shiny可以轻松地创建交互式Web应用程序，并且具有丰富的功能。其中一个常见的需求是允许用户下载现有文件。本文将介绍如何在R Shiny应用程序中实现这一功能，并提供一个案例代码以帮助读者更好地理解。

R
library(shiny)
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("file", "选择文件：", choices = c("文件1", "文件2", "文件3")),
      downloadButton("download", "下载文件")
    ),
    mainPanel(
      textOutput("message")
    )
  )
)
server <- function(input, output) {
  output$message <- renderText({
    paste("您选择了：", input$file)
  })
  
  observeEvent(input$download, {
    file_path <- switch(input$file,
                        "文件1" = "path/to/file1.csv",
                        "文件2" = "path/to/file2.txt",
                        "文件3" = "path/to/file3.xlsx")
    file_name <- switch(input$file,
                        "文件1" = "file1.csv",
                        "文件2" = "file2.txt",
                        "文件3" = "file3.xlsx")
    
    file <- file(file_path, "rb")
    on.exit(close(file))
    
    output$file <- downloadHandler(
      filename = file_name,
      content = function(file) {
        readBin(file_path, what = "raw", n = file.size(file))
      }
    )
  })
}
shinyApp(ui, server)