data-raw/DATASET.R

library(papers)

regions <- get_regions()

papers <- tibble::tibble()
for(r in 1:nrow(regions)){
  cat("country", r, "\n")
  reg <- get_papers(regions, r)
  papers <- dplyr::bind_rows(papers, reg)
}

usethis::use_data(papers, overwrite = TRUE)
news-r/papers documentation built on Feb. 23, 2020, 10:56 p.m.