r - http://localhost:8000/mapTiles/OSM/{z}_{x}_{y}.png 不工作 - SHINY R

Question

我正在开发一个使用离线运行的闪亮应用程序的项目，因为我必须在下水道系统中工作。我设法使用批处理文件运行我的应用程序（在.exe文件中转换，因为它看起来更专业）

我做了一些测试，我遇到了 Leaflet 和瓷砖的问题。它不能离线工作。我尝试了很多方法使其离线工作：

• 在我的工作文件夹中加载瓷砖：

  setwd("C:/TestApp/data_hydrepat/tiles_hydrepat")
  center=getGeoCode("Paris") 
  for (zoom in 10:16) 
  {GetMapTiles(
  center, 
  zoom = zoom,
  nTiles = round(c(20,20)/(17-zoom)),
  tileDir="C:/TestApp/data_hydrepat/tiles_hydrepat/mapTiles/OSM/",
  urlBase= "http://a.tile.openstreetmap.org/",
  type = "osm") }
  

==================================================== =======================

• 现在我在文件夹中有多个 png，我正在以恶魔模式在端口 8000 上启动一个服务工作文件夹。

  deamon_id <- servr::httd(port = 8000, daemon = TRUE)

==================================================== =======================

• 我正在尝试用这些线绘制所有内容：

  tilesUrl <-"http:/localhost:8000/mapTiles/OSM/{z}_{x}_{y}.png" 
  m =leaflet::leaflet() %>%    
  addTiles( urlTemplate = "tilesUrl",option =
  tileOptions(tms = TRUE)) 
  m = m %>%
  leaflet::setView(2.351462,48.856697,zoom = 10) m = m %>%
  leaflet::addMarkers(2.351462,48.856697) 
  m
  servr::daemon_stop(which = daemon_list())
  

==================================================== =======================

它不起作用（仅在正确的位置显示标记但背景为灰色，您可以尝试使用默认图块编写以下代码

```
m = leaflet::leaflet() %>%    addTiles() m = m %>% leaflet::setView(2.351462,48.856697,zoom = 10) m = m %>%
leaflet::addMarkers(2.351462,48.856697) 
m
```

==================================================== =======================

然后我认为问题出在服务工作文件夹中。所以我尝试只启动一个 png 并且它正在工作。所以我认为问题来自：{z}_{x}_{y}.png但我不太确定。这条线适用于 R Leaflet 吗？可能是什么问题呢？我在谷歌上到处找，找不到解决方案。我正在尝试使用此命令将每个 png 添加为唯一的图块。 https://help.openstreetmap.org/questions/13645/could-anyone-explain-this-to-me-leaflet 这是我能找到解释的唯一来源{z}_{x}_{y}.png

您可以查看有关我尝试实现的目标的更多详细信息 https://rdrr.io/rforge/RgoogleMaps/man/GetMapTiles.html

有人能帮助我吗 ？

最好的问候，安东尼

标签： rshinyleafletlocalhosttiles