Изменить цвет фона страницы жидкости в R блестящий

Question

У меня блестящая жидкостная страница в церулеанской теме с двумя жидкостными рядами, расположенными друг над другом. Первый 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

Здесь цвет фона liquidRows с изображением и titlePanel - белый, и мне понадобится синий (церулеанский цвет) на заднем плане. Может ли кто-нибудь намекнуть на это?

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

Обновление

На основании комментария ниже. Чтобы ограничить церулеан жидкостью, добавьте идентификатор и ограничьте стиль, как показано ниже:

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)