tests/testthat/test-Species.R

require(dplyr)
species_duplicates<-LTMRdata::Species%>%
  summarise(across(contains("_Code"), ~any(duplicated(.x[!is.na(.x)]))))
test_that("Species dataset has no duplications", {
  expect_false(all(species_duplicates))
})
sbashevkin/LTMRdata documentation built on Oct. 16, 2024, 7:09 p.m.