transpordiTsoonid/R/isObjectSpatialPolygonsDataFrame.R

#' Is object class "SpatialPolygonsDataFrame"
#' @details Alamfunktsioon objekti klassi kontrollimiseks. Objekti klass peab olema "SpatialPolygonsDataFrame".
#' @param obj Spatial object.
#' @return TRUE/FALSE.
#' @seealso \code{\link{isObjectSpatialPolygonsDataFrame}}, \code{\link{centroid2SpatialPolygonsDataFrame}},
#' \code{\link{projection2WGS84}}, \code{\link{area2SpatialPolygonsDataFrame}},
#' \code{\link{perimeter2SpatialPolygonsDataFrame}}, \code{\link{spPolygonsOutline}}
#' @examples \dontrun{
#' load(rahvaarv)
#' isObjectSpatialPolygonsDataFrame(obj = rahvaarv)
#' }
#'
#' @export
#'

isObjectSpatialPolygonsDataFrame <- function(obj) {
  if(class(obj)[1]=="SpatialPolygonsDataFrame")
    return(TRUE)
  else
    message("Object class is not SpatialPolygonsDataFrame.")
  return(FALSE)
}