更改R闪亮的流体页面的背景颜色

Question

我在蓝绿色主题上有一个闪亮的流体页面，两个流体行相互之间。第一个fluidRow放置图像，第二个fluidRow将文本放置在图像下方。以下是UI代码：

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

这里，带有图像和titlePanel的fluidRows的背景色是白色，我需要在背景中使用蓝色（天蓝色）。有人可以暗示要实现这一目标。

Answer 1

看来，shinytheme只是使文字成为天青星。请尝试以下：

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 = ...)