tests/testthat/test-bus-path.R

test_that("bus paths return list of shapes and stop", {
  skip_if_no_key()
  Sys.sleep(0.11)
  p <- bus_path("10A")
  expect_type(p, "list")
  expect_length(p, 4)
  expect_s3_class(p$ShapePoint, "data.frame")
  expect_s3_class(p$Stops, "data.frame")
})

Try the metro package in your browser

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

metro documentation built on Nov. 2, 2023, 6:06 p.m.