data_processing/01_download_data.R

In pachamaltese/chilemaps: Mapas de las Divisiones Politicas y Administrativas de Chile (Maps of the Political and Administrative Divisions of Chile)

# rda dirs ----------------------------------------------------------------

data_dir <- "data"
try(dir.create(data_dir))

# csv dirs ----------------------------------------------------------------

csv_dir <- "data_csv"
try(dir.create(csv_dir))

# raw dirs ----------------------------------------------------------------

raw_dir <- "data_raw"
try(dir.create(raw_dir))

maps_raw_dir <- sprintf("%s/cartografia_censo_2017_oficial", raw_dir)

# topojson dirs -----------------------------------------------------------

topojson_dir <- "data_topojson"
try(dir.create(topojson_dir))

communes_topojson_dir <- sprintf("%s/comunas", topojson_dir)
try(dir.create(communes_topojson_dir))

zones_topojson_dir <- sprintf("%s/zonas", topojson_dir)
try(dir.create(zones_topojson_dir))

# geojson dirs -----------------------------------------------------------

geojson_dir <- "data_geojson"
try(dir.create(geojson_dir))

communes_geojson_dir <- sprintf("%s/comunas", geojson_dir)
try(dir.create(communes_geojson_dir))

zones_geojson_dir <- sprintf("%s/zonas", geojson_dir)
try(dir.create(zones_geojson_dir))

# SUBDERE territorial codes -----------------------------------------------

territorial_codes_url <- "http://www.subdere.gov.cl/sites/default/files/documentos/cut_2018_v03.xls"
territorial_codes_xls <- sprintf("%s/unique_territorial_codes_subdere_sep_06_2018.xls", raw_dir)

download_file(territorial_codes_url, territorial_codes_xls)

# Census data -------------------------------------------------------------

census_data_url <- "http://www.censo2017.cl/wp-content/uploads/2017/12/Cantidad-de-Personas-por-Sexo-y-Edad.xlsx"
census_data_xlsx <- sprintf("%s/census_data_by_sex_and_age.xlsx", raw_dir)

download_file(census_data_url, census_data_xlsx)

census_zone_data_url <- "http://www.censo2017.cl/descargas/microdatos/Censo2017_ManzanaEntidad_CSV.zip"
census_zone_data_zip <- sprintf("%s/census_data_by_zone.zip", raw_dir)

download_file(census_zone_data_url, census_zone_data_zip)