Revision cb7361360b7d8e90cb2503a8df74b01e05bb8365 authored by petrovich on 19 July 2018, 13:41:12 UTC, committed by petrovich on 19 July 2018, 13:54:09 UTC
1 parent 343aff8
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)
})
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...