tests/testthat/test-gs_scores.R

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

context("Testing gene set scoring")

test_that("Scores are calculated and plotted", {
  gss_mat <- gs_scores(se = vst_macrophage,
                       res_de = res_macrophage_IFNg_vs_naive,
                       res_enrich = res_enrich_IFNg_vs_naive,
                       annotation_obj = anno_df)
  expect_is(gss_mat, "matrix")
  p <- gs_scoresheat(gss_mat)
  expect_is(p, "gg")
})