tests/testthat/test-ddist_xy_sf.R

In jvieroe/dyadicdist: Compute Dyadic Distances

#
# test_that("output dimensions work", {
#   expect_equal(nrow(dyadicdist::ddist_xy_sf(readRDS(system.file("testdata", "df_sf_1.rds", package = "dyadicdist")),
#                                             readRDS(system.file("testdata", "df_sf_2.rds", package = "dyadicdist")),
#                                             ids = c("id", "id"))),
#                nrow(readRDS(system.file("testdata", "df_sf_1.rds", package = "dyadicdist"))) * nrow(readRDS(system.file("testdata", "df_sf_2.rds", package = "dyadicdist"))))
# })
#
#
# test_that("distance units work", {
#   expect_equal(dyadicdist::ddist_xy_sf(readRDS(system.file("testdata", "df_sf_1.rds", package = "dyadicdist")),
#                                        readRDS(system.file("testdata", "df_sf_2.rds", package = "dyadicdist")),
#                                        ids = c("id", "id")) %>%
#                  pull(distance_units) %>%
#                  unique(),
#                "m")
# })
#
# test_that("distance units work", {
#   expect_equal(dyadicdist::ddist_xy_sf(readRDS(system.file("testdata", "df_sf_1.rds", package = "dyadicdist")),
#                                        readRDS(system.file("testdata", "df_sf_2.rds", package = "dyadicdist")),
#                                        ids = c("id", "id"),
#                                        crs_transform = TRUE,
#                                        new_crs = 3359) %>%
#                  pull(distance_units) %>%
#                  unique(),
#                "US_survey_foot")
# })
#