tests/testthat/testCreateTaxonomyMatrix.R

In BIONF/PhyloProfile: PhyloProfile

context("test creating taxonomy matrix function")

test_that("get taxonomy IDs for list of taxa", {
    allTaxonInfo <- data.table::fread("taxonNamesTest.txt")
    inputTaxa <- c("272557")

    taxonomyInfo <- getIDsRank(inputTaxa, allTaxonInfo)
    reducedInfoList <- as.data.frame(taxonomyInfo[3])
    expect_that(nrow(reducedInfoList), equals(10))
})

test_that("get taxonomy Info for list of taxa", {
    inputTaxa <- c("272557", "176299", "123456789")
    ncbiFilein <- system.file(
        "extdata", "data/preProcessedTaxonomy.txt",
        package = "PhyloProfile", mustWork = TRUE
    )
    currentNCBIinfo <- as.data.frame(data.table::fread(ncbiFilein))
    expect_warning(getTaxonomyInfo(inputTaxa, currentNCBIinfo))
    
    out <- suppressWarnings(getTaxonomyInfo(inputTaxa, currentNCBIinfo))
    expect_that(length(out), equals(2))
})

test_that("create taxonomy matrix file", {
    taxMatrix <- taxonomyTableCreator("idListTest.txt", "rankListTest.txt")
    expect_that(taxMatrix, is_a("data.frame"))
})