# Source of CSV file: https://untappd.com/user/ismay9/beers
# Download available because of Supporter status
# Some location information deleted
# untappd ----------------------------------------------------------------
library(readr)
library(dplyr)
untappd <- read_csv(file = "data-raw/chester_beer_feb15-june16.csv")
devtools::use_data(untappd, overwrite = TRUE)
write_csv(untappd,
path = "inst/rmarkdown/templates/report/skeleton/chester_beer_feb15-june16.csv")
write_csv(untappd,
path = "inst/rmarkdown/templates/walkthrough/skeleton/chester_beer_feb15-june16.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.