library(tidyr)
library(dplyr)
dadmom <- foreign::read.dta("http://www.ats.ucla.edu/stat/stata/modules/dadmomw.dta")
dadmom %>%
gather(key, value, named:incm) %>%
separate(key, c("variable", "type"), -2) %>%
spread(variable, value, convert = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.