...

Author: mtennekes

R/tmap_source.R

@@ -37,8 +37,6 @@ get_source_info = function(shp, start_local_host = TRUE) {
 
 		if (start_local_host) {
 			port = servr::random_port()
-			#dir = dirname(shp)
-			# srv = servr::httr(dir = dir) # not sure why this doesn't work
 			srv = freestiler::serve_tiles(shp, port = port)
 			url = paste0(srv$url, "/", basename(shp))
 		} else {

_pkgdown.yml

@@ -0,0 +1,27 @@
+url: https://r-tmap.github.io/tmap.sources/
+template:
+  bootstrap: 5
+  bslib:
+    primary: "#5f8640"
+
+# figures:
+  dev: ragg::agg_png
+  dpi: 300
+
+development:
+  version_tooltip: "tmap.sources documentation"
+
+reference:
+
+- title: GEt tmap source meta data
+  contents:
+  - tmap_source_meta()
+
+navbar:
+  structure:
+    left:  [reference, pmtiles, news]
+  components:
+    home: ~
+    pmtiles:
+      text: PMTiles
+      href: articles/pmtiles

sandbox/test.R

@@ -12,6 +12,7 @@ NLD_dist$edu_ids = cut(NLD_dist$edu_appl_sci, breaks = c(0, 21.5, 29.5, 39.8, 51
 NLD_dist$edu_fill = c4a("plasma", 5)[cut(NLD_dist$edu_appl_sci, breaks = c(0, 21.5, 29.5, 39.8, 51.5, 90), include.lowest = TRUE)]
 NLD_dist$edu_fill[is.na(NLD_dist$edu_fill)] = c4a_na("plasma")
 
+
 freestile(
 	NLD_dist,
 	"NLD_dist.pmtiles",

vignettes/pmtiles.Rmd

@@ -35,27 +35,72 @@ knitr::knit_hooks$set(output = function(x, options) {
 
 ```
 
-```{r, echo = FALSE, message = FALSE}
+
+
+## Introduction
+
+Until version 4.3, it was only possible to visualize spatial data stored in memory with `tmap`, e.g. objects from the class packages `sf`, `terra`, or `stars`. This package, `tmap.sources` makes it possible to visualize remote spatial data. Currently only `PMTiles`, a remote tile-based data sources are supported, but support for other remote data sources will be added later.
+
+To run `tmap.sources`, besides `tmap`, another package is required, namely [`tmap.mapgl`](https://r-tmap.github.io/tmap.mapgl/articles/mapgl), because we require the tmap mode `"maplibre"`:
+
+
+```{r}
 library(tmap)
 library(tmap.mapgl)
 library(tmap.sources)
+tmap_mode("maplibre")
 ```
 
+## Remote PMTiles file
 
-## Mode maplibre
-
-Currently, the only mode that supports pmtiles is `maplibre`:
+OvertureMaps contain a few very large PMTiles. The following is one with the [buildings](https://docs.overturemaps.org/guides/buildings/), across the World.
 
 
-```{r}
-tmap_mode("maplibre")
+```{r, fig.height = 3.5}
+tm_shape(
+  "https://overturemaps-tiles-us-west-2-beta.s3.amazonaws.com/2026-01-21/buildings.pmtiles", 
+  bbox = "Amsterdam") +
+tm_polygons(fill = "#ee7700") +
+tm_maplibre(zoom = 14)
 ```
 
-OvertureMaps contain a few very large pmtiles; one with all the [buildings](https://docs.overturemaps.org/guides/buildings/):
 
+We can also use a categorical color palette:
 
 ```{r, fig.height = 3.5}
-tm_shape("https://overturemaps-tiles-us-west-2-beta.s3.amazonaws.com/2024-07-22/buildings.pmtiles", bbox = "Amsterdam") +
-	tm_polygons(fill = "#ee7700") +
-	tm_maplibre(zoom = 14)
+library(tmap)
+library(tmap.sources)
+
+# Define the mapping
+building_subtypes <- data.frame(
+  level = c("residential", "commercial", "industrial", "educational",
+            "civic", "religious", "medical", "transportation",
+            "entertainment", "agricultural", "military", "outbuilding",
+            "service"),
+  color = c("#f4a460", "#4169e1", "#708090", "#ffd700",
+            "#dc143c", "#9370db", "#ff6347", "#20b2aa",
+            "#ff69b4", "#6b8e23", "#556b2f", "#d2b48c",
+            "#87ceeb"),
+  label = c("Residential", "Commercial", "Industrial", "Educational",
+            "Civic", "Religious", "Medical", "Transportation",
+            "Entertainment", "Agricultural", "Military", "Outbuilding",
+            "Service")
+)
+
+tm_shape(
+  "https://overturemaps-tiles-us-west-2-beta.s3.amazonaws.com/2026-01-21/buildings.pmtiles",
+  bbox = "Amsterdam") +
+tm_polygons(
+  fill = "subtype",
+  fill.scale = tm_scale_categorical(
+    levels    = building_subtypes$level,
+    values    = building_subtypes$color,
+    labels    = building_subtypes$label,
+    value.na  = "#cccccc",
+    label.na  = "Unknown"
+  ),
+  fill.legend = tm_legend("Building type")
+) +
+tm_maplibre(zoom = 14)
 ```
+