# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.