更改滑块输入的颜色 [重复]答案

【问题标题】：Change colour for sliderInput [duplicate]更改滑块输入的颜色 [重复]
【发布时间】：2018-04-17 09:26:51
【问题描述】：

这就是我闪亮的应用程序的样子：

蓝色滑块与红色导航栏看起来很糟糕。有谁知道如何将其更改为红色？我正在使用shinytheme("united")。

【问题讨论】：

标签： r shiny

【解决方案1】：

这类似于@LyzanderR 的答案，但使用更简单的代码并且不使用任何额外的包

library(shiny)

mycss <- "
.irs-bar,
.irs-bar-edge,
.irs-single,
.irs-grid-pol {
  background: red;
  border-color: red;
}
"

ui <- fluidPage(
  tags$style(mycss),
  sliderInput("num", "Number", 0, 10, 5)
)

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

shinyApp(ui, server)

【讨论】：

当您想以不同的方式设置 2 个滑块输入时，无法按预期工作.... 仍然试图为它找到一个有效的解决方案，该解决方案实际上以标签为目标。在 CSS 不起作用之前添加 #num （滑块的 ID），并尝试将滑块放在 div(id = 'slider1' 等中，然后将 #slider1 放在 css 代码的前面，而不是像我一样工作'希望。

【解决方案2】：

这不是最简单的任务，但它可能会发生。您需要做的就是更改闪亮默认使用的默认引导主题的 CSS。我将使用tableHTML（允许您从 ui 中向闪亮添加 CSS 文件）向您展示要更改的 CSS：

library(tableHTML)
ui <- fluidPage(
 tags$style(make_css(list('.irs-bar', 
                          c('border-top', 'border-bottom', 'background'), 
                          rep('red', 3)),
                     list('.irs-bar-edge',
                          c('background', 'border'),
                          c('red', '0px !important')),
                     list('.irs-single',
                          'background',
                          'red'))),
 sliderInput("obs", "Number of observations:",
             min = 0, max = 1000, value = 500
 ),
 plotOutput("distPlot")
)

# Server logic
server <- function(input, output) {
 output$distPlot <- renderPlot({
  hist(rnorm(input$obs))
 })
}

# Complete app with UI and server components
shinyApp(ui, server)
}

正如您在上面看到的（在make_css 函数中），您需要更改.irs-bar、.irs-bar-edge 和.irs-single 并添加您想要的任何颜色。我用的是标准的红色。如果您想了解更多信息，可以在 tableHTML::make_css here 上找到教程。

【讨论】：

是否有理由增加引入附加包和功能（和教程）的复杂性？ OP 不能通过将这个 CSS 以老式的方式添加到应用程序中来做同样的事情吗？