Fusillades de masse : ajouter des entrées

Les fusillades de masse font l’objet de vifs débats aux États‑Unis. Une base de données publique des fusillades de masse depuis 1982 a été mise à disposition par Mother Jones, une organisation à but non lucratif. Au cours des trois prochains exercices, vous allez créer une application Shiny pour explorer ces événements sur une carte interactive.

Dans cet exercice, vous allez ajouter un curseur pour filtrer selon le nombre de fatalities et un sélecteur d’intervalle de dates pour filtrer sur une plage de dates. Votre application devrait ressembler à l’image de cette capture d’écran.

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

Nous avons déjà chargé le jeu de données mass_shootings et les packages shiny, dplyr et leaflet.

Cet exercice fait partie du cours

<cours>Créer des applications web avec Shiny en R</cours>

Voir le cours

Instructions de l’exercice

Ajoutez un curseur nommé nb_fatalities pour filtrer le jeu de données mass_shootings sur le nombre de victimes mortelles.
Ajoutez un sélecteur d’intervalle de dates nommé date_range pour filtrer sur une plage de dates.

Exercice interactif pratique

Essayez cet exercice en complétant ce code d’exemple.

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)

Modifier et exécuter le code