added underscore to output source

DataONEorg · Apr 27, 2022 · a69ef60 · a69ef60
1 parent 0a76e0c
commit a69ef60
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/citation_search_plos.R b/R/citation_search_plos.R
@@ -57,7 +57,7 @@ citation_search_plos <- function(identifiers) {
     plos_results <- do.call(rbind, plos_results)
     names(plos_results)[which(names(plos_results) == "id")] <- "article_id"
     names(plos_results)[which(names(plos_results) == "title")] <- "article_title"
-    names(plos_results)[which(names(plos_results) == "source")] <- "article source"
+    names(plos_results)[which(names(plos_results) == "source")] <- "article_source"
     plos_results <- plos_results[complete.cases(plos_results), ] # remove incomplete cases (NAs)
 
     return(plos_results)