Added function call rate limitation

DataONEorg · Jun 2, 2020 · 06baa59 · 06baa59
1 parent 97055c3
commit 06baa59
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/citation_search.R b/R/citation_search.R
@@ -177,6 +177,7 @@ citation_search_scopus <- function(identifiers) {
 
   results <- list()
   for (i in 1:length(identifiers)) {
+    Sys.sleep(0.12)
     results[[i]] <-
       fromJSON(curl(paste0("https://api.elsevier.com/content/search/scopus?query=ALL:", identifiers[i], paste("&APIKey=",tmp, sep=""))))
   }