在 shinydashboard 标题部分添加副标题

Question

是否可以在主标题下的 shinydashboard 标题部分添加较小字体的副标题？

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title="Dashboard"),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

Answer 1

像这样的东西会起作用：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title= div(h3('Títutlo', style="margin: 0;"), h4('subtitulo', style="margin: 0;"))
    ),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)