R/hw_getrecord.r

In ropensci/rhindawi: R interface to the Hindawi Journals metadata and corpus

#' Retrieve an individual metadata record from a Hindawi Publishing Corporation repository.
#'
#' @import OAIHarvester
#' @inheritParams hw_listmetadataformats
#' @author Scott Chamberlain \email{myrmecocystus@@gmail.com}
#' @examples \dontrun{
#' out <- hw_getrecord("10.1155/2011/391971", T)
#' out$datestamp # get $identifier, $datestamp, $setSpec, or $metadata
#' oaih_transform(out$metadata) # transform only metadata to a list
#' }
#' @export
hw_getrecord <- function(id = NULL, transform = TRUE, 
  url = "http://www.hindawi.com/oai-pmh/oai.aspx") 
{
  if(!is.null(id) == T) {oaiid <- paste("oai:hindawi.com:", id, sep="")} else
      {oaiid <- NULL}
	oaih_get_record(
	  url, 
		oaiid, 
		prefix = "oai_dc", 
		transform = transform)
}