R如何构建动态conditionalPanel

conditionalPanel(condition, content)

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("plot_type", "选择图表类型", choices = c("折线图", "柱状图")),
      conditionalPanel(
        condition = "input.plot_type == '折线图'",
        sliderInput("num_points", "选择点的数量", min = 10, max = 100, value = 50)
      ),
      conditionalPanel(
        condition = "input.plot_type == '柱状图'",
        sliderInput("num_bars", "选择柱状图的数量", min = 5, max = 20, value = 10)
      )
    ),
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlot({
    if (input$plot_type == "折线图") {
      plot(1:input$num_points, type = "l", main = "折线图")
    } else if (input$plot_type == "柱状图") {
      barplot(rep(1, input$num_bars), main = "柱状图")
    }
  })
}

shinyApp(ui, server)