# NOT RUN {
if(interactive()){
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7Picker"),
f7Picker(
inputId = "mypicker",
placeholder = "Some text here!",
label = "Picker Input",
choices = c('a', 'b', 'c')
),
textOutput("pickerval")
)
),
server = function(input, output) {
output$pickerval <- renderText(input$mypicker)
}
)
}
# }
Run the code above in your browser using DataLab