#set.seed(02138)
#dat <- genData(100000)
#private_data <- dat$private_data
#dp_data <- dat$dp_data
#
#usethis::use_data(private_data, overwrite = TRUE)
#usethis::use_data(dp_data, overwrite = TRUE)
#dat <- genData2(100000)
#private_data2 <- dat$private_data
#dp_data2 <- dat$dp_data
#usethis::use_data(private_data2, overwrite = TRUE)
#usethis::use_data(dp_data2, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.