R/SpatialDataFrame-class.R

Defines functions is.SpatialDataFrame

Documented in is.SpatialDataFrame

####################################################
#                 SpatialDataFrame-class           #
####################################################

setClassUnion(name = "SpatialDataFrame", 
              members = c("SpatialIndexDataFrame", 
                          "SpatialPointsDataFrame", 
                          "SpatialPixelsDataFrame", 
                          #"SpatialGridDataFrame", 
                          "SpatialPolygridDataFrame", 
                          "SpatialPolygonsDataFrame", 
                          "SpatialLinesDataFrame"))


is.SpatialDataFrame = function(SpatialDataFrame){
  classSDF = class(SpatialDataFrame)
  if (is.element(classSDF, c("SpatialIndexDataFrame", 
                             "SpatialPointsDataFrame", 
                             "SpatialPixelsDataFrame", 
                             "SpatialPolygridDataFrame", 
                             "SpatialPolygonsDataFrame", 
                             "SpatialLinesDataFrame"))){
    out = TRUE
  } else {
    out = FALSE
  }
  return(out)
}
KristinaHelle/sensors4plumes documentation built on May 7, 2019, 12:31 p.m.