context("plotGeneEffectVsExpression")
test_that("GeneEffect", {
effect <- GeneEffect()
expression <- CCLEExpressionData()
gene <- as.character(rowData(effect)[["geneName"]])[[1L]]
subtype <- as.character(colData(effect)[["subtype"]])[[1L]]
p <- plotGeneEffectVsExpression(
effect = effect,
expression = expression,
gene = gene,
subtype = subtype
)
expect_s3_class(p, "ggplot")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.