tests/testthat/test_qc.R

context("Quality control wrapper")
library(yamat)
library(minfiData)

skip_flag <- TRUE
report_dir <- tempdir()

test_that("qc()", {
  testthat::skip_if(skip_flag, "Skip")
  testthat::expect_error(qc(rgset = RGsetEx, report_dir = report_dir), NA)
})
markgene/yamat documentation built on Aug. 26, 2024, 11:56 p.m.