+sfg_metro <- st_polygon(list(rbind(c(lon.metro[1],lat.metro[1]),
+ c(lon.metro[2],lat.metro[1]),
+ c(lon.metro[2],lat.metro[2]),
+ c(lon.metro[1],lat.metro[2]),
+ c(lon.metro[1],lat.metro[1])
+ )))
+metroTiles <- get_tiles(st_transform(st_sfc(sfg_metro, crs = 4326), 3857), provider = "Stadia.Stamen.TonerLite", crop = TRUE, zoom = 11)