# NOT RUN {
library(spNetwork)
networkgpkg <- system.file("extdata", "networks.gpkg",package = "spNetwork", mustWork = TRUE)
lines <- sf::st_read(networkgpkg,layer="mtl_network")
edited_lines <- simplify_network(lines, digits = 3, verbose = FALSE)
# }
Run the code above in your browser using DataLab