Build a Framework7 swiper (like carousel)
f7Swiper( ..., id, spaceBetween = 50, slidePerView = "auto", centered = TRUE, speed = 400 )
... | Slot for f7Slide. |
---|---|
id | Swiper unique id. |
spaceBetween | Space between slides. 50 by default. Only if pagination is TRUE. |
slidePerView | Number of slides at a time. Only if pagination is TRUE. Set to "auto" by default. |
centered | Whether to center slides. Only if pagination is TRUE. |
speed | Slides speed. Numeric. |
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 = "My app", f7SingleLayout( navbar = f7Navbar(title = "f7Swiper"), f7Swiper( id = "my-swiper", f7Slide( timeline ), f7Slide( f7Toggle( inputId = "toggle", label = "My toggle", color = "pink", checked = TRUE ), verbatimTextOutput("test") ) ) ) ), server = function(input, output) { output$test <- renderPrint(input$toggle) } ) }