deprecation message

DESCRIPTION

@@ -5,7 +5,8 @@ Authors@R:
     person("Rémi", "Thériault", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-4315-6788"))
 Description: Package to facilitate the creation of data visualization dashboards 
-       through the flexdashboard and easyPubMed packages.
+       through the flexdashboard and easyPubMed packages. This package is now
+       deprecated in favour of the pubDashboard package.
 License: GPL (>= 3)
 Imports: 
     easyPubMed, 

R/clean_journals_continents.R

@@ -31,7 +31,7 @@ continent_order <- function(short = FALSE) {
 
 #' @noRd
 clean_journal_names <- function(journal) {
-  x <- gsub("&amp;", "and", journal, fixed = TRUE)
+  x <- gsub("&amp;", "&", journal, fixed = TRUE)
   x <- gsub(" of the United States of America", "", x, fixed = TRUE)
   x <- gsub(":.*", "", x)
   x <- gsub("[(].*", "", x)

README.Rmd

@@ -26,6 +26,8 @@ knitr::opts_chunk$set(
 [![stars](https://img.shields.io/github/stars/rempsyc/pubmedDashboard?style=social)](https://github.com/rempsyc/pubmedDashboard/stargazers)
 <!-- badges: end -->
 
+**This package is now deprecated in favour of the [`pubDashboard`](https://rempsyc.github.io/pubDashboard/) package.**
+
 The goal of `pubmedDashboard` is to facilitate the creation of pretty data visualization dashboards using the `flexdashboard` and `easyPubMed` packages.
 
 ## Installation

README.md

@@ -17,6 +17,8 @@ experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](h
 [![stars](https://img.shields.io/github/stars/rempsyc/pubmedDashboard?style=social)](https://github.com/rempsyc/pubmedDashboard/stargazers)
 <!-- badges: end -->
 
+**This package is now deprecated in favour of the [`pubDashboard`](https://rempsyc.github.io/pubDashboard/) package.**
+
 The goal of `pubmedDashboard` is to facilitate the creation of pretty
 data visualization dashboards using the `flexdashboard` and `easyPubMed`
 packages.

data-raw/journal_field.R

@@ -17,7 +17,7 @@ psychology <- c(
   "Psychological science",
   "Child development",
   "Developmental science",
-  "Personality and social psychology bulletin",
+  "Personality & social psychology bulletin",
   "Nature human behaviour"
 )
 
@@ -72,10 +72,6 @@ journal_field <- data.frame(
 )
 
 journal_field$journal_short <- clean_journal_names(journal_field$journal)
-# journal_field$journal_short <- gsub(":.*", "", journal_field$journal)
-# journal_field$journal_short <- gsub("[(].*", "", journal_field$journal_short)
-# journal_field$journal_short <- tools::toTitleCase(journal_field$journal_short)
-# journal_field$journal_short <- trimws(journal_field$journal_short)
 
 journal_field$field <- ifelse(
   journal_field$journal %in% psychology, "psychology", ifelse(