我有一个与帖子 How to color sliderbar (sliderInput)? 相关的问题.
是否可以使 slider 输入根据所选值更改其颜色?
我想让用户输入一个从 0 到 10 的值。但是,推荐的范围是 4 到 8。因此,如果用户选择 4 到 4 之间的值, slider 颜色应该是绿色的8,但如果选择了超出推荐范围的值,它应该变为橙色(或红色)。
任何有关实现这一点的帮助将不胜感激。
最佳答案
使用 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)
关于r - 动态着色的 slider 输入,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48546502/