tests/testthat/test.newMorphodata.R

context(".newMorphodata")

test_that("check class of new object",  {


  newObject = .newMorphodata()

  expect_is(newObject, "morphodata")

  expect_output(str(newObject), "List of 4")

  expect_named(newObject, c('ID', 'Population', 'Taxon', 'data'))


})

Try the MorphoTools2 package in your browser

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

MorphoTools2 documentation built on March 7, 2023, 6:18 p.m.