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

In ShixiangWang/sigminer.helper: Explore, Analyze and Visualize Catalogs and Patterns of Copy Number Variation in Cancer Genomics

# Generated by roxytest: Do not edit by hand!

context("File R/show_seq_shape.R: @testexamples")

test_that("Function show_seq_shape() @ L28", {
  
  p <- show_seq_shape(c("ADGHK"))
  p
  
  x <- list(a = c("ABCDE", "AXFDP"), b = c("KKDFH", "GKDFM"))
  p2 <- show_seq_shape(x)
  p2
  
  p3 <- show_seq_shape(c("ABCD"), simple_version = TRUE)
  p3
  expect_is(p, "ggplot")
  expect_is(p2, "ggplot")
  expect_is(p3, "ggplot")
})