在shinydashboard框的标题中设置字体大小和颜色

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "My Dashboard",
    tags$head(
      tags$style(HTML("
        .navbar-header .navbar-brand {
          font-size: 24px; /* 设置标题字体大小为24像素 */
        }
      "))
    )
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {}

shinyApp(ui, server)

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "My Dashboard",
    tags$head(
      tags$style(HTML("
        .navbar-header .navbar-brand {
          font-size: 24px; /* 设置标题字体大小为24像素 */
          color: #FF0000; /* 设置标题字体颜色为红色 */
        }
      "))
    )
  ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {}

shinyApp(ui, server)