将shinydashboard的选项卡文本字体设为粗体

install.packages("shiny")
install.packages("shinydashboard")

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "My Dashboard"),
  dashboardSidebar(),
  dashboardBody(
    tags$head(
      tags$style(
        HTML(".tabbable > .nav > li > a { font-weight: bold; }")
      )
    ),
    tabItems(
      tabItem(tabName = "tab1",
              h2("Tab 1 Content")
      ),
      tabItem(tabName = "tab2",
              h2("Tab 2 Content")
      )
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

shiny::runApp("app.R")