tests/testthat/test-get_human_tfs.R

In TransBioInfoLab/MethReg: Assessing the regulatory potential of DNA methylation regions or sites on gene transcription

test_that("get_human_tfs return list of TFs", {
    skip_if_offline()
    skip_on_bioc()
    human.tfs <- get_human_tfs()
    expect_true("FOXA1" %in% human.tfs$external_gene_name)
    expect_true(!"COL6A1" %in% human.tfs$external_gene_name)
})