R语言如何实现单按钮自动识别文件类型导入表格文件

不要用file.choose()实现文件选择，该函数仅能在本地R控制台环境生效，部署为网页应用后会直接报错，且不支持文件类型过滤。改用Shiny原生fileInput组件即可同时满足两个优化需求。

实现逻辑 #

• UI层移除原有的CSV、Excel两个独立actionButton，替换为单个文件选择控件，通过accept参数配置文件过滤规则，选择文件时仅展示.csv、.xlsx、.xls三类表格格式文件
• 服务端获取用户选中文件的后缀名，自动匹配对应读取逻辑：csv格式调用read.table读取，Excel格式调用read_excel读取
• 读取完成后统一渲染DT表格输出

完整可运行示例代码 #

library(shiny)
library(readxl)
library(DT)

ui <- fluidPage(
  # 单文件导入控件，配置表格类型过滤
  fileInput(
    inputId = "ImportFile",
    label = "导入表格文件",
    accept = c(".csv", ".xlsx", ".xls"),
    buttonLabel = "选择文件",
    placeholder = "未选择任何文件"
  ),
  # 导入表格展示区
  DTOutput("ImportedTable")
)

server <- function(input, output) {
  observeEvent(input$ImportFile, {
    # 提取文件路径、后缀名，统一转小写避免大写后缀识别失败
    file_path <- input$ImportFile$datapath
    file_suffix <- tolower(tools::file_ext(input$ImportFile$name))

    # 按后缀匹配读取函数
    imported_data <- switch(
      file_suffix,
      "csv" = read.table(file_path, header = TRUE, sep = ","),
      "xlsx" = , "xls" = read_excel(file_path),
      stop("所选文件格式不支持，请上传csv或Excel格式文件")
    )

    # 渲染导入的表格
    output$ImportedTable <- renderDT(imported_data)
  })
}

shinyApp(ui, server)

补充说明 #

• 若必须沿用actionButton+file.choose()的本地交互模式，可在file.choose()返回文件路径后，用tools::file_ext()提取后缀判断类型，但该模式无法在文件选择弹窗中过滤非表格文件，且不支持网页端部署，不推荐使用
• 若后续需要支持更多表格格式（如.tsv、.rds等），只需在accept参数中新增对应后缀，同时在switch分支中补充对应读取逻辑即可

内容的提问来源于stack exchange，提问作者TheGamingRogue