Silahlı saldırılar: yardımı göster

Uygulaman hakkında kullanıcılara daha fazla bağlam sunmak her zaman faydalıdır. Bunu yapmanın bir yolu, uygulamaya bir About düğmesi ekleyip bağlamı bir modaldialog penceresinde göstermektir.

Bu egzersizde tam olarak bunu yapacağız. Kullanıcı "About" düğmesine tıkladığında uygulaman şuradaki ekran görüntüsüne benzeyecek.

Her toplu silahlı saldırı olayı için kırmızı çemberler gösteren ve çembere tıklanınca ayrıntıları açılan bir uygulama

Aşağıdaki kod parçasını kullanarak 'About' metnini bir modaldialog penceresinde gösterebileceğini unutma:

showModal(modalDialog("About"))

Bu egzersiz

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

kursunun bir parçasıdır

Kursu Görüntüle

Egzersiz talimatları

UI: show_about adında bir eylem düğmesi ekle.
Server: observeEvent kullanarak showModal(modalDialog(text_about, title = 'About')) ile bir modal pencerenin görüntülenmesini tetikle.

Uygulamalı interaktif egzersiz

Bu örnek kodu tamamlayarak bu egzersizi bitirin.

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)

Kodu Düzenle ve Çalıştır