通过Shiny从服务器下载文件(任何类型)到本地

library(shiny)

ui <- fluidPage(
  titlePanel("文件下载示例"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加用户输入控件，如文件类型选择、文件名输入等
    ),
    mainPanel(
      # 在这里添加显示下载链接的输出控件
      downloadLink("downloadFile", "点击下载文件")
    )
  )
)

server <- function(input, output) {
  # 在这里添加处理文件下载的逻辑
  output$downloadFile <- downloadHandler(
    filename = function() {
      # 返回下载文件的文件名
      # 可以根据用户输入或服务器端生成的文件名来设置
    },
    content = function(file) {
      # 在这里生成要下载的文件内容
      # 可以根据用户输入或服务器端数据来生成
      # 将生成的文件保存到指定路径，如file参数所示的路径
    }
  )
}

shinyApp(ui, server)