prep <- function() {
set.seed(8675309)
ESS9GB %>%
mutate(noise = rnorm(nrow(.))) -> Data
saveRDS(Data, "data/Data.rds")
Data <<- Data
return(Data)
# #Data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.