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

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

# Generated by roxytest: do not edit by hand!

# File R/show_cosmic_signature_profile.R: @testexamples

test_that("Function show_cosmic_sig_profile() @ L23", {
  
  
  show_cosmic_sig_profile()
  show_cosmic_sig_profile(sig_db = "SBS")
  show_cosmic_sig_profile(sig_index = 1:5)
  show_cosmic_sig_profile(sig_db = "SBS", sig_index = c("10a", "17a"))
  
  gg <- show_cosmic_sig_profile(sig_index = 1:5)
  gg$aetiology
  
  expect_s3_class(gg, "ggplot")
})