Fusillades de masse

Créer des applications web avec Shiny en R

Ramnath Vaidyanathan

VP of Product Research

Explorer les données

Les 10 premières lignes du jeu de données sur les fusillades de masse

Une application affichant des cercles rouges pour chaque fusillade de masse, avec des détails au clic sur le cercle

Ajouter l'UI

ui <- bootstrapPage(
  theme = shinythemes::shinytheme('simplex'),

  leaflet::leafletOutput('map', width = '100%', height = '100%'),

  absolutePanel(top = 10, right = 10, id = 'controls',

    sliderInput('nb_fatalities', 'Minimum Fatalities', 1, 40, 10),

    dateRangeInput('date_range', 'Select Date', "2010-01-01", "2019-12-01"),

  )

  , tags$style(type = "text/css", "
    html, body {width:100%;height:100%}     
    #controls{background-color:white;padding:20px;}
  ")

)

Ajouter une sortie : carte interactive

server <- function(input, output, session){

  output$map <- leaflet::renderLeaflet({

    leaflet() %>%

      addTiles() %>%

      setView( -98.58, 39.82, zoom = 5)

  })

}

Une application avec une carte interactive des États-Unis et des contrôles pour choisir une plage de dates et un nombre de victimes

Ajouter une expression réactive

rval_mass_shootings <- reactive({

  mass_shootings %>%

    filter(

      date >= input$date_range[1],

      date <= input$date_range[2],

      fatalities >= input$nb_fatalities

    )

})

Mettre à jour la sortie : carte interactive

output$map <- leaflet::renderLeaflet({

  rval_mass_shootings() %>%

    leaflet() %>% 
      addTiles() %>%
      setView( -98.58, 39.82, zoom = 5) %>%

      addCircleMarkers(

        popup = ~ summary,

        radius = ~ fatalities,

        fillColor = 'red', color = 'red', weight = 1

      )

})

Une application affichant des cercles rouges pour chaque fusillade de masse, avec des détails au clic sur le cercle

Mettre à jour l'app : bouton d'action et fenêtre modale

ui <- bootstrapPage(
  theme = shinythemes::shinytheme('simplex'),
  leaflet::leafletOutput('map', width = '100%', height = '100%'),
  absolutePanel(top = 10, right = 10, id = 'controls',
    sliderInput('nb_fatalities', 'Minimum Fatalities', 1, 40, 10),
    dateRangeInput('date_range', 'Select Date', "2010-01-01", "2019-12-01"),

    actionButton('show_about', 'About')

  )
)

server <- function(input, output, session){

  observeEvent(input$show_about, {

    showModal(modalDialog(text_about, title = 'About'))

  })

}

Une application affichant des cercles rouges pour chaque fusillade de masse, avec des détails au clic sur le cercle

Passons à la pratique !

Créer des applications web avec Shiny en R