大規模槍擊事件：加入輸入元件

在美國，大規模槍擊事件一直是高度關注的議題。非營利組織 Mother Jones 提供了一個自 1982 年起的大規模槍擊事件公開資料庫。接下來的 3 個練習中，你將建立一個 Shiny 應用程式，在互動地圖上探索這些事件。

在這個練習中，你要加入一個滑桿輸入，用來依 fatalities（死亡人數）篩選，並加入一個日期區間輸入，用來依日期範圍篩選。你的應用程式應該與螢幕截圖中的畫面相似。

一個含有美國互動地圖的應用程式，並有可選擇日期區間與死亡人數的控制項

我們已經載入資料集 mass_shootings，以及套件 shiny、dplyr 和 leaflet。

本練習屬於課程

使用 R 的 Shiny 建立網頁應用程式

檢視課程

練習說明

加入一個名為 nb_fatalities 的滑桿輸入，用來依死亡人數篩選資料集 mass_shootings。
加入一個名為 date_range 的日期區間輸入，用來依日期範圍篩選。

動手互動練習

試著完成這個範例程式碼，體驗一下這個練習。

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)

編輯並執行程式碼