diff --git a/R/load_crab_dump.R b/R/load_crab_dump.R index 535dfe4..76762c3 100644 --- a/R/load_crab_dump.R +++ b/R/load_crab_dump.R @@ -83,6 +83,8 @@ load_crab_dump <- function(path, stock, database_pull = F, clean = T) { fishery = ifelse(fishery == "OB08" & longitude < -174, "RB08", fishery), fishery = gsub("XE", "OB", fishery), fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) %>% + mutate(fishery = ifelse(subdistrict == "EAG", gsub("RB", "OB", fishery), + ifelse(subdistrict == "WAG", gsub("OB", "RB", fishery), fishery))) %>% # fill in legal add_legal(., stock = stock) %>% # add regulatory group diff --git a/R/load_dockside.R b/R/load_dockside.R index c4c6c7d..687be39 100644 --- a/R/load_dockside.R +++ b/R/load_dockside.R @@ -59,7 +59,9 @@ load_dockside <- function(path, stock, database_pull = F, clean = T) { (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")) %>% - mutate(fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) -> out + mutate(fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) %>% + mutate(fishery = ifelse(subdistrict == "EAG", gsub("RB", "OB", fishery), + ifelse(subdistrict == "WAG", gsub("OB", "RB", fishery), fishery))) -> out } if(stock == "EAG"){ out %>% diff --git a/R/load_pot_dump.R b/R/load_pot_dump.R index 1124d0f..db4308a 100644 --- a/R/load_pot_dump.R +++ b/R/load_pot_dump.R @@ -72,6 +72,8 @@ load_pot_dump <- function(path, stock, database_pull = F, clean = T) { fishery = ifelse(fishery == "OB08" & longitude < -174, "RB08", fishery), fishery = gsub("XE", "OB", fishery), fishery = paste0(substring(fishery, 1, 2), substring(crab_year, 3, 4))) %>% + mutate(fishery = ifelse(subdistrict == "EAG", gsub("RB", "OB", fishery), + ifelse(subdistrict == "WAG", gsub("OB", "RB", fishery), fishery))) %>% # remove pots without district info filter(subdistrict != "-") -> out }