From 6fef05d91d7e2702b56834b177a3d3762e18f6ff Mon Sep 17 00:00:00 2001 From: tymjackson Date: Mon, 14 Oct 2024 16:05:51 -0800 Subject: [PATCH] load update --- R/load_crab_dump.R | 3 +++ R/load_dockside.R | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/R/load_crab_dump.R b/R/load_crab_dump.R index 89072f8..33b60d7 100644 --- 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 index 501ffab..c4c6c7d 100644 --- 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 %>%