r - 将导航栏颜色更改为闪亮

r - change navbar color in shiny

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

这是我的 Shiny 应用程序: 导航栏页面

我想把它变成这样: 黑色

因为我的代码太长,无法放在这里。结构看起来像

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

非常感谢。

navbarPage 有一个 inverse 参数来将 class 更改为 navbar-inverse,所以幸运的是你根本不需要弄乱 css .

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