R Shiny中tagList传参错误致单选按钮不显示的解决方法

你已经精准定位了问题：tagList需要接收独立的标签对象作为参数（例如tagList(tag1, tag2, ...)），但你传入的是一个嵌套的标签列表（tagList(list(tag1, tag2, ...))），这导致Shiny无法正确解析并渲染这些组件。

修改方案 #

核心是把生成的标签列表展开作为tagList的参数，最简便的方式是用do.call(tagList, 你的标签列表)，它会自动把列表中的每个元素作为独立参数传递给tagList。

完整修改后的可复现代码 #

library(shiny)
library(readxl)

ui <- fluidPage(
  fileInput("upload", "上传Excel文件（可多选）", accept = ".xlsx", multiple = TRUE),
  uiOutput("Variables")
)

server <- function(input, output, session) {
  # 读取上传的Excel文件，返回数据框列表
  files_list_creator_1 <- reactive({
    req(input$upload)
    lapply(input$upload$datapath, function(path) {
      read_excel(path)
    }) %>% setNames(input$upload$name)
  })
  
  # 生成radioButtons列表并渲染
  output$Variables <- renderUI({
    req(files_list_creator_1())
    # 循环生成每个文件对应的radioButtons
    tag_list <- lapply(names(files_list_creator_1()), function(file_name) {
      df <- files_list_creator_1()[[file_name]]
      radioButtons(
        inputId = paste0("var_", gsub("\\.", "_", file_name)),
        label = paste("选择", file_name, "中的变量"),
        choices = colnames(df)
      )
    })
    # 关键修改：用do.call展开列表，作为tagList的独立参数
    do.call(tagList, tag_list)
  })
}

shinyApp(ui, server)

关键修改点说明 #

1. 先通过lapply生成所有radioButtons组成的列表tag_list
2. 不用tagList(tag_list)（这会嵌套列表），而是用do.call(tagList, tag_list)，相当于把tag_list里的每个radioButtons单独传给tagList，比如tagList(tag1, tag2, ...)，这样Shiny就能正确渲染每个组件了。

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