R/articles_year.R

Defines functions articles_year

articles_year <- function(issn, collection, year){
  # Get total of articles
  total <- articles(issn = issn, collection = collection, yearFrom = year, yearUntil = year, limit = 1)
  total <- total$meta$total

  # Number of loops necessary
  loops <- ceiling(total/1000)

  # DF to store results
  results <- data.frame()

  # Get articles
  for(i in 1:loops){
    offset <- (i-1)*1000

    result <- articles(issn = issn, collection = collection, yearFrom = year, yearUntil = year, offset = offset)
    result <- result$objects
    results <- dplyr::bind_rows(results, result)
  }

  return(results)
}
rfsaldanha/getscielo documentation built on May 17, 2019, 1:30 p.m.