tests/testthat/test-1.R

In gdauby/ConR: Computation of Parameters Used in Preliminary Assessment of Species Conservation Status

library(ConR)



# data(land)

dummy_ex <-
  data.frame(ddlat = rnorm(10)*10,
             ddlon = rnorm(10)*10, taxa = rep("taxa", 10))
# 
# context("Test that EOO.computing outputs are correct length and objects")
# 
# test_that("EOO.computing", {
# 
#   EOO <- EOO.computing(XY = dummy_ex)
#   
#   expect_output(str(EOO), "data.frame")
#   expect_equal(dim(EOO), c(1,2))
#   
#   
# })

if (!requireNamespace("lwgeom", quietly = TRUE)) {
  
  expect_error(
    EOO.computing(XY = dummy_ex),
    regexp = paste0(
      "The \\'lwgeom\\' package is required to run this function\\. ",
      "Please install it first\\."
    )
  )
  
  skip("'lwgeom' package required to run EOO.computing() tests.")
  
}