R/app_server.R

In Viinky-Kevs/microsoftAI: GUI for phenotypic and genotypic analysis

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' 
#' @noRd

app_server <- function( input, output, session ) {
  # Call modules
  mod_module_structure_server("module_structure_ui_1")
  mod_import_data_server("import_data_ui_1")
  mod_genotipic_server("genotipic_ui_1")
  mod_phenotypic_server("phenotypic_ui_1")
  mod_genotypic1_server("genotypic1_ui_1")
  mod_genotypic2_server("genotypic2_ui_1")
  mod_genotypic3_server("genotypic3_ui_1")
  mod_genotypic4_server("genotypic4_ui_1")
  mod_genotypic5_server("genotypic5_ui_1")
  mod_genotypic6_server("genotypic6_ui_1")
  mod_descriptor_server("descriptor_ui_1")
  
  ## Verify function
  print('Backend succesfully work!')
}