Building Web Applications with Shiny in R
Kaelen Medeiros
Data Scientist
Age
> 0server <- 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