将Tab文本字体加粗为Shinydashboard

Question

我要使下图中标记的内容（选项卡名称）的字体变为粗体

material_side_nav_tab_content(
    side_nav_tab_id = "example_side_nav_tab_1",
    material_tabs(
        tabs = c(
            "Churn Facets" = "first_tab",
            "Customer Scorecard" = "second_tab"
        )
),

Answer 1

欢迎来到stackoverflow！

您可以将material_tabs包裹在div中并设置字体粗细样式：

library(shiny)
library(shinymaterial)

ui <- material_page(
  title = "Basic Page + Side-Nav + Tabs",
  material_side_nav(fixed = FALSE,
                    tags$h3("Side-Nav Content")),
  div(material_tabs(
    tabs = c("First Tab" = "first_tab",
             "Second Tab" = "second_tab")
  ), style = "font-weight: bold;"), # "font-weight: normal;"
  material_tab_content(tab_id = "first_tab",
                       tags$h1("First Tab Content")),
  material_tab_content(tab_id = "second_tab",
                       tags$h1("Second Tab Content"))
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)