Как встроить ключ API в код R при использовании getmap в Rgooglemaps
Ранее мне удавалось накладывать карты заболеваний на спутниковые карты. Теперь кажется, что требуется ключ API. Я не могу интегрировать это в R код.
До сих пор я пытался получить доступ к коду на картах Google. Я получил код, но не смог интегрировать его в мой код R.
library(RgoogleMaps)
lat = c(-30.3022,-30.5000,-33.48569)
lon = c(153.1189,151.6500,145.5316)
center = c(mean(lat), mean(lon))
zoom <- min(MaxZoom(range(lat), range(lon)))
mymap <- GetMap(center=center, zoom=zoom, maptype= "terrain", destfile = "MyTile1.png")
Error in download.file(urlStr, destfile, mode = "wb", quiet = TRUE) :
cannot open URL 'http://maps.google.com/maps/api/staticmap?center=-31.4292966666667,150.100166666667&zoom=6&size=640x640&maptype=terrain&format=png32&sensor=true'
In addition: Warning message:
In download.file(urlStr, destfile, mode = "wb", quiet = TRUE) :
cannot open URL 'http://maps.google.com/maps/api/staticmap?center=-31.4292966666667,150.100166666667&zoom=6&size=640x640&maptype=terrain&format=png32&sensor=true': HTTP status was '403 Forbidden'
Я считаю, что мне нужно будет включить что-то здесь, что включает в себя ключ API для соответствующей карты