Измените цвет флажка, используя блестящие виджеты

Question

Я использую 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

Успех!Добавив идентификатор входного флажка, я смог выделить его только для этого одного элемента.Тем не менее, мне нужно некоторое время, чтобы понять это, потому что идентификатор должен быть добавлен как до, так и после частей.

Вот мой рабочий код:

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

Проверьте эту ссылку: Как изменить цвет фона на флажке ввода с помощью css? - вам придется обернуть что-либо в вызове тега из блестящего, хотя