data-raw/process_datasets.R

# 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")
ismayc/izzyuntappd documentation built on May 17, 2017, 4:27 a.m.