transpordiTsoonid/R/centroid2SpatialPolygonsDataFrame.R

#' Add centroid values to Spdf
#' @details Funktsioon keskpunkti (tsentroidi) lisamiseks shp polügoonile. Andmetele lisatakse veerud: centroid_x ja centroid_y.
#' @param spdf object with class "SpatialPolygonsDataFrame".
#' @return centroid_x Centroid longitude value.
#' @return centroid_y Centroid latitude value.
#' @seealso \code{\link{isObjectSpatialPolygonsDataFrame}}, \code{\link{centroid2SpatialPolygonsDataFrame}},
#' \code{\link{projection2WGS84}}, \code{\link{area2SpatialPolygonsDataFrame}},
#' \code{\link{perimeter2SpatialPolygonsDataFrame}}, \code{\link{spPolygonsOutline}}
#' @examples \dontrun{
#' load(rahvaarv)
#' rahvaarv <- centroid2SpatialPolygonsDataFrame(spdf = rahvaarv)
#' rahvaarv@data[,c("centroid_x", "centroid_x")]
#'
#' }
#'
#' @export
#'

centroid2SpatialPolygonsDataFrame <- function(spdf) {
  isObjectSpatialPolygonsDataFrame(spdf)
  spdf@data$centroid_y <- spdf@data$centroid_x <- NA
  # Keskpunkt
  spdf@data$centroid_x <- geosphere::centroid(spdf)[,1]
  spdf@data$centroid_y <- geosphere::centroid(spdf)[,2]
  return(spdf)
}