R/is.RasterList.R

In rasterList: A Raster Where Cells are Generic Objects

# TODO: Add comment
# 
# Author: cordaem
###############################################################################
NULL
#' Is a \code{\link{RasterList-class}} object ? 
#'
#' @param x a valid object 
#' 
#' @return a logical variable
#' @export 
#' 
#' @examples 
#' 
#' r <- rasterList()
#' is.RasterList(r)
#' rr <- raster()
#' is.RasterList(rr)
#' 
#' f <- system.file("external/test.grd", package="raster")
#' ra <- rasterList(f)
#' is.RasterList(rr)
#' 
#' 
#'


# uu
is.RasterList <- function(x) {
	
	
	
	
	## TO DO 
	out <- (class(x)=="RasterList")
				
	if (out==TRUE) {
		
		out <- (class(x@list)=="list")
		
		
		
	}
	if (out==TRUE) {
		
		out <- (class(raster(x))=="RasterLayer")
		
		
		
		
	}
	
	if (out==TRUE) {
		
		
		out <- (length(x@list)==ncell(x))
		
	}
	
	return(out)
	
	
	
	
	
}