# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.