if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
library(r5r)
path <- system.file("extdata/poa", package = "r5r")
r5r_core <- setup_r5(data_path = path)
points <- read.csv(file.path(path, "poa_hexgrid.csv"))
snap_df <- find_snap(r5r_core, points, mode = "WALK")
stop_r5(r5r_core)
}
Run the code above in your browser using DataLab