В этом примере
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 при наведении
- цвет фона + цвет шрифта при выборе
- Полужирный шрифт
Для других вкладок я согласен с настройками по умолчанию.
Ни одна из тем, с которыми я столкнулся, напрямую не решает эту проблему для меня, у которого нет опыта работы с HTML или CSS. Некоторые решили часть проблемы для tabsetPanel, но не для navbarPage.
Любой совет или перенаправление на учебник для чайников было бы достаточно приятно.
Спасибо!
