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)

生成一个App，当浏览器windows大时为白色header，浏览器window小时为black/whiteheader。

我该怎么做才能让它永远是白色的？

我问是因为我在左上角的矩形中放置了一个徽标，当背景颜色变黑时看起来很糟糕，因为有人正在较小的 window 中查看应用程序。

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)

R Shiny：背景颜色随浏览器大小而变化

R Shiny: Background color changes with browser size

r

shiny

shinydashboard