在 navbarPage 中使用 tabPanel 时如何更改 SPECIFIC 选项卡的显示属性

Question

在这个例子中，

library(shiny)
ui <- fluidPage(
  tags$style(type = 'text/css', HTML('.navbar {background-color: red;}')),
  navbarPage("",
    tabPanel("Tab 1", icon = icon("user")),
    tabPanel("Tab 2", icon = icon("cog")),
    tabPanel("Tab 3", icon = icon("sliders"))
  )
)
server <- function(input, output, session) {
}
shinyApp(ui, server)

我希望 Tab 3 与众不同，因为它看起来与其他的不同：

未悬停且未选中时的背景颜色 + 字体颜色
悬停时的背景颜色 + 字体颜色
选中时背景色+字体颜色
粗体

对于其他选项卡，我可以坚持使用默认设置。

我遇到的

None 线程直接为没有 HTML 或 CSS 背景的我解决了这个问题。有些解决了 tabsetPanel 的部分问题，但没有解决 navbarPage.

的问题

任何建议，或重定向到傻瓜教程就足够了。

谢谢！

Answer 1

library(shiny)
#select more than one Tab you can try
#1. a[data-value='Tab 2'], a[data-value='Tab 3'] {...}
#2. rename Tab 2 and Tab 3 values to Tab 02 and Tab 03 then use a[data-value*='0'] {...}
ui <- fluidPage(
       tags$style(type = 'text/css', 
                  HTML(".container-fluid > .nav > li > 
                        a[data-value='Tab 3'] {background-color: red; color:white}")),
    navbarPage("",
         tabPanel("Tab 1" ,value = "Tab 1" ,icon = icon("user")),
         tabPanel("Tab 2" ,value = "Tab 2" ,icon = icon("cog")),
         tabPanel("Tab 3" ,value = "Tab 3" ,icon = icon("sliders"))
   )
)
server <- function(input, output, session) {}
shinyApp(ui, server)

在 navbarPage 中使用 tabPanel 时如何更改 SPECIFIC 选项卡的显示属性

How to change the display attributes of SPECIFIC tabs when using tabPanel in navbarPage

r

tabpanel

navbar

shiny