tests/testthat/test-calc_distance.R

test_that("calc_distance works", {

  expect_type(calc_distance(evavelo_example_geocoded),
                  "list") %>%
    suppressMessages()

  expect_error(calc_distance(evavelo_example),
               "Cannot calculate distance on evadata that is not geocoded")
})
JMPivette/evavelo documentation built on April 8, 2023, 4:20 p.m.