闪亮:是否可以在 tabPanel() 中的同一标题中应用两种不同的文本大小?

shiny: Is it possible to apply two different text size within the same title in a tabPanel()?

我有以下tabPanel()

写着

tabsetPanel(id = "something", 
              tabPanel(title = HTML(paste("Gross Total Resection", 
                                          "Simpson Grade I-III", sep = "<br/>")), br(),
                       plotOutput("surv_nom",width = "90%", height="650px")))

问题:是否可以在同一个tabPanel()-title中应用两种不同的文字大小?

预期的输出类似于

您可以使用 HTML 函数来完成,有关详细信息,请参阅 here

library(shiny)

ui <- fluidPage(
  tabsetPanel(
    tabPanel(title = HTML(paste(h4("Gross Total Resection"),
                                p("Simpson Grade I-III", align = "center")
                                )
                          )
             )
  )
)

server <- function(input, output, session) {

}

shinyApp(ui, server)