Nothing
#' Get a Graph of Stock Assessment Output
#'
#' Get a graph of stock assessment output, e.g., historical stock size,
#' recruitment, and fishing pressure.
#'
#' @param assessmentKey the unique identifier of the stock assessment
#' @param ... to allow scope for back compatibility
#'
#' @return An array representing a bitmap.
#'
#' @seealso
#' \code{\link{getListStocks}} gets a list of stocks.
#'
#' \code{\link{getFishStockReferencePoints}} gets biological reference points.
#'
#' \code{\link{icesSAG-package}} gives an overview of the package.
#'
#' @examples
#' \dontrun{
#' assessmentKeys <- findAssessmentKey("had", 2015)
#' landings_img <- getLandingsGraph(assessmentKeys[1])
#' plot(landings_img)
#'
#' landings_plots <- getLandingsGraph(assessmentKeys)
#' plot(landings_plots)
#'}
#'
#' @rdname getGraphs
#' @name getStandardAssessmentGraphs
NULL
#' @rdname getGraphs
#' @export
getLandingsGraph <- function(assessmentKey, ...) {
assessmentKey <- checkKeyArg(assessmentKey = assessmentKey, ...)
# get function name as a character
# NOTE need tail(x, 1) here for when calling as icesSAG::get____(assessmentKey)
operation <- utils::tail(as.character(match.call()[[1]]), 1)
# call webservice for all supplied keys
out <- lapply(assessmentKey, function(i) sag_webservice(operation, assessmentKey = i))
# parse output
out <- lapply(out, sag_parse, type = "graph")
# set class
class(out) <- c("ices_standardgraph_list", class(out))
# return
out
}
#' @rdname getGraphs
#' @export
getRecruitmentGraph <- getLandingsGraph
#' @rdname getGraphs
#' @export
getFishingMortalityGraph <- getLandingsGraph
#' @rdname getGraphs
#' @export
getSpawningStockBiomassGraph <- getLandingsGraph
#' @rdname getGraphs
#' @export
getFishMortality <- getLandingsGraph
#' @rdname getGraphs
#' @export
getstock_recruitment <- getLandingsGraph
#' @rdname getGraphs
#' @export
getYSSB <- getLandingsGraph
#' @rdname getGraphs
#' @export
getSSBHistoricalPerformance <- getLandingsGraph
#' @rdname getGraphs
#' @export
getFishingMortalityHistoricalPerformance <- getLandingsGraph
#' @rdname getGraphs
#' @export
getRecruitmentHistoricalPerformance <- getLandingsGraph
#' @rdname getGraphs
#' @export
getStockStatusTable <- getLandingsGraph
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.