inst/Tests/run_dev_MergedModule.R

In bioinfo-pf-curie/bioshiny-modules-library: This library aims to provide R shiny apps developers of the Institut Curie with different modules witch can be used as bricks to build bigger shiny app

.rs.api.documentSaveAll() # close and save all open file
suppressWarnings(lapply(paste('package:', names(sessionInfo()$otherPkgs), sep = ""), detach, character.only = TRUE, unload = TRUE))
rm(list = ls(all.names = TRUE))
devtools::document('.')
devtools::load_all('.')
options(app.prod = FALSE) # TRUE = production mode, FALSE = development mode
library(shiny)
import::from(shinydashboard,box, dashboardPage,dashboardSidebar,dashboardBody,dashboardHeader)


if (interactive()){

  ui <- dashboardPage(
    dashboardHeader(title = "Creates model Test"),
    dashboardSidebar(),
    dashboardBody(
      fluidRow(
      #CreateModelUI("Design"),
      fluidRow(box(title = "Contrasts matrix :",width =12,
                   DT::dataTableOutput("contrast"),
                    DT::dataTableOutput("design"))),
      MergedDeaModUI(id = "DEA"))#,
     #textOutput("dds")
      # fluidRow(box(title = "Contrasts matrix :",width =12,
      #              DT::dataTableOutput("contrast")))
    )
  )

  server <- function(input, output, session) {

    metadata_path <- system.file("extdata", "metadata.csv", package = "BioshinyModules")
    counts_path <- system.file("extdata", "rawcounts.csv", package = "BioshinyModules")



    metadata <- reactiveValues(table = read.table(metadata_path, header = TRUE, sep = ",",
                                                  row.names = 1)
    )
    counts <- reactiveValues(table = read.table(counts_path, header = TRUE, sep = ",",
                                                row.names = 1)
    )

#
 DEA <- reactiveValues(res= NULL, upp = NULL, down = NULL)
# ModelDEA <- reactiveValues(design = NULL, contrast = NULL)
observe({
      DEA <- callModule(MergedDeaModServer, "DEA", session = session,
                           matrix = counts,
                           sampleplan = metadata,
                        var = colnames(metadata$table))
})
#
#     output$contrast <- DT::renderDataTable(
#
#       as.data.frame(Model$contrast)
#     )
#
#     output$design <- DT::renderDataTable(
#
#       as.data.frame(Model$design)
#     )
#


# observe({
#   ModelDEA$design <- Model$design
#   ModelDEA$contrast <- Model$contrast
#   DEA <- callModule(DEAServer, "DEA", session = session,
#                        countmatrix = counts,
#                        Model = ModelDEA)
# })
#     #observeEvent(DEA$res,{
# #DEA <- "a"
# observe({
#     #if(DEA != "a"){
#     print("DEA$res")
#     print(DEA$res)
# #}
# })

    #output$dds <- renderText(renderPrint(print(dds$mydds)))


  }
  shinyApp(ui, server)
}