# create the january 2018 example data
library(devtools)
library(dplyr)
library(readr)
january_2018 <- as_tibble(read_csv("inst/extdata/january_2018.csv"))
usethis::use_data(january_2018, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.