tests/testthat/test-od2line.R

context("Test the od2line function")

test_that(
  desc = "od2line generates SpatialLinesDataFrame output",
  code = {
    data("flow", package = "stplanr")
    data("cents", package = "stplanr")
    l <- od2line(flow = flow, zones = cents)
    data("flowlines")
    expect_true(class(l) == "SpatialLinesDataFrame")
  }
)

Try the stplanr package in your browser

Any scripts or data that you put into this service are public.

stplanr documentation built on Oct. 20, 2018, 5:05 p.m.