added error output

muschellij2 · Nov 14, 2023 · 41d974b · 41d974b
1 parent 3c01956
commit 41d974b
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/scopus_search.R b/R/scopus_search.R
@@ -100,6 +100,10 @@ scopus_search <- function(
       r$url = httr::build_url(parsed_url)
       print(r)
     }
+    if (httr::status_code(r) >= 400) {
+      print("Error:")
+      print(httr::content(r))
+    }
     stop_for_status(r)
     cr = content(r)$`search-results`
     L = list(get_statement = r, content = cr)