更改顏色閃亮滑塊輸入範圍

Question

我想改變我閃亮的應用程序滑塊使用CSS的顏色。這一切工作正常，當我申請了這個答案的建議：

Changing the color of the sliderInput in Shiny walkthrough

然而，當我改變滑塊與值=範圍（X，Y），兩個滑塊的顏色兩個值不再改變。

下面是一個小例子：

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) 

和bootstrap.css（位於WWW文件夾）是

.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; 
} 

輸出給 output，但我想藍色的滑塊也紫色。

有誰知道如何在使用範圍時更改兩個滑塊的顏色？

謝謝。

Answer 1

你想在以及以下補充：

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