如何让R Shiny无冲突读取用户上传的.xlsx和csv格式文件

你需要先引入支持xlsx格式读取的依赖包，再根据文件后缀自动匹配读取逻辑，具体操作如下：

前置准备 #

先安装加载所需依赖，推荐用readxl包，无Java环境依赖，适配性更强：

# 首次使用先安装
install.packages(c("shiny", "readxl"))
# 项目启动时加载
library(shiny)
library(readxl)

UI 部分优化 #

你现有代码的accept参数存在重复定义，可简化为如下形式，功能不受影响：

fileInput(
  inputId = "file",
  label = "",
  multiple = TRUE,
  accept = c(
    "text/csv",
    "text/comma-separated-values,text/plain",
    ".csv",
    ".xlsx"
  ),
  placeholder = "Use Ctrl key to choose files"
)

Server 部分逻辑修改 #

你当前仅用read.csv只能读取csv格式，需要根据文件后缀判断类型，调用对应读取函数，分两种场景适配：

场景1：单文件上传（修改multiple=FALSE时使用） #

# 提取文件后缀判断格式
file_ext <- tools::file_ext(input$file$name)
df <- if (file_ext == "csv") {
  # 中文乱码可加encoding = "UTF-8"/ "GBK"参数
  read.csv(input$file$datapath)
} else if (file_ext == "xlsx") {
  # 需要读取指定sheet可新增sheet参数，如sheet = "Sheet2"
  read_excel(input$file$datapath)
}

场景2：多文件上传（匹配你现有multiple=TRUE配置） #

# 所有上传文件存储为列表，每个元素对应一个文件的数据框
all_dfs <- lapply(seq_len(nrow(input$file)), function(i) {
  file_path <- input$file$datapath[i]
  file_ext <- tools::file_ext(input$file$name[i])
  if (file_ext == "csv") {
    read.csv(file_path)
  } else if (file_ext == "xlsx") {
    read_excel(file_path)
  }
})
# 若多个文件结构一致，可新增以下代码合并为一个数据框
# merged_df <- do.call(rbind, all_dfs)

常见报错排查 #

• 读取xlsx报错时先确认文件不是.xls格式，readxl对老式xls格式支持有限，可换成openxlsx包处理
• 多文件上传时不要直接把input$file$datapath传入读取函数，它会返回多个路径，仅会读取第一个文件还会抛出警告

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