R/fullContainer.R

In RinteRface/fullPage: Three Families of Functions for Three Different Single Page 'Shiny' Apps

#' Add containers
#'
#' Add a container.
#'
#' @param ... any element.
#' @param class Class of element.
#'
#' @details Pass within your grid, sections or slides.
#'
#' @examples
#' if(interactive()){
#'   library(shiny)
#'
#'   ui <- fullPage(
#'     center = TRUE,
#'     fullSection(
#'       h1("Containers")
#'     ),
#'     fullSection(
#'       h1("Without container"),
#'       plotOutput("plot1")
#'     ),
#'     fullSection(
#'       fullContainer(
#'         h1("With container"),
#'         plotOutput("plot2"),
#'         pre(
#'           code(
#'             "fullContainer()"
#'           )
#'         )
#'       )
#'     )
#'   )
#'
#'   server <- function(input, output){
#'     output$plot1 <- renderPlot({
#'       plot(mtcars$wt, mtcars$mpg)
#'     })
#'
#'     output$plot2 <- renderPlot({
#'       plot(mtcars$wt, mtcars$mpg)
#'     })
#'   }
#'
#'   shinyApp(ui, server)
#' }
#'
#' @author John Coene, \email{jcoenep@@gmail.com}
#'
#' @rdname container
#' @export
fullContainer <- function(..., class = ""){
  cl <- paste("container", class)
  shiny::tags$div(
    class = cl,
    ...
  )
}

#' @rdname container
#' @export
pageContainer <- fullContainer

#' @rdname container
#' @export
multiContainer <- fullContainer