tests/testthat/test_read_is_annotated.R

context("is_annotated()")
library(yamat)
library(minfiData)

skip_flag <- FALSE

test_that("an annotated minfi object returns TRUE", {
  testthat::skip_if(skip_flag, "Skip")
  testthat::expect_true(is_annotated(RGsetEx.sub))
})
markgene/yamat documentation built on Aug. 26, 2024, 11:56 p.m.