R/jaod_article.R

In jaod: Directory of Open Access Journals Client

#' Get an article by ID
#'
#' @export
#' @param id (character) a DOAJ article ID, a UUID. Note, this
#' is not a DOI, but you can use [jaod_article_search()] to search by ISSN to
#' get DOAJ article ids
#' @template curl
#' @return a named list, with slots admin, last_updated, id, created_date,
#' and bibjson
#' @examples \dontrun{
#' out <- jaod_article(id = "0005e11ec616453f854070069385e057")
#' out$admin
#' out$last_updated
#' out$id
#' out$created_date
#' out$bibjson
#'
#' ids <- c("73f781ad57094b98a0b46d8903fdc2c2",
#'   "0005e11ec616453f854070069385e057")
#' out <- lapply(ids, jaod_article)
#' out[[1]]
#' }
jaod_article <- function(id, ...) {
  assert(id, "character")
  jaod_parse(
    jGET(
      file.path(doaj_base(), "articles", id),
      ...
    )
  )
}