Skip to main content
Revision 9f7b6d4e450c337560b4a6df9198aa74c9be01b9 authored by Vladislav Kamenev on 07 August 2018, 09:41:33 UTC, committed by GitHub on 07 August 2018, 09:41:33 UTC
Merge pull request #85 from ctlab/develop
Develop
2 parent s d144ef5 + 39a8be5
Raw File Download
testgct.R
context("GCT")

test_that("write.gct and read.gct work", {
    load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
    gctFile <- tempfile(fileext = ".gct")
    write.gct(es, gctFile)
    es2 <- read.gct(gctFile)
    expect_equal(dim(es2), dim(es))
})

test_that("write.gct and read.gct work for gzip files", {
    load(file = system.file("testdata/GSE27112-GPL6103.rda", package="phantasus"))
    gctFile <- tempfile(fileext = ".gct.gz")
    write.gct(es, gctFile, gzip = T)
    es2 <- read.gct(gctFile)
    expect_equal(dim(es2), dim(es))
})