Add sane version of TOCAS mapping

[cbedwards-dfw]

Something that replicates the following, probably using case_match()

tocas_catch$FisheryID <- with(tocas_catch,
                                ifelse(GearName %in% GEAR & Catch_Area %in% c("3", "4", "4B","03", "04", "04B"),17,
                                       
                                       ifelse(GearName %in% GEAR & Catch_Area %in% c("2","02"),21,
                                              ifelse(GearName %in% GEAR & Catch_Area %in% c("5","6","6C","05","06","06C"),41,
                                                     ifelse(GearName %in% GEAR & Catch_Area %in% c("09","9","6B", "06B"),55,
                                                            ifelse(GearName %in% GEAR2 & Catch_Area %in% c("02A","02B","02C","02D","02G","02H","02J","02K","02M","02N","02P","02R","02T","02U","2A","2B","2C","2D","2G","2H","2J","2K","2M","2N","2P","2R","2T","2U"),24,
                                                                   ifelse(GearName %in% GEAR2 & Catch_Area %in% c("7","7A","7E","6A","07","07A","07E","06A"),38,
                                                                          ifelse(GearName %in% GEAR2 & Catch_Area %in% c("7B","7C","7D","07B","07C","07D"),40,
                                                                                 ifelse(GearName %in% GEAR2 & Catch_Area %in% c("4B","5","6","6C","04B","05","06","06C"),44,
                                                                                        ifelse(GearName %in% GEAR2 & Catch_Area %in% c("08","8"),47,
                                                                                               ifelse(GearName %in% GEAR2 & Catch_Area %in% c("08A","8A"),50,
                                                                                                      ifelse(GearName %in% GEAR2 & Catch_Area %in% c("08D","8D"),52,
                                                                                                             ifelse(GearName %in% GEAR2 & Catch_Area %in% c("10","11"),59,
                                                                                                                    ifelse(GearName %in% GEAR2 & Catch_Area %in% c("10A","10a"),61,
                                                                                                                           ifelse(GearName %in% GEAR2 & Catch_Area %in% c("10E"),63,
                                                                                                                                  ifelse(GearName %in% GEAR2 & Catch_Area %in% c("12","12B","12C"),66,
                                                                                                                                         ifelse(GearName %in% GEAR2 & Catch_Area %in% c("13", "13B", "13D", "13E", "13F", "13f", "13G", "13H", "13I", "13J", "13K"),69,
                                                                                                                                                ifelse(GearName %in% GEAR2 & Catch_Area %in% c("13A"),71,9999999))))))))))))))))))

[cbedwards-dfw]

See this: https://github.com/FRAMverse/snippets/blob/main/R/assign-tocas-fishery-id.R

Take a more careful look at the stilly payback script this comes from, see if I can internalize GEAR and GEAR2. Probably want to modify function to return a vector (of the fishery IDs) rather than a dataframe, that way it can be used in a mutate call.