https://github.com/ctlab/phantasus
Tip revision: 0c033b47255ebef5d3e17b1a3b4dee9a8abe6387 authored by Alexey Sergushichev on 27 February 2018, 15:55:49 UTC
js tests doesn't work on appveyor :(
js tests doesn't work on appveyor :(
Tip revision: 0c033b4
testpcaPlot.R
context("PCA Plot")
test_that("pcaPlot finishes with result", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
expect_is(calcPCA(es), "json")
})
test_that("pcaPlot results in columnsXcolumns matrix", {
load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
expect_equal(nrow(jsonlite::fromJSON(calcPCA(es))$pca),
length(sampleNames(es)))
})