tests/testthat/test-plot_main_dbs_contexts.R

context("test-plot_main_dbs_contexts")

## Get dbs counts
dbs_counts <- readRDS(system.file("states/blood_dbs_counts.rds",
  package = "MutationalPatterns"
))

## Plot contexts
output <- plot_main_dbs_contexts(dbs_counts)

test_that("Output has correct class", {
  expect_true(inherits(output, c("gg")))
})
CuppenResearch/MutationalPatterns documentation built on Nov. 23, 2022, 4:13 a.m.