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")
pointMap <- makeVGAPointMap(
sfMap,
gridSize = 0.5,
fillX = 3.01,
fillY = 6.7,
maxVisibility = NA,
boundaryGraph = FALSE,
verbose = FALSE
)
unmakeVGAGraph(
pointMap = pointMap,
removeLinks = FALSE
)
Run the code above in your browser using DataLab