Mass Shootings: Eingaben hinzufügen

Mass Shootings sind in den USA ein stark diskutiertes Thema. Eine öffentliche Datenbank mit Mass Shootings seit 1982 wurde von Mother Jones, einer gemeinnützigen Organisation, bereitgestellt. In den nächsten drei Übungen baust du eine Shiny-App, um diese Ereignisse auf einer interaktiven Karte zu erkunden.

In dieser Übung fügst du einen Slider hinzu, um nach fatalities zu filtern, sowie eine Datumsbereichs-Eingabe, um nach einem Datumsintervall zu filtern. Deine App sollte dem Bild im Screenshot ähneln.

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

Der Datensatz mass_shootings sowie die Pakete shiny, dplyr und leaflet sind bereits geladen.

Diese Übung ist Teil des Kurses

Webanwendungen mit Shiny in R entwickeln

Kurs anzeigen

Anleitung zur Übung

Füge eine Slider-Eingabe namens nb_fatalities hinzu, um den Datensatz mass_shootings nach der Anzahl der Todesfälle zu filtern.
Füge eine Datumsbereichs-Eingabe namens date_range hinzu, um nach einem Datumsintervall zu filtern.

Interaktive Übung

Vervollständige den Beispielcode, um diese Übung erfolgreich abzuschließen.

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)

Code bearbeiten und ausführen