R Shiny中仅对已上传文件的模块结果执行rbind操作

我正在开发一款R Shiny应用，通过ui模块让用户上传多组文件，server模块将数据整理成data.frame，随后在主server中用rbind()合并所有data.frame（所有data.frame格式、列名一致）。但无法识别未执行fileInput()的情况，仅对已上传文件对应的data.frame执行合并，尝试is.null()语句未生效。

问题根源 #

1. 原server模块使用req(input$site)，未上传文件时reactive表达式会暂停执行，不会返回NULL，导致is.null()判断失效。
2. 原模块返回的是多个data.frame组成的列表，直接用rbind()处理会引发格式错误。

修改后的代码实现 #

UI模块（仅修正accept参数，其余不变） #

readCSV_UI <- function(id){
  tagList(
    fileInput(NS(id, "site"),
              "Upload .csv files",
              accept = ".csv",
              multiple = T,
              width = "85%")
  )  
}

Server模块（核心逻辑调整） #

readCSV_Server <- function(id){
  moduleServer(id, function(input, output, session){
    reactive({
      # 无文件上传时返回NULL
      if(is.null(input$site)){
        return(NULL)
      }
      # 读取当前模块所有上传文件并合并为单个data.frame
      purrr::map_dfr(input$site$datapath, read.csv)
    })
  })
}

主应用代码 #

library(shiny)
library(purrr)

ui <- fluidPage(
  readCSV_UI("a"),
  readCSV_UI("b"),
  readCSV_UI("c"),
  tableOutput("check")
)

server <- function(input, output, session) {
  # 调用模块获取每个上传点的结果（无数据则为NULL）
  b1 <- readCSV_Server("a")
  b2 <- readCSV_Server("b")
  b3 <- readCSV_Server("c")
  
  bbind <- reactive({
    # 收集所有模块的返回值
    data_list <- list(b1(), b2(), b3())
    # 过滤掉空值，仅保留有效data.frame
    valid_data <- Filter(Negate(is.null), data_list)
    
    # 若无有效数据，返回空表避免渲染报错
    if(length(valid_data) == 0){
      return(data.frame())
    }
    
    # 合并所有有效data.frame
    do.call(rbind, valid_data)
  })
  
  output$check <- renderTable({
    # 确保有数据时才渲染表格
    req(bbind())
    bbind()
  })
}

shinyApp(ui, server)

关键修改说明 #

1. 空值明确返回：去掉req()，改用is.null(input$site)判断，未上传时返回NULL，让主server能准确识别空状态。
2. 多文件预合并：用map_dfr替代map，直接将单个模块内的多个上传文件合并为一个data.frame，简化后续合并逻辑。
3. 有效数据过滤：通过Filter(Negate(is.null))剔除无数据的模块结果，仅对有数据的部分执行rbind()。
4. 渲染安全保护：用req(bbind())确保只有存在有效数据时才渲染表格，避免无数据时出现错误。

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