## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----setup--------------------------------------------------------------------
library(scopusflow)

## -----------------------------------------------------------------------------
q <- scopus_query("language learning", "effect size", .field = "TITLE-ABS-KEY")
q

## -----------------------------------------------------------------------------
scopus_field_tags()

## -----------------------------------------------------------------------------
plan <- scopus_plan(q, years = 2010:2020, partition = "year")
plan

## -----------------------------------------------------------------------------
scopus_plan(q, view = "STANDARD")$page_size[1]
scopus_plan(q, view = "COMPLETE")$page_size[1]

## ----eval = FALSE-------------------------------------------------------------
# n <- scopus_count(q, years = 2010:2020)
# n
# attr(n, "quota")

## ----eval = FALSE-------------------------------------------------------------
# records <- scopus_fetch_plan(
#   plan,
#   cache_dir = scopus_cache_dir(),
#   resume = TRUE
# )
# records

## -----------------------------------------------------------------------------
example_records

## -----------------------------------------------------------------------------
scopus_combine(example_records, example_records, dedupe = TRUE)

## ----eval = FALSE-------------------------------------------------------------
# result <- tryCatch(
#   scopus_fetch_plan(plan, cache_dir = scopus_cache_dir()),
#   scopus_error_rate_limit = function(e) {
#     message("Rate limited; the cached cells are safe. Try again later.")
#     NULL
#   }
# )