R Shiny：ブラウザのサイズによって背景色が変わる

Question

Shinyアプリケーションの色をカスタマイズしようとしました。このコード

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) 

と最小の例では、ブラウザウィンドウ白ヘッダを持つアプリケーションを生成するブラウザウィンドウが小さい場合に黒/白ヘッダ大きく、。

私はいつも白、それを得るために何ができますか？

私は、左上矩形にロゴを配置しているので、誰かが小さいウィンドウでアプリを見ているだけなので、背景色が黒くなるとひどく見えるので頼んでいます。

Answer 1

これはあなたが欲しいところにあなたがいると思っていますが、私は関連する要素のスタイルを調べることでそのすべてを行いました。そして、あなたはこれらの状況であなたがする必要があることを恐れています。答えは試行錯誤だけです...

希望します！

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)