Using Google Satellite View as a Tile in Leaflet with R

delores_black

I have been using the Google satellite view as a tile in Leaflet with R for a while now but recently it stopped working. It just shows a blank tile. Does anyone know how to fix this or an alternative way to use Google satellite view as a tile in Leaflet with R?

sadleopard588

There are a few different ways that you can go about this, but the easiest way is to use the GoogleStaticMaps package. With this package, you can either use the getGoogleStaticMap function or the getBoundingBox function to grab the satellite tiles that you need.

Once you have your tiles, you can then use the addTiles function in Leaflet to add them to your map. For example:

library(leaflet)

Get the satellite tiles

tiles <- getGoogleStaticMap(center = c(lon = -122.4194, lat = 37.7749),
zoom = 10,
maptype = "satellite",
sensor = FALSE,
scale = 2)

Add the tiles to the map

leaflet() %>%
setView(lng = -122.4194, lat = 37.7749, zoom = 10) %>%
addTiles(tiles)

You can find more information on the GoogleStaticMaps package here: https://cran.r-project.org/web/packages/GoogleStaticMaps/index.html

organicmouse

Here's a quick tutorial on how to use Google Satellite View as a tile in Leaflet with R:

First, you'll need to install and load the required packages:

install.packages(c("leaflet", "rgdal", "rgeos"))
library(leaflet)
library(rgdal)
library(rgeos)

Next, you'll need to define the Google Satellite View tile:

my_tiles <- leaflet::leaflet() %>%
addTiles(
urlTemplate = "https://mt0.google.com/vt/lyrs=s&x={x}&y={y}&z={z}",
attribution = 'Google Maps Satellite View'
)

Finally, you can add your tile to Leaflet using the addTiles() function:

leaflet(options = leafletOptions(minZoom = 2, maxZoom = 20)) %>%
my_tiles