info <-
stockInfo(StockCode = "cod.27.47d20",
AssessmentYear = 2017,
StockCategory = 1,
ModelType = "A",
ModelName = "SCA",
ContactPerson = "itsme@fisheries.com")
info
info$mistake <- "oops"
info
# should have gotten a warning message
if (FALSE) {
# use icesVocab to list valid codes etc.
library(icesVocab)
# print the list of valid stock codes
stock.codes <- getCodeList("ICES_StockCode")
stock.codes[1:10,1:2]
# print the list of assessment model types in the ICES vocabulary
model.types <- getCodeList("AssessmentModelType")
model.types[1:2]
# print the list of assessment model names in the ICES vocabulary
model.names <- getCodeList("AssessmentModelName")
model.names$Key
}
Run the code above in your browser using DataLab