inst/test_pmtiles.R

In r-spatial/leafem: 'leaflet' Extensions for 'mapview'

library(leaflet)
library(leafem)

# url_pmtiles = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/nz-building-outlines_max14.pmtiles"
# url_fgb = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/nz-building-outlines.fgb"
# url_pmtiles = "http://localhost/test-tiles/nz-building-outlines_max14.pmtiles"
# url_fgb = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/rivers.fgb"
url_nzbuildings = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/nz-building-outlines.pmtiles"
url_depoints = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/depoints.pmtiles"
url_rivers = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/rivers_africa.pmtiles"
url_rivers_fgb = "https://vector-tiles-data.s3.eu-central-1.amazonaws.com/rivers_africa.fgb"

m = leaflet() %>%
  addProviderTiles("CartoDB.Positron", group = "CartoDB.Positron") %>%
  addProviderTiles("Esri.WorldImagery", group = "Esri.WorldImagery") %>%
  leafem:::addPMPolygons(
    url = url_nzbuildings
    , layerId = "nzbuildings"
    , group = "nzbuildings"
    , style = paintRules(
      layer = "nz-building-outlines"
      , fillColor = "pink"
      , stroke = "green"
    )
    , attribution = '<a href="https://data.linz.govt.nz">LINZ Data Service licensed for reuse under CC BY 4.0</a>'
  ) %>%
  leafem:::addPMPoints(
    url = url_depoints
    , layerId = "depoints"
    , group = "depoints"
    , style = paintRules(
      layer = "depoints"
      , fillColor = "pink"
      , stroke = "green"
    )
  ) %>%
  leafem:::addPMPolylines(
    url = url_rivers
    , layerId = "rivers"
    , group = "rivers"
    , style = paintRules(
      layer = "rivers_africa"
      , color = "blue"
      , dash = c(5, 3)
    )
  ) %>%
  addFgb(
    url = url_rivers_fgb
    , group = "fgb"
    , layerId = "fgb"
    # , label = "suburb_locality"
    , popup = TRUE
    , fill = FALSE
    , color = "black"
    , opacity = 1
    , weight = 1
    , minZoom = 8
  ) %>%
  addMouseCoordinates() %>%
  # setView(173.89, -40.65, zoom = 6) %>%
  setView(0, 0, zoom = 2) %>%
  addLayersControl(
    baseGroups = c(
      "CartoDB.Positron"
      , "Esri.WorldImagery"
    )
    , overlayGroups = c(
      "nzbuildings"
      , "depoints"
      , "rivers"
    )
  )

mapview::mapshot(
  m
  , url = "/home/tim/tappelhans/privat/data/pmtilesmap/index.html"
)

servr::httd("/home/tim/Downloads/pmtilesmap/")



url = "https://www.carbon.place/tiles/pct/{x}/{y}/{z}.pbf"

m = leaflet() %>%
  addProviderTiles("CartoDB.Positron", group = "CartoDB.Positron") %>%
  addProviderTiles("Esri.WorldImagery", group = "Esri.WorldImagery") %>%
  leafem:::addPMTiles(
    url
    , layerName = "bicycle"
    , layerId = "test"
    , group = "test1"
  ) %>%
  addMouseCoordinates() %>%
  # setView(173.89, -40.65, zoom = 6) %>%
  addLayersControl(
    baseGroups = c(
      "CartoDB.Positron"
      , "Esri.WorldImagery"
    )
    , overlayGroups = "test1"
  )

mapview::mapshot(
  m
  , url = "/home/tim/Downloads/pmtilesmap/index.html"
)

servr::httd("/home/tim/Downloads/pmtilesmap/")