fixing species_list()

Author: Carly Lovas

DESCRIPTION

@@ -51,6 +51,7 @@ Imports:
     janitor,
     readr,
     here,
-    tidyr
+    tidyr,
+    SwimmeR
 URL: https://github.com/carlylovas/species.shifts, https://carlylovas.github.io/species.shifts/
 BugReports: https://github.com/carlylovas/species.shifts/issues

R/species_list.R

@@ -67,8 +67,9 @@ species_list <- function(source = "all") {
     "northern shortfin squid", "ocean quahog", "scup", "spiny dogfish", "summer flounder",
     "tilefish", "atlantic croaker", "striped bass", "gray triggerfish", "spanish mackerel"
   )) |>
-    dplyr::mutate(clean_name = ifelse(comname == "goosefish", "monkfish", comname),
-                  clean_name = ifelse(comname == "atlantic surfclam", "surf clam", comname),
+    dplyr::mutate(clean_name = comname,
+                  clean_name = stringr::str_replace(clean_name, "goosefish", "monkfish"),
+                  clean_name = stringr::str_replace(clean_name, "atlantic surfclam", "surf clam"),
                   data_source = "nefsc")
 
   observer <- data.frame(comname = c(

README.Rmd

@@ -62,7 +62,7 @@ All three groups of functions will ultimately yield the materials needed to gene
 You can install the development version from [GitHub](www.github.com) with:
 
 ``` r
-devtools::install_github("https://github.com/carlylovas/species.shifts")
+pak::pak("carlylovas/species.shifts")
 ```
 
 ## Vignettes

README.md

@@ -82,7 +82,7 @@ You can install the development version from [GitHub](www.github.com)
 with:
 
 ``` r
-devtools::install_github("https://github.com/carlylovas/species.shifts")
+pak::pak("carlylovas/species.shifts")
 ```
 
 ## Vignettes