# data-raw/DataProcessing.R
# Data import and processing pipeline
babies <- tibble::as_tibble(readxl::read_xls("data-raw/babies1.xls"))
smoking <- tibble::as_tibble(readr::read_csv("data-raw/smoking.csv"))
unicef <- tibble::as_tibble(haven::read_stata("data-raw/unicef.dta"))
bed <- tibble::as_tibble(haven::read_stata("data-raw/bed.dta"))
# This should be the last line.
# Note that names are unquoted.
# I like using overwrite = T so everytime I run the script the
# updated objects are saved, but the default is overwrite = F
usethis::use_data(babies, overwrite = T)
usethis::use_data(smoking, overwrite = T)
usethis::use_data(unicef, overwrite = T)
usethis::use_data(bed, overwrite = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.