Dalam contoh ini,
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)
Saya ingin Tab 3 menjadi spesial sehingga tampil berbeda dari yang lain untuk:
- warna latar belakang + warna font saat tidak diarahkan dan tidak dipilih
- warna latar belakang + warna font saat diarahkan
- warna latar belakang + warna font saat dipilih
- Font tebal
Untuk tab lainnya, saya baik-baik saja dengan tetap menggunakan default.
Tak satu pun topik yang saya temui secara langsung mengatasi masalah ini untuk saya, yang tidak memiliki latar belakang HTML atau CSS. Beberapa mengatasi sebagian masalah untuk tabsetPanel, namun tidak untuk navbarPage.
Saran apa pun, atau pengalihan ke tutorial untuk boneka sudah cukup.
Terima kasih!
