add risso from SEFSC

r/R/external.R

@@ -104,11 +104,20 @@ targets_external <- list(
       "sei", "SEWH",
       "minke", "MIWH",
 
+      "beaked", "GEBW",
       "beaked", "GOBW",
+      "beaked", "BLBW",
       "beaked", "MEME",
       "beaked", "SOBW",
       "beaked", "NBWH",
 
+      "kogia", "UNKO",
+
+      "dolphin", "UNDO",
+      "risso", "GRAM",
+
+      "pilot", "PIWH",
+
       "sperm", "SPWH",
       "harbor", "HAPO"
     )
@@ -239,16 +248,21 @@ targets_external <- list(
         presence = coalesce(presence, "na"),
         species_code = case_when(
           theme == "beaked" ~ species_code,
+          theme == "dolphin" ~ species_code,
           TRUE ~ NA_character_
         ),
         species = case_when(
+          species_code == "BLBW" ~ "Blainville's",
+          species_code == "GEBW" ~ "Gervais'",
           species_code == "GOBW" ~ "Cuvier's",
           species_code == "MEME" ~ "Unid. Mesoplodon",
           species_code == "NBWH" ~ "Northern Bottlenose",
           species_code == "SOBW" ~ "Sowerby's",
+          # species_code == "UNDO" ~ "Unid. Dolphin",
+          # species_code == "GRAM" ~ "Risso's Dolphin",
           TRUE ~ NA_character_
         )
-      ) %>% 
+      ) %>%
       select(-species_code)
   }),
   tar_target(external, {

r/R/pacm.R

@@ -19,9 +19,7 @@ targets_pacm <- list(
           "20Hz pulse" = "FWPLS",
           "Song & Social" = "HWMIX",
           "Pulse Train" = "MWPT",
-          "Narrow band high frequency click" = "NBHF CLICKS",
           "Narrow band high frequency click" = "NBHF",
-          "Usual click" = "SPUSC",
           "30-80Hz downsweep" = "SWDS",
           "Upcall" = "UPCALL",
           "Dolphin clicks" = "ODCLICK",

src/lib/constants.js

@@ -53,6 +53,10 @@ export const themes = [
     id: 'dolphin',
     label: 'Dolphin (Unidentified)'
   },
+  {
+    id: 'risso',
+    label: 'Risso\'s Dolphin'
+  },
   {
     divider: true
   },