Bug in dodgr_isodists? - Githubissues

library (dodgr)
packageVersion ("dodgr")
#> [1] '0.2.9.29'
graph <- weight_streetnet (hampi, wt_profile = "foot")
graph <- graph [graph$component == 1, ]

do1 <- function (graph, n = 1) {

    from <- dodgr_vertices (graph)$id [n]
    x <- dodgr_isodists (graph, from = from, dlim = 1000)
    if (nrow (x) == 0L)
        return (NA)

    to <- x$id
    d <- dodgr_dists (graph, from = from, to = to)
    max (d)
}

d0 <- vapply (seq (nrow (dodgr_vertices (graph))),
              function (i) do1 (graph, i),
              numeric (1))
devtools::load_all (".", export_all = TRUE)
#> ℹ Loading dodgr
packageVersion ("dodgr")
#> [1] '0.2.9.32'
d <- vapply (seq (nrow (dodgr_vertices (graph))),
             function (i) do1 (graph, i),
             numeric (1))

plot (d0, d, pch = 1, col = "orange")

^{Created on 2021-09-19 by the reprex package (v2.0.0.9000)}

And the distribution beforehand (d0) was all mucked up, with way too many distances well below the threshold. New version (d) clearly gets it right.

UrbanAnalyst / dodgr

Bug in dodgr_isodists? #168