inst/examples/appUpload.R

In nephantes/debrowser_bioconductor_release: Interactive Differential Expresion Analysis Browser

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

options(shiny.maxRequestSize = 30*1024^2)

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

body <- dashboardBody(
    tabItems(
        tabItem(tabName="Upload", dataLoadUI("load"),
                column(4,
                       verbatimTextOutput("counttable"),
                       verbatimTextOutput("metadatatable")
                )
        )
    ))

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

server <- function(input, output, session) {
    data <- callModule(debrowserdataload, "load")

    output$counttable <- renderPrint({
        head( data$load()$count )
    })
    output$metadatatable <- renderPrint({
        head( data$load()$meta)
    })
    
}

shinyApp(ui, server)