adult.2000 <- read.csv(file.path("inst", "extdata", "adult_2000.csv"),
stringsAsFactors = TRUE, encoding = "UTF-8")
usethis::use_data(adult.2000, internal = FALSE, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.