View source: R/bulma-carousel.R
bulmaCarousel | R Documentation |
Create a carousel https://wikiki.github.io/components/carousel/.
bulmaCarousel(..., autoplay = FALSE, navigation = NULL)
... |
Slot for |
autoplay |
|
navigation |
Where to display the navigations arrow : |
David Granjon, dgranjon@ymail.com
if (interactive()) {
library(shiny)
ui <- bulmaPage(
theme = "dark",
bulmaContainer(
bulmaCarousel(
autoplay = TRUE, navigation = "overlay",
bulmaCarouselItem(
background = TRUE, active = TRUE,
src = "https://wikiki.github.io/images/merry-christmas.jpg",
title = "Merry Christmas", url = NULL, url_text = NULL
),
bulmaCarouselItem(
background = TRUE, active = FALSE,
src = "https://wikiki.github.io/images/singer.jpg",
title = "Original Gift: Offer a song with",
url = "https://lasongbox.com", url_text = "La Song Box"
),
bulmaCarouselItem(
background = TRUE, active = FALSE,
src = "https://wikiki.github.io/images/sushi.jpg",
title = "Sushi time", url = NULL, url_text = NULL
),
bulmaCarouselItem(
background = TRUE, active = FALSE,
src = "https://wikiki.github.io/images/life.jpg",
title = "Life", url = NULL, url_text = NULL
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui = ui, server = server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.