国土地理院タイルをleafletで使う

参考：http://maps.gsi.go.jp/development/sample.html#sample-ll

library(leaflet)

atr <-
  "<a href='http://maps.gsi.go.jp/development/ichiran.html' target='_blank'>地理院タイル</a>"

leaflet() %>%
  addTiles("http://cyberjapandata.gsi.go.jp/xyz/std/{z}/{x}/{y}.png",
           attribution = atr) %>%
  setView(lng = 139.69, lat = 35.69, zoom = 8)