如何在服务器端更改tabPanel标题的颜色？

Question

在Shiny中，在用户界面方面，我的代码是：

mainPanel(uiOutput('my_tabsetpanel'))

在服务器端，我有：

output$my_tabsetpanel <- renderUI({
    tabPanel(mytabtitle, DT::dataTableOutput(id))
})

如何仅更改标签标题的颜色？

Answer 1

在这里，如何将非活动标签的标题显示为红色，将活动标签的标题显示为蓝色：

shinyApp(
  ui = fluidPage(
    tags$head(
      tags$style(
        HTML("li>a {color: red;} .nav-tabs>li.active>a {color: blue;}"))),
    mainPanel(
      tabsetPanel(
        tabPanel("Plot", p("plot")),
        tabPanel("Summary", p("summary")),
        tabPanel("Table", p("table"))
      )
    )
  ),
  server = function(...){}
)

Answer 2

您可以将标题包裹在div中并更改样式。

这里是一个例子：

library(shiny)

ui <- fluidPage(
        mainPanel(uiOutput('my_tabsetpanel'))
)

server <- function(input, output) {
    output$my_tabsetpanel <- renderUI({
        tabsetPanel(tabPanel(div("mytabtitle", style = "color: red;"), "my content"))
    })
}

shinyApp(ui = ui, server = server)

结果：