Shiny中是否存在与fileInput功能类似的输出文件保存函数？

Shiny原生提供了downloadButton()（或downloadLink()）搭配downloadHandler()的方案，和fileInput()一样简单易用，完全满足「用户浏览本地目录选保存位置、自定义文件名导出数据」的需求。受浏览器安全沙箱限制，Web应用无法直接写入用户本地目录，该方案是符合规范的最优实现：用户点击下载按钮时，浏览器会自动弹出系统级的保存文件对话框，支持自由选择本地目录、修改文件名，和fileInput()的使用感知完全一致。

最小可运行示例 #

library(shiny)
library(writexl) # 如需导出xlsx格式需安装该包，无需Java环境

# 示例待导出的dataframe，可替换为你实际应用中生成的动态数据
sample_df <- data.frame(
  姓名 = c("张三", "李四", "王五"),
  年龄 = c(25, 30, 28),
  部门 = c("研发", "产品", "运营")
)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 选择导出格式，可按需扩展
      selectInput("export_format", "选择导出格式",
                  choices = c("CSV文件(.csv)" = "csv",
                              "Excel文件(.xlsx)" = "xlsx")),
      # 下载按钮，使用逻辑和fileInput完全一致
      downloadButton("download_data", "导出数据")
    ),
    mainPanel(
      tableOutput("show_data")
    )
  )
)

server <- function(input, output) {
  # 展示待导出的数据
  output$show_data <- renderTable({
    sample_df
  })
  
  # 下载逻辑处理
  output$download_data <- downloadHandler(
    # 定义默认文件名，用户可在保存弹窗中自行修改
    filename = function() {
      paste0("业务数据_", Sys.Date(), ".", input$export_format)
    },
    content = function(file) {
      # 根据选择的格式导出对应文件
      if (input$export_format == "csv") {
        write.csv(sample_df, file, fileEncoding = "UTF-8", row.names = FALSE)
      } else if (input$export_format == "xlsx") {
        write_xlsx(sample_df, file)
      }
    }
  )
}

shinyApp(ui, server)

扩展说明 #

• 无额外负担：CSV导出不需要安装任何额外包，Excel导出仅需轻量的writexl包，无需配置Java等复杂环境
• 扩展性强：后续需要新增其他导出格式时，只需在selectInput新增选项，同时在content逻辑中添加对应导出函数即可
• 可自定义交互：如果希望把下载按钮换成文字链接，把UI中的downloadButton替换为downloadLink即可；也可以新增输入框让用户在应用内先填写文件名，保存弹窗会直接使用填写的内容作为默认文件名

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072