闪亮仪表板的选项卡框 CSS

我正在尝试更改选项卡样式tabBox in shinydashboard。我能够更改未选择的选项卡的背景，但无法更改所选选项卡的背景或每个选项卡中显示的文本。这是我添加到 custom.css 文件中以更改未选择的选项卡背景的内容：

.nav-tabs {
  background-color: #006747;
}

我尝试过类似的东西.nav-tabs .active但我什么也做不了。

此外，如果有人知道如何更改出现在所选选项卡旁边的小彩色条子，我们也将不胜感激。

开发人员工具和“检查元素”非常方便地找出要更改 CSS 的类。

要更改所选选项卡的条子和颜色，您可以执行以下操作：

.nav-tabs-custom .nav-tabs li.active:hover a, .nav-tabs-custom .nav-tabs li.active a {
     background-color: transparent;
     border-color: transparent;
}

.nav-tabs-custom .nav-tabs li.active {
     border-top-color: #FFF;
}

这是一个示例（主干代码来自here https://rstudio.github.io/shinydashboard/structure.html):

library(shiny)
library(shinydashboard)
body <- dashboardBody(
        fluidRow(tags$style(".nav-tabs {
  background-color: #006747;
}

.nav-tabs-custom .nav-tabs li.active:hover a, .nav-tabs-custom .nav-tabs li.active a {
background-color: transparent;
border-color: transparent;
}

.nav-tabs-custom .nav-tabs li.active {
    border-top-color: #FFF;
}"),
                tabBox(
                        title = "First tabBox",
                        # The id lets us use input$tabset1 on the server to find the current tab
                        id = "tabset1", height = "250px",
                        tabPanel("Tab1", "First tab content"),
                        tabPanel("Tab2", "Tab content 2")
                )

))

shinyApp(
        ui = dashboardPage(
                dashboardHeader(title = "tabBoxes"),
                dashboardSidebar(),
                body
        ),
        server = function(input, output) {
        }
)