R/JATS_get.category.R

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

#' get.category
#'
#' Extracts category tag/s from NISO-JATS coded XML file or text as vector of categories.
#' @param x a NISO-JATS coded XML file or text.
#' @return Character vector with the extracted category name/s.
#' @seealso \code{\link[JATSdecoder]{JATSdecoder}} for simultaneous extraction of meta-tags, abstract, sectioned text and reference list.
#' @export
#' @examples
#' x<-"Some text <article-categories>Some category</article-categories> some text"
#' get.category(x)

get.category<-function(x){
 # run prechecks or readLines(x) if x is file
 x<-preCheck(x)
        
if(length(grep("<article-categories>",x,value=TRUE))>0){
 # collapse to one row
 temp<-paste(x,collapse=" ")
 # split at "<article-categories>" and remove first line
 temp<-unlist(strsplit(temp,"<article-categories>"))[-1]
 # remove after "</article-categories.*" and html tags
 temp<-gsub("<.*?>",", ",gsub("</article-categories.*","",temp))
 # clean up comas
 while(length(grep(", , ",temp))>0) temp<-gsub(", , ",", ",temp)
 temp<-gsub("/",", ",sub(", $","",sub("^, ","",temp)))
# else NA
} else temp<-NA
return(temp)
}