inst/ProstarApp/mod_choose_pipeline.R

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

# Module UI
  
#' @title   mod_choose_pipeline_ui and mod_choose_pipeline_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#' @param dataType xxx
#' @param package xxx
#'
#' @rdname mod_choose_pipeline
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
#' @import sos
#' 
#' 
mod_choose_pipeline_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinyjs::useShinyjs(),
    h3('mod_choose_pipeline'),
    # div(
    #   style="display:inline-block; vertical-align: middle; padding-right: 20px;",
    #   selectInput(ns("dataType"), 'Data type', 
    #               choices = c('None'='None', 
    #                           'protein'='protein', 
    #                           'peptide'='peptide'), 
    #               width='150px')
    # ),
    div(
      style="display:inline-block; vertical-align: middle; padding-right: 20px;",
      uiOutput(ns("selectWidgetPipeline"))
    ),
    div(
      style="display:inline-block; vertical-align: middle; padding-right: 20px;",
      actionButton(ns('selectPipeline_btn'), 'load pipeline')
    ),
      uiOutput(ns('describePipeline'))
  )
}
    
# Module Server
    
#' @rdname mod_choose_pipeline
#' @export
#' @keywords internal
#' 
#' 
    
mod_choose_pipeline_server <- function(id, dataType = NULL, package = NULL){
  
  
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    
    rv.pipe <- reactiveValues(
      pipeline = NULL
    )
    
    output$selectWidgetPipeline <- renderUI({

      req(!is.null(dataType), dataType != 'None')
      #if (dataType() == 'None') return(NULL)
      #print('inside selectWidgetPipeline')
      #print(paste0('dataType received = ', dataType()))
      library(package, character.only = TRUE)
      selectInput(ns("pipelineChoice"),
                     "Choose the pipeline",
                     choices = c('None',names(Pipelines()[grep(dataType, Pipelines())])), 
                     width='150px'
      )
    })
    
    observeEvent(input$selectPipeline_btn, {
      rv.pipe$pipeline <- input$pipelineChoice
    #  shinyjs::toggleState('loadPipeline', condition = rv.pipe$pipeline != 'None')
    })
    
    output$describePipeline <- renderUI({
      req(input$pipelineChoice)
      includeMarkdown(system.file('md', paste0(input$pipelineChoice, '.md'), package=package))
    })
    
    reactive({rv.pipe$pipeline})
  })
  
}
    
## To be copied in the UI
# mod_choose_pipeline_ui("choose_pipeline_ui_1")
    
## To be copied in the server
# callModule(mod_choose_pipeline_server, "choose_pipeline_ui_1")