tests/testthat/test_enrichX.R

In YuLab-SMU/MicrobiomeProfiler: An R/shiny package for microbiome functional enrichment analysis

test_that("test enrich function works", {
    library(MicrobiomeProfiler)
    data("Psoriasis_data")
    data("Rat_data")
    data("microbiota_taxlist")
    ko <- MicrobiomeProfiler::enrichKO(Rat_data)
    expect_s4_class(ko, class ="enrichResult")

    ko2 <- MicrobiomeProfiler::enrichKO(Psoriasis_data)
    expect_equal(ko2, NULL)

    cog <- MicrobiomeProfiler::enrichCOG(Psoriasis_data,dtype = "category")
    expect_s4_class(cog, class ="enrichResult")

    cog2 <- MicrobiomeProfiler::enrichCOG(Rat_data,dtype = "category")
    expect_equal(cog2, NULL)

    mda <- MicrobiomeProfiler::enrichMDA(microbiota_taxlist)
    expect_s4_class(mda,class ="enrichResult")


    mda2 <- MicrobiomeProfiler::enrichMDA(Psoriasis_data)
    expect_equal(mda2, NULL)


    y2 <- c("C00002","C00041","C00020")
    mb <- MicrobiomeProfiler::enrichSMPDB(mb_examplelist)
    expect_s4_class(mb, class ="enrichResult")

    mb2 <- MicrobiomeProfiler::enrichSMPDB(y2)
    expect_equal(mb2, NULL)

    mb3 <- MicrobiomeProfiler::enrichMBKEGG(y2)
    expect_s4_class(mb3,class ="enrichResult")

    mb4 <- MicrobiomeProfiler::enrichMBKEGG(mb_examplelist)
    expect_equal(mb4, NULL)

    y3 <- c("HMDB0000001","HMDB0000005","HMDB0000008")
    mb5 <- MicrobiomeProfiler::enrichHMDB(y3)
    expect_s4_class(mb5,class ="enrichResult")

    mb6 <- MicrobiomeProfiler::enrichHMDB(y2)
    expect_equal(mb6, NULL)


})