From a1c9abcdfa21fcdc2dab800eb2fc3d4c475fa86c Mon Sep 17 00:00:00 2001
From: Etienne <etienne.sanchez@dreamrs.fr>
Date: Fri, 31 Jan 2020 17:03:54 +0100
Subject: [PATCH] Completed vignette

---
 vignettes/article/creating_new_layouts.Rmd | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/vignettes/article/creating_new_layouts.Rmd b/vignettes/article/creating_new_layouts.Rmd
index b0d8f8c..464d178 100644
--- a/vignettes/article/creating_new_layouts.Rmd
+++ b/vignettes/article/creating_new_layouts.Rmd
@@ -66,4 +66,17 @@ code:
 map <- as(st_transform(german_zones, crs = 4326), "Spatial")
 ```
 
+This `map` is then used to generate a `mapLayout` object:
+
+```{r, eval=FALSE}
+zone_layout <- list(
+  coords = coords,
+  links = links,
+  map = map,
+  all_coords = coords
+)
+class(zone_layout) <- "mapLayout"
+attr(zone_layout, "type") <- "areas"
+```
+