Building Web Applications with Shiny in R
Kaelen Medeiros
Data Scientist
Age > 0
server <- function(input, output, session) {
output$age <- renderTable({
validate(
need(input$age != "", "Be sure to select an age.")
)
mental_health_survey %>%
summarize(avg_age = mean(Age))
})
}

shinyWidgetsGallery()

Building Web Applications with Shiny in R