由网友(某只小帅比)分享简介：我还是个新手。我想给滑块静态颜色，无论在闪亮的仪表板选择的范围。我想有不同的滑块颜色如下，例如：0到40-红色，40-60-蓝色，60-100-绿色。请帮我解决这个问题。我的代码，library(shiny)library(shinydashboard)ui <- dashboardPage(skin = "bl...

我还是个新手。我想给滑块静态颜色，无论在闪亮的仪表板选择的范围。我想有不同的滑块颜色如下，例如：0到40-红色，40-60-蓝色，60-100-绿色。 请帮我解决这个问题。 我的代码，

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),

                  dashboardSidebar(
                    sidebarMenu(
                      menuItem("Complete", tabName = "comp"))),

                    dashboardBody(
                      tabItems(
                        tabItem(tabName = "comp",
                          fluidRow(
                              sliderInput("range_var", "", value = c(90,100), min = 0, max = 100, width = '200%'))))))

server <- function(input, output, session) { 
  observe({
    updateSliderInput(session, "range_var", label = "", value = c(90, 100), min = 0, max = 100)
  })
}
shinyApp(ui, server)

谢谢 巴拉吉

推荐答案

哦，我误解了您的问题。您也可以通过使用css命令和正确的选择器来实现这一点：

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(
                      inlineCSS(".irs-line-left { background-color: red; width: 40%;}
                                 .irs-line-mid { background-color: blue; width: 20%; left: 40%;}
                                 .irs-line-right { background-color: green; width: 40%; left: 60%;}
                                "
                                ),

                      shinyjs::useShinyjs(),
                      tabItems(
                        tabItem(tabName = "comp",
                                fluidRow(
                                  sliderInput("range_var", "", value = c(90,100), min = 0, max = 100, width = '200%'))))))

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

shinyApp(ui, server)