Add sections and slides.
fullSection(..., menu = NULL, center = FALSE, class = "") fullSlide(..., menu = NULL, center = FALSE) fullSectionImage(..., img, menu = NULL, center = FALSE) fullSlideImage(..., img, menu = NULL, center = FALSE) pageSection(..., menu = NULL, center = FALSE, class = "") pageSectionImage(..., img, menu = NULL, center = FALSE)
... | any element. |
---|---|
menu | menu link. |
center | whether to center text horizontally. |
class | A CSS class. |
img | path to image. |
fullSectionImage
and fullSlideImage
do not work in RStudio viewer, open in browser.
if(interactive()){ library(shiny) ui <- fullPage( center = TRUE, opts = list( sectionsColor = c("#f3f3f3", "#4BBFC3") ), fullSection(h1("First section"), center = TRUE), fullSection( menu = "captureThisSection" ), fullSection( fullSlide(h2("Slide 1")), fullSlideImage( img = paste0( "https://raw.githubusercontent.com/alvarotrigo/", "fullPage.js/master/examples/imgs/bg5.jpg"), h2("Image background") ) ), fullSectionImage( # will not show in viewer, open in browser img = paste0( "https://raw.githubusercontent.com/alvarotrigo/", "fullPage.js/master/examples/imgs/bg2.jpg"), h1("Image background") ) ) server <- function(input, output){ observeEvent(input$captureThisSectionInput, { print("Section # 2 loaded") }) } shinyApp(ui, server) }