swh:1:snp:0c004a03453a29b80f921a24433f7e780b9ceb53
Tip revision: 3060d2b3ea45059741f3612cf8273a125315b3ac authored by Nitesh Turaga on 27 October 2020, 15:33:27 UTC
bump x.y.z version to odd y following creation of RELEASE_3_12 branch
bump x.y.z version to odd y following creation of RELEASE_3_12 branch
Tip revision: 3060d2b
testgseaPlot.R
context("GSEA plot")
library(jsonlite)
library(Biobase)
test_that("gseaPlot works", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
set.seed(42)
fData(es)$t <- rnorm(nrow(es))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4))
expect_true(file.exists(f))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4, vertical = TRUE))
expect_true(file.exists(f))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4, vertical = TRUE,
addHeatmap = TRUE, showAnnotation = "time"))
expect_true(file.exists(f))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4, vertical = FALSE,
addHeatmap = TRUE, showAnnotation = "time"))
expect_true(file.exists(f))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4, vertical = FALSE,
addHeatmap = TRUE))
expect_true(file.exists(f))
})
test_that("gseaPlot with heatmap works for single column", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
es <- es[, 1]
set.seed(42)
fData(es)$t <- rnorm(nrow(es))
f <- fromJSON(gseaPlot(es, rankBy = "t", selectedGenes = sample.int(nrow(es), 10),
width=6, height=4, addHeatmap = TRUE))
expect_true(file.exists(f))
})