如何更改闪亮仪表板标题的颜色和字体?

How to change colour and font of shiny dashboard title?

如何将此仪表板标题 header 更改为以下内容:

我想说 Basic DASHBOARD 其中 DASHBOARD 是粗体,红色字体,Basic 是默认的白色字体 - 我还想调整字体的大小DASHBOARD 要大一些?关于如何在闪亮的仪表板标题中执行此操作的任何想法?

所以 DASHBOARD 和更大的基本上需要红色和粗体,BASIC 保持不变,

下面的代码

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      box(plotOutput("plot1", height = 250)),

      box(
        title = "Controls",
        sliderInput("slider", "Number of observations:", 1, 100, 50)
      )
    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}

shinyApp(ui, server)

您可以使用内联 css 来实现:

dashboardHeader(title = span("Basic ", 
                             span("dashboard", 
                             style = "color: red; font-size: 28px")))