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
testutilfunctions.R
context("Util functions")
test_that("prepareData replaces all NAs and filters fully NA rows", {
data <- prepareData(read.gct(system.file("testdata/centers.gct", package="phantasus")))
expect_equal(nrow(data), 5)
})
test_that("data preparation successfully eliminates na-rows when at first rows are specified", {
load(system.file("testdata/aa.rda", package="phantasus"))
data <- prepareData(aa, rows = unlist(jsonlite::read_json(system.file("testdata/rows", package="phantasus"))))
expect_equal(nrow(data), 10)
})