如何更改 shiny 中的滑塊輸入旋鈕（拇指）顏色？

Question

我正在嘗試更改滑塊輸入旋鈕/拇指顏色。 上網查了一下，看到了一些關於using.irs-slider的評論。 但是，它在以下代碼中對我不起作用：

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)

這個代碼改變了除旋鈕之外的所有東西的顏色。 任何幫助，將不勝感激。

Answer 1

您可以將.irs-handle class 添加到您的樣式中以更改旋鈕的 css：

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;
       }
      .irs-handle {
          background: cyan !important;
      }
      ")),
  
  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)