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是特别的，以便它与其余部分不同：

背景色+字体颜色未悬停且未选中
背景颜色+字体颜色悬停时
background-color + font-color
Bolded字体

对于其他标签，我可以坚持使用默认值。

我遇到的所有主题都没有直接解决这个问题，因为我没有HTML或CSS背景。有些问题涉及tabsetPanel的部分问题，但问题不涉及navbarPage。

任何建议，或重定向到傻瓜教程都会很好。

谢谢！

Answer 1

 library(shiny)
 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", icon = icon("user")),
         tabPanel("Tab 2", icon = icon("cog")),
         tabPanel("Tab 3", icon = icon("sliders"))
   )
)
 server <- function(input, output, session) {
 }
shinyApp(ui, server)

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

1 个答案: