car.switching <- read.csv(system.file("extdata", "carswitch.csv", package = "flipExampleData"), row.names = 1)
usethis::use_data(car.switching, internal = FALSE, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.