#' An S4 class to represent a set of geo-spatial data
#'
#' @slot name The name of the datatset
#' @slot spatialExtent An instance of the class SpatialExtent
#' @slot temporalExtent An instance of the class TemporalExtent
setClass (
Class = "GeoSpatialDataSet",
representation = representation(
name = "character",
spatialExtent = "SpatialExtent",
temporalExtent = "TemporalExtent"
),
validity = function(object){
cat("~~~ GeoSpatialDataSet: inspector ~~~ \n")
name <- object@name
spatialExtent <- object@spatialExtent
temporalExtent <- object@temporalExtent
if(length(object@name) != 1){
stop ("[GeoSpatialDataSet: validation] Only one name allowed")
}else{}
return(TRUE)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.