tests/testthat/test-coordinates.R

context("coordinates")

test_that("coordinatize works", {
  # dt  <- readRDS("inst/lagos_test_subset.rds")
  dt  <- readRDS("lagos_test_subset.rds")
  res <- coordinatize(dt$locus$lake_information)

  expect_equal(nrow(res), 2)
  expect_s3_class(res, "sf")
})
cont-limno/LAGOSUS documentation built on Aug. 24, 2023, 10:01 a.m.