context("test parsing and pre-processing PhyloProfile input")

test_that("test connection to taxonomy files and getting input taxa", {
    rankName <- "species"
    inputDf <- createLongMatrix("mainWideTest.txt")

    inputTaxonID <- getInputTaxaID(inputDf)
    expect_true(length(inputTaxonID) == 5)

    inputTaxonName <- getInputTaxaName(rankName, inputTaxonID)
    expect_true(nrow(inputTaxonName) == 5)

Try the PhyloProfile package in your browser

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

PhyloProfile documentation built on March 27, 2021, 6:01 p.m.