In this example,
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)
I would like Tab 3
to be special such that it appears different from the rest for:
- background-color + font-color when not hovered and not selected
- background-color + font-color when hovered
- background-color + font-color when selected
- Bolded font
For the other tabs, I am fine with sticking to the defaults.
None of the threads I came across directly address this issue for me, who has no HTML or CSS background. Some addressed part of the problem for tabsetPanel
, but not for navbarPage
.
Any advice, or redirection to a tutorial for dummies would be nice enough.
Thanks!