library(arc2r) library(sf) library(ggplot2)
data("mountainBikes_routes") # Dataset depicting the mountain bike routes in Switzerland data("kantonsgebiet")
plot(st_geometry(kantonsgebiet)) plot(st_geometry(mountainBikes_routes), add = TRUE, col = "red")
routes_buffer <- st_buffer(mountainBikes_routes,1000) plot(st_geometry(routes_buffer)) plot(st_geometry(mountainBikes_routes), add = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.