ICES MSY stocks

library(icesSAG)
library(dplyr)

ref_list <- icesSAG::getSAG(stock = NULL, year = 2017, data = "refpts")

stock_list <- jsonlite::fromJSON("http://sd.ices.dk/services/odata3/StockListDWs3",
                                 simplifyDataFrame = TRUE)$value

all_msy <- ref_list %>% 
  filter(!is.na(FMSY) |
           !is.na(MSYBtrigger)) %>% 
  left_join(stock_list, by =  c("AssessmentKey", "StockKeyLabel", "StockDatabaseID", "StockKey")) %>% 
  select(StockKeyLabel,
         StockKeyDescription,
         FMSY,
         MSYBtrigger)