tests/testthat/test-stations.R

In mpadge/bikedata: Download and Aggregate Data from Public Hire Bicycle Systems

context ("stations")

require (testthat)

bikedb <- system.file ("db", "testdb.sqlite", package = "bikedata")

test_that ("bike_stations function", {
               st <- bike_stations (bikedb)
               expect_equal (names (st), c ("id", "city", "stn_id", "name",
                                            "longitude", "latitude"))
               expect_true (nrow (st) == 2192)
               expect_equal (length (unique (st$city)), 6)
               expect_equal (nrow (st [st$city == "bo", ]), 93)
               expect_equal (nrow (st [st$city == "ch", ]), 581)
               expect_equal (nrow (st [st$city == "dc", ]), 456)
               expect_equal (nrow (st [st$city == "la", ]), 50)
               expect_equal (nrow (st [st$city == "lo", ]), 779)
               expect_equal (nrow (st [st$city == "ny", ]), 233)
})

test_all <- (identical (Sys.getenv ("MPADGE_LOCAL"), "true") |
             identical (Sys.getenv ("GITHUB_WORKFLOW"), "test-coverage"))

# extra tests for other cities
test_that ("stations for extra cities", {
               if (test_all) {

                   st <- NULL
                   tryCatch (st <- bike_get_gu_stations (),
                             warning = function (w) NULL,
                             error = function (e) NULL)
                   if (length (st) == 0) st <- NULL
                   if (!is.null (st)) {

                       expect_equal (ncol (st), 4)
                       expect_true (nrow (st) > 200) # currently 243
                   }

                   st <- NULL
                   data_dir <- tempdir ()
                   flists <- list (flist_csv_stns = NULL)
                   tryCatch (st <- bike_get_bo_stations (flists, data_dir),
                             warning = function (w) NULL,
                             error = function (e) NULL)
                   if (length (st) == 0) st <- NULL
                   if (!is.null (st)) {

                       expect_equal (ncol (st), 4)
                       expect_true (nrow (st) > 200) # currently 300
                   }
               }
})