# NOT RUN {
if (interactive()) {
library(shiny)
library(shinyMobile)
shinyApp(
ui = f7Page(
preloader = FALSE,
color = "pink",
title = "My app",
f7SingleLayout(
navbar = f7Navbar(title = "f7DatePicker"),
f7DatePicker(
inputId = "date",
label = "Choose a date",
value = "2019-08-24"
),
"The selected date is",
textOutput("selectDate")
)
),
server = function(input, output, session) {
output$selectDate <- renderText(input$date)
}
)
}
# }
Run the code above in your browser using DataLab