4

I need help trying to figure out why my leaflet map using locally saved map tiles isn't working correctly. I'm trying to recreate the example from here to create a leaflet map based on map tiles saved locally. However, when I create it the background map tiles don't load.

The code I have is basically straight from the example, but updated for my directory, and updated to start my local server. I'm not sure if I'm trying to start the server wrong. I'm also looking here for instructions on how to start the local server using 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
Jake
  • 510
  • 11
  • 19

1 Answers1

8

You were almost there. You can run the server in daemon mode, with servr::httd(port = 8000, daemon = TRUE):

# 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)
HubertL
  • 19,246
  • 3
  • 32
  • 51
  • Thanks! That's exactly what I needed to load the tiles in an interactive R session. Your answer to my [other question](https://stackoverflow.com/questions/43046753/r-leaflet-offline-tiles-within-shiny?noredirect=1&lq=1) on loading local tiles within Shiny was spot on as well. – Jake Mar 30 '17 at 11:50