Sparatorie di massa: aggiungi input

Le sparatorie di massa sono state al centro di un intenso dibattito negli Stati Uniti. Un database pubblico delle sparatorie di massa dal 1982 è stato messo a disposizione da Mother Jones, un'organizzazione non profit. Nei prossimi tre esercizi, costruirai un'app Shiny per esplorare queste sparatorie su una mappa interattiva.

In questo esercizio, aggiungerai uno slider di input per filtrare in base a fatalities e un input per l'intervallo di date per filtrare su un range di date. La tua app dovrebbe somigliare all' immagine in questo screenshot.

Un'app con una mappa interattiva degli Stati Uniti e controlli per selezionare un intervallo di date e il numero di vittime

Abbiamo già caricato il dataset mass_shootings e i pacchetti shiny, dplyr e leaflet.

Questo esercizio fa parte del corso

Creare applicazioni web con Shiny in R

Visualizza corso

Istruzioni dell'esercizio

Aggiungi uno slider di input chiamato nb_fatalities per filtrare il dataset mass_shootings in base al numero di vittime.
Aggiungi un input di intervallo di date chiamato date_range per filtrare su un range di date.

esercizio interattivo pratico

Prova questo esercizio completando questo codice di esempio.

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)

Modifica ed esegui il codice