在 Shiny 演练中更改 sliderInput 的颜色

Question

我知道更改 Shiny 中 sliderInput 的颜色需要更改 css 文件中的某些内容，我尝试sliderInput()使用源查看器查看函数内部，但这对我来说没有意义，因为我对 html 不太了解， CSS。我想它必须在这里改变：

dep <- htmlDependency("ionrangeslider", "2.0.6", c(href = "shared/ionrangeslider"), 
    script = "js/ion.rangeSlider.min.js", stylesheet = c("css/normalize.css", 
      "css/ion.rangeSlider.css", "css/ion.rangeSlider.skinShiny.css")) 

（这是在sliderInput()函数内部）

我还猜想您需要在某处包含具有其他可能颜色的其他 CSS 文件，以便它可以访问它们。但我真的很茫然，我以前从未做过Web开发。
因此，如果有人可以一步步引导我完成它，那就太棒了！我想要一个蓝色滑块（默认颜色），但也想要一个绿色和红色滑块。再次感谢！

Answer 1

按照此处的教程在名为 www 的文件夹中创建一个 CSS 文件，作为包含闪亮应用程序的文件夹的子文件夹。该文件的内容应该是：

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

.js-irs-1 .irs-bar {
border-top-color: #10d010;
border-bottom-color: #10d010;
} 

.js-irs-1 .irs-bar-edge {
border-color: #10d010;
}

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

我将上面的滑块设置为红色和绿色。页面上的每个滑块均使用 .js-irs-n 进行标识，其中 n 是从 0 开始的数字。您可以通过改变颜色代码（例如上面的 #a00 和 #d01010）来自定义颜色。如果有帮助的话，您可以使用颜色选择器。

使用红色、绿色和蓝色滑块的示例：