Estoy tratando de cambiar el color de la perilla de entrada del control deslizante/pulgar. Verifiqué en línea y vi algunos comentarios sobre el uso de .irs-slider. Sin embargo, no me funciona en el siguiente código:

 library(shiny) ui <- fluidPage( tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar, .js-irs-0 .irs-slider {background: red}")), sliderInput("slider1", "Slider 1",min = 0.1, max = 1, value = 0.4, step = 0.05), ) server <- function(input, output, session){} shinyApp(ui = ui, server=server)

Estos códigos cambiaron el color de todo excepto de la perilla. Cualquier ayuda sería apreciada.

ACTUALIZACIÓN: Gracias a @Domingo por su respuesta. El siguiente código también cambiará la perilla. Sin embargo, cuando hago clic en la perilla para moverla, se vuelve de color blanco. ¿Cómo puedo cambiar el color de la perilla al hacer clic en un color diferente (no rojo), por ejemplo, negro?

 library(shiny) ui <- fluidPage( tags$style( HTML( ".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar, .js-irs-0 .irs-handle { background: red; } ")), sliderInput("slider1", "Slider 1", min = 0.1, max = 1, value = 0.4, step = 0.05), ) server <- function(input, output, session){} shinyApp(ui = ui, server=server)