R/funcsAnnotation.R

In Accio/RpsiXML: R interface to PSI-MI 2.5 files

getAbstractByPMID <- function(pmID){
	pmXML <- annotate::pubmed(pmID)
	pmRoot <- xmlRoot(pmXML)
	numAbst <- length(pmRoot)
	abstracts <- vector("list", length=numAbst)
	for(i in 1:numAbst){
	  abstracts[[i]] <- buildPubMedAbst(pmRoot[[i]])
	}
	names(abstracts) <- pmID
	return(abstracts)
}