tests/testthat/test-3.R

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

library(ConR)

data(dataset.ex)

dummy_ex <- 
  data.frame(ddlat = rnorm(10)*10, 
             ddlon = rnorm(10)*10, taxa = rep("taxa", 10))

context("Test that criterion_b outputs are correct length and objects")

# test_that("criterion_B", {
#   
#   Results <- criterion_B(x = dummy_ex)
#   
#   expect_equal(class(Results), "data.frame")
#   expect_equal(dim(Results), c(1,11))
#   
# 
# })


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