## ----message=FALSE------------------------------------------------------------
library(rads)
## -----------------------------------------------------------------------------
args(get_data_birth)
## -----------------------------------------------------------------------------
birth <- get_data_birth(cols = c("chi_year", "chi_geo_kc"), year = c(2019), kingco = F)
## -----------------------------------------------------------------------------
ls()
## -----------------------------------------------------------------------------
str(birth)
## -----------------------------------------------------------------------------
dim(birth)
## -----------------------------------------------------------------------------
head(birth)
## -----------------------------------------------------------------------------
head(list_dataset_columns('birth'))
## -----------------------------------------------------------------------------
birth2 <- get_data(dataset = "birth", c("chi_year", "chi_geo_kc"), year = c(2019), kingco = F)
dim(birth2)
## -----------------------------------------------------------------------------
data.table::fsetequal(birth, birth2)
## -----------------------------------------------------------------------------
list_apde_data()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.