R 如何在闪亮的应用程序中在范围滑块的每一侧显示不同的颜色？当你们在两边滑动时，颜色也应该自动填充

如何在闪亮的应用程序中在范围滑块的每一侧显示不同的颜色？当你们在两边滑动时，颜色也应该自动填充

[

图书馆（shinyWidgets） 图书馆（闪亮）

shinyUI（fluidPage）(

#申请名称 titlePanel（“老忠实间歇泉数据”）

#带有滑块输入的边栏，用于输入箱子数量 侧边栏布局( 侧栏面板(

)

---

))

不幸的是，我不确定两边是否可以有不同的颜色。也许可以，但我在几分钟内就想不出来。我能给你的最好的是这个CSS，它可以用于中间一种颜色和两边另一种颜色。这不是你想要的，但希望仍然有用

library(shiny)

ui <- fluidPage(
  tags$style(".irs-line {background: red} .irs-bar {background: green}"),
  sliderInput("test", "Test", 5, 10, c(7, 8))
)

server <- function(input, output, session) {

}

shinyApp(ui, server)

库（闪亮）
用户界面
library(shiny)

ui <- fluidPage(
  tags$style(".irs-line {background: red} .irs-bar {background: green}"),
  sliderInput("test", "Test", 5, 10, c(7, 8))
)

server <- function(input, output, session) {

}

shinyApp(ui, server)