# Clean Titanic data
library(dplyr)
titanic <- Titanic %>%
as.data.frame() %>%
reshape::untable(., num = .$Freq) %>%
as_data_frame() %>%
select(-Freq)
titanic
devtools::use_data(titanic)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.