R 动态为多个闪亮的滑块着色？

我有一个有多个滑块的闪亮应用程序。我能够在第一个滑块上获得要更改的颜色，该滑块使用颜色逻辑的if-else向量化被动语句。但是，如果我试图创建多个被动语句，仅更改输入引用，我仍然只能看到应用于第一个语句的颜色。我做错了什么

库（闪亮）
ui只需在color2函数中将HTML更新为
.js-irs-1

库（闪亮）
如果可能的话，请提供一个可复制的应用程序代码示例，或其中的一部分。感谢给出的示例代码足以重现问题。
library(shiny)
ui <- fluidPage(
    
    sliderInput("slider1", "Slider 1",min = 0, max = 10, value =4, step = 1),
    sliderInput("slider2", "Slider 2",min = 0, max = 10, value =4, step = 1),
    
    uiOutput("abc"),
    uiOutput("abc1")
   
    
)
server <- function(input, output, session){
    
    color <- reactive({
        if(input$slider1[1] <= 4){
            tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
           edge, .js-irs-0 .irs-bar {background: red}"))
        }else if(input$slider1[1]<=6){
            tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
           edge, .js-irs-0 .irs-bar {background: yellow}"))
            
        }else{
            tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
              edge, .js-irs-0 .irs-bar {background: 
lightgreen}"))
        }
    })
    
    color2 <- reactive({
        if(input$slider2[1] <= 4){
            tags$style(HTML(".js-irs-1 .irs-single, .js-irs-1 .irs-bar-
           edge, .js-irs-1 .irs-bar {background: red}"))
        }else if(input$slider2[1]<=6){
            tags$style(HTML(".js-irs-1 .irs-single, .js-irs-1 .irs-bar-
           edge, .js-irs-1 .irs-bar {background: yellow}"))
            
        }else{
            tags$style(HTML(".js-irs-1 .irs-single, .js-irs-1 .irs-bar-
              edge, .js-irs-1 .irs-bar {background: 
   lightgreen}"))
        }
    })
    
    output$abc <- renderUI({ 
        color()
    })
    
    output$abc1 <- renderUI({ 
        color2()
    })
    
}
shinyApp(ui = ui, server=server)