mifFile <- system.file(
"extdata", "testdata", "simple",
"simple_interior.mif",
package = "alcyon"
)
sfMap <- st_read(mifFile,
geometry_column = 1L, quiet = TRUE
)
shapeMap <- as(sfMap[, vector()], "ShapeMap")
allLineMap <- makeAllLineMap(
shapeMap,
seedX = 3.01,
seedY = 6.7
)
reduceToFewest(allLineMap)
Run the code above in your browser using DataLab