if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
library(r5r)
# build transport network
path <- system.file("extdata/poa", package = "r5r")
r5r_core <- setup_r5(path)
# extract street network from r5r_core
street_net <- street_network_to_sf(r5r_core)
stop_r5(r5r_core)
}
Run the code above in your browser using DataLab