test_that("enrichment in mixed data returns correctly formatted output", {
library(properties)
dbpass <- properties::read.properties('../../dbprops.txt')
pkg.globals <- setConnectionToRaMP(host=dbpass$hostname, dbname=dbpass$dbname, username=dbpass$username, conpass=dbpass$conpass)
assign("pkg.globals", pkg.globals, envir = .GlobalEnv)
analytes <- c(
"ensembl:ENSG00000135679",
"hmdb:HMDB0000064",
"hmdb:HMDB0000148",
"ensembl:ENSG00000141510"
)
result <- runCombinedFisherTest(analytes = analytes)
expect_equal(
(length(result)>1),
TRUE
)
expect_equal(
class(result[[1]]),
"data.frame"
)
expect_equal(
(ncol(result[[1]])>5),
TRUE
)
})
test_that("enrichment in metabolite data returns correctly formatted output", {
library(properties)
dbpass <- properties::read.properties('../../dbprops.txt')
pkg.globals <- setConnectionToRaMP(host=dbpass$hostname, dbname=dbpass$dbname, username=dbpass$username, conpass=dbpass$conpass)
assign("pkg.globals", pkg.globals, envir = .GlobalEnv)
analytes <- c(
"hmdb:HMDB0000064",
"hmdb:HMDB0000148"
)
result <- runCombinedFisherTest(analytes = analytes)
expect_equal(
(length(result)>1),
TRUE
)
expect_equal(
class(result[[1]]),
"data.frame"
)
expect_equal(
(ncol(result[[1]])>5),
TRUE
)
})
test_that("enrichment in gene data returns correctly formatted output", {
library(properties)
dbpass <- properties::read.properties('../../dbprops.txt')
pkg.globals <- setConnectionToRaMP(host=dbpass$hostname, dbname=dbpass$dbname, username=dbpass$username, conpass=dbpass$conpass)
assign("pkg.globals", pkg.globals, envir = .GlobalEnv)
genes <- c(
"ensembl:ENSG00000135679",
"ensembl:ENSG00000141510"
)
result <- runCombinedFisherTest(analytes = genes)
expect_equal(
(length(result)>1),
TRUE
)
expect_equal(
class(result[[1]]),
"data.frame"
)
expect_equal(
(ncol(result[[1]])>5),
TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.