## Test unit 'testSuppFileSupport'
.setUp <-
function () {
## Specific actions for svUnit: prepare context
if ("package:svUnit" %in% search()) {
.Log <- Log() ## Make sure .Log is created
.Log$..Unit <- "inst/unitTests/runittestSuppFileSupport.R"
.Log$..File <- ""
.Log$..Obj <- ""
.Log$..Tag <- ""
.Log$..Msg <- ""
rm(..Test, envir = .Log)
}
}
.tearDown <-
function () {
## Specific actions for svUnit: clean up context
if ("package:svUnit" %in% search()) {
.Log$..Unit <- ""
.Log$..File <- ""
.Log$..Obj <- ""
.Log$..Tag <- ""
.Log$..Msg <- ""
rm(..Test, envir = .Log)
}
}
"testSuppFileSupport" <- function() {
####################################
## GSE
fres = getGEOSuppFiles('GSE1000')
if(.Platform$OS.type == "unix") {
checkEquals(10,ncol(fres))
} else {
checkEquals(7,ncol(fres))
}
checkEquals(2,nrow(fres))
#####################################
## GSM
fres = getGEOSuppFiles('GSM15789')
if(.Platform$OS.type == "unix") {
checkEquals(10,ncol(fres))
} else {
checkEquals(7,ncol(fres))
}
checkEquals(1,nrow(fres))
#####################################
## GSM
fres = getGEOSuppFiles('GSM15789',baseDir=tempdir())
if(.Platform$OS.type == "unix") {
checkEquals(10,ncol(fres))
} else {
checkEquals(7,ncol(fres))
}
checkEquals(1,nrow(fres))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.