data-raw/nyt_sections.R

#tax <- read_source("https://static01.nyt.com/services/json/taxonomy/v2/flat.json")
#tax <- fromjson(tax)
#sections <- tax$path %>% grep("section", ., value = TRUE) %>% gsub(".*section/", "", .) %>%
#  sub("/.*", "", .) %>% unique()
mkearney/nyt documentation built on May 23, 2019, 1:07 a.m.