From 74781262cf2e8e2d829c12fc7e4848916487f4cb Mon Sep 17 00:00:00 2001
From: Erwan Le Pennec <lepennec@gmail.com>
Date: Thu, 8 Jun 2017 17:06:15 +0200
Subject: [PATCH] geom_sf compatibility trick move aes into geom_blank Beware:
 the crs of sf should be "+init=epsg:4326"

---
 R/ggmap.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ggmap.R b/R/ggmap.R
index ab68b9b..53a58a1 100644
--- a/R/ggmap.R
+++ b/R/ggmap.R
@@ -486,8 +486,8 @@ ggmap <- function(ggmap, extent = "panel", base_layer, maprange = FALSE,
       ymin <- attr(ggmap, "bb")$ll.lat
   	  ymax <- attr(ggmap, "bb")$ur.lat
 
-      p <- ggplot(aes(x = lon, y = lat), data = fourCorners) +
-  	    geom_blank() +
+      p <- ggplot(data = fourCorners) +
+  	    geom_blank(aes(x = lon, y = lat)) +
   	    inset_raster(ggmap, xmin, xmax, ymin, ymax) +
   	    annotate("rect", xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax,
   	      fill = darken[2], alpha = as.numeric(darken[1]))