Scatterplot module — scattermod • carnation

Module UI + server for generating scatter plots.

Usage

scatterPlotUI(id, panel)

scatterPlotServer(id, obj, plot_args, gene_scratchpad, reset_genes, config)

Arguments

id: Module id
panel: string, can be 'sidebar' or 'main' passed to UI
obj: reactiveValues object containing carnation object passed to server
plot_args: reactive containing 'fdr.thres' (padj threshold), 'fc.thres' (log2FC)
gene_scratchpad: reactive containing gene scratchpad genes
reset_genes: reactive to reset gene scratchpad selection
config: reactive list with config settings passed to server

Value

UI returns tagList with scatter plot UI. Server invisibly returns NULL (used for side effects).

Examples

if (FALSE) { # interactive()
library(shiny)

# Create reactive values to simulate app state
oobj <- make_example_carnation_object()

obj <- reactiveValues(
   dds = oobj$dds,
   rld = oobj$rld,
   res = oobj$res,
   all_dds = oobj$all_dds,
   all_rld = oobj$all_rld,
   dds_mapping = oobj$dds_mapping
)

plot_args <- reactive({
  list(
    fdr.thres=0.1,
    fc.thres=0
  )
})

gene_scratchpad <- reactive({ c('gene1', 'gene2') })
reset_genes <- reactiveVal()

config <- reactiveVal(get_config())

shinyApp(
  ui = fluidPage(
         sidebarPanel(scatterPlotUI('p', 'sidebar')),
         mainPanel(scatterPlotUI('p', 'sidebar'))
       ),
  server = function(input, output, session){
             scatter_data <- scatterPlotServer('p', obj, plot_args,
                               gene_scratchpad, reset_genes, config)
           }
)
}