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

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

# Generated by roxytest: do not edit by hand!

# File R/get_sv.R: @testexamples

test_that("Function read_sv_as_rs() @ L29", {
  
  sv <- readRDS(system.file("extdata", "toy_sv.rds", package = "sigminer", mustWork = TRUE))
  rs <- read_sv_as_rs(sv)
  # svclass is optional
  rs2 <- read_sv_as_rs(sv[, setdiff(colnames(sv), "svclass")])
  identical(rs, rs2)
  
  expect_is(rs, "RS")
  expect_is(tally_rs, "list")
})