是否可以将数据表放在shinydashboard的侧栏中

Question

我希望我的侧栏中有一个反应表，类似于显示的图片。这可能吗？谢谢。

Answer 1

在tableOutput内使用dashboardSidebar;您可以根据需要添加表格。

请参阅以下示例：

library(shiny)
library(shinydashboard)

if(interactive()){
  shinyApp(
    ui <- dashboardPage(
      dashboardHeader(title = "My Dashboard"),
      dashboardSidebar(width = "300px",
                       br(),
                       br(),
                       tableOutput("data1")),
      dashboardBody()
    ),

    server = function(input, output, session){
      output$data1 <- renderTable({
        head(mtcars[,1:4])
      })
    }
  )
}