총기 난사: 입력 위젯 추가

미국에서는 대규모 총기 난사 사건이 큰 논쟁거리였습니다. 1982년 이후의 대규모 총기 난사 사건에 대한 공개 데이터베이스가 비영리 단체인 Mother Jones에서 제공되고 있어요. 앞으로 세 개의 연습 문제에서, 이러한 사건을 인터랙티브 지도에서 탐색하는 Shiny 앱을 만들어 보겠습니다.

이번 연습에서는 fatalities로 필터링하는 슬라이더 입력과 날짜 범위로 필터링하는 날짜 범위 입력을 추가할 거예요. 결과 앱은 스크린샷의 이미지와 비슷해야 합니다.

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

데이터셋 mass_shootings와 패키지 shiny, dplyr, leaflet는 이미 불러와 두었습니다.

이 연습은 강의의 일부입니다

R로 Shiny 웹 애플리케이션 만들기

강의 보기

연습 안내

사망자 수를 기준으로 데이터셋 mass_shootings를 필터링할 수 있도록 nb_fatalities라는 이름의 슬라이더 입력을 추가하세요.
날짜 범위를 기준으로 필터링할 수 있도록 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)

코드 편집 및 실행