R/get_articles_year.R

In wrathofquan/sul.wp: This Package Helps Access Stanford University Library's Washington Post Collection

#' get_articles_year
#'
#' Get a Single Years Worth of Articles
#' @param year A year
#' @param ... other arguments passed to methods
#' @export
#' @examples
#' \dontrun{
#' get_articles_year("1977", ...)
#' }

get_articles_year <- function(year, ...) {
  sql <- paste0("SELECT id, publish_date, section, kicker, authors, title, blurb, paragraphs, captions FROM `sul.the_washington_post.articles_", year, "`")
  tb <- redivis.bigrquery::bq_project_query(sql)
  df <- redivis.bigrquery::bq_table_download(tb)
}