彩色刻度线＆amp; sliderinput中的刻度线标签 - 闪亮

Question

我想为闪亮仪表板中的sliderinput中的刻度线和刻度线标签指定不同的颜色。例如：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) {} 

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