rscopus (version 0.8.1)

object_retrieval: ScienceDirect Object Retrieval

Description

This function wraps generic_elsevier_api to give a retrieval of an object from the Elsevier Object Retrieval API

Usage

object_retrieval(
  id,
  identifier = c("scopus_id", "eid", "doi", "pii", "pubmed_id"),
  ref = NULL,
  http_end = NULL,
  ...
)
process_object_retrieval(res)
download_object(
  url,
  api_key = NULL,
  api_key_error = TRUE,
  verbose = TRUE,
  headers = NULL,
  ...
)
download_objects(url, ...)

Value

List of elements, similar to generic_elsevier_api

Arguments

id

Identifier for object

identifier

Type of identifier to use

ref

document reference

http_end

any additional end to http statement. See generic_elsevier_api

...

Arguments to be passed to generic_elsevier_api or GET

res

result from object_retrieval

url

url to download from object_retrieval

api_key

Elsevier API key

api_key_error

Should there be an error if no API key?

verbose

Print messages from specification

headers

Headers passed to add_headers, passed to GET

See Also

generic_elsevier_api

Examples

api_key = get_api_key(NULL, error = FALSE)
authorized = is_elsevier_authorized()
if (have_api_key()){
   x = object_retrieval("S1053811915002700", identifier = "pii",
   verbose = FALSE)
   df = process_object_retrieval(x)
   df = df[ grepl("image/jpeg", df$mime_type),,drop = FALSE ]
   df = df[ df$type %in% "IMAGE-HIGH-RES",,drop = FALSE ]
}
if (authorized) {
   res = download_object(df$url[1])
   if (interactive()) {
      browseURL(res$outfile)
   } else {
     img = res$content
     dims = dim(img)[1:2]
     mdim = max(dims)
     graphics::plot(c(0, ncol(img)), c(0, nrow(img)), type='n')
     graphics::rasterImage(img, 1, 1, ncol(img), nrow(img))
   }
}