Střelby: přidání vstupů

Hromadné střelby jsou v USA tématem intenzivních diskusí. Nezisková organizace Mother Jones zpřístupnila veřejnou databázi hromadných střeleb od roku 1982. V následujících třech cvičeních sestavíš Shiny aplikaci, která tato data zobrazí na interaktivní mapě.

V tomto cvičení přidáš slider pro filtrování podle počtu obětí (fatalities) a vstup pro výběr datumového rozsahu. Tvoje aplikace by měla vypadat jako na tomto snímku.

Aplikace s interaktivní mapou USA a ovládacími prvky pro výběr datumového rozsahu a počtu obětí

Dataset mass_shootings a balíčky shiny, dplyr a leaflet jsou již načtené.

Toto cvičení je součástí kurzu

Tvorba webových aplikací se Shiny v R

Zobrazit kurz

Pokyny k cvičení

Přidej slider input s názvem nb_fatalities pro filtrování datasetu mass_shootings podle počtu obětí.
Přidej vstup pro datumový rozsah s názvem date_range pro filtrování podle rozsahu dat.

Interaktivní cvičení na vyzkoušení si v praxi

Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.

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)

Upravit a spustit kód