ymdDateApp <- function() {
ui <- fluidPage(
# User interface for date input
ymdDateUI('date_input', "Birthday")
)
server <- function(input, output, session) {
# Server logic for date input
date_value <- ymdDateServer("date_input" )
}
shinyApp(ui, server)
}