data-raw/nyt_county.R

library(readr)
library(dplyr)

nyt_county_url <- "https://raw.githubusercontent.com/nytimes/covid-19-data/master/us-counties.csv"
nyt_county <- read_csv(nyt_county_url) %>%
  select(date, state, county, fips, cases, deaths, everything())

usethis::use_data(nyt_county, overwrite = TRUE)
vqv/stat5730covid19 documentation built on May 12, 2020, 12:39 p.m.