fix &

rempsyc · Mar 9, 2024 · 77b1c3b · 77b1c3b
1 parent 758eb99
commit 77b1c3b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/clean_journals_continents.R b/R/clean_journals_continents.R
@@ -28,6 +28,7 @@ continent_order <- function(short = FALSE) {
 
 #' @noRd
 clean_journal_names <- function(journal) {
+  x <- gsub("&amp;", "&", journal, fixed = TRUE)
   x <- gsub(":.*", "", journal)
   x <- gsub("[(].*", "", x)
   x <- tools::toTitleCase(x)

diff --git a/data-raw/journal_field.R b/data-raw/journal_field.R
@@ -61,7 +61,7 @@ economics <- c(
 )
 
 general <- c(
-  "Proceedings of the national academy of sciences",
+  "Proceedings of the National Academy of Sciences of the United States of America",
   "Science (New York, N.Y.)",
   "Nature",
   "Plos one"