dev/test_dev/Convert/test_mod_process.R

In samWieczorek/Prostar.2.0: Provides a GUI for DAPAR

library(shiny)
library(shinyjs)
library(QFeatures)

library(Magellan)

options(shiny.fullstacktrace = T)
source(file.path('.', 'mod_Protein_Normalization.R'), local=FALSE)$value

verbose <- F
redBtnClass <- "btn-danger"
PrevNextBtnClass <- "btn-info"
btn_success_color <- "btn-success"
optionsBtnClass <- "info"
btn_style <- "display:inline-block; vertical-align: middle; padding: 7px"


AddItemToDataset <- function(dataset, name){
  addAssay(dataset, 
           dataset[[length(dataset)]], 
           name=name)
}


mod_test_process_ui <- function(id){
  ns <- NS(id)
  tagList(
    fluidRow(
      column(width=2,
             selectInput(ns('choosePipeline'), 'Choose pipeline',
                         choices = setNames(nm=c('', 'Protein')),
                         width = '200')
      ),
      column(width=2,
             selectInput(ns('chooseProcess'), 'Choose process', 
                         choices = setNames(nm=c('', 'Description', 'Normalization', 'Filtering')),
                         width = '200')
      ),
      column(width=2, actionButton(ns('simReset'), 'Remote reset')),
      column(width=2, actionButton(ns('simEnabled'), 'Remote enable/disable')),
      column(width=2, actionButton(ns('simSkipped'), 'Remote is.skipped'))
    ),
    uiOutput(ns('UI')),
    wellPanel(title = 'foo',
              tagList(
                h3('Valeur'),
                uiOutput(ns('show_Debug_Infos'))
              )
    )
  )
}


mod_test_process_server <- function(id){
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    
    utils::data(Exp1_R25_prot, package='DAPARdata2')
    
    obj <- NULL
    obj <- Exp1_R25_prot
    
    rv <- reactiveValues(
      dataIn = Exp1_R25_prot,
      dataOut = NULL,
      remoteReset = FALSE,
      remoteSkipped = FALSE,
      remoteEnabled = TRUE
    )
    
    
    observeEvent(input$simReset, {rv$remoteReset <- input$simReset})
    observeEvent(input$simEnabled, {rv$remoteEnabled <- input$simEnabled%%2 != 0})
    observeEvent(input$simSkipped, {rv$remoteSkipped <- input$simSkipped%%2 != 0})
    
    
    observe({
      req(input$choosePipeline != '' && input$chooseProcess != '')
      basename <- paste0(input$choosePipeline, '_', input$chooseProcess)
      
      # source(file.path('.', paste0('mod_', basename,'.R')), local=FALSE)$value
      
      rv$dataOut <- mod_nav_process_server(id = basename,
                                           dataIn = reactive({rv$dataIn}),
                                           is.enabled = reactive({rv$remoteEnabled}),
                                           remoteReset = reactive({rv$remoteReset}),
                                           is.skipped = reactive({rv$remoteSkipped})
      )
      observeEvent(rv$dataOut$dataOut()$trigger, {
        print('totototo')
        print(names(rv$dataOut$dataOut()$value))
        #browser()
      })
      
    }, priority=1000)
    
    
    
    
    
    output$UI <- renderUI({
      req(input$choosePipeline != '' && input$chooseProcess != '')
      mod_nav_process_ui(ns(paste0(input$choosePipeline, '_', input$chooseProcess)))
    })
    
    
    
    #--------------------------------------------------------------------
    
    output$show_Debug_Infos <- renderUI({
      fluidRow(
        column(width=2,
               tags$b(h4(style = 'color: blue;', "Data In")),
               uiOutput(ns('show_rv_dataIn'))),
        column(width=2,
               tags$b(h4(style = 'color: blue;', "Data Out")),
               uiOutput(ns('show_rv_dataOut')))
      )
    })
    
    ###########---------------------------#################
    output$show_rv_dataIn <- renderUI({
      req(rv$dataIn)
      tagList(
        lapply(names(rv$dataIn), function(x){tags$p(x)})
      )
    })
    
    output$show_rv_dataOut <- renderUI({
      req(rv$dataOut)
      tagList(
        lapply(names(rv$dataOut$dataOut()$value), function(x){tags$p(x)})
      )
    })
    
  })
}



#----------------------------------------------------------------------
ui <- fluidPage(
  mod_test_process_ui('test_mod_process')
)


#----------------------------------------------------------------------
server <- function(input, output){
  mod_test_process_server('test_mod_process')
}


shinyApp(ui, server)