ในตัวอย่างนี้
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
เป็นพิเศษเพื่อให้ดูแตกต่างจากที่เหลือสำหรับ:
- สีพื้นหลัง + สีตัวอักษร เมื่อไม่ได้โฮเวอร์และไม่ได้เลือก
- สีพื้นหลัง + สีตัวอักษรเมื่อโฮเวอร์
- สีพื้นหลัง + สีตัวอักษร เมื่อเลือก
- แบบอักษรตัวหนา
สำหรับแท็บอื่นๆ ฉันก็โอเคที่จะยึดตามค่าเริ่มต้น
ไม่มีกระทู้ใดที่ฉันพบที่กล่าวถึงปัญหานี้โดยตรงสำหรับฉัน ซึ่งไม่มีพื้นหลัง HTML หรือ CSS ได้มีการแก้ไขปัญหาบางส่วนสำหรับ tabsetPanel
แต่ไม่ใช่สำหรับ navbarPage
คำแนะนำหรือการเปลี่ยนเส้นทางไปยังบทช่วยสอนสำหรับหุ่นจำลองก็เพียงพอแล้ว
ขอบคุณ!