# create_test_data
ds_mt <-
mtcars %>%
dplyr::mutate(
cyl = as.integer(cyl),
am = factor(am, labels = c("auto", "manual")),
vs = factor(vs, labels = c("V", "S"))
)
readr::write_rds(ds_mt, here::here("inst", "testdata", "ds_mt.rds"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.