Ändern Sie die Farbe in Shinydashboard

Question

Ich habe Folgendes, die die Farbe des primären Status in Shinydashboard zu den benutzerdefinierten blau ändert, die ich angegeben habe.

tags$style(HTML(".box.box-solid.box-primary>.box-header { 
           color:#FFFFFF; 
           background-color:#005CB9;} 

           .box.box-solid.box-primary{ 
           border-bottom-color:#005CB9; 
           border-left-color:#005CB9; 
           border-right-color:#005CB9; 
           border-top-color:#005CB9; 
           }")), 

Allerdings muss ich die Farbe einer Infobox ändern, da diese Farbe = anstelle des Status = verwendet. Kennt jemand die Tags, die ich ändern muss, um eine der Standardfarben in Shinydashboard anzupassen?

Dank

Answer 1

ich verwendet, um die folgende style() Anweisung am Anfang des dashboardBody() Tag jeden Fall, in dem color = "aqua" mit Ihrem eigenen blauen außer Kraft zu setzen:

tags$style(
    type = 'text/css', 
    '.bg-aqua {background-color: #005CB9!important; }' 
), 

Der Schlüssel der "!important" nach der Farbe, die überschreibt das Shinydashboard-Preset.

In Zukunft können Sie CSS-Klassen leicht identifizieren, indem Sie in Rstudio "run external" auswählen, wenn Sie Ihre shinyapp ausführen, und dann die Entwicklerwerkzeuge Ihres Browsers oder die "inspect element" -Werkzeuge verwenden.

Hier ist das vollständige Beispiel für Kontext:

require(shiny) 
require(shinydashboard) 

ui <- shinyUI(dashboardPage(
    dashboardHeader(title = 'Change infoBox color'), 
    dashboardSidebar(disable = TRUE), 

    dashboardBody(
    tags$style(
     type = 'text/css', 
     '.bg-aqua {background-color: #005CB9!important; }' 
    ), 

    infoBox(
     title = 'Custom Color', 
     value = 100, 
     color = 'aqua' 
    ) 
) 
)) 

server <- shinyServer(function(input, output) { 

}) 

shinyApp(ui, server)