| ms_innerlines | R Documentation | 
Create a line layer consisting of shared boundaries with no attribute data
ms_innerlines(input, ...)
| input | input polygons object to convert to inner lines. One of: 
 | 
| ... | Arguments passed on to  
 | 
lines in the same class as the input layer, but without attributes
library(geojsonsf)
library(sf)
poly <- structure('{"type":"FeatureCollection",
            "features":[
              {"type":"Feature",
                "properties":{"foo": "a"},
                "geometry":{"type":"Polygon","coordinates":[[
                  [102,2],[102,3],[103,3],[103,2],[102,2]
                  ]]}}
              ,{"type":"Feature",
                "properties":{"foo": "a"},
                "geometry":{"type":"Polygon","coordinates":[[
                  [103,3],[104,3],[104,2],[103,2],[103,3]
                  ]]}},
              {"type":"Feature",
                "properties":{"foo": "b"},
                "geometry":{"type":"Polygon","coordinates":[[
                  [102,1],[102,2],[103,2],[103,1],[102,1]
                  ]]}},
              {"type":"Feature",
                "properties":{"foo": "b"},
                "geometry":{"type":"Polygon","coordinates":[[
                  [103,1],[103,2],[104,2],[104,1],[103,1]
                  ]]}}]}', class = c("geojson", "json"))
poly <- geojson_sf(poly)
plot(poly)
out <- ms_innerlines(poly)
plot(out)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.