library(GeneSurvey)
#################################################################
#################################################################
baseDir <- getBaseDir()
zipFile <- getZipDir()
if ((!is.null(baseDir))&&(!is.null(zipFile)))
{
initGeneReport("-Xmx4800m")
# "hsa-let-7a.MIMAT0000062"
foo <- getImputedNAs_GeneSymbol_RnaSeq2(getNames_GeneSymbol_RnaSeq2(theZipFile=zipFile)[1], theZipFile=zipFile)
(1==dim(foo)[1])&&
(10464==dim(foo)[2])
} else {
message("No test data. Skip test.")
TRUE
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.