R Shiny应用：多FileInput无法选不同文件及文本输入展示问题

问题根源 #

你遇到的文件选择失效问题，确实是因为所有动态生成的fileInput和textInput都用了固定ID（file1、group1）。Shiny会把相同ID的组件视为同一个，导致后续选择的文件会覆盖第一个，甚至无法触发新的选择事件。

修复后的完整代码 #

library(shiny)

ui <- fluidPage(
  titlePanel("Analysis"),
  sidebarLayout(
    sidebarPanel(
      numericInput("group_num", "需要比较的分组数量", 2, min = 1, max = 20),
      uiOutput("groups"),
      uiOutput("files")
    ),
    mainPanel(
      uiOutput("group_info")
    )
  )
)

server <- function(input, output) {
  
  # 动态生成分组名称输入框
  output$groups <- renderUI({
    group_num <- as.integer(input$group_num)
    lapply(1:group_num, function(i){
      textInput(paste0("group_", i), paste0("输入第", i, "个分组的名称"))
    })
  })
  
  # 动态生成文件选择框
  output$files <- renderUI({
    group_num <- as.integer(input$group_num)
    lapply(1:group_num, function(i){
      fileInput(paste0("file_", i), paste0("选择第", i, "个分组的CSV文件"), 
                multiple = FALSE, accept = ".csv")
    })
  })
  
  # 在主面板展示分组名称
  output$group_info <- renderUI({
    group_num <- as.integer(input$group_num)
    # 收集所有分组名称
    group_names <- lapply(1:group_num, function(i){
      input[[paste0("group_", i)]]
    })
    # 用表格展示
    tags$table(
      tags$tr(tags$th("分组序号"), tags$th("分组名称")),
      lapply(1:group_num, function(i){
        tags$tr(tags$td(i), tags$td(group_names[[i]]))
      })
    )
  })
  
}

shinyApp(ui = ui, server = server)

关键修改说明 #

• 动态生成唯一ID：用paste0("group_", i)和paste0("file_", i)为每个输入组件生成唯一ID，确保Shiny能区分不同的组件。
• 访问动态输入值：通过input[[paste0("group_", i)]]的方式，在server中获取每个文本输入框的内容。
• 主面板内容展示：通过renderUI生成表格，把所有分组名称展示在主面板中，你也可以根据需求改成纯文本、卡片等其他展示形式。
• 文件选择优化：把multiple = TRUE改成FALSE，适配单个分组对应单个文件的场景，如需多选可改回原设置。

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