R/getPhylo_speciesRaster.R

In ptitle/speciesRaster: Generation of SpeciesRaster Object and Calculation of Morphological and Phylogenetic Metrics

##' @title Get phylogeny from speciesRaster
##'
##' @description Return the phylo item from a speciesRaster object. 
##'
##' @param x object of class \code{speciesRaster}
##'
##' @return The phylogeny in the \code{phylo} location of the speciesRaster.
##'
##' @author Pascal Title
##' 
##' @examples
##' x <- addPhylo_speciesRaster(tamiasSpRas, tamiasTree)
##' getPhylo_speciesRaster(x)
##' 
##' @export

getPhylo_speciesRaster <- function(x) {
	
	if (!inherits(x, 'speciesRaster')) {
		stop('x must be of class speciesRaster.')
	}
		
	if (!inherits(x[['phylo']], 'phylo')) {
		stop('Phylogeny not present.')
	}
	
	return(x[['phylo']])	
}