R/build_Web_of_Knowledge_query.R

In mfinst/TM-CoCit-Support-FM: What the package does (short line)

build_Web_of_Knowledge_query <-
function(DOIvector) {
  result = "DO=("
  for(i in 1:length(DOIvector)) {
    if (DOIvector[i] != "") {
      result = paste(result, DOIvector[i], " OR ", sep= "")
    }
  }
  
  # entfernt den letzten " OR" Eintrag
  result = substr(result,1,nchar(result)-3)
  return(paste(result, ")", sep = ""))
}