Create multi sections

Create multi sections.

multiSection(..., menu = NULL, align = "none")

multiSectionImage(..., img, side, menu = NULL, align = "none")

Arguments

...	any element.
menu	named vector of menu links.
align	text alignment, takes left, right or, center, defaults to none.
img	path to image.
side	image side.

Examples

if(interactive()){
  library(shiny)

  options <- list(
    sectionsColor = c("#f3f3f3", "#d3d3d3", "#000")
  )

  ui <- multiPage(
    opts = options,
    multiLeft(
      align = "right",
      multiSection(
        h1("multi")
      ),
      multiSection(
        h2("Section ")
      ),
      multiSection(
        h2("Image ")
      )
    ),
    multiRight(
      align = "left",
      multiSection(
        h1("page()")
      ),
      multiSection(
        h2(" 2")
      ),
      multiSectionImage(
        img = "https://alvarotrigo.com/multiScroll/imgs/tiger.jpg",
        side = "right",
        h2("Background")
      )
    )
  )

  server <- function(input, output){}

  shinyApp(ui, server)
}