Fusillades de masse : afficher l’aide
Il est toujours utile de fournir davantage de contexte aux utilisateurs sur votre application. Une façon de le faire consiste à ajouter un bouton About à l’application et à afficher le contexte dans une boîte de dialogue modale.
C’est exactement ce que nous allons faire dans cet exercice. Votre application ressemblera à l’image de cette capture d’écran lorsque l’utilisateur cliquera sur le bouton "About".
Rappelez-vous que vous pouvez afficher le texte 'About' dans une boîte de dialogue modale à l’aide de l’extrait :
showModal(modalDialog("About"))
Cet exercice fait partie du cours
<cours>Créer des applications web avec Shiny en R</cours>Instructions de l’exercice
- UI : ajoutez un bouton d’action nommé
show_about. - Server : utilisez
observeEventpour déclencher l’affichage d’une boîte de dialogue modale avecshowModal(modalDialog(text_about, title = 'About')).
Exercice interactif pratique
Essayez cet exercice en complétant ce code d’exemple.
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"
),
# CODE BELOW: Add an action button named show_about
),
tags$style(type = "text/css", "
html, body {width:100%;height:100%}
#controls{background-color:white;padding:20px;}
")
)
server <- function(input, output, session) {
# CODE BELOW: Use observeEvent to display a modal dialog
# with the help text stored in text_about.
output$map <- leaflet::renderLeaflet({
mass_shootings %>%
filter(
date >= input$date_range[1],
date <= input$date_range[2],
fatalities >= input$nb_fatalities
) %>%
leaflet() %>%
setView( -98.58, 39.82, zoom = 5) %>%
addTiles() %>%
addCircleMarkers(
popup = ~ summary, radius = ~ sqrt(fatalities)*3,
fillColor = 'red', color = 'red', weight = 1
)
})
}
shinyApp(ui, server)