Explore a pesquisa Mental Health in Tech 2014

Sem medo! Neste exercício, você vai construir o app inteiro (menos a mensagem de erro personalizada) de uma vez só!

Neste app, você vai usar as perguntas "Você acha que discutir um problema de saúde mental com seu empregador teria consequências negativas?" (a variável mental_health_consequence) e "Você sente que seu empregador leva saúde mental tão a sério quanto saúde física?" (mental_vs_physical) como entradas de seleção múltipla e, em seguida, exibir um histograma da Age dos respondentes. Para ver as opções dessas variáveis, execute um count() no console.

Lembre-se de que, quando terminar, o app ficará assim (incluindo o gráfico em branco): An app displaying questions from a Mental Health survey

shiny, ggplot2, dplyr e o conjunto de dados mental_health_survey já foram carregados para você.

Este exercício faz parte do curso

Construindo Aplicações Web com Shiny em R

Ver curso

Instruções do exercício

UI:
- Adicione um título apropriado ao app.
- Adicione um checkboxGroupInput(). Inclua um valor padrão no argumento selected.
- Adicione um pickerInput() com o argumento multiple definido como TRUE.
- Adicione um plotOutput() no painel principal.
Server:
- Adicione uma saída que exiba um histograma da Age dos respondentes, filtrado pelas duas entradas.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

ui <- fluidPage(
  # CODE BELOW: Add an appropriate title

  sidebarPanel(
  	# CODE BELOW: Add a checkboxGroupInput

    
    
    
    

  	# CODE BELOW: Add a pickerInput

    
    
    
    
    
  ),
  mainPanel(
	# CODE BELOW: Display the output

  )
)

server <- function(input, output, session) {
  # CODE BELOW: Build a histogram of the age of respondents
  # Filtered by the two inputs

  
  
  
  
  
  
  
}

shinyApp(ui, server)

Editar e executar o código