Experimental "compartment" or container for shiny UI

compartment.R

compartment <- function(title, ...) {
  container_css <- stringr::str_squish(
    "border: 3px solid orange;
    position: relative;
    border-radius: 8px;
    padding-top: 20px;
    font-family: 'Fira Sans', sans-serif;
    margin-top: 25px;
    margin-bottom: 25px;"
  )
  label_css <- stringr::str_squish(
    "font-family: 'Fira Sans', sans-serif;
    font-size: 22px;
    color: white;
    position: absolute;
    top: -10px;
    left: 20px;
    height: 35px;
    background-color: orange;
    border: 3px solid orange;
    text-align: center;
    border-radius: 4px;
    padding-left: 10px;
    padding-right: 10px;"
  )
  
  shiny::tagList(
    shiny::tags$style(shiny::HTML(
      "@import url('https://fonts.googleapis.com/css2?family=Fira+Sans&display=swap');"
    )),
    shiny::tags$div(
      style = container_css,
      shiny::tags$div(
        style = label_css,
        title
      ),
      ...
    )
  )
}

htmltools::browsable(
  fluidPage(
    column(
      width = 12,
      compartment(
        title = "Compartment A",
        fluidPage(
          h3("content here")
        )
      ),
      compartment(
        title = "Compartment B",
        fluidPage(
          h3("content here")
        )
      ),
      compartment(
        title = "Compartment C",
        fluidPage(
          h3("content here"),
          h3("more content here")
        )
      )
    )
  )
)