tests/testthat/test-roxytest-testexamples-show_sig_exposure.R

In ShixiangWang/sigminer: Extract, Analyze and Visualize Mutational Signatures for Genomic Variations

# Generated by roxytest: do not edit by hand!

# File R/show_sig_exposure.R: @testexamples

test_that("Function show_sig_exposure() @ L48", {
  
  
  # Load mutational signature
  load(system.file("extdata", "toy_mutational_signature.RData",
    package = "sigminer", mustWork = TRUE
  ))
  # Show signature exposure
  p1 <- show_sig_exposure(sig2)
  p1
  
  # Load copy number signature
  load(system.file("extdata", "toy_copynumber_signature_by_W.RData",
    package = "sigminer", mustWork = TRUE
  ))
  # Show signature exposure
  p2 <- show_sig_exposure(sig)
  p2
  
  expect_s3_class(p1, "ggplot")
  expect_s3_class(p2, "ggplot")
})