Ändern Sie die Farbe der glänzenden SchiebereglerInput mit Bereich

Question

Ich möchte die Farbe meiner glänzenden App Schieberegler mit CSS ändern. Das alles funktioniert gut, wenn ich den Vorschlag der diese Antwort gelten:

Changing the color of the sliderInput in Shiny walkthrough

aber sobald ich den Regler auf zwei Werte mit dem Wert = range (x, y) zu ändern, die Farbe der beiden Schieber ändert sich nicht mehr.

ist hier ein minimales Beispiel:

library(shiny) 
    ui<-shinyUI(fluidPage(
    theme = "bootstrap.css", 
    navbarPage("", 
    tabPanel("Diagramm", 
    headerPanel("Sliders"), 
    sidebarPanel(
    sliderInput("decimal", "Decimal:", 
    min = 0, max = 1, value=range(0.1,0.9),step= 0.1) 
    ), 
    mainPanel(
    tableOutput("values") 
    ) 
    )) 
    )) 

    server<-shinyServer(function(input, output) { 
    }) 
shinyApp(ui = ui, server = server) 

und die bootstrap.css (im www-Ordner befindet) ist

.js-irs-0 .irs-bar { 
border-top-color: #d01010; 
border-bottom-color: #d01010; 
} 

.js-irs-0 .irs-bar-edge { 
border-color: #d01010; 
} 

.js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar { 
background: #a00; 
} 

Der Ausgang output gibt, aber ich möchte die blauen Schieber auch in Lila sein.

Weiß jemand, wie man die Farbe beider Schieberegler ändert, wenn man einen Bereich benutzt?

Danke.

Answer 1

Sie wollen die in ebenfalls hinzugefügt folgende:

.js-irs-0 .irs-to,.js-irs-0 .irs-from