# NOT RUN {
if(interactive()){
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7Toggle"),
f7Toggle(
inputId = "toggle",
label = "My toggle",
color = "pink",
checked = TRUE
),
verbatimTextOutput("test"),
f7Toggle(
inputId = "toggle2",
label = "My toggle 2"
),
verbatimTextOutput("test2")
)
),
server = function(input, output) {
output$test <- renderPrint(input$toggle)
output$test2 <- renderPrint(input$toggle2)
}
)
}
# }
Run the code above in your browser using DataLab