transpordiTsoonid/R/perimeter2SpatialPolygonsDataFrame.R

#' Add polygon perimeter value to Spdf
#' @details Polügooni perimeetri (ümbermõõdu, meetrites) lisamine SpatialPolygonsDataFrame objektile.
#' Andmetele lisatakse veerg "perimeter".
#' @param spdf object with class "SpatialPolygonsDataFrame".
#' @return perimeter Polygon perimeter value in meters.
#' @seealso \code{\link{isObjectSpatialPolygonsDataFrame}}, \code{\link{centroid2SpatialPolygonsDataFrame}},
#' \code{\link{projection2WGS84}}, \code{\link{area2SpatialPolygonsDataFrame}},
#' \code{\link{perimeter2SpatialPolygonsDataFrame}}, \code{\link{spPolygonsOutline}}
#' @examples \dontrun{
#' load(rahvaarv)
#' rahvaarv <- perimeter2SpatialPolygonsDataFrame(spdf = rahvaarv)
#' rahvaarv@data$perimeter
#'
#' }
#'
#' @export
#'

perimeter2SpatialPolygonsDataFrame <- function(spdf) {
  isObjectSpatialPolygonsDataFrame(spdf)
  # Perimeter
  # spdf@data$perimeter <- sapply(slot(spdf, "polygons"), function(x) sapply(slot(x, "Polygons"), slot, "area"))
  spdf@data$perimeter <- geosphere::perimeter(spdf)
  return(spdf)
}