inst/examples/appAll2All.R

In nephantes/debrowser_bioconductor_release: Interactive Differential Expresion Analysis Browser

library(debrowser)

options(warn =-1)

header <- dashboardHeader(
  title = "DEBrowser All2All Plots"
)
sidebar <- dashboardSidebar(  sidebarMenu(id="DEAnlysis",
      menuItem("All2All", tabName = "All2All"),
      plotSizeMarginsUI("all2all", h=800, w=800),
      all2allControlsUI("all2all")
))

body <- dashboardBody(
    tabItems(
        tabItem(tabName="All2All", 
        fluidRow(
            column(12,
            getAll2AllPlotUI("all2all")))
    )
))

ui <- dashboardPage(header, sidebar, body, skin = "blue")

server <- function(input, output, session) {
    load(system.file("extdata", "demo", "demodata.Rda",
                   package = "debrowser"))
    observe({
        callModule(debrowserall2all, "all2all", demodata, input$cex)
    })
}

shinyApp(ui, server)