R/app_server.R

In jennahamlin/phylogeny: PKG_TITLE

#' @import shiny
app_server <- function(input, output,session) {
  # List the first level callModules here
  treeDisplay <- callModule(mod_uploadTree_server, "uploadTree_ui_1")
 
  params <- callModule(mod_paramsTree_server, "paramsTree_ui_1")
  
  callModule(mod_displayTree_server, "displayTree_ui_1", treeDisplay, params$align, params$numscale, params$treeformat, params$font, params$node)
}