R Shiny切换.rds与.sas7bdat文件类型时解析错误的解决需求

问题概述 #

开发R Shiny应用时，通过fileInput读取.rds和.sas7bdat格式文件，切换文件类型时会弹出解析错误提示：

error: Failed to parse C:/Users/user/AppData/Local/Temp/Rtmp672zUi/file2cb4f1a71c0: Invalid file, or file has unsupported features.

虽然最终能正常查看两类数据，但需要消除切换过程中的错误信息。

错误原因 #

1. 文件类型不匹配触发错误读取：切换radioButtons时，reactive对象会重新执行，若当前已上传的文件是另一种类型（比如之前传了SAS文件，切换到R数据集选项），代码会用错误的读取函数（readRDS读SAS文件），导致解析错误。
2. fileInput的accept属性固定：初始设置只允许.rda文件，上传SAS文件时虽能选择，但后续解析逻辑冲突。
3. 代码逻辑冗余：多次重复判断input$filepath是否为空，逻辑分支混乱，增加出错概率。

修复方案 #

1. 动态更新fileInput的允许格式：根据radioButtons的选择，实时修改fileInput的accept属性，限制用户只能选择对应格式的文件。
2. 用tryCatch捕获读取错误：在读取文件时包裹错误捕获，避免错误信息弹出。
3. 简化逻辑分支：合并重复判断，让读取逻辑更清晰。

修复后的完整代码 #

library(shiny)
library(haven)

# 定义UI
ui <- fluidPage(
  titlePanel("选择不同类型数据文件并查看内容"),
  sidebarLayout(
    sidebarPanel(
      radioButtons('dataset', '选择数据文件类型', 
                   c(R数据集='rds', SAS数据集='sas7bdat')),
      fileInput('filepath', '选择数据集文件', accept = '.rds')
    ), 
    mainPanel(
      tableOutput('fileInfo'),
      tableOutput('dataTable')
    )
  )
)

# 定义server逻辑
server <- function(input, output, session) {
  # 动态更新fileInput的允许格式
  observe({
    file_ext <- switch(input$dataset,
                       "rds" = ".rds",
                       "sas7bdat" = ".sas7bdat")
    updateFileInput(session, "filepath", accept = file_ext)
  })
  
  # 显示文件信息
  output$fileInfo <- renderTable({
    if (is.null(input$filepath)) {
      return(NULL)
    }
    input$filepath[, c("name", "size", "type")]
  })
  
  # 读取数据的reactive对象
  data_reactive <- reactive({
    req(input$filepath)
    
    file_path <- input$filepath$datapath
    file_type <- input$dataset
    
    # 用tryCatch捕获读取错误
    tryCatch({
      if (file_type == "rds") {
        readRDS(file_path)
      } else if (file_type == "sas7bdat") {
        haven::read_sas(file_path)
      }
    }, error = function(e) {
      NULL # 出错时返回NULL，避免弹出错误信息
    })
  })
  
  # 显示数据表格
  output$dataTable <- renderTable({
    data_reactive()
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

关键修复点说明 #

• 动态更新accept属性：通过observe监听radioButtons的变化，调用updateFileInput修改允许的文件后缀，从源头避免选错文件。
• req()简化非空判断：用req(input$filepath)替代多次is.null判断，确保只有上传文件后才执行读取逻辑。
• tryCatch错误捕获：包裹文件读取操作，即使出现意外错误（比如用户强行上传不符合格式的文件），也不会弹出错误提示，而是返回NULL。
• 逻辑简化：合并冗余的条件判断，让代码更易维护。

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