transpordiTsoonid/R/projection2WGS84.R

#' Projection to WGS84
#' @details Projektsiooni teisendamine WGS84 koordinaatide süsteemi.
#' @param spdf object with class "SpatialPolygonsDataFrame".
#' @return SpatialPolygonsDataFrame object.
#' @seealso \code{\link{isObjectSpatialPolygonsDataFrame}}, \code{\link{centroid2SpatialPolygonsDataFrame}},
#' \code{\link{projection2WGS84}}, \code{\link{area2SpatialPolygonsDataFrame}},
#' \code{\link{perimeter2SpatialPolygonsDataFrame}}, \code{\link{spPolygonsOutline}}
#' @examples \dontrun{
#' load(rahvaarv)
#' rahvaarv <- projection2WGS84 <- function(spdf = rahvaarv)
#' }
#'
#' @export
#'

projection2WGS84 <- function(spdf) {
  spdf <- sp::spTransform(spdf, CRSobj = sp::CRS("+init=epsg:4326"))
  return(spdf)
}