我不相信你可以像这样混合搭配 * shinyfluidPage *、shinythemes 和 shinydashboard 中的元素。为了让box正常工作，它需要shinydashboard CSS，并且你通常会使用这个CSS

dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

布局，而不是fluidPage()/fixedPage()闪亮布局。
虽然..有shinyWidgets::useShinydashboard()：

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

library(shinyWidgets)

ui <- fluidPage(
  theme = shinytheme("lumen"),
  shinyWidgets::useShinydashboard(),
  navbarPage("test theme",
    tabPanel("tab1",
      mainPanel(width = 12,
        fluidRow(
          box(width = 12, 
            title = "title", status = "warning", solidHeader = TRUE,
            dataTableOutput(outputId = "tab")
          )
        )
      )
    )
  )
)

server <- function(input, output, session) {
  output$tab <- renderDataTable(mtcars)
}

shinyApp(ui, server)

DT可能不是这里最好的例子，因为它需要一些响应设置（它不考虑框边界，box(width = 6, ...)只画了表格的一半）。