r - 如何在值的右侧而不是左侧为 slider 着色？

Question

我正在构建一个带有 shiny 的应用程序，并使用与 Shiny gallery ( http://shiny.rstudio.com/gallery/slider-bar-and-slider-range.html ) 中显示的 slider 非常相似的 slider 。默认情况下，它在所选值的左侧变为蓝色(在本例中为 0 到 50)。有没有办法让它在所选值的右侧着色:e.i.从 50 到 100？

我想这样做的原因是，用户应该将其解读为“从阈值到最大值的所有值”，因此从最小值到阈值的着色会产生误导。

有人对此有想法吗？玛丽亚

Answer 1

可能有更好的方法，但这里有一个快速的 css 选项:

library(shiny)
shinyApp( 
  ui = fluidPage(

    tags$head( tags$style( type = "text/css", '
      .irs-line-mid{
        background: #428bca ;
        border: 1px solid #428bca ;
      }
      .irs-line-right{
        background: #428bca ;
      }
      .irs-bar {
        background: linear-gradient(to bottom, #DDD -50%, #FFF 150%);
        border-top: 1px solid #CCC ;
        border-bottom: 1px solid #CCC ;
      }
      .irs-bar-edge {
        background: inherit ;
        border: inherit ;
      }

    ')), 

    sliderInput( "slider", label  = "Slider", min = 0, max = 100, value = 50)
  ), server = function(input,output){} 
)