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" +``` +