Merge pull request #238 from Nowosad/master

reprojection bug fix
ropensci · Dec 17, 2017 · 8a2d400 · 8a2d400
2 parents 96d1052 + 1ebc94a
commit 8a2d400
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
 }