动态着色的滑块输入

【问题标题】：Dynamically colored sliderInput动态着色的滑块输入
【发布时间】：2018-07-10 19:39:28
【问题描述】：

我有一个与帖子How to color sliderbar (sliderInput)? 相关的问题。

是否可以让滑块输入根据所选值更改其颜色？

我想让用户输入一个从 0 到 10 的值。但是，推荐的范围是 4 到 8。因此，如果用户选择一个值，滑块颜色应该是绿色介于 4 和 8 之间，但如果选择了超出推荐范围的值，它应该变为橙色（或红色）。

我们将不胜感激任何有关实施此功能的帮助。

【问题讨论】：

标签： r shiny reactive-programming shinydashboard

【解决方案1】：

使用 renderUI，并以任何你想要的方式控制 color() 中的条件

rm(list = ls())
library(shiny)
ui <- fluidPage(

    sliderInput("slider1", "Slider 1",min = 0, max = 10, value =c(4,8), 
                 step = 1),

    uiOutput("abc")

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

    color <- reactive({
       if(input$slider1[1] < 4 || input$slider1[2] > 8 ){
         tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
               edge, .js-irs-0 .irs-bar {background: red}"))
        }else{
          tags$style(HTML(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-
                  edge, .js-irs-0 .irs-bar {background: lightgreen}"))
        }
    })

  output$abc <- renderUI({ 
       color()
  })

}
shinyApp(ui = ui, server=server)

【讨论】：