library(haven)
library(dplyr)
chis <- read_sas("child.dta")
names(chis) <- toupper(names(chis))
chis <- chis %>% select_(~CA6, ~SRAGE)
saveRDS(chis, "chis.rds")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.