设置一个box()在shinydashboard主体中的位置

Question

如何将

box()

恰好放置在闪亮仪表板主体高度的中间，并粘在侧边栏旁边的主体最左侧？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Connected Boxes"),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      # Empty column to offset box to the center
      column(1, offset = 0),
      box(
        title = "Middle Box",
        width = 1,
        height = 200,
        style = "background-color: #f9f9f9; border-color: #dddddd;"
      )
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)

Answer 1

解决方案是将列大小从 1 调整为 6，如以下代码所示：

column(6,offset = 0)

请注意，

fluidRow()

中的列的组合大小不能超过12。这意味着如果您想在仪表板主体中包含3列，它们只能如下：

fluidRow(
column(4,. . .)
column(4,. . .)
column(4,. . .) 
)

我希望这就是您正在寻找的！