Shiny中基于条件selectInput动态生成更多选择输入的实现问询

这就给你安排一个满足需求的Shiny应用实现，核心是用Shiny的动态UI功能（renderUI + uiOutput）来实现多层级的输入联动：

library(shiny)

ui <- fluidPage(
  titlePanel("动态嵌套输入组件示例"),
  # 主选择器
  selectInput("main_selector", "主选择器", choices = c("First", "Second")),
  # 动态生成的子菜单
  uiOutput("sub_menu"),
  # 动态生成的后续输入组件
  uiOutput("dynamic_inputs")
)

server <- function(input, output, session) {
  # 生成子菜单：根据主选择器的值动态切换选项
  output$sub_menu <- renderUI({
    req(input$main_selector)
    choices <- if(input$main_selector == "First") {
      c("1" = 1, "2" = 2)
    } else {
      c("3" = 3, "4" = 4)
    }
    selectInput("sub_selector", "子菜单", choices = choices)
  })
  
  # 生成后续输入组件：根据子菜单选中的数量生成对应个数的输入框
  output$dynamic_inputs <- renderUI({
    req(input$sub_selector)
    num_inputs <- as.integer(input$sub_selector)
    
    # 循环生成输入组件
    lapply(1:num_inputs, function(i) {
      textInput(inputId = paste0("dynamic_input_", i),
                label = paste0("后续输入组件 ", i))
    })
  })
}

shinyApp(ui, server)

• 主选择器联动子菜单：通过renderUI监听main_selector的变化，根据选中值切换子菜单的选项列表——选"First"时显示[1,2]，选"Second"时显示[3,4]
• 子菜单联动输入数量：同样用renderUI监听sub_selector的数值，将其转为整数后，通过lapply循环生成对应数量的输入组件，每个组件的ID用paste0保证唯一性
• req()函数的作用：确保只有当依赖的输入值存在时才渲染后续UI，避免应用启动时出现空值报错

你可以直接运行这段代码，测试一下各个选择器的联动效果，要是需要调整输入组件的类型（比如改成数值输入numericInput），只要把textInput替换成对应的组件就行~

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