## Test unit 'testgetReference'
.setUp <-
function () {
## Specific actions for svUnit: prepare context
if ("package:svUnit" %in% search()) {
.Log <- Log() ## Make sure .Log is created
.Log$..Unit <- "inst/unitTests/runittestGenericGSM.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)
}
}
"testgetReference" <-
function() {
sra = getReference('SRR390728')
checkEquals(Accession(sra),'SRR390728')
checkEquals(nrow(Table(sra)),50)
checkEquals(ncol(Table(sra)),4)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.