tests/testthat/test_pre_gsea.R

context("test pre_gsea output")

library(lncGSEA)

test_that("First column name is PRAD and Second column is T136792", {
    df.test <- pre_gsea("PRAD", "T136792", "/Users/yren/Projects/lncGSEA/inst/extdata/", fortest = TRUE)

    expect_equal(names(df.test)[1], "PRAD")
    expect_equal(names(df.test)[2], "T136792")
})
ylab-hi/lncGSEA documentation built on Aug. 20, 2020, 9:41 a.m.