tests/testthat/test-conversion.R

In ATFutures/moveability: Moveability statistics for any specified city

context("conversion")

test_all <- (
    identical (Sys.getenv ("MPADGE_LOCAL"), "true") |
    identical (Sys.getenv ("TRAVIS"), "true"))

test_that ("moveability to polygons", {
    net <- dodgr::weight_streetnet (castlemaine, wt_profile = "foot")
    net <- net [net$component == 1, ]
    m <- moveability (streetnet = net, green_polys = castlemaine_green,
                      activity_points = castlemaine_attr)
    expect_message (p <- moveability_to_polygons (m = m,
                                                  streetnet = castlemaine),
                    "calculating fundamental cycles")
    expect_is (p, "sf")
    expect_equal (nrow (p), 423)
    expect_equal (ncol (p), 2)
    expect_identical (names (p), c ("moveability", "geometry"))
             })

test_that ("moveability_to_lines", {
m <- moveability (streetnet = castlemaine,
                  green_polys = castlemaine_green,
                  activity_points = castlemaine_attr)
#expect_silent (
    l <- moveability_to_lines (m = m,
                               streetnet = castlemaine)
#    )
expect_is (l, c ("sf", "data.frame"))
expect_length (l, 18)
expect_true (all (c ("object_", "edge_id", "flow", "geometry") %in% names (l)))
             })