http: / localhost: 8000 / mapTiles / OSM / {z} _ {x} _ {y} .png не работает - SHINY R - PullRequest
Новая
       38

http: / localhost: 8000 / mapTiles / OSM / {z} _ {x} _ {y} .png не работает - SHINY R

2 голосов
/ 08 апреля 2020

Я работаю над проектом с блестящим приложением, работающим в автономном режиме, потому что мне приходится работать в канализационных системах. Мне удалось запустить мое приложение с командным файлом (преобразованным в .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? В чем может быть проблема? Я искал везде на 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

Может кто-нибудь помочь мне, пожалуйста?

С наилучшими пожеланиями, Энтони

...