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)