Skip to content

Instantly share code, notes, and snippets.

@16EAGLE
Created April 3, 2020 09:42
Show Gist options
  • Select an option

  • Save 16EAGLE/a035c7247da3ed2a5de5832d7c215a76 to your computer and use it in GitHub Desktop.

Select an option

Save 16EAGLE/a035c7247da3ed2a5de5832d7c215a76 to your computer and use it in GitHub Desktop.
Short example on how to add additional tile API URLs for downloading base maps
library(moveVis)
# example data
data("move_data")
m <- align_move(m = move_data, res = 4, unit = "mins")
# add new service to moveVis, e.g. an ESRI layer
services <- getOption("moveVis.map_api")
services$esri <- list(hillshade = "https://services.arcgisonline.com/arcgis/rest/services/Elevation/World_Hillshade_Dark/MapServer/tile/")
options(moveVis.map_api = services)
# use newly added service to create frames
frames <- frames_spatial(m, map_service = "esri", map_type = "hillshade", fade_raster = T)
frames[[100]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment