R Shiny: Hintergrundfarbe ändert sich mit der Browsergröße

Question

Ich habe versucht, die Farben einer Shiny App anzupassen. Das minimale Beispiel mit diesem Code

library(shinydashboard) 
library(shiny) 

header <- dashboardHeader() 
sidebar <- dashboardSidebar() 
body <- dashboardBody(
tags$head(
    tags$style(
     HTML(
      '.skin-black .main-sidebar {color: #FFFFFF; background-color: #9A373C;} 
      .skin-black .main-header .navbar { background-color: #ffffff;} 
      .skin-black .span12 { background-color: #ffffff;}' 
     ) 
    ) 
) 
) 

ui <- dashboardPage(header, sidebar, body,skin = "black") 
server <- function(input, output) {} 
shinyApp(ui, server) 

erzeugt eine App, die einen weißen Kopf hat, wenn das Browser-Fenster ist groß und ein schwarz/weiß-Header, wenn das Browser-Fenster klein ist.

Was kann ich tun, um zu bekommen, ist es immer weiß?

Ich frage, weil ich ein Logo in der oberen linken Ecke platziere es sieht schrecklich aus, wenn die Hintergrundfarbe schwarz wird, nur weil jemand die App in einem kleineren Fenster betrachtet.

Answer 1

Ich denke, das bringt Sie dahin, wo Sie wollen, aber ich habe alles getan, indem ich die Stile der relevanten Elemente untersucht habe, und ich fürchte, das ist es, was Sie in diesen Situationen tun müssen - es gibt kein besseres Antwort als nur Versuch und Störung ...

Hoffnung hilft es!

library(shinydashboard) 
library(shiny) 

header <- dashboardHeader() 
sidebar <- dashboardSidebar() 
body <- dashboardBody(
    tags$head(
     tags$style(
      HTML(
      '.skin-black .main-sidebar {color: #FFFFFF; background-color: #9A373C;} 
      .skin-black .span12 { background-color: #ffffff;} 
      .skin-black .main-header .navbar { background-color: #ffffff;} 
      .skin-black .main-header > .logo { background-color: #ffffff;} 
      .skin-black .main-header > .logo:hover { background-color: #ffffff;} 
      .skin-black .main-header .logo, .skin-black .main-header .navbar { transition: color 0s; }' 
      ) 
     ) 
    ) 
) 

ui <- dashboardPage(header, sidebar, body,skin = "black") 
server <- function(input, output) {} 
shinyApp(ui, server)