Nothing
## ----setup, echo=FALSE, message=FALSE, warning=FALSE--------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
eval = nzchar(Sys.getenv("COMPILE_VIG"))
)
library(cancensus)
library(dplyr)
# set_cancensus_api_key(<your_api_key>', install = TRUE)
# set_cancensus_cache_path(<local cache path>, install = TRUE)
## ----load_package_cran, echo=TRUE, message=FALSE, warning=FALSE, eval = FALSE----
# install.packages("cancensus")
#
# library(cancensus)
## ----load_package_git, echo=TRUE, message=FALSE, warning=FALSE, eval = FALSE----
# # install.packages("devtools")
# remotes::install_github("mountainmath/cancensus")
#
# library(cancensus)
#
# options(cancensus.api_key = "your_api_key")
# options(cancensus.cache_path = "custom cache path")
## ----install_api_key_and_cache_path, echo=TRUE, message=FALSE, warning=FALSE, eval = FALSE----
# # Only need to install api key can cache path once
# set_cancensus_api_key('<your_api_key>', install = TRUE)
# set_cancensus_cache_path('<local cache path>', install = TRUE)
## ----get_census example, echo=TRUE, warning=FALSE, message=FALSE--------------
# Returns a data frame with data only
census_data <- get_census(dataset='CA21', regions=list(CMA="59933"),
vectors=c("v_CA21_434","v_CA21_435","v_CA21_440"),
level='CSD', use_cache = FALSE, geo_format = NA, quiet = TRUE)
# Returns data and geography as an sf-class data frame
census_data <- get_census(dataset='CA21', regions=list(CMA="59933"),
vectors=c("v_CA21_434","v_CA21_435","v_CA21_440"),
level='CSD', use_cache = FALSE, geo_format = 'sf', quiet = TRUE)
# Returns a SpatialPolygonsDataFrame object with data and geography
census_data <- get_census(dataset='CA21', regions=list(CMA="59933"),
vectors=c("v_CA21_434","v_CA21_435","v_CA21_440"),
level='CSD', use_cache = FALSE, geo_format = 'sp', quiet = TRUE)
## ----list datasets, message=FALSE, warning=FALSE------------------------------
list_census_datasets()
## ----list regions, message=FALSE, warning=FALSE-------------------------------
list_census_regions("CA21")
## ----message=FALSE, warning=FALSE---------------------------------------------
# Retrieves Vancouver and Toronto
list_census_regions('CA21') %>%
filter(level == "CMA", name %in% c("Vancouver","Toronto"))
census_data <- get_census(dataset='CA21', regions=list(CMA=c("59933","35535")),
vectors=c("v_CA21_434","v_CA21_435","v_CA21_440"),
level='CSD', use_cache = FALSE, quiet = TRUE)
## ----list_vectors, message=FALSE, warning=FALSE-------------------------------
list_census_vectors("CA21")
## ----search_vectors1, message=FALSE, warning=FALSE----------------------------
# Find the variable indicating the number of people of Austrian ethnic origin
find_census_vectors("Australia", dataset = "CA16", type = "total", query_type = "exact")
find_census_vectors("Australia origin", dataset = "CA16", type = "total", query_type = "semantic")
find_census_vectors("Australian ethnic", dataset = "CA16", type = "total", query_type = "keyword", interactive = FALSE)
## ----parent_vectors, message=FALSE, warning=FALSE-----------------------------
list_census_vectors("CA16") %>%
filter(vector == "v_CA16_4092") %>%
parent_census_vectors()
## ----child_vectors1, message=FALSE, warning=FALSE-----------------------------
# Find the variable indicating the Northern European aggregate
find_census_vectors("Northern European", dataset = "CA16", type = "Total")
## ----child_vectors2, message=FALSE, warning=FALSE-----------------------------
# Show all child variable leaves
list_census_vectors("CA16") %>%
filter(vector == "v_CA16_4122") %>% child_census_vectors(leaves = TRUE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.