Description Usage Arguments Details Author(s) Examples
Add sections and slides.
1 2 3 4 5 6 7 8 9 10 11 | 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.
John Coene, jcoenep@gmail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | 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)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.