在RShiny ui中，如何根据所选内容动态显示多个numericInput

library(shiny)

ui <- fluidPage(
  selectInput("input_type", "选择类型", choices = c("A", "B", "C")),
  
  conditionalPanel(
    condition = "input.input_type == 'A'",
    numericInput("input_a1", "输入A1", value = 0),
    numericInput("input_a2", "输入A2", value = 0)
  ),
  
  conditionalPanel(
    condition = "input.input_type == 'B'",
    numericInput("input_b1", "输入B1", value = 0),
    numericInput("input_b2", "输入B2", value = 0),
    numericInput("input_b3", "输入B3", value = 0)
  ),
  
  conditionalPanel(
    condition = "input.input_type == 'C'",
    numericInput("input_c1", "输入C1", value = 0)
  )
)

server <- function(input, output) {
  # 服务器逻辑代码
}

shinyApp(ui = ui, server = server)