shinyMobile (version 1.0.1)

f7Swiper: Framework7 swiper

Description

f7Swiper creates a Framework7 swiper container (like carousel).

Usage

f7Swiper(
  ...,
  id,
  options = list(speed = 400, loop = FALSE, spaceBetween = 50, slidesPerView = "auto",
    centeredSlides = TRUE, navigation = list(nextEl = ".swiper-button-next", prevEl =
    ".swiper-button-prev"), pagination = list(el = ".swiper-pagination", clickable =
    TRUE), scrollbar = list(el = ".swiper-scrollbar", draggable = TRUE))
)

Arguments

...

Slot for f7Slide.

id

Swiper unique id.

options

Other options. Expect a list. See https://swiperjs.com/swiper-api for all available options.

Author

David Granjon,

Examples

if(interactive()){
 library(shiny)
 library(shinyMobile)

 timeline <- f7Timeline(
  sides = TRUE,
  f7TimelineItem(
   "Another text",
   date = "01 Dec",
   card = FALSE,
   time = "12:30",
   title = "Title",
   subtitle = "Subtitle",
   side = "left"
  ),
  f7TimelineItem(
   "Another text",
   date = "02 Dec",
   card = TRUE,
   time = "13:00",
   title = "Title",
   subtitle = "Subtitle"
  ),
  f7TimelineItem(
   "Another text",
   date = "03 Dec",
   card = FALSE,
   time = "14:45",
   title = "Title",
   subtitle = "Subtitle"
  )
 )

 shiny::shinyApp(
   ui = f7Page(
    title = "Swiper",
    f7SingleLayout(
     navbar = f7Navbar(title = "f7Swiper"),
     f7Swiper(
      id = "my-swiper",
      f7Slide(
       timeline
      ),
      f7Slide(
       f7Toggle(
        inputId = "toggle",
        label = "My toggle",
        color = "pink",
        checked = TRUE
       ),
       verbatimTextOutput("test")
      ),
      f7Slide(
       f7Slider(
        inputId = "obs",
        label = "Number of observations",
        max = 1000,
        min = 0,
        value = 100,
        scaleSteps = 5,
        scaleSubSteps = 3,
        scale = TRUE,
        color = "orange",
        labels = tagList(
          f7Icon("circle"),
          f7Icon("circle_fill")
        )
       ),
       plotOutput("distPlot")
      )
     )
    )
   ),
   server = function(input, output) {
    output$test <- renderPrint(input$toggle)
    output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
   })
   }
 )
}