server <- function(input, output, session) {
  output$age <- renderTable({
    validate(
      need(input$age != "", "연령을 선택하십시오.")
    )

    mental_health_survey %>%
      summarize(avg_age = mean(Age))
  })
}