#' Get the species group id of an `n2kModel` object
#' @param x the `n2kModel` object
#' @return the species group id of the object
#' @name get_species_group_id
#' @rdname get_species_group_id
#' @exportMethod get_species_group_id
#' @docType methods
#' @importFrom methods setGeneric
setGeneric(
name = "get_species_group_id",
def = function(x) {
standardGeneric("get_species_group_id") # nocov
}
)
#' @rdname get_species_group_id
#' @aliases get_species_group_id,n2kAnalysisMetadata-methods
#' @importFrom methods setMethod new
#' @include n2k_analysis_metadata_class.R
setMethod(
f = "get_species_group_id",
signature = signature(x = "n2kAnalysisMetadata"),
definition = function(x) {
return(x@AnalysisMetadata$species_group_id)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.