#' 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),
...
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.