R/app_server.R

In jennahamlin/annoatater: An Amazing Shiny App

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  # List the first level callModules here
  
  dataDisplay <- callModule(mod_loadData_server, "loadData_ui_1")
  
  params <- callModule(mod_paramsTree_server, "paramsTree_ui_1")
  
  plotTree <- callModule(mod_displayTree_server, "displayTree_ui_1", dataDisplay$treeFileOut, 
                         dataDisplay$geneFileCorOrUnOut, params$treeformat, params$lim, params$align, params$font,
                         params$numscale, params$node, params$midP)
  
 treeWLayers <- callModule(mod_annotateTree_server, "annotateTree_ui_1", plotTree$makeTreeOut)
 
 callModule(mod_downloadImage_server, "downloadImage_ui_1", treeWLayers)
}