css - 在 Shiny 中控制 sliderInput 的外观

Question

我正在尝试控制 Shiny 中 sliderInput 的大小和外观。具体来说，我已经把它做得更大更宽，并改变了 slider 的背景颜色。我想使 slider 的末端呈方形，删除 slider 下方出现的刻度线，然后将值 (1:10) 置于条形体内的白色中。我试图操纵 CSS，但只取得了一定的成功。 slider 更大更宽，但 slider 的一侧是方形的，我无法移动文本。显然，我的 CSS 技能低于标准。我已经查阅了各种教程，但无法破解。任何帮助将不胜感激，因为我真的被困住了。

这是我尝试过的:

 ui <- fluidPage(

   tags$style(HTML(".irs-bar {width: 100%; height: 25px; background: black; border-top: 1px solid black; border-bottom: 1px solid black;}")),
   tags$style(HTML(".irs-bar-edge {background: black; border: 1px solid black; height: 25px; border-radius: 15px 15px 15px 15px;}")),
   tags$style(HTML(".irs-line {border: 1px solid black; height: 25px;}")),
   tags$style(HTML(".irs-grid-text {font-family: 'arial'; color: black}")),
   tags$style(HTML(".irs-max {font-family: 'arial'; color: black;}")),
   tags$style(HTML(".irs-min {font-family: 'arial'; color: black;}")),
   tags$style(HTML(".irs-single {color:black; background:#6666ff;}")),              

   uiOutput("testSlider")

    )

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

              output$testSlider <- renderUI({
                                           sliderInput( 
                                                      inputId="test",
                                                      label=NULL,
                                                      min=1,
                                                      max=10, 
                                                      value=5,
                                                      step = 1,
                                                      width='100%'
                                                      ) # close slider input          
                                            }) # close renderUI

  }

 shinyApp(ui = ui, server=server)

Answer 1

怎么样？

 ui <- fluidPage(
    tags$style(type = "text/css", "
      .irs-bar {width: 100%; height: 25px; background: black; border-top: 1px solid black; border-bottom: 1px solid black;}
      .irs-bar-edge {background: black; border: 1px solid black; height: 25px; border-radius: 0px; width: 20px;}
      .irs-line {border: 1px solid black; height: 25px; border-radius: 0px;}
      .irs-grid-text {font-family: 'arial'; color: white; bottom: 17px; z-index: 1;}
      .irs-grid-pol {display: none;}
      .irs-max {font-family: 'arial'; color: black;}
      .irs-min {font-family: 'arial'; color: black;}
      .irs-single {color:black; background:#6666ff;}
      .irs-slider {width: 30px; height: 30px; top: 22px;}
    "),
    uiOutput("testSlider")
  )

  server <- function(input, output, session){
    output$testSlider <- renderUI({

      sliderInput(inputId="test", label=NULL, min=1, max=10, value=5, step = 1, width='100%')

    })
  }

 shinyApp(ui = ui, server=server)

• 方形 slider 的末端是 irs.bar, .irs-bar-edge {border-radius: 0px}。
• 通过设置 .irs-grid-pol {display: none;} 移除刻度。
• 白色和内部的勾号是 .irs-grid-text {color: white;底部:17px； z-index: 1} 其中 z-index 使数字位于条形图本身上方的一层。
• 我还添加了 .irs-slider {width: 30px;高度:30px； top: 22px; 调整 slider 旋钮。