test_that("Check class of OGREDataSetFromDir", {
myQueryFolder <- file.path(system.file('extdata', package = 'OGRE'),"query")
mySubjectFolder <- file.path(system.file('extdata', package = 'OGRE'),"subject")
myOGRE <- OGREDataSetFromDir(queryFolder=myQueryFolder,subjectFolder=mySubjectFolder)
expect_equal(class(myOGRE),class(GRangesList()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.