Masskjutningar: lägg till indata

Masskjutningar har länge varit ett ämne för intensiv debatt i USA. Den ideella organisationen Mother Jones har gjort en offentlig databas tillgänglig med masskjutningar sedan 1982. Under de nästa tre övningarna bygger du en Shiny-app för att utforska dessa händelser på en interaktiv karta.

I den här övningen lägger du till en skjutreglage-indata för att filtrera på fatalities och en datumintervall-indata för att filtrera på ett datumintervall. Din app ska likna bilden i skärmbilden nedan.

En app med en interaktiv karta över USA och kontroller för att välja ett datumintervall och antal dödsfall

Datamängden mass_shootings samt paketen shiny, dplyr och leaflet är redan inlästa.

Den här övningen är en del av kursen

Bygg webbapplikationer med Shiny i R

Visa kurs

Övningsinstruktioner

Lägg till en skjutreglage-indata med namnet nb_fatalities för att filtrera datamängden mass_shootings på antalet dödsfall.
Lägg till en datumintervall-indata med namnet date_range för att filtrera på ett datumintervall.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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)

Redigera och kör kod