#' Create multi sections
#'
#' Create multi page sides; left and right.
#'
#' @param align text alignment passed to \code{CSS}, takes \code{left}, \code{right} or \code{center}.
#' @param ... any element.
#'
#' @details Only use one of each in \code{\link{multiPage}}.
#'
#' @examples
#' if(interactive()){
#' library(shiny)
#'
#' ui <- multiPage(
#' multiLeft(
#' multiSection(
#' align = "right",
#' h1("Left")
#' ),
#' multiSection(
#' align = "center",
#' h1("Left Again")
#' )
#' ),
#' multiRight(
#' multiSection(
#' align = "left",
#' h1("Right")
#' ),
#' multiSection(
#' align = "center",
#' h1("Right again")
#' )
#' )
#' )
#'
#' server <- function(input, output){}
#'
#' shinyApp(ui, server)
#' }
#' @author John Coene, \email{jcoenep@@gmail.com}
#'
#' @rdname sides
#' @export
multiLeft <- function(..., align = NULL){
div <- shiny::tags$div(
class = "ms-left",
...
)
if(!is.null(align))
div <- shiny::tagAppendAttributes(div, style = paste0("text-align: ", align, ";"))
div
}
#' @rdname sides
#' @export
multiRight <- function(..., align = NULL){
div <- shiny::tags$div(
class = "ms-right",
...
)
if(!is.null(align))
div <- shiny::tagAppendAttributes(div, style = paste0("text-align: ", align, ";"))
div
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.