R/JATS_get.contrib.R

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

#' get.contrib
#'
#' Extracts contrib tag/s from NISO-JATS coded XML file or text as vector of contributers.
#' @param x a NISO-JATS coded XML file or text.
#' @param remove.html Logical. If TRUE removes all HTML tags.
#' @param letter.convert Logical. If TRUE converts hexadecimal and HTML coded characters to Unicode.
#' @return Character vector with the extracted contributer tag content.
#' @keywords internal
#' @export

get.contrib<-function(x,remove.html=FALSE,letter.convert=FALSE){
# readLines if x is file
if(file.exists(x[1])) x<-readLines(x,warn=FALSE,encoding="UTF-8")

if(length(grep("<contrib",x))>0){
  x<-paste(x,collapse=" ")
# split at <contrib and remove after </contrib
  contrib<-gsub("</contrib.*","",unlist(strsplit(x,"<contrib"))[-1])
# remove spaces at front and end
  contrib<-gsub("^ | $","",contrib)
# paste "^-id" lines to line in front and remove it
  if(length(grep("^-id",contrib))>0){
    i<-grep("^-id",contrib)  
    contrib[i-1]<-paste(contrib[i-1],contrib[i])
    contrib<-contrib[-i]
    }
# select type specified lines
  contrib<-grep("-type",contrib,value=TRUE)
# remove <tags>
  if(remove.html==T) contrib<-gsub("^ | $","",gsub(".*>","",gsub(" ,",",",gsub("  "," ",gsub("<.*?.*>"," ",contrib)))))
# convert hex
  if(letter.convert==T) contrib<-letter.convert(contrib)

  }else contrib<-NA

  contrib<-unique(contrib)
  return(contrib)  
}

#x<-readLines(file.name[2900])
#get.contrib(x,F,T)