在Shiny中选择选项时移除滑块

library(shiny)

ui <- fluidPage(
  titlePanel("Disable Slider Example"),
  sidebarLayout(
    sidebarPanel(
      selectInput("selectOption", "Choose an option:",
                  choices = c("Option 1", "Option 2", "Option 3")),
      sliderInput("slider", "Slider:", min = 0, max = 100, value = 50)
    ),
    mainPanel(
      textOutput("result")
    )
  )
)

server <- function(input, output) {
  observeEvent(input$selectOption, {
    if (input$selectOption == "Option 1") {
      updateSliderInput(session, "slider", disabled = TRUE)
    } else {
      updateSliderInput(session, "slider", disabled = FALSE)
    }
  })
  
  output$result <- renderText({
    paste("Selected option:", input$selectOption,
          "Slider value:", input$slider)
  })
}

shinyApp(ui, server)