..Rcheck/tests/testthat/test-buildDataSetFromGeo.R

In drake69/semseeker: Stochastic Epigenetic Mutations SEM Seeker

# test_that("build_data_set_from_geo", {
#
#   skip_on_ci()
#   skip_on_covr()
#   skip_on_travis()
#
#   library(stringi)
# tmp <- tempdir()
# tempFolder <- paste(tmp,"/semseeker/",stringi::stri_rand_strings(1, 7, pattern = "[A-Za-z0-9]"),sep="")
#   sample_sheet <- semseeker::build_data_set_from_geo("GSE132616",tempFolder, 1)
#
#   testthat::expect_true(nrow(sample_sheet)>0)
#   testthat::expect_true(file.exists(file.path(tempFolder,"/203048410118_R03C01_Red.idat")))
# }
# )