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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.