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

Question

我使用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，缩放，类型）： 无法获得拼贴：2102 14443 15

我已经试过多个缩放级别，试图让没有成功不同的瓷砖，并检查了OpenCycleMap网站，以确认它仍然是，我只是不知道下一步去哪里

Answer 1

我没有与我自己的功能一起工作，但从看你的帖子，我认为这个错误可能与网址的{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实现自己的自行车，以实现更好的性能。