shinyMobile (version 0.1.0)

f7Slider: Create a f7 slider

Description

Create a f7 slider

Usage

f7Slider(
  inputId,
  label,
  min,
  max,
  value,
  step = NULL,
  scale = FALSE,
  vertical = FALSE
)

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.

vertical

Whether to apply a vertical display. FALSE by default. Does not work yet.

Examples

# NOT RUN {
if(interactive()){
 library(shiny)
 library(shinyMobile)

 shiny::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,
       scale = TRUE
      ),
      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)

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

# }