R/container.R

In InControlofEffects/iceComponents: A set of custom components used in the In Control of Effects application

#' Container
#'
#' Functional component for creating a new app container. Use `page_ui`,
#' to define individual pages.
#'
#' @param ... Shiny UI content
#' @param class optional css classes to apply to the container
#'
#' @examples
#' if (interactive()) {
#'   library(shiny)
#'   library(iceComponents)
#'   ui <- tagList(
#'     use_iceComponents(),
#'     container(
#'       class = "dark-theme",
#'       tags$h1("My Application")
#'     )
#'   )
#'   server <- function(input, output, session) {
#'   }
#'   shinyApp(ui, server)
#' }
#'
#' @export
container <- function(..., class = NULL) {
    css <- "main"
    if (!is.null(class)) css <- paste0(css, " ", class)
    htmltools::tags$main(id = "main", class = css, ...)
}