data-raw/data_prep.r

library(devtools)
library(st)
library(sf)
## Import data
Jan13 <- read.csv("2013 January.csv")
Feb13 <- read.csv("2013 February.csv")
Mar13 <- read.csv("2013 March.csv")
Apr13 <- read.csv("2013 April.csv")
May13 <- read.csv("2013 May.csv")
Jun13 <- read.csv("2013 June.csv")
Jul13 <- read.csv("2013 July.csv")
Aug13 <- read.csv("2013 August.csv")
Sep13 <- read.csv("2013 September.csv")
Oct13 <- read.csv("2013 October.csv")
Nov13 <- read.csv("2013 November.csv")
Dec13 <- read.csv("2013 December.csv")
Jan14 <- read.csv("2014 January.csv")
Feb14 <- read.csv("2014 February.csv")
Mar14 <- read.csv("2014 March.csv")
Apr14 <- read.csv("2014 April.csv")
May14 <- read.csv("2014 May.csv")
Jun14 <- read.csv("2014 June.csv")
Jul14 <- read.csv("2014 July.csv")
Aug14 <- read.csv("2014 August.csv")
Sep14 <- read.csv("2014 September.csv")
Oct14 <- read.csv("2014 October.csv")
Nov14 <- read.csv("2014 November.csv")
Dec14 <- read.csv("2014 December.csv")
Jan15 <- read.csv("2015 January.csv")
Feb15 <- read.csv("2015 February.csv")
Mar15 <- read.csv("2015 March.csv")
Apr15 <- read.csv("2015 April.csv")
May15 <- read.csv("2015 May.csv")
Jun15 <- read.csv("2015 June.csv")
Jul15 <- read.csv("2015 July.csv")
Aug15 <- read.csv("2015 August.csv")
Sep15 <- read.csv("2015 September.csv")
Oct15 <- read.csv("2015 October.csv")
Nov15 <- read.csv("2015 November.csv")
Dec15 <- read.csv("2015 December.csv")
Jan16 <- read.csv("2016 January.csv")
Feb16 <- read.csv("2016 February.csv")
Mar16 <- read.csv("2016 March.csv")
Apr16 <- read.csv("2016 April.csv")
May16 <- read.csv("2016 May.csv")
Jun16 <- read.csv("2016 June.csv")
Jul16 <- read.csv("2016 July.csv")
Aug16 <- read.csv("2016 August.csv")
Sep16 <- read.csv("2016 September.csv")
Oct16 <- read.csv("2016 October.csv")
Nov16 <- read.csv("2016 November.csv")
Dec16 <- read.csv("2016 December.csv")
Jan17 <- read.csv("2017 January.csv")
Feb17 <- read.csv("2017 February.csv")
Mar17 <- read.csv("2017 March.csv")
Apr17 <- read.csv("2017 April.csv")
May17 <- read.csv("2017 May.csv")
Jun17 <- read.csv("2017 June.csv")
Jul17 <- read.csv("2017 July.csv")
Aug17 <- read.csv("2017 August.csv")
Sep17 <- read.csv("2017 September.csv")
Oct17 <- read.csv("2017 October.csv")
Nov17 <- read.csv("2017 November.csv")
Dec17 <- read.csv("2017 December.csv")
Jan18 <- read.csv("2018 January.csv")
Feb18 <- read.csv("2018 February.csv")
Mar18 <- read.csv("2018 March.csv")
Apr18 <- read.csv("2018 April.csv")
May18 <- read.csv("2018 May.csv")
Jun18 <- read.csv("2018 June.csv")
Jul18 <- read.csv("2018 July.csv")
Aug18 <- read.csv("2018 August.csv")
Sep18 <- read.csv("2018 September.csv")
Oct18 <- read.csv("2018 October.csv")
Nov18 <- read.csv("2018 November.csv")
Dec18 <- read.csv("2018 December.csv")
Jan19 <- read.csv("2019 January.csv")
Feb19 <- read.csv("2019 February.csv")
Mar19 <- read.csv("2019 March.csv")
Apr19 <- read.csv("2019 April.csv")
May19 <- read.csv("2019 May.csv")
Jun19 <- read.csv("2019 June.csv")
Jul19 <- read.csv("2019 July.csv")
Aug19 <- read.csv("2019 August.csv")
Sep19 <- read.csv("2019 September.csv")
Oct19 <- read.csv("2019 October.csv")
Nov19 <- read.csv("2019 November.csv")
Dec19 <- read.csv("2019 December.csv")
Jan20 <- read.csv("2020 January.csv")
Feb20 <- read.csv("2020 February.csv")
Mar20 <- read.csv("2020 March.csv")
Apr20 <- read.csv("2020 April.csv")
May20 <- read.csv("2020 May.csv")
Jun20 <- read.csv("2020 June.csv")
Jul20 <- read.csv("2020 July.csv")
Aug20 <- read.csv("2020 August.csv")
Sep20 <- read.csv("2020 September.csv")
Oct20 <- read.csv("2020 October.csv")
Nov20 <- read.csv("2020 November.csv")
Dec20 <- read.csv("2020 December.csv")
Jan21 <- read.csv("2021 January.csv")
Feb21 <- read.csv("2021 February.csv")
Mar21 <- read.csv("2021 March.csv")
Apr21 <- read.csv("2021 April.csv")
May21 <- read.csv("2021 May.csv")
Jun21 <- read.csv("2021 June.csv")
Jul21 <- read.csv("2021 July.csv")
Aug21 <- read.csv("2021 August.csv")
Sep21 <- read.csv("2021 September.csv")
Oct21 <- read.csv("2021 October.csv")
Nov21 <- read.csv("2021 November.csv")
Dec21 <- read.csv("2021 December.csv")
Jan22 <- read.csv("2022 January.csv")
Feb22 <- read.csv("2022 February.csv")
Mar22 <- read.csv("2022 March.csv")
Apr22 <- read.csv("2022 April.csv")
May22 <- read.csv("2022 May.csv")
Jun22 <- read.csv("2022 June.csv")
Jul22 <- read.csv("2022 July.csv")
Aug22 <- read.csv("2022 August.csv")
Sep22 <- read.csv("2022 September.csv")
Oct22 <- read.csv("2022 October.csv")
Nov22 <- read.csv("2022 November.csv")
Dec22 <- read.csv("2022 December.csv")
chitracts <- st_read("geo_export_a882c70c-1c03-45e7-9e0b-a36bf7c9b2c0.shp")
download.file(url = "https://data.cityofchicago.org/api/geospatial/ewy2-6yfk?method=export&format=GeoJSON",
              destfile = "chicago-boundary.geojson")

chib <- st_read(dsn= "chicago-boundary.geojson") # Chicago boundary shapefile
areas <- read.csv("areas.csv")

## Add data files to project
use_data(Jan13,overwrite=TRUE)
use_data(Feb13,overwrite=TRUE)
use_data(Mar13,overwrite=TRUE)
use_data(Apr13,overwrite=TRUE)
use_data(May13,overwrite=TRUE)
use_data(Jun13,overwrite=TRUE)
use_data(Jul13,overwrite=TRUE)
use_data(Aug13,overwrite=TRUE)
use_data(Sep13,overwrite=TRUE)
use_data(Oct13,overwrite=TRUE)
use_data(Nov13,overwrite=TRUE)
use_data(Dec13,overwrite=TRUE)
use_data(Jan14,overwrite=TRUE)
use_data(Feb14,overwrite=TRUE)
use_data(Mar14,overwrite=TRUE)
use_data(Apr14,overwrite=TRUE)
use_data(May14,overwrite=TRUE)
use_data(Jun14,overwrite=TRUE)
use_data(Jul14,overwrite=TRUE)
use_data(Aug14,overwrite=TRUE)
use_data(Sep14,overwrite=TRUE)
use_data(Oct14,overwrite=TRUE)
use_data(Nov14,overwrite=TRUE)
use_data(Dec14,overwrite=TRUE)
use_data(Jan15,overwrite=TRUE)
use_data(Feb15,overwrite=TRUE)
use_data(Mar15,overwrite=TRUE)
use_data(Apr15,overwrite=TRUE)
use_data(May15,overwrite=TRUE)
use_data(Jun15,overwrite=TRUE)
use_data(Jul15,overwrite=TRUE)
use_data(Aug15,overwrite=TRUE)
use_data(Sep15,overwrite=TRUE)
use_data(Oct15,overwrite=TRUE)
use_data(Nov15,overwrite=TRUE)
use_data(Dec15,overwrite=TRUE)
use_data(Jan16,overwrite=TRUE)
use_data(Feb16,overwrite=TRUE)
use_data(Mar16,overwrite=TRUE)
use_data(Apr16,overwrite=TRUE)
use_data(May16,overwrite=TRUE)
use_data(Jun16,overwrite=TRUE)
use_data(Jul16,overwrite=TRUE)
use_data(Aug16,overwrite=TRUE)
use_data(Sep16,overwrite=TRUE)
use_data(Oct16,overwrite=TRUE)
use_data(Nov16,overwrite=TRUE)
use_data(Dec16,overwrite=TRUE)
use_data(Jan17,overwrite=TRUE)
use_data(Feb17,overwrite=TRUE)
use_data(Mar17,overwrite=TRUE)
use_data(Apr17,overwrite=TRUE)
use_data(May17,overwrite=TRUE)
use_data(Jun17,overwrite=TRUE)
use_data(Jul17,overwrite=TRUE)
use_data(Aug17,overwrite=TRUE)
use_data(Sep17,overwrite=TRUE)
use_data(Oct17,overwrite=TRUE)
use_data(Nov17,overwrite=TRUE)
use_data(Dec17,overwrite=TRUE)
use_data(Jan18,overwrite=TRUE)
use_data(Feb18,overwrite=TRUE)
use_data(Mar18,overwrite=TRUE)
use_data(Apr18,overwrite=TRUE)
use_data(May18,overwrite=TRUE)
use_data(Jun18,overwrite=TRUE)
use_data(Jul18,overwrite=TRUE)
use_data(Aug18,overwrite=TRUE)
use_data(Sep18,overwrite=TRUE)
use_data(Oct18,overwrite=TRUE)
use_data(Nov18,overwrite=TRUE)
use_data(Dec18,overwrite=TRUE)
use_data(Jan19,overwrite=TRUE)
use_data(Feb19,overwrite=TRUE)
use_data(Mar19,overwrite=TRUE)
use_data(Apr19,overwrite=TRUE)
use_data(May19,overwrite=TRUE)
use_data(Jun19,overwrite=TRUE)
use_data(Jul19,overwrite=TRUE)
use_data(Aug19,overwrite=TRUE)
use_data(Sep19,overwrite=TRUE)
use_data(Oct19,overwrite=TRUE)
use_data(Nov19,overwrite=TRUE)
use_data(Dec19,overwrite=TRUE)
use_data(Jan20,overwrite=TRUE)
use_data(Feb20,overwrite=TRUE)
use_data(Mar20,overwrite=TRUE)
use_data(Apr20,overwrite=TRUE)
use_data(May20,overwrite=TRUE)
use_data(Jun20,overwrite=TRUE)
use_data(Jul20,overwrite=TRUE)
use_data(Aug20,overwrite=TRUE)
use_data(Sep20,overwrite=TRUE)
use_data(Oct20,overwrite=TRUE)
use_data(Nov20,overwrite=TRUE)
use_data(Dec20,overwrite=TRUE)
use_data(Jan21,overwrite=TRUE)
use_data(Feb21,overwrite=TRUE)
use_data(Mar21,overwrite=TRUE)
use_data(Apr21,overwrite=TRUE)
use_data(May21,overwrite=TRUE)
use_data(Jun21,overwrite=TRUE)
use_data(Jul21,overwrite=TRUE)
use_data(Aug21,overwrite=TRUE)
use_data(Sep21,overwrite=TRUE)
use_data(Oct21,overwrite=TRUE)
use_data(Nov21,overwrite=TRUE)
use_data(Dec21,overwrite=TRUE)
use_data(Jan22,overwrite=TRUE)
use_data(Feb22,overwrite=TRUE)
use_data(Mar22,overwrite=TRUE)
use_data(Apr22,overwrite=TRUE)
use_data(May22,overwrite=TRUE)
use_data(Jun22,overwrite=TRUE)
use_data(Jul22,overwrite=TRUE)
use_data(Aug22,overwrite=TRUE)
use_data(Sep22,overwrite=TRUE)
use_data(Oct22,overwrite=TRUE)
use_data(Nov22,overwrite=TRUE)
use_data(Dec22,overwrite=TRUE)
use_data(chitracts,overwrite=TRUE)
use_data(chib,overwrite=TRUE)
use_data(areas,overwrite=TRUE)
ccebra/Divvy-Data documentation built on June 12, 2022, 1:50 a.m.