如何禁用R Shiny某SliderInput手动更新并标记滑块初始值？

针对你的需求，这里提供修改后的代码，实现以下效果：

• 其中一个滑块（% air）禁止手动操作，仅随另一个滑块联动更新
• 两个滑块的标签中显示初始值，方便对比当前值与初始值的变化

修改要点： #

1. 使用shinyjs包实现滑块禁用功能，确保用户无法手动修改被动滑块
2. 在滑块标签中直接标注初始值，清晰展示基准值
3. 简化联动逻辑，仅监听主动滑块的变化来更新被动滑块（因为被动滑块无法手动修改，无需反向监听）

library(shiny)
library(shinyjs) # 需要先安装：install.packages("shinyjs")

ui <- pageWithSidebar(
  headerPanel("Glass fullness"),
  sidebarPanel(
    useShinyjs(), # 启用shinyjs功能
    sliderInput(
      inputId = "Full", 
      label = "% water (初始值: 0.2)", 
      min = 0, 
      max = 1, 
      value = 0.2
    ),
    # 用disabled包裹滑块，使其无法手动操作
    disabled(
      sliderInput(
        inputId = "Empty", 
        label = "% air (初始值: 0.8)", 
        min = 0, 
        max = 1, 
        value = 0.8
      )
    )
  ),
  mainPanel()
)

server <- function(input, output, session){
  # 仅监听主动滑块Full的变化，更新被动滑块Empty的值
  observeEvent(input$Full,  {
    updateSliderInput(
      session = session, 
      inputId = "Empty", 
      value = 1 - input$Full
    )
  })
}

shinyApp(ui = ui, server = server)

补充说明： #

• 如果不需要额外依赖shinyjs，也可以通过自定义HTML属性实现禁用：将被动滑块的sliderInput替换为tags$div(class = "form-group shiny-input-container", tags$label("% air (初始值: 0.8)"), tags$input(type = "range", id = "Empty", min = 0, max = 1, step = 0.01, value = 0.8, disabled = "disabled"))，但shinyjs的方式更简洁易维护
• 初始值可以根据需求修改，标签中的初始值要与滑块的初始value保持一致

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