tests/testthat/test-web_and_biadjacency.R

In thomazbastiaanssen/anansi: Annotation-Based Analysis of Specific Interactions

test_that("kegg wrapper is equivalent", {
    data("ec2cpd", package = "anansi", envir = environment())
    data("ec2ko", package = "anansi", envir = environment())
    web_g <- weaveWeb(cpd ~ ko, link = list(ec2ko = ec2ko, ec2cpd = ec2cpd))
    web_k <- weaveKEGG(cpd ~ ko)

    expect_identical(web_g, web_k)
})

test_that("Swapping terms in formula is equivalent to transposition", {
    a <- dictionary(weaveWeb(ko ~ cpd, link = kegg_link()))
    b <- dictionary(weaveWeb(cpd ~ ko, link = kegg_link()))

    expect_identical(a, Matrix::t(b))
})