Add pois_buffer_simple.geojson

Author: Robinlovelace

pois_buffer_simple.geojson

@@ -0,0 +1,8 @@
+{
+"type": "FeatureCollection",
+"name": "pois_buffer_simple",
+"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
+"features": [
+{ "type": "Feature", "properties": { }, "geometry": { "type": "Polygon", "coordinates": [ [ [ 16.948159259785697, 52.467018649468393 ], [ 16.945906834527854, 52.468121899022563 ], [ 16.943592045109263, 52.468719836988946 ], [ 16.941381762279136, 52.46887364217018 ], [ 16.939109306218256, 52.468522114050636 ], [ 16.937373939872934, 52.468005793222993 ], [ 16.937108273064851, 52.467787665284952 ], [ 16.936051996110599, 52.467128559159598 ], [ 16.935081980435235, 52.466199559317872 ], [ 16.934358619911684, 52.464848486957415 ], [ 16.934471752424528, 52.463502992980544 ], [ 16.935220658549092, 52.462149726094758 ], [ 16.935997753658334, 52.461349565140729 ], [ 16.936290919708703, 52.461306434178326 ], [ 16.936738085654181, 52.46089772799975 ], [ 16.93861995174105, 52.460020735172577 ], [ 16.945140974580962, 52.45674634129314 ], [ 16.947522749316381, 52.456052786486083 ], [ 16.949682855564937, 52.455820451435258 ], [ 16.952306640859632, 52.456119876247257 ], [ 16.953924663617688, 52.456653121987927 ], [ 16.955240458372092, 52.457316604640816 ], [ 16.956699516946028, 52.458816298902384 ], [ 16.95722048431605, 52.460454222935972 ], [ 16.956858033714674, 52.461707911748569 ], [ 16.956143116993886, 52.462606287155467 ], [ 16.9560629601567, 52.462682397268459 ], [ 16.955363051221511, 52.463299917159596 ], [ 16.9546475126308, 52.463791130258393 ], [ 16.948159259785697, 52.467018649468393 ] ] ] } }
+]
+}

tidy.qmd

@@ -452,6 +452,16 @@ pois_buffer = poi_sf |>
   st_buffer(dist = 500)
 ```
 
+We'll save the output for future reference:
+
+```{r}
+pois_buffer_simple = pois_buffer |>
+  st_simplify(dTolerance = 10)
+plot(pois_buffer)
+plot(pois_buffer_simple, add = TRUE, border = "blue")
+sf::write_sf(pois_buffer_simple, "pois_buffer_simple.geojson", delete_dsn = TRUE)
+```
+
 ```{r}
 extra_tags = c("maxspeed", "foot", "bicycle")
 ```