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上工作吗？可能是什么问题呢？我在Google上到处都是，找不到解决方案。我正在尝试使用此命令将每个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

有人可以帮我吗？

最好的问候，安东尼

http：/ localhost：8000 / mapTiles / OSM / {z} _ {x} _ {y} .png不起作用-SHINY R

0 个答案: