Group 2: Exercise 3 (App)

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)
}