Strzelaniny masowe: dodawanie danych wejściowych

Strzelaniny masowe to temat intensywnych dyskusji w Stanach Zjednoczonych. Publiczna baza danych strzelanin masowych od 1982 roku została udostępniona przez organizację non-profit Mother Jones. W ciągu kolejnych trzech ćwiczeń zbudujesz aplikację Shiny, która pozwoli eksplorować te zdarzenia na interaktywnej mapie.

W tym ćwiczeniu dodasz suwak do filtrowania według liczby ofiar śmiertelnych (fatalities) oraz pole zakresu dat do filtrowania według wybranego przedziału czasowego. Twoja aplikacja powinna wyglądać jak na poniższym zrzucie ekranu.

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

Zbiór danych mass_shootings oraz pakiety shiny, dplyr i leaflet zostały już wczytane.

To ćwiczenie jest częścią kursu

Tworzenie aplikacji internetowych z Shiny w R

Zobacz kurs

Instrukcje do ćwiczenia

Dodaj suwak (sliderInput) o nazwie nb_fatalities, który będzie filtrował zbiór danych mass_shootings według liczby ofiar śmiertelnych.
Dodaj pole zakresu dat (dateRangeInput) o nazwie date_range, które będzie filtrować dane według wybranego przedziału czasowego.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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)

Edytuj i uruchom kod