Nothing
#' 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, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.