R/app_server.R

In chintanp/trafficdatacollector: A shiny application

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  male_helmet_count <- 0
  GlobalData = callModule(GlobalModule, "globals")
  # List the first level callModules here
  formInputs <- callModule(mod_formModule_server, "formModule_ui_1", GlobalData)
  tableInputs <- callModule(mod_tableModule_server, "tableModule_ui_1", GlobalData)
  summaryInputs <- callModule(mod_summaryModule_server, "summaryModule_ui_1", GlobalData)
  callModule(mod_tapInputModule_server, "tapInputModule_ui_1", GlobalData, formInputs, tableInputs, summaryInputs)
  
  callModule(mod_travelerSurveyModule_server, "travelerSurveyModule_ui_1", GlobalData)
  

  
  observeEvent(input$alert,{
    golem::invoke_js("alert", "Yaya!")
  })
  
}