load update

commfish · Oct 15, 2024 · 6fef05d · 6fef05d
1 parent 43e8698
commit 6fef05d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/R/load_crab_dump.R b/R/load_crab_dump.R
@@ -76,6 +76,9 @@ load_crab_dump <- function(path, stock, database_pull = F, clean = T) {
     if(stock %in% c("AIGKC", "EAG", "WAG")) {
       ## data mgmt specific to gkc
       out %>%
+        # make XE fisheries EAG
+        mutate(subdistrict = ifelse(substring(fishery, 1, 2) == "XE", "EAG", subdistrict),
+               fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) %>%
         # fill in legal
         add_legal(., stock = stock) %>%
         # add regulatory group

diff --git a/R/load_dockside.R b/R/load_dockside.R
@@ -58,7 +58,8 @@ load_dockside <- function(path, stock, database_pull = F, clean = T) {
         mutate(subdistrict = case_when(crab_year != 2008 ~ subdistrict,
                                        (crab_year == 2008 & adfg %in% c(35767, 37887)) ~ "WAG",
                                        (crab_year == 2008 & adfg %in% c(103, 5992, 20556)) ~ "EAG",
-                                       (crab_year == 2008 & adfg == 5992 & sample_date > as_date("2008-12-1")) ~ "WAG")) -> out
+                                       (crab_year == 2008 & adfg == 5992 & sample_date > as_date("2008-12-1")) ~ "WAG")) %>%
+        mutate(fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) -> out
     }
     if(stock == "EAG"){
       out %>%