R/app_server.R

In joeheywood/tnsinp: Tennis Input

#' 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 
    stp <- callModule(mod_setup_server, "setup_ui_1")
    vpg <- callModule(mod_vidpage_server, "vidpage_ui_1", stp)
    crt <- callModule(mod_court_server, "court_ui_1", vpg)
	sht <- callModule(mod_shot_server, "shot_ui_1")
	pnt <- callModule(mod_point_server, "point_ui_1", sht)
    drp <-  callModule(mod_drop_interface_server, "drop_interface_ui_1")
    mm <- callModule(mod_match_server, "match_ui_1", vpg, crt, pnt, stp, drp)
    
    med <- callModule(mod_edit_meta_server, "edit_meta_ui_1", drp)
    callModule(mod_courtview_server, "courtview_ui_1", pnt)
    
}