R shinyDashboard anpassen Box Status Farbe

Question

Ich möchte die Farbe des Kastenstatus meiner glänzenden App anpassen. Ich finde eine CSS-Möglichkeit, die Box Hintergrundfarbe dieser Box zu ändern, aber nicht die Statusfarbe anpassen, aber ich sehe nicht das entsprechende Argument von "Status" in CSS? Ich drucke also den Quellcode einer einfachen Seite, die das betrachtete Argument "status" enthält, und ich schaute auf seine Klasse (ich denke class = "box box-solid box-primary"), aber ich schaffe es nicht in der erreichen mehrere CSS- Die auf dieser Webseite zur Verfügung gestellt ... :(

haben Sie eine Idee haben

Hier ist diese einfache Code ist:?!

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) 

Vielen Dank im Voraus für jede Hilfe

Cha

Answer 1

fand ich endlich die Antwort (lang und hart, aber immer erfreulich: D)

Einer meiner Freundin (Vielen Dank mein Freund !!!) zeigt mir, wie alle CSS-Parameter jedes Elements eines anzuzeigen Webseite (und besonders von einer glänzenden Seite: Gehen Sie zur entsprechenden Seite und klicken Sie mit der rechten Maustaste, etwas wie "Untersuchen Sie das Element" !!

So erstaunlich !!

Dann schaue ich tiefer (sehr, sehr, sehr viel tiefer, es gibt so viele Klassen !!) und es gelang mir, auf jeden CSS-Parameter der Boxen zugreifen!

Hier ist der Code für die nächsten Leute:

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) 

Haben Sie ein gutes Woche-Ende !!

Prost!