Penembakan massal: tambahkan input

Penembakan massal menjadi topik diskusi yang intens di Amerika Serikat. Basis data publik tentang penembakan massal sejak 1982 telah disediakan oleh Mother Jones, sebuah organisasi nirlaba. Dalam tiga latihan berikut, Anda akan membangun sebuah aplikasi Shiny untuk mengeksplorasi insiden tersebut pada peta interaktif.

Pada latihan ini, Anda akan menambahkan sebuah slider input untuk memfilter berdasarkan fatalities dan sebuah input rentang tanggal untuk memfilter berdasarkan rentang tanggal. Aplikasi Anda sebaiknya menyerupai gambar pada tangkapan layar ini.

An app with an interactive map of the US and controls to select a date range and number of fatalities

Kami telah memuat himpunan data mass_shootings, serta paket shiny, dplyr, dan leaflet.

Latihan ini adalah bagian dari kursus

Membangun Aplikasi Web dengan Shiny di R

Lihat Kursus

Petunjuk latihan

Tambahkan slider input bernama nb_fatalities untuk memfilter himpunan data mass_shootings berdasarkan jumlah korban jiwa.
Tambahkan input rentang tanggal bernama date_range untuk memfilter berdasarkan rentang tanggal.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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)

Edit dan Jalankan Kode