From 1ebc94ae4af15e395b35d1d2f3c8aa12115bb44d Mon Sep 17 00:00:00 2001 From: jn Date: Sun, 17 Dec 2017 14:25:40 -0500 Subject: [PATCH] reprojection bug fix --- R/geo_projected.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/geo_projected.R b/R/geo_projected.R index 02e5542c..525d60e5 100644 --- a/R/geo_projected.R +++ b/R/geo_projected.R @@ -34,7 +34,7 @@ geo_select_aeq.sf <- function(shp){ coords_mat <- matrix(coords[,1:2], ncol = 2) midpoint <- apply(coords_mat, 2, mean) aeqd <- sprintf("+proj=aeqd +lat_0=%s +lon_0=%s +x_0=0 +y_0=0", - midpoint[1], midpoint[1]) + midpoint[2], midpoint[1]) sf::st_crs(aeqd) }