card add `collapsible` parameter and ability to modify `full_screen` position parameters

if (interactive()) {
  library(shiny)
  library(bs4Dash)

  ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      box(
        title = textOutput("box_state"),
        id = "mybox",
        status = "danger",
        background = "maroon",
        solidHeader = TRUE,
        gradient = TRUE,
        collapsible = TRUE,maximizable = T,
        closable = TRUE,
        plotOutput("plot")
      )
    )
  )

  server <- function(input, output, session) {}

  shinyApp(ui, server)
}

I want to achieve the effect of the picture above.is there any way to do it？

Start by reproducing the provided R example using bs4Dash and compare the current card behavior with the linked screenshot. Locate the card implementation and any existing tests for collapsible and maximizable behavior; done means cards support the requested collapsible parameter and configurable full-screen position parameters.