如何在闪亮的应用程序用户界面中制作一个盒子

Question

在使用shinythems库时，我试图在我闪亮的应用程序中有一个盒子：

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

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

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

shinyApp(ui, server)

但这不像我所期望的那样有效！

​

我希望能得到这样的东西：

​

​

我也尝试了titlePanel，但它没有工作！

Answer 1

我不相信你能把闪亮的fluidPage，闪烁的主题和来自shinydashboard的元素混合在一起。要使box正常工作，它需要shinydashboard 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, ...)只绘制了表的一半以上)。

​

​