Warn on commas in openalex lookup

unjournal · Jul 25, 2024 · 2cf5fb5 · 2cf5fb5
1 parent 0c4cb7c
commit 2cf5fb5
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/code/lookup-publication-outcomes.R b/code/lookup-publication-outcomes.R
@@ -331,8 +331,13 @@ lookup_journal_openalex <- function (title, authors = character(0L)) {
 #' as given by openalex. There may be more than one matching name per author.
 #'   
 lookup_authors_openalex <- function (authors) {
+  if (any(stringr::str_detect(authors, ","))) {
+    warning("Removing commas from authors in `lookup_authors_openalex()`")
+  }
+  authors <- stringr::str_remove(authors, ",")
   author_string <- paste(authors, collapse = "|")
 
+
   req <- request("https://api.openalex.org/authors") %>% 
     req_headers(
       mailto = openalex_email