R/app_server.R

In leandro-vento/projeto: PKG_TITLE

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function( input, output, session ) {
  
  # caminho <- "C:\\Users\\leand\\OneDrive - FGV\\BD"
  caminho <- golem::get_golem_options("caminho")
  # caminho <- "\\\\RDPDC1VPR0033\\IBRE-DNIT-Sata\\BD"
  
  # canal <- callModule(mod_funcoes_server, "funcoes_ui_1", bd = "bd", caminho = caminho)
  CAGED <- callModule(mod_funcoes_server, "funcoes_ui_1", bd = "CAGED", caminho = caminho)
  RAIS <- callModule(mod_funcoes_server, "funcoes_ui_1", bd = "RAIS", caminho = caminho)
  
  origem <- callModule(mod_inicio_server, "inicio_ui_1")
  tab_selecionada <- callModule(mod_menu_esquerdo_server, "menu_esquerdo_ui_1")
  
  # List the first level callModules here
  callModule(mod_configuracoes_server, "configuracoes_ui_1", caged = CAGED, rais = RAIS, origem = origem)
  callModule(mod_resultados_server, "resultados_ui_1", origem = origem, tab_selecionada = tab_selecionada)
  callModule(mod_grafico_server, "grafico_ui_1", origem = origem, tab_selecionada = tab_selecionada)
  callModule(mod_relatorio_server, "relatorio_ui_1", origem = origem)
  callModule(mod_mapa_server, "mapa_ui_1", origem = origem)
  
  
}