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

<Kurs>Webanwendungen mit Shiny in R entwickeln</Kurs>

Kurs ansehen

Übungsanweisungen

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 praktische Übung

Versuche dich an dieser Übung, indem du diesen Beispielcode vervollständigst.

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