inst/examples/appCondSelect.R

In nephantes/debrowser_bioconductor_release: Interactive Differential Expresion Analysis Browser

library(debrowser)
source("../../R/condSelect.R")

header <- dashboardHeader(
  title = "DEBrowser Condition Selector"
)
sidebar <- dashboardSidebar(  sidebarMenu(id="DataPrep",
    menuItem("CondSelect", tabName = "CondSelect")
))

body <- dashboardBody(
  tabItems(
    tabItem(tabName="CondSelect", 
    condSelectUI(),
    column(12,
           verbatimTextOutput("denum")
    ))
))

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

server <- function(input, output, session) {
  load(system.file("extdata", "demo", "demodata.Rda",
                   package = "debrowser"))
  observe({
     sel <- debrowsercondselect(input, output, session, demodata, metadatatable)
     output$denum <- renderPrint({
         head( sel$cc())
     })
  })
}

shinyApp(ui, server)