R/VStack.R

In QuartzSoftwareLLC/shiny.quartz: Component library for quartz software based dashboards

#' vstack
#'
#' A layout component for stacking vertically with gaps.
#' @export
#'
#' @param ... arguments to pass to the flexBox
#' @param sx sx elements to pass to the flexBox as defined in material ui
#' @family layout
#' @examples
#' component_example(VStack(tags$button("hi", "HI"), tags$button("hi", "hi")))
VStack <- function(..., sx = list()) {
    shiny.mui::Box(
        sx = c(sx, list(gap = "10px", display = "flex", flexDirection = "column")), ...
    )
}