将CSS添加到R Shiny中滑块范围内的结束标签答案

【问题标题】：Adding CSS to end labels in slider range in R Shiny将CSS添加到R Shiny中滑块范围内的结束标签
【发布时间】：2020-06-29 16:55:57
【问题描述】：

我正在尝试使用范围格式化滑块输入上的最小/最大标签。当有单个值时，可以在css中使用irs.single来实现，例如：

library(shiny)

CSS <- ".irs-single { color: #1a3f58 ; background:white; }"

ui <- fluidPage(
  tags$head(tags$style(HTML(CSS))),
  sliderInput("slider", "Slide me",min = 0, max = 1000, value = c(500,600)
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

但这不适用于滑块范围。其他一切都有效，例如滑块图标，它只是保留默认格式的最小/最大标签。图像显示了问题。图标后面的两个标签被隐藏并保留默认格式。我需要在 css 中对它们进行格式化以更改颜色和 z-index，以便它们最终位于图标上方。

【问题讨论】：

嗨，请以minimal and reproducible为榜样。在您的情况下，您需要显示最少的代码来启动闪亮的应用程序。
谢谢，添加了一个可重现的示例，表明 irs.single 在这种情况下不起作用。

标签： css r shiny

【解决方案1】：

使用.irs-min 和.irs-max：

CSS <- "
.irs-min, .irs-max {
  background-color: yellow;
}"

ui <- fluidPage(
  tags$head(tags$style(HTML(CSS))),
  sliderInput("slider", "Slide me",
              min = 0, max = 1000, value = c(500,600)
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

【讨论】：

不完全。 irs.min 和 max 格式化滑块两端的标签。我想格式化滑块的最小值和最大值上方的选项卡。在我的帖子图像中，这些显示为隐藏在绿色圆圈后面的浅蓝色矩形，这是我尝试格式化但无法访问的内容。