R/app_server.R

In arestrom/BaselineData: Puget Sound Baseline Data

#' 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
  yrmn = mod_date_area_server("date_area_ui")
  site = mod_creel_site_server("creel_site_ui", yrmn)
  sdate = mod_site_date_server("site_date_ui", yrmn, site)
  #mod_catch_area_site_server("catch_area_site_ui", yrmn, site, sdate)
}