#' Get Reference Points
#'
#' Get biological reference points for all stocks in a given assessment year.
#'
#' @param assessmentKey the unique identifier of the stock assessment
#' @param ... to allow scope for back compatibility
#'
#' @return A data frame.
#'
#' @seealso
#' \code{\link{getSAG}} supports querying many years and quarters in one
#' function call.
#'
#' \code{\link{getListStocks}} and \code{\link{getSummaryTable}} get a list of
#' stocks and summary results.
#'
#' \code{\link{icesSAG-package}} gives an overview of the package.
#'
#' @author Colin Millar and Scott Large.
#'
#' @examples
#' \dontrun{
#' assessmentKey <- findAssessmentKey("cod-2224", year = 2016)
#' refpts <- getFishStockReferencePoints(assessmentKey)
#' refpts
#'
#' #To get all reference points in a given assessment year:
#' keys2016 <- findAssessmentKey(year = 2016)
#' refpts2016 <- getFishStockReferencePoints(keys2016)
#' refpts2016
#' }
#' @export
getFishStockReferencePoints <- function(assessmentKey, ...) {
.Deprecated("FishStockReferencePoints")
assessmentKey <- checkKeyArg(assessmentKey = assessmentKey, ...)
# call webservice for all supplied keys
out <- lapply(assessmentKey, function(i) sag_webservice("getFishStockReferencePoints", assessmentKey = i))
# parse output
lapply(out, sag_parse)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.