R/spatial.check.R

In itpir/MatchIt: MatchIt: Nonparametric Preprocessing for Parametric Casual Inference

check.is.spatial <- function(data) {

  is.spatial <- FALSE

  slots <- slotNames(data)

  if (class(data) != "data.frame" && "data" %in% slots 
      && "bbox" %in% slots && "proj4string" %in% slots) {

    is.spatial <- TRUE

  }

  return(is.spatial)

}