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

Question

如何更改 shinydashboard box() 中 title 的字体大小和颜色？

library(shiny)
library(plotly)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(width=12)),
    fluidRow(
      box(title="Title")
      )
  )
)

server <- function(input, output) { 

}

shinyApp(ui, server)
r

Answer 1

您可以在其中使用 header 标签和 style 选项。

library(shiny)
library(plotly)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(width=12)),
    fluidRow(
      box(title=h3("Title", style = 'font-size:42px;color:blue;'))
    )
  )
)

server <- function(input, output) { 
  
}

shinyApp(ui, server)