Visualize DESeq2 result in an interactive Shiny app

Visualize DESeq2 result in an interactive Shiny app

# S3 method for DESeqDataSet
interactivate(x, res = DESeq2::results(x), seed = 123, ...)

Arguments

x	A DESeqDataSet class object. It is normally returned by DESeq.
res	The object returned by results.
seed	Random seed. It is mainly set for the random colors of annotations.
...	Other arguments.

Examples

if(interactive()) {
    require(airway)
    data(airway)
    se = airway

    require(DESeq2)
    dds = DESeqDataSet(se, design = ~ dex)
    keep = rowSums(counts(dds)) >= 10
    dds = dds[keep, ]
    dds$dex = relevel(dds$dex, ref = "untrt")
    dds = DESeq(dds)

    interactivate(dds)
}