bulma carousel

Create a carousel https://wikiki.github.io/components/carousel/.

bulmaCarousel(..., autoplay = FALSE, navigation = NULL)

Arguments

...

Slot for bulmaCarouselItem.

autoplay

FALSE by default. If TRUE, the carousel automatically change its content.

navigation

Where to display the navigations arrow : centered or overlay. If NULL, arrows are at the bottom and more spaced.

Author

David Granjon, dgranjon@ymail.com

Examples

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)

}