tests/testthat/test_convert.R

In MicrobiotaProcess: an R package for analysis, visualization and biomarker discovery of microbiome

context("dataframe to treedata")
test_that("dataframe to treedata",{
    library(phyloseq)
    dir <- system.file("extdata", package="phyloseq")
    richph <- import_biom(file.path(dir,"rich_dense_otu_table.biom"))
    taxda <- tax_table(richph)
    taxda <- MicrobiotaProcess:::fillNAtax(taxda)
    treeda <- convert_to_treedata(taxda)
    expect_true(is(treeda, "treedata"))
})