R/JATS_get.vol.R

In JATSdecoder: A Metadata and Text Extraction and Manipulation Tool Set

#' get.vol
#'
#' Extracts volume, first and last page from NISO-JATS coded XML file or text.
#' @param x a NISO-JATS XML coded file or text.
#' @seealso \code{\link[JATSdecoder]{JATSdecoder}} for simultaneous extraction of meta-tags, abstract, sectioned text and reference list.
#' @return Character string with extracted journal volume.
#' @export

get.vol<-function(x){
  # run prechecks or readLines(x) if x is file
  x<-preCheck(x)
  
x<-paste(x,collapse=" ")
x<-gsub("<abstract.*|<body.*","",x)
vol<-gsub("</.*","",unlist(strsplit(x,"<volume>"))[2])
fpage<-gsub("</.*","",unlist(strsplit(x,"<fpage>"))[2])
lpage<-gsub("</.*","",unlist(strsplit(x,"<lpage>"))[2])
return(c(vol=vol,fpage=fpage,lpage=lpage))
}