tests/testthat/test_rm_plural_colnames.R

test_that("Remove plurals in column names", {

  colnames <- rm_plural_colnames(c("traits1", "traits2", "traits3", "ecotypes"))
  expect_equal(colnames, c("trait1", "trait2", "trait3", "ecotype"))

})
rscherrer/speciomer documentation built on March 11, 2023, 5:37 p.m.