In cschwab1/chicagodatapackage: Contains basic Chicago-relevant datasets, primarily sf objects.

knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(leaflet)
library(spData)
library(dplyr)

# Define UI for application that filters map points based on year and minimum population
ui <- fluidPage(

  # Application title
  titlePanel("CPS Attendance"),

  # Sidebar with a slider input for year, numeric input for population 
  sidebarLayout(
    sidebarPanel(

      sliderInput("Student_Attendance_Year_1_Pct",
                  "percent attendance",
                  min = 0,
                  max = 100,
                  step = 10,
                  sep = "",
                  value = .5),

      numericInput("pop_min",
                   "Minimum Population (in millions)",
                   min = 1,
                   max = 20,
                   value = 10)
    ),

    # Show the map and table
    mainPanel(
      plotOutput("distPlot"),
      leafletOutput("map"),
      dataTableOutput("table")
    )
  )
)

# Define server logic required to draw a map and table
server <- function(input, output) {


  output$map <- renderLeaflet({

    pop_by_year <- filter(urban_agglomerations, 
                          year == input$year,
                          population_millions > input$pop_min)

    leaflet(data = pop_by_year) %>%
      addTiles() %>%
      addMarkers()
  })

  output$table <- renderDataTable({

    pop_by_year <- filter(urban_agglomerations, 
                          year == input$year,
                          population_millions > input$pop_min)

    pop_by_year

  })
}

# Run the application 
shinyApp(ui = ui, server = server)

ui <- fluidPage(

  # Application title
  titlePanel("CPS Tier Map"),

  # Sidebar with a slider input for year, numeric input for population 
  sidebarLayout(
    sidebarPanel(

      sliderInput("year",
                  "Year",
                  min = 1950,
                  max = 2030,
                  step = 5,
                  sep = "",
                  value = 1950),

      numericInput("pop_min",
                   "Minimum Population (in millions)",
                   min = 1,
                   max = 20,
                   value = 10)
    ),

    # Show the map and table
    mainPanel(
      plotOutput("distPlot"),
      leafletOutput("map"),
      dataTableOutput("table")
    )
  )
)

# Define server logic required to draw a map and table
server <- function(input, output) {


  output$map <- renderLeaflet({

    pop_by_year <- filter(urban_agglomerations, 
                          year == input$year,
                          population_millions > input$pop_min)

    leaflet(data = pop_by_year) %>%
      addTiles() %>%
      addMarkers()
  })

  output$table <- renderDataTable({

    pop_by_year <- filter(urban_agglomerations, 
                          year == input$year,
                          population_millions > input$pop_min)

    pop_by_year

  })
}

# Run the application 
shinyApp(ui = ui, server = server)

cschwab1/chicagodatapackage documentation built on July 11, 2019, 6:36 p.m.