add internal function to handle tiles that cross the anti-meridian #11

adam-gruer · Oct 22, 2019 · f0a75cc · f0a75cc
1 parent 296de2c
commit f0a75cc
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -0,0 +1,5 @@
+lon_wrap_180 <- function(sf) {
+  sf <- sp::as(sf,"Spatial")
+  sf <- sp::spTransform(sf,"+proj=longlat +datum=WGS84 +lon_wrap=180")
+  st_as_sf(sf)
+}