Shiny应用导入RData文件显示数据框及支持CSV的问题

一、为什么只显示字符而非数据框？ #

load()函数的返回值是被加载对象的名称（字符串），不是对象本身。你当前代码直接返回了这个字符串，所以显示的是字符而非数据框。需要用get()函数根据名称提取实际的对象。

二、修改后的完整代码 #

1. server.R 修改版 #

shinyServer(function(input,output){
  # 读取panel表格（支持RData/CSV）
  panel <- reactive({
    req(input$pan)
    file <- input$pan
    file_ext <- tools::file_ext(file$name)
    
    if (file_ext %in% c("RData", "rda")) {
      # 处理RData文件
      sessionEnvir <- sys.frame()
      obj_name <- load(file$datapath, sessionEnvir)
      get(obj_name, envir = sessionEnvir)
    } else if (file_ext == "csv") {
      # 处理CSV文件
      read.csv(file$datapath, stringsAsFactors = FALSE)
    }
  })

  # 读取achats表格（支持RData/CSV）
  achats <- reactive({
    req(input$achat)
    file <- input$achat
    file_ext <- tools::file_ext(file$name)
    
    if (file_ext %in% c("RData", "rda")) {
      sessionEnvir <- sys.frame()
      obj_name <- load(file$datapath, sessionEnvir)
      get(obj_name, envir = sessionEnvir)
    } else if (file_ext == "csv") {
      read.csv(file$datapath, stringsAsFactors = FALSE)
    }
  })
 
  output$t <- renderTable(panel())
  output$t2 <- renderTable(achats())
})

2. ui.R 修改版 #

ui <- fluidPage(
  titlePanel("Shiny app"),
  sidebarLayout(
    sidebarPanel(
      # 支持RData和CSV导入
      fileInput("pan", label = "Import panel table",
                multiple = FALSE,
                buttonLabel = "Browse",
                placeholder = "No file selected",
                accept =  c('.RData', '.rda', '.csv')),
      fileInput("achat", label = "Import purchase table",
                multiple = FALSE,
                buttonLabel = "Browse",
                placeholder = "No file selected",
                accept =  c('.RData', '.rda', '.csv'))
    ),
    mainPanel(
      tableOutput('t'),
      tableOutput('t2')
    )
  )
)

三、关键修改点说明 #

• RData处理修正：用load()获取对象名称后，通过get(obj_name, envir = sessionEnvir)提取实际的数据框对象，而不是返回名称字符串。
• CSV支持添加：
  1. UI中fileInput的accept参数添加.csv，允许选择CSV文件；
  2. Server中通过tools::file_ext()判断文件扩展名，针对CSV文件用read.csv()读取（可根据需求调整read.csv参数，比如编码、分隔符等）。

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