小编dee*_*pak的帖子

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

[2

  library(shinyWidgets)
  library(shiny)

  shinyUI(fluidPage(
  
  # Application title
  titlePanel("Old Faithful Geyser Data"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
       
      #tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar {background: purple}")),
      tags$head( tags$style( type = "text/css", '
       .irs-line-mid{
         background: yellow ;
         border: 1px black ;
       }
      .irs-line-left{
        background: red ;width: 100%;
        # border-top: 1px red ; #solid #CCC ;
        # border-left: 1px blue ;
        # border-bottom: 1px blue ;# solid #CCC ;
      }
       .irs-line-right{
         background: green …