inst/Tests/run_dev_CreateRNAseqModeleTest2.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 :",
                 DT::dataTableOutput("contrast")
                 )),
             fluidRow(box(title = "design matrix",DT::dataTableOutput("design")))
                       )
                   )

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))


Model <- reactiveValues(contrast = NULL, design = NULL)
observe({
    Model <- callModule(CreateModelServer, "Design",
                        sampleplan = metadata,
                        matrix = counts,
                        var = colnames(metadata$table),
                        session = session)
})

 # observe({
#   req(Model$contrast)
    output$contrast <- DT::renderDataTable(

      as.data.frame(Model$contrast)
    )
 # })

    output$design <- DT::renderDataTable(
      #req(Model$design),
      as.data.frame(Model$design)
    )


  }
  shinyApp(ui, server)
}