r - sliderinput 中的颜色刻度线和刻度线标签 - Shiny

Question

我想为 Shiny 仪表板中 slider 输入中的刻度线和刻度线标签提供不同的颜色。例如:0 到 5 - 红色，5 到 10 - 蓝色。我的代码无法运行。

请检查我的代码，

library(shiny)
shinyApp(
  ui <- fluidPage(
    tags$style(type = "text/css", ".irs-grid-pol-left {color: red; width:50%;}",
               ".irs-grid-pol-right {color: blue; width: 50%; left: 50%;}"),
    sliderInput("bins", "Number of bins:", 1, 10, 1)
  ),
  server <- function(input, output) {}  
)

谢谢， SJB

Answer 1

这更像是 css 问题，而不是 R 或 Shiny 问题。这应该可以完成工作:

library(shiny)    
shinyApp(
  ui <- fluidPage(
    tags$style(type = "text/css", 
               ".irs-grid-text:nth-child(-2n+18) {color: red}",
               ".irs-grid-text:nth-child(2n+20) {color: blue}",
               ".irs-grid-pol:nth-of-type(-n+18) {background:red}",
               ".irs-grid-pol:nth-of-type(n+18) {background:blue}"),
    sliderInput("bins", "Number of bins:", 1, 10, 1)
  ),
  server <- function(input, output) {} 

如果您需要进一步自定义它，请在浏览器中打开样式编辑器，调整数字并更新代码中的字符串。