R/Module_MultiEICmodule.R

In mjhelf/Mosaic: Metaboseek platform

#' MultiEICmodule
#' 
#' 
#' Allows viewing multiple interactive EIC views at a time by providing multiple
#' \code{\link{EICmodule}} outlets
#' 
#' @inherit MseekModules
#' 
#' @details 
#' Returns its internalValues, a \code{reactivevalues} object
#' 
#' @describeIn MultiEICmodule server logic for the MultiEICmodule
#' @export 
MultiEICmodule <- function(input, output, session, values){
  
  ns <- NS(session$ns(NULL))
  
  
  
  iEIC1 <- callModule(EICmodule,"EIC1", values = values)
  
  
  
  iEIC1$removable <- T
  
  internalValues <- reactiveValues(numEICs = 1,
                                   EIC1 = iEIC1,
                                   currentView = NULL
  )
  #### ** REMOVE BUTTON ####
  output$adder <- renderUI({
    actionButton(ns('addOne'), "Add EIC")
  })
  
  observeEvent(input$addOne,{
   
    internalValues$numEICs <- internalValues$numEICs + 1
    
    internalValues[[paste0("EIC", internalValues$numEICs)]] <- callModule(EICmodule,
                                                                             paste0("EIC", internalValues$numEICs),
                                                                             values = values)
    
    internalValues[[paste0("EIC", internalValues$numEICs)]]$removable <- T
  })
  
  
  observeEvent(c(internalValues$EIC1$controls$marker),{
    
    internalValues$currentView  <- internalValues$EIC1
    
  })
  
  observeEvent(c(internalValues$EIC2$controls$marker),{
    
    internalValues$currentView  <- internalValues$EIC2
    
  })
  
  output$eicUIs <- renderUI({
    lapply(seq(internalValues$numEICs), function(i){
      EICmoduleUI(ns(paste0("EIC",i)))
    })
    })
  
  return(internalValues)
  
}

#' @describeIn MultiEICmodule UI elements for the MultiEICmodule
#' @export 
MultiEICmoduleUI <- function(id){
  ns <- NS(id)
  fluidPage(
    useShinyjs(),
    
    fluidRow(
      htmlOutput(ns('adder'))
    ),
    htmlOutput(ns("eicUIs"))
  )
}