navigate SD

navigateSD.R

rm(list = ls())
# Load this package, install it if you don't have it already
library(jsonlite)

# Change the active year.
ActiveYear <- 2016
rawsl <- jsonlite::fromJSON(paste0("http://sd.ices.dk/services/odata3/StockListDWs3?$filter=ActiveYear%20eq%20",
                                   ActiveYear),
                            simplifyDataFrame = TRUE)$value
# colnames(rawsl)
# [1] "ID"                             "StockCode"                      "OldStockCode"                  
# [4] "ActiveYear"                     "Description"                    "SpeciesScientificName"         
# [7] "SpeciesCommonName"              "EcoRegion"                      "ExpertGroup"                   
# [10] "ExpertGroupDescription"         "AdviceDraftingGroup"            "AdviceDraftingGroupDescription"
# [13] "DataCategory"                   "YearOfLastAssessment"           "AssessmentFrequency"           
# [16] "YearOfNextAssessment"           "AssessmentType"                 "AdviceReleaseDate"             
# [19] "AdviceCategory"                 "AdviceType"                     "UseOfDiscardsInAdvice"         
# [22] "PABufferApplied"                "TrophicGuild"                   "FisheriesGuild"                
# [25] "SizeGuild"                      "Published"                      "GeneratedOn"                   
# [28] "SectionNumber"        


# Note: OldStockCode is only available for 2017
tt <- rawsl[, c("StockCode", "OldStockCode", "Description", "ExpertGroup")]
write.csv(tt, file = "~/FileName.csv")