How can I place a box() exactly in the middle of shinydashboard body height and stuck to the most left side of the body next to the sidebar?

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)