Atacuri în masă: adaugă inputuri

Atacurile în masă reprezintă un subiect de intensă dezbatere în Statele Unite. Organizația non-profit Mother Jones a pus la dispoziție o bază de date publică cu atacurile în masă petrecute începând din 1982. În următoarele trei exerciții, vei construi o aplicație Shiny pentru a explora aceste incidente pe o hartă interactivă.

În acest exercițiu, vei adăuga un slider input pentru a filtra după numărul de fatalities (victime) și un input pentru interval de date, cu care să filtrezi după o perioadă de timp. Aplicația ta ar trebui să arate ca în captura de ecran de mai jos.

O aplicație cu o hartă interactivă a SUA și controale pentru selectarea unui interval de date și a numărului de victime

Setul de date mass_shootings și pachetele shiny, dplyr și leaflet sunt deja încărcate.

Acest exercițiu face parte din cursul

Crearea aplicațiilor web cu Shiny în R

Vezi cursul

Instrucțiuni pentru exercițiu

Adaugă un slider input numit nb_fatalities pentru a filtra setul de date mass_shootings după numărul de victime.
Adaugă un input pentru interval de date numit date_range, cu care să filtrezi după o perioadă de timp.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

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)

Editează și rulează codul