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

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

## -----------------------------------------------------------------------------
summary(example_records)

## -----------------------------------------------------------------------------
dois <- scopus_extract_dois(example_records)
dois

## -----------------------------------------------------------------------------
out <- file.path(tempdir(), "reference-set.csv")
scopus_extract_dois(example_records, file = out)
readLines(out)

## -----------------------------------------------------------------------------
m <- as_bibliometrix(example_records)
m[, c("AU", "TI", "PY", "SO", "TC", "DB")]

## ----eval = FALSE-------------------------------------------------------------
# if (requireNamespace("bibliometrix", quietly = TRUE)) {
#   results <- bibliometrix::biblioAnalysis(as_bibliometrix(records))
#   summary(results, k = 10)
# }

## -----------------------------------------------------------------------------
path <- file.path(tempdir(), "records.rds")
write_scopus_records(example_records, path)
identical(read_scopus_records(path), example_records)