在R闪亮中更改流体页面的背景颜色答案

【问题标题】：Change Background color of fluid page in R shiny在R闪亮中更改流体页面的背景颜色
【发布时间】：2020-03-03 19:39:27
【问题描述】：

我在蔚蓝主题中有一个闪亮的流体页面，其中两个流体行彼此相接。第一个fluidRow 放置图像，第二个fluidRow 将文本放置在图像下方。下面是用户界面代码：

fluidPage(theme = shinytheme("cerulean"),

       fluidRow(column(12,align ="center",
       div(img(src="test.png", height=200, width=300))),

    fluidRow(column(12, align = 'center', 
                    div(style = "font-size: 20px; padding: 0px 0px; margin-top:-2em"),
                    titlePanel(title = 'Express', windowTitle = 'Express Plots'))
)#closefluidRow
)#closefluidRow
) #closefluidPage

在这里，带有图像和标题面板的流体行的背景颜色是白色，我需要在背景中有蓝色（天蓝色）。有人可以暗示实现这一目标。

【问题讨论】：

标签： user-interface shiny background

【解决方案1】：

看起来闪亮的主题只是让文本变得蔚蓝。请尝试以下方法：

library(shiny)

ui <- fluidPage(
              tags$style('.container-fluid {
                             background-color: #007BA7;
              }'),

              fluidRow(column(12,align ="center",
                              div(img(src="test.png", height=200, width=300))),

                       fluidRow(column(12, align = 'center', 
                                       div(style = "font-size: 20px; padding: 0px 0px; margin-top:-2em"),
                                       titlePanel(title = 'Express', windowTitle = 'Express Plots'))
                       )#closefluidRow
              )#closefluidRow
     #closefluidPage
)

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

}

shinyApp(ui, server)

您可以使用十六进制颜色#007BA7。我是从cerulean wiki 那里得到的。

您也可以将background-color: #007BA7; 添加到div(style = ...)

更新

基于以下评论。要将蔚蓝限制为流体页面，请添加一个 id 并限制样式，如下所示：

library(shiny)

ui <- fluidPage(id = 'test',
    tags$style('#test {
                             background-color: #007BA7;
              }'),

    fluidRow(column(12,align ="center",
                    div(img(src="test.png", height=200, width=300))),

             fluidRow(column(12, align = 'center', 
                             div(style = "font-size: 20px; padding: 0px 0px; margin-top:-2em"),
                             titlePanel(title = 'Express', windowTitle = 'Express Plots'))
             )#closefluidRow
    )#closefluidRow
    #closefluidPage
)

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

}

shinyApp(ui, server)

【讨论】：

它确实变成了蓝色。但是，在流体页面之后存在导航栏页面，并且蓝色延伸到导航栏页面，而它只需要在流体页面中。
navbarPage 不在您的原始示例中。您需要添加它以便有人可以提供帮助。