tests/testthat/test_matching_ppendemic.R

test_that("all species within genus names matched in test", {
  species <- c('Festuca densiflora',
               'Festuca dentiflora')
  df <- matching_ppendemic(species)

  expect_true(all(as.logical(df$matched)))
  expect_true(all(df$Matched.Name %in% df$Orig.Name))

})

Try the ppendemic package in your browser

Any scripts or data that you put into this service are public.

ppendemic documentation built on Sept. 11, 2024, 5:27 p.m.