如何在RShiny仪表板上为我的verbatimTextOutput创建标题？

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(6, 
           h3("标题名称"),
           verbatimTextOutput("output_text")
    )
  )
)

server <- function(input, output) {
  output$output_text <- renderText({
    # 在这里编写您的代码来生成要显示的文本
    "这是要显示的文本"
  })
}

shinyApp(ui = ui, server = server)