r - 更改闪亮的导航栏颜色

Question

我试图更改页面顶部导航栏的颜色。我搜索了很多资源，但只发现了如何更改mainPanel上的颜色。我是CSS的新手，所以我不知道如何将代码插入我的应用程序。有人能告诉我一些例子吗？

这是我的Shiny应用程序： 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)