r - 如何更改 Shiny 仪表板标题的颜色和字体？

Question

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

我想让它说基本 仪表板 其中 DASHBOARD 为粗体，RED FONT 和 Basic 为默认的白色字体 - 我也想将 DASHBOARD 的字体大小调整为更大一些？关于如何在 Shiny 的仪表板标题中执行此操作的任何想法？

所以基本上需要为 DASHBOARD 和更大的 RED 和 BOLD，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)

Answer 1

您可以使用内联 css实现这一目标:

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