如何在Shiny中用conditionalPanel动态切换显示不同sliderInput？

你的问题根源在于两个滑块用了相同的inputId——Shiny要求所有UI组件的inputId必须唯一，哪怕组件被conditionalPanel隐藏，它依然存在于页面DOM结构中，所以服务器端始终读取的是第一个滑块的input$hi值，和你切换的Type无关。

解决步骤 #

1. 给两个条件面板里的滑块设置不同的唯一inputId，比如hi_a和hi_b
2. 在服务器端根据用户选择的input$Type，动态读取对应滑块的数值

修改后的完整代码 #

library(shiny)
ui <- fluidPage(
  sidebarPanel(
    selectInput("Type", "Type", c(A = "A", B = "B")),
    conditionalPanel(
      condition = "input.Type == 'A'",
      sliderInput(inputId = "hi_a", label = "", min = 0, max = 10, value = 5, step = 1)
    ),
    conditionalPanel(
      condition = "input.Type == 'B'",
      sliderInput(inputId = "hi_b", label = "", min = 10, max = 100, value = 50, step = 1)
    ),
  ),
  mainPanel(
    verbatimTextOutput(outputId = "text")
  )
)

server <- function(input, output) {
  output$text <- renderPrint({
    # 根据Type选择读取对应滑块的值
    if(input$Type == "A"){
      input$hi_a
    } else {
      input$hi_b
    }
  })
}  

shinyApp(ui, server)

替代方案（不用两个滑块） #

如果你不想用两个滑块，也可以只保留一个滑块，通过updateSliderInput根据Type切换参数，代码示例如下：

library(shiny)
ui <- fluidPage(
  sidebarPanel(
    selectInput("Type", "Type", c(A = "A", B = "B")),
    sliderInput(inputId = "hi", label = "", min = 0, max = 10, value = 5, step = 1)
  ),
  mainPanel(
    verbatimTextOutput(outputId = "text")
  )
)

server <- function(input, output, session) {
  # 监听Type变化，更新滑块参数
  observeEvent(input$Type, {
    if(input$Type == "A"){
      updateSliderInput(session, "hi", min = 0, max = 10, value = 5)
    } else {
      updateSliderInput(session, "hi", min = 10, max = 100, value = 50)
    }
  })
  
  output$text <- renderPrint({
    input$hi
  })
}  

shinyApp(ui, server)

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