source("create_data/scopusAPI.R")
myQuery <- "TITLE-ABS-KEY()"
theXML <- searchByString(string = myQuery, outfile = "testdata.xml", retMax = 5)
theData <- extractXML(theXML)
write.csv(theData, file = "create_data/thedata.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.