R 动态彩色滑块输入

我有一个问题是关于邮政的

是否可以使sliderInput根据所选值更改其颜色

我想让用户输入一个从0到10的值。但是，建议的范围是4到8。因此，如果用户选择的值介于4和8之间，则滑块颜色应为绿色，但如果选择的值超出建议范围，则滑块颜色应更改为橙色（或红色）

---

如果您有任何关于实现此功能的帮助，我们将不胜感激。

请使用renderUI，并以您想要的任何方式控制color（）中的条件

rm(list = ls())
library(shiny)
ui <- fluidPage(

    sliderInput("slider1", "Slider 1",min = 0, max = 10, value =c(4,8), 
                 step = 1),

    uiOutput("abc")

)
server <- function(input, output, session){

    color <- reactive({
       if(input$slider1[1] < 4 || input$slider1[2] > 8 ){
         tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
               edge, .js-irs-0 .irs-bar {background: red}"))
        }else{
          tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
                  edge, .js-irs-0 .irs-bar {background: lightgreen}"))
        }
    })

  output$abc <- renderUI({ 
       color()
  })

}
shinyApp(ui = ui, server=server)

rm（list=ls（））
图书馆（闪亮）
用户界面