R單張離線地圖磁貼未加載

Question

我需要幫助來弄清楚為什么使用本地保存的地圖圖塊的傳單地圖無法正常工作。 我正在嘗試從此處重新創建示例，以基於本地保存的地圖圖塊創建傳單地圖。 但是，當我創建它時，不會加載背景地圖圖塊。

我擁有的代碼基本上直接來自該示例，但是針對我的目錄進行了更新，並進行了更新以啟動本地服務器。 我不確定我是否嘗試啟動服務器錯誤。 我也在這里尋找有關如何使用servr啟動本地服務器的說明。

library(RgoogleMaps)
for (zoom in 10:16)
GetMapTiles("Washington Square Park;NY", zoom = zoom,
          nTiles = round(c(20,20)/(17-zoom)))

library(leaflet)
setwd("C:/Users/OTAD USER/Documents")
system("Rscript -e 'servr::httd()' -p8000")
m = leaflet() %>% 
    addTiles( urlTemplate = "http:/localhost:8000/mapTiles/OSM/{z}_{x}_{y}.png")
m = m %>% setView(-73.99733, 40.73082 , zoom = 13)
m = m %>% addMarkers(-73.99733, 40.73082 )
m

Answer 1

你快到了 您可以使用servr::httd(port = 8000, daemon = TRUE)在daemon模式下運行服務器：

# Set the working folder
setwd("C:/Users/OTAD USER/Documents")

# Load the tiles in working_folder/mapTiles/OSM/
library(RgoogleMaps)
for (zoom in 10:16)
  GetMapTiles("Washington Square Park;NY", zoom = zoom,
              nTiles = round(c(20,20)/(17-zoom)))

# Start serving working folder on port 8000 in demon mode
deamon_id <- servr::httd(port = 8000, daemon = TRUE)

# Plot with leaflet
library(leaflet)
m = leaflet() %>% 
  addTiles( urlTemplate = "http:/localhost:8000/mapTiles/OSM/{z}_{x}_{y}.png")
m = m %>% leaflet::setView(-73.99733, 40.73082 , zoom = 16)
m = m %>% leaflet::addMarkers(-73.99733, 40.73082 )
m

# Stop serving
servr::daemon_stop(deamon_id)