inst/examples/appBoxMain.R

In UMMS-Biocore/debrowser: Interactive Differential Expresion Analysis Browser

library(debrowser)
library(plotly)
source("../../R/boxmain.R")

options(warn =-1)

header <- dashboardHeader(
    title = "DEBrowser Box Plots"
)
sidebar <- dashboardSidebar(  sidebarMenu(id="DEAnlysis",
    menuItem("BoxMain", tabName = "BoxMain"),
    textInput("genename", "Gene/Region Name", value = "Foxa3" ),
    plotSizeMarginsUI("boxmain", h=400, t = 30)
))

body <- dashboardBody(
    tabItems(
        tabItem(tabName="BoxMain", 
            fluidRow(
                column(12,
                getBoxMainPlotUI("boxmain")))
        )
))

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

server <- function(input, output, session) {
    load(system.file("extdata", "demo", "demodata.Rda",
                     package = "debrowser"))
    cond_names <- c("Control", "Treat")
    
    observe({
        if (!is.null(input$genename))
            callModule(debrowserboxmainplot, "boxmain", demodata, 
            metadatatable$sample,  
            metadatatable$treatment, cond_names, input$genename)
})
}

shinyApp(ui, server)