## code to prepare `italian` dataset goes here
italian <- readr::read_csv("http://gattonweb.uky.edu/sheather/book/docs/datasets/nyc.csv")
italian <- janitor::clean_names(italian)
usethis::use_data(italian, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.