tests/testthat/test.plot_tissue_enrichment.R

In lagelab/Genoppi: genoppi

context('plot_tissue_enrichment')

data("gtex_rna")
data("example_data")
stats_df <- calc_mod_ttest(example_data)
sig_df <- id_significant_proteins(stats_df)
gtex_enrichment = lapply_calc_hyper(sig_df, gtex_rna, bait = 'BCL2')
  
test_that('plot_tissue_enrichemnt', {
  
  barplot = plot_tissue_enrichment(data = gtex_enrichment, 
                           col.tissue = 'list_name', 
                           col.value = 'pvalue')
  
  expect_true(!is.null(barplot))
  
})


test_that('plotly_tissue_enrichemnt', {
  
  # setup basic plot
  barplot = plotly_tissue_enrichment(data = gtex_enrichment, 
                                     col.tissue = 'list_name', 
                                     col.value = 'pvalue', 
                                     col.value.text = 'pvalue',
                                     col.value.order = 'increasing')
  
  # tests
  expect_true(all(barplot$x$visdat[[1]]()$list_name %in% gtex_enrichment$list_name))
  
  
})