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, kursun bir parçasıdır

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

Kursa Göz Atın

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ı etkileşimli egzersiz

Bu egzersizi bu örnek kodu tamamlayarak deneyin.

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