如何在R闪亮中使用renderUI时在多个滑块上使用setSliderColor更改滑块颜色

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  sliderInput("slider1", "Slider 1", min = 0, max = 100, value = 50),
  sliderInput("slider2", "Slider 2", min = 0, max = 100, value = 50)
)

server <- function(input, output, session) {
  observe({
    setSliderColor("slider1", "red")
    setSliderColor("slider2", "blue")
  })
}

# 自定义setSliderColor函数
setSliderColor <- function(inputId, color) {
  session$sendCustomMessage(type = "setSliderColor", message = list(inputId = inputId, color = color))
}

ui <- fluidPage(
  tags$head(
    tags$script(HTML(
      "
      Shiny.addCustomMessageHandler('setSliderColor', function(message) {
        var inputId = message.inputId;
        var color = message.color;
        $('#' + inputId).parent().find('.irs-bar').css('background', color);
        $('#' + inputId).parent().find('.irs-handle').css('background', color);
      });
      "
    ))
  ),
  sliderInput("slider1", "Slider 1", min = 0, max = 100, value = 50),
  sliderInput("slider2", "Slider 2", min = 0, max = 100, value = 50)
)

shinyApp(ui, server)