Tiros em massa: adicionar entradas

Tiros em massa têm sido tema de intensa discussão nos Estados Unidos. Um banco de dados público de tiroteios em massa desde 1982 foi disponibilizado pela Mother Jones, uma organização sem fins lucrativos. Nos próximos três exercícios, você vai construir um app Shiny para explorar esses eventos em um mapa interativo.

Neste exercício, você vai adicionar um controle deslizante para filtrar fatalities e um controle de intervalo de datas para filtrar por um período. Seu app deve se parecer com a imagem nesta captura de tela.

An app with an interactive map of the US and controls to select a date range and number of fatalities

Nós já carregamos o conjunto de dados mass_shootings e os pacotes shiny, dplyr e leaflet.

Este exercício faz parte do curso

Construindo Aplicações Web com Shiny em R

Ver curso

Instruções do exercício

Adicione um controle deslizante chamado nb_fatalities para filtrar o conjunto de dados mass_shootings pelo número de fatalidades.
Adicione um controle de intervalo de datas chamado date_range para filtrar por um período de datas.

Exercício interativo prático

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

ui <- bootstrapPage(
  theme = shinythemes::shinytheme('simplex'),
  leaflet::leafletOutput('map', height = '100%', width = '100%'),
  absolutePanel(top = 10, right = 10, id = 'controls',
    # CODE BELOW: Add slider input named nb_fatalities
    
    # CODE BELOW: Add date range input named date_range
    
  ),
  tags$style(type = "text/css", "
    html, body {width:100%;height:100%}     
    #controls{background-color:white;padding:20px;}
  ")
)

server <- function(input, output, session) {
  output$map <- leaflet::renderLeaflet({
    leaflet() %>% 
      addTiles() %>%
      setView( -98.58, 39.82, zoom = 5) %>% 
      addTiles()
  })
}

shinyApp(ui, server)

Editar e executar o código