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) }