bulmaCarousel: bulma carousel

Description Usage Arguments Author(s) Examples

View source: R/bulma-carousel.R

Description

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

Usage

1
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(s)

David Granjon, dgranjon@ymail.com

Examples

 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
39
40
41
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)

}

JohnCoene/shinybulma documentation built on Oct. 17, 2020, 8:57 p.m.