tests/testthat/test-gs_alluvial.R

context("Testing the alluvial plots")

test_that("Alluvial plot (interactive) is generated", {
  p <- gs_alluvial(res_enrich = res_enrich_IFNg_vs_naive,
                   res_de = res_macrophage_IFNg_vs_naive,
                   annotation_obj = anno_df,
                   n_gs = 5)
  expect_is(p, "plotly")
  expect_is(p, "htmlwidget")
})

Try the GeneTonic package in your browser

Any scripts or data that you put into this service are public.

GeneTonic documentation built on Nov. 8, 2020, 5:27 p.m.