tests/testthat/test-download_gse_data.R

context("ExpressionSet object S4 type")
library(tinker)

test_that("gse is an s4 object", {
  
 gse <- download_gse_data("GSE108000") 
  
 expect_type(gse, "S4")
})
jeffreyLbrabec/tinker documentation built on Nov. 4, 2019, 2:37 p.m.