library(foreign)
hbatwithsplits <- foreign::read.spss(system.file("extdata", "HBAT_with_splits.sav", package = "flipExampleData"), to.data.frame = TRUE)
hbatwithsplits <- TidySPSS(hbatwithsplits)
usethis::use_data(hbatwithsplits, internal = FALSE, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.