tests/testthat/test-hyp_to_table.R

In montilab/hypeR: An R Package For Geneset Enrichment Workflows

test_that("hyp_to_table() is working", {
  testdat <- readRDS(file.path(system.file("extdata", package = "hypeR"), "testdat.rds"))
  gsets_obj <- testdat$gsets
  rgsets_obj <- testdat$rgsets

  signature <- testdat$signature
  experiment <- testdat$experiment

  hyp_obj <- hypeR(signature, gsets_obj)
  multihyp_obj <- hypeR(experiment, rgsets_obj)

  # A single file
  hyp_to_table(hyp_obj, file_path = "signature.txt", sep = "\t")
  expect_true(file.exists("signature.txt"))

  # Multiple files within a directory
  hyp_to_table(multihyp_obj, file_path = "experiment", sep = "\t")
  expect_true(file.exists("experiment/Signature 1.txt"))
  expect_true(file.exists("experiment/Signature 2.txt"))
  expect_true(file.exists("experiment/Signature 3.txt"))
})