tests/testthat/test_test_gtfs_freq.R

test_that("test_gtfs_freq", {
  
  poa <- read_gtfs(system.file("extdata/poa.zip", package="gtfs2gps"))
  expect_equal(test_gtfs_freq(poa), "simple")
  
  spo <- read_gtfs(system.file("extdata/saopaulo.zip", package="gtfs2gps"))
  expect_equal(test_gtfs_freq(spo), "frequency")
  
})

Try the gtfs2gps package in your browser

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

gtfs2gps documentation built on April 29, 2023, 1:12 a.m.