大规模枪击事件：添加输入控件

在美国，大规模枪击事件一直是广受关注的话题。非营利组织 Mother Jones 提供了自 1982 年以来的大规模枪击事件公共数据库。接下来的 3 个练习中，您将构建一个 Shiny 应用，在交互式地图上探索这些事件。

本练习中，您将添加一个滑块输入用于按 fatalities（死亡人数）筛选，以及一个日期范围输入用于按日期范围筛选。您的应用应与截图中的示例类似。

一个带有美国交互式地图，并可选择日期范围和死亡人数的应用

我们已经为您加载了数据集 mass_shootings，以及 shiny、dplyr 和 leaflet 包。

本练习是课程的一部分

使用 R 构建 Shiny Web 应用

查看课程

练习说明

添加一个名为 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)

编辑并运行代码