r - change navbar color in shiny

Question

Я пытался изменить цвет navbar в верхней части страницы. Я искал много ресурсов, но обнаружил, как изменить цвет на mainPanel. Я совершенно новичок в CSS, поэтому я понятия не имею, как я могу вставить код в свое приложение. Может ли кто-нибудь показать мне несколько примеров?

Это моя Блестящая приложение: navbarPage

Я хотел бы, чтобы превратить его в этом: черного цвета

Потому что мой код слишком долго, чтобы поставить здесь , Структура выглядит так:

shinyUI(navbarPage("title1", 
      tabPanel("title2", 
      sidebarLayout(
       sidebarPanel(
      ) 
      ) 
      ) 
) 

Большое спасибо заранее.

Answer 1

navbarPage имеет аргумент inverse, чтобы изменить класс на navbar-inverse, поэтому вам не нужно возиться с css, к счастью.

library(shiny) 
ui <- shinyUI(navbarPage(inverse=TRUE, 
    "title1", tabPanel("title2", 
    sidebarLayout(sidebarPanel(), mainPanel())))) 
server <- function(input, output) {} 
shinyApp(ui, server)