Create a f7 slider

Create a f7 slider

f7Slider(
  inputId,
  label,
  min,
  max,
  value,
  step = 1,
  scale = FALSE,
  scaleSteps = 5,
  scaleSubSteps = 0,
  vertical = FALSE,
  verticalReversed = FALSE,
  labels = NULL,
  color = NULL,
  noSwipping = TRUE
)

Arguments

inputId	Slider input id.
label	Slider label.
min	Slider minimum range.
max	Slider maximum range.
value	Slider value or a vector containing 2 values (for a range).
step	Slider increase step size.
scale	Slider scale.
scaleSteps	Number of scale steps.
scaleSubSteps	Number of scale sub steps (each step will be divided by this value).
vertical	Whether to apply a vertical display. FALSE by default.
verticalReversed	Makes vertical range slider reversed (vertical must be also enabled). FALSE by default.
labels	Enables additional label around range slider knob. List of 2 f7Icon expected.
color	See getF7Colors for valid colors.
noSwipping	Prevent swiping when slider is manipulated in a f7TabLayout.

Note

labels option only works when vertical is FALSE!

Examples

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

 shinyApp(
   ui = f7Page(
    title = "My app",
    f7SingleLayout(
     navbar = f7Navbar(title = "f7Slider"),
     f7Card(
      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")
       )
      ),
      verbatimTextOutput("test")
     ),
     plotOutput("distPlot")
    )
   ),
   server = function(input, output) {
    output$test <- renderPrint({input$obs})
    output$distPlot <- renderPlot({
     hist(rnorm(input$obs))
    })
   }
 )
}

# Create a range
if(interactive()){
 library(shiny)
 library(shinyMobile)

 shinyApp(
   ui = f7Page(
    title = "My app",
    f7SingleLayout(
     navbar = f7Navbar(title = "f7Slider Range"),
     f7Card(
      f7Slider(
       inputId = "obs",
       label = "Range values",
       max = 500,
       min = 0,
       value = c(50, 100),
       scale = FALSE
      ),
      verbatimTextOutput("test")
     )
    )
   ),
   server = function(input, output) {
    output$test <- renderPrint({input$obs})
   }
 )
}