# NOT RUN {
if(interactive()){
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "updateF7Slider"),
f7Card(
f7Button(inputId = "update", label = "Update slider"),
f7Slider(
inputId = "obs",
label = "Range values",
max = 500,
min = 0,
step = 1,
color = "deeppurple",
value = c(50, 100)
),
verbatimTextOutput("test")
)
)
),
server = function(input, output, session) {
output$test <- renderPrint({input$obs})
observeEvent(input$update, {
updateF7Slider(
inputId = "obs",
value = c(1, 5),
min = 0,
scaleSteps = 10,
scaleSubSteps = 5,
step = 0.1,
max = 10,
color = "teal"
)
})
}
)
}
# }
Run the code above in your browser using DataLab