tests/testthat/test_create_taxa_map.R

In EDIorg/taxonomyCleanr: A workflow and set of functions to clean taxonomy data using R

context('Initialize taxa_map.csv')
library(taxonomyCleanr)

# Initialize test data --------------------------------------------------------

data <- data.table::fread(
  file = system.file('test_data.txt', package = 'taxonomyCleanr'),
  fill = TRUE,
  blank.lines.skip = TRUE
)

taxa_map <- suppressWarnings(create_taxa_map(x = data, col = 'Species'))

path <- system.file('test_data.txt', package = 'taxonomyCleanr')
path <- substr(path, 1, nchar(path) - 14)

# Tests -----------------------------------------------------------------------

testthat::test_that('Return data frame', {
  expect_equal(class(taxa_map), 'data.frame')
})

testthat::test_that('Dimensions should agree', {
  expect_equal(dim(taxa_map),c(length(unique(data$Species)), ncol(taxa_map)))
})

# Generate errors
testthat::test_that('Expect errors', {
  expect_error(create_taxa_map(path = path, x = data))
  expect_error(create_taxa_map(path = path, col = 'Species'))
})