tests/testthat/test-basic.R

In noriakis/wcGeneSummary: visualization and interpretation of textual information from omics summary data through network analysis

test_that("test basic functions produce no errors", {
    geneList <- c("CXCL10","CXCL9","ERCC1","PNKP","DDX41")

    library(ggraph)
    expect_error( refseq(geneList), NA)
    expect_error( refseq(geneList, ora=TRUE), NA)
    expect_error( refseq(geneList, plotType="network"), NA)
    expect_error( refseq(geneList,
        plotType="network", genePlot=TRUE), NA)
    
    ## Test plotEigengeneNetworksWithWords
    library(igraph)
    mod <- returnExample()
    expect_error( plotEigengeneNetworksWithWords(mod$MEs, mod$colors), NA)
    

})