Given a raw URI for a publication RDF page in VIVO, return basic publication attributes. This function does not return enough attributes to make a citable publication reference. Intended use is for publication metrics at the person and organizational level.
Code
get.vivo.publication<-function(raw.uri){
#
# Given a raw.uri (without the rdf filetype) of a VIVO publication RDF page,
# return basic facts about the publication. Dereference as needed. Missing
# attributes are returned as NA
#
uri <- make.vivo.uri(raw.uri)
x <- xmlParse(uri)
title <- get.vivo.attribute(x,"label","http://www.w3.org/2000/01/rdf-schema#")
authors <- length(getNodeSet(x,"//d:informationResourceInAuthorship",c(d="http://vivoweb.org/ontology/core#")))
bibo.type <- get.vivo.type(x,vocab="bibo")
#
# deref the publication venue for its name
#
xns<-getNodeSet(x,"//d:hasPublicationVenue",c(d="http://vivoweb.org/ontology/core#"))
if (length(xns)h1. 0) venue<-NA
else {
venue.uri <- make.vivo.uri(xmlGetAttr(xns[[1]],"rdf:resource"))
xv<-xmlParse(venue.uri)
venue <- get.vivo.attribute(xv,"label","http://www.w3.org/2000/01/rdf-schema#")
}
list(title=title,authors=authors,bibo.type=bibo.type,venue=venue)
}
Sample Run
> publication.raw
[1] "http://vivo.ufl.edu/individual/n205365931"
> get.vivo.publication(publication.raw)
$title
[1] "T3 and T4 true vocal cord squamous carcinomas treated with external beam irradiation: a single institution's 35-year experience."
$authors
[1] 6
$bibo.type
[1] "AcademicArticle"
$venue
[1] NA
Notes
- We are not returning the author names.
- No date available for the publication. Will need to investigate further.
- In the sample run above, the publication did not have a venue.
