R/bhl_getpartmetadata.R

In ropensci/rbhl: Interface to the 'Biodiversity' 'Heritage' Library

#' Return a list of an item's pages.
#'
#' @export
#' @param partid The identifier of an individual part (article, chapter, etc)
#' (numeric)
#' @inheritParams bhl_getcollections
#' @examples \dontrun{
#' bhl_getpartmetadata(10409)
#' }
bhl_getpartmetadata <- function(partid, key = NULL, ...) {

  args <- bhlc(list(op = "GetPartMetadata", apikey = check_key(key),
                    format = as_f("list"), id = partid))
  bhl_GET("list", args, ...)
}