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 = ""))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.