如何让Shiny的sliderInput不显示数值？仿手机亮度滑块效果

Shiny的sliderInput组件默认会显示最小值、最大值和当前选中的数值，要实现类似手机亮度调节滑块的无数值显示效果，需要通过自定义CSS来隐藏这些元素——因为组件本身没有提供直接关闭这些显示的参数。

具体实现步骤： #

在UI中注入自定义CSS样式，针对以下三类元素进行隐藏：

• .irs-min：对应最小值标签
• .irs-max：对应最大值标签
• .irs-single：对应当前选中值的标签

完整示例代码： #

library(shiny)

ui <- fluidPage(
  # 注入自定义CSS隐藏数值标签
  tags$style(HTML("
    .irs-min, .irs-max {
      display: none;
    }
    .irs-single {
      display: none;
    }
  ")),
  
  # 改造后的滑块（类似亮度调节）
  sliderInput("obs", "屏幕亮度调节:",
              min = 0, max = 100, value = 80
  ),
  
  # 可选：测试用——显示当前滑块值（实际使用可删除）
  textOutput("currentValue")
)

server <- function(input, output) {
  # 测试用输出当前值
  output$currentValue <- renderText({
    paste("当前亮度值：", input$obs)
  })
}

shinyApp(ui, server)

运行这段代码后，滑块就会只保留拖动条部分，不再显示任何数值标签，完全符合手机亮度调节滑块的视觉效果。如果需要调整滑块的外观（比如颜色、高度），可以继续在CSS中添加对应的样式规则。

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