Как я могу изменить цвет заголовка tabPanel на стороне сервера?

Question

В Shiny, на стороне пользовательского интерфейса, мой код:

mainPanel(uiOutput('my_tabsetpanel'))

и на стороне сервера у меня есть:

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

Как я могу изменить только цвет заголовка вкладки?

Answer 1

Вы можете заключить заголовок в 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)

Результат:

Answer 2

Вот как заголовки неактивных вкладок должны быть красного цвета, а заголовок активной вкладки синим цветом:

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(...){}
)