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

Question

我正在尝试使用范围格式化滑块输入上的最小/最大标签。当有单个值时，可以在 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，以便它们最终位于图标上方。

标签： cssrshiny

Answer 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)