R Shiny中tabItems内嵌的datatableoutput无法正常显示问题求助

• shinydashboard的tabItems组件需要和侧边栏的sidebarMenu、menuItem绑定使用，只有匹配tabName的menuItem被激活时，对应tabItem才会渲染。你没有在侧边栏配置对应菜单项，恢复tabItems代码后没有标签页被激活，页面自然显示空白
• 取消注释后要保证tabItems和tabItem的嵌套语法正确，避免参数层级混乱

library(shiny)
library(shinydashboard)
library(DT)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    # 侧边栏新增对应tabName的菜单项，绑定dashboard标签页
    sidebarMenu(
      menuItem("数据展示", tabName = "dashboard", icon = icon("table"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "dashboard",
        fluidRow(
          column(
            width = 8,
            align = "center",
            dataTableOutput("tbl_cars")
          )
        )
      )
    )
  )
)

server <- function(input, output) { 
  output$tbl_cars <- renderDataTable({
    datatable(mtcars)
  })
}

shinyApp(ui, server)

如果不需要和侧边栏联动做标签切换，可以直接使用shiny原生的tabsetPanel组件，不需要配置侧边栏即可直接渲染所有标签页。

内容的提问来源于stack exchange，提问作者klopp