在shinydashboard
中,可以使用title
参数来为tabBox
添加标题。以下是一个带有标题的示例代码:
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
tabBox(
title = "My TabBox", # 添加标题
id = "tabset1",
tabPanel("Tab 1",
h2("Tab 1 Content")
),
tabPanel("Tab 2",
h2("Tab 2 Content")
)
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
在上述代码中,title
参数被设置为"My TabBox"
,这将作为tabBox
的标题显示在页面上方。