Tiradores múltiples: añade entradas

Los tiroteos masivos han sido un tema de intenso debate en Estados Unidos. Existe una base de datos pública de tiroteos masivos desde 1982 disponible gracias a Mother Jones, una organización sin ánimo de lucro. En los próximos tres ejercicios, vas a crear una app Shiny para explorar estos tiroteos en un mapa interactivo.

En este ejercicio, añadirás un control deslizante para filtrar por fatalities y un selector de rango de fechas para acotar por un intervalo temporal. Tu app debería parecerse a la imagen de esta captura de pantalla.

Una app con un mapa interactivo de EE. UU. y controles para seleccionar un rango de fechas y el número de fallecidos

Ya hemos cargado el conjunto de datos mass_shootings y los paquetes shiny, dplyr y leaflet.

Este ejercicio forma parte del curso

Creación de aplicaciones web con Shiny en R

Ver curso

Instrucciones del ejercicio

Añade una entrada tipo deslizador llamada nb_fatalities para filtrar el conjunto de datos mass_shootings por el número de fallecidos.
Añade una entrada de rango de fechas llamada date_range para filtrar por un intervalo de fechas.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

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)

Editar y ejecutar código