使用shinyWidgets更改复选框的颜色

Question

我正在使用shinyWidgets包中的awesomeCheckboxGroup在一个闪亮的应用程序中创建复选框。默认情况下，它们具有蓝色背景。我可以使用参数status =更改背景颜色，但这仅限于五种状态颜色。

我相信我应该能够使用CSS创建一个自定义状态，并将其传递给参数。然而，当我检查页面时，它完全回避了我要更改的相关部分。我在任何地方都看不到提到的蓝色！我还尝试更改状态，以防在那里看到相关代码更改，但这对我也没有帮助。

我只在这样的应用程序中使用过CSS，所以如果我遗漏了一些明显的东西，很抱歉。当然，我对使用另一种方法的解决方案也很满意！

编辑:我现在已经确定了元素，所以我可以更改颜色了！缺点是它还会影响页面的另一部分。在我的实际工作中，这并不重要，因为我实际上更改了与标题相同的颜色，所以这并不明显-但有没有一种方法可以更具体，只给复选框着色？

​

​

library(shiny)
library(shinydashboard)
library(shinyWidgets)

sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidRow(class ="rowhide",
           box(width = 12, solidHeader = TRUE,
               awesomeCheckboxGroup(inputId = "checkbox", 
                                    label = "Filter", 
                                    choices = c("A", "B", "C"), 
                                    selected = c("A", "B", "C"))
           )
  ),

  # theme styling ####
  tags$head(tags$style(HTML('
                            :after, :before{
                            background-color:#bff442;
                            }'

))))

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)


server <- function(input, output) {
}

shinyApp(ui, server)

Answer 1

成功！通过添加复选框输入的id，我能够将其隔离为该元素。然而，这需要一段时间才能弄清楚，因为id需要添加到之前和之后的部分。

以下是我的工作代码：

library(shiny)
library(shinydashboard)
library(shinyWidgets)

sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidRow(class ="rowhide",
           box(width = 12, solidHeader = TRUE,
               awesomeCheckboxGroup(inputId = "checkbox", 
                                    label = "Filter", 
                                    status = "warning",
                                    choices = c("A", "B", "C"), 
                                    selected = c("A", "B", "C"))
           )
  ),

  # theme styling ####
  tags$head(tags$style(HTML('
                            #checkbox :after, #checkbox :before{
                            background-color:#bff442;
                            }'

))))

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)


server <- function(input, output) {
}

shinyApp(ui, server)

​

​

Answer 2

请查看此链接：How to change the background color on a input checkbox with css? -您必须将任何内容包装在来自shiny的标记调用中