R shinyDashboard dostosuj kolor statusu skrzynki

Question

Chciałbym dostosować kolor statusu skrzynki mojej błyszczącej aplikacji. Znajduję sposób css, aby zmienić kolor tła pola w tych polach, ale nie w celu dostosowania koloru statusu, ale nie widzę równoważnego argumentu "status" w css? W ten sposób wydrukowałem kod źródłowy prostej strony zawierającej rozważany argument "status" i patrzyłem na jej klasę (myślę, że class = "box box-solid box-primary"), ale nie uda mi się do niej dotrzeć w kilka .css przewidziane w niniejszej strony ... :(

Czy masz pomysł

Oto ten prosty kod:?!

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    fluidRow(
     box(width = 6, title = "youhou", status = "primary", solidHeader = TRUE, 
      "Box content" 
    ) 
    ) 
    ) 
    ) 


server <- function(input, output) {} 

shinyApp(ui, server) 

z góry dziękuję za wszelką pomoc

Cha

Answer 1

W końcu znalazłem odpowiedź (długa i trudna, ale zawsze satysfakcjonująca: D)

Jeden z moich przyjaciół (Dziękuję bardzo, mój przyjacielu !!!) pokazuje mi, jak wyświetlić wszystkie parametry css każdego elementu strona internetowa (a szczególnie błyszcząca strona: przejdź do odpowiedniej strony i kliknij prawym przyciskiem, coś w rodzaju "zbadaj element"!

NIESAMOWITE !!

Potem wyglądam głębiej (bardzo, bardzo, bardzo głębiej, jest tyle zajęć !!) i udało mi się uzyskać dostęp do dowolnego parametru css w pudełkach!

Oto kod dla najbliższych osób:

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    tags$style(HTML(" 


.box.box-solid.box-primary>.box-header { 
    color:#fff; 
    background:#666666 
        } 

.box.box-solid.box-primary{ 
border-bottom-color:#666666; 
border-left-color:#666666; 
border-right-color:#666666; 
border-top-color:#666666; 
} 

            ")), 
    fluidRow(
     box(width = 6, title = "youhou", status = "primary", solidHeader = TRUE, 
      "Box content" 
    ) 
    ) 
) 
) 


server <- function(input, output) {} 

shinyApp(ui, server) 

Miłego weekend !!

Pozdrawiam!