tests/testthat/test-gs_simplify.R

In federicomarini/GeneTonic: Enjoy Analyzing And Integrating The Results From Differential Expression Analysis And Functional Enrichment Analysis

context("Testing the geneset simplify feature based on overlap")

test_that("Dataset is simplified", {
  res_simp <- gs_simplify(res_enrich_IFNg_vs_naive,
    gs_overlap = 0.75
  )
  expect_is(res_simp, "data.frame")
  expect_true(nrow(res_simp) < nrow(res_enrich_IFNg_vs_naive))

  res_megasimp <- gs_simplify(res_enrich_IFNg_vs_naive,
    gs_overlap = 0
  )
  expect_equal(nrow(res_megasimp), 11)

  res_simp <- get_aggrscores(res_simp,
    res_macrophage_IFNg_vs_naive,
    annotation_obj = anno_df,
    aggrfun = mean
  )
  expect_is(gs_volcano(res_simp), "gg")
})