tests/testthat/test-distance_matrix.R

test_that("`distance_matrix()` works", {
  m <- distance_matrix(
    df = cities_coordinates,
    name_column = "name",
    distance = "euclidean"
  )
  expect_equal(attributes(m)$distance, "euclidean")
  expect_equal(ncol(m), nrow(cities_coordinates))
  expect_equal(nrow(m), nrow(cities_coordinates))
})

Try the distantia package in your browser

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

distantia documentation built on April 4, 2025, 5:42 a.m.