tests/testthat/test_currentExtData.R

.test_that <- function(nm, expr) NULL

.test_that("extdata is current", {
  library(SummarizedExperiment)
  se <- readRDS(system.file("extdata", "simulated_se.rds", package="CNPBayes"))
  ##se2 <- updateObject(se)
  ## if this fails, we need to save the updated object in extdata/
  ##expect_identical(se, se2) 
  grl <- readRDS(system.file("extdata", "grl_deletions.rds", package="CNPBayes"))
  grl2 <- updateObject(grl)
  expect_identical(grl, grl2)
})

Try the CNPBayes package in your browser

Any scripts or data that you put into this service are public.

CNPBayes documentation built on May 6, 2019, 4:06 a.m.