如何在 OpenStreetMap R 包中使用 OpenCycleMap API 密钥？答案

【问题标题】：How to use an OpenCycleMap API key in OpenStreetMap R package?如何在 OpenStreetMap R 包中使用 OpenCycleMap API 密钥？
【发布时间】：2017-03-25 22:00:02
【问题描述】：

我正在使用OpenStreetMap 中的openmap() 函数从OpenCycleMap 中拉下一些图块。这条线一直有效，直到最近瓷砖开始带有“需要 API 密钥”的水印

map = openmap(map_extent$upperLeft, map_extent$lowerRight,zoom=map_extent$zoom, minNumTiles=9,type='OpenCycleMap',mergeTiles = T)

我已经完成了获取 API 密钥的过程，只是不确定如何实际格式化 type 参数以成功使用 API 密钥。

软件包文档显示了这个例子：

Some maps from custom urls:
apiKey <- paste0("?access_token=",
"pk.eyJ1IjoidGhlZmVsbCIsImEiOiJjaXN1anNwODEwMWlrMnRvZHBhamRrZjlqIn0.Gf8qLSpZ6yo5yfQhEutFfQ")
baseUrl <- "https://api.mapbox.com/styles/v1/mapbox/satellite-streets-v9/tiles/256/{z}/{x}/{y}"
map <- openmap(c(43.46886761482925,119.94873046875),
c(33.22949814144951,133.9892578125),
minNumTiles=4,
type=paste0(baseUrl,apiKey))

我用过

baseUrl<-"https://{s}.tile.thunderforest.com/cycle/{z}/{x}/{y}.png?apikey=[my api key]"
map = openmap(map_extent$upperLeft, map_extent$lowerRight,zoom=map_extent$zoom, minNumTiles=9,type=baseUrl,mergeTiles = T)

但没有成功：我得到了一个

osmtile 错误(x%%nX, y, zoom, type) : 无法获得瓷砖：2102 14443 15

我尝试了多个缩放级别以尝试获取不同的图块但没有成功，并检查了 OpenCycleMap 网站以确认它仍在运行，我只是不确定下一步该去哪里

【问题讨论】：

标签： r openstreetmap

【解决方案1】：

我自己没有使用过这个函数，但是通过查看你的帖子，我认为错误可能与 url 的 {s} 部分有关。必须将其替换为 a、b、c 或完全删除才能使请求生效。

我的猜测是 openmap 只替换 x/y/z 而不是 s，因此请求无效。尝试将其更改为：

baseUrl<-"https://tile.thunderforest.com/cycle/{z}/{x}/{y}.png?apikey=[my api key]"

如果可行，您可以直接使用它或通过 a/b/c 实现自己的循环以实现更好的性能。

【讨论】：