R/app_server.R

In biodosimetry-uab/biodosetools: An R Shiny Application for Biological Dosimetry

#' The application server-side
#'
#' @param input,output,session Internal parameters for {shiny}.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_server <- function(input, output, session) {
  # Dicentrics Modules ----

  # Fitting
  mod_fitting_counts_hot_server("fitting_dicent_ui", "dicentrics")
  mod_fitting_results_server("fitting_dicent_ui", "dicentrics")

  # Dose Estimation
  mod_estimation_case_hot_server("estimation_dicent_ui", "dicentrics")
  mod_estimation_fit_curve_hot_server("estimation_dicent_ui")
  mod_estimation_fit_curve_server("estimation_dicent_ui", "dicentrics")
  mod_estimation_results_server("estimation_dicent_ui", "dicentrics")

  # Translocations Modules ----

  # Help
  mod_help_chromosome_hot_server("fitting_trans_ui")
  mod_help_chromosome_hot_server("estimation_trans_ui")

  # Fitting
  mod_trans_chromosome_hot_server("fitting_trans_ui")
  genome_factor_fit <- mod_trans_fraction_to_full_genome_server("fitting_trans_ui")
  mod_fitting_counts_hot_server("fitting_trans_ui", "translocations")
  mod_fitting_results_server("fitting_trans_ui", "translocations", genome_factor_fit)

  # Dose Estimation
  mod_trans_chromosome_hot_server("estimation_trans_ui")
  genome_factor_estimate <- mod_trans_fraction_to_full_genome_server("estimation_trans_ui")
  mod_estimation_case_hot_server("estimation_trans_ui", "translocations", genome_factor_estimate)
  mod_estimation_fit_curve_hot_server("estimation_trans_ui")
  mod_estimation_fit_curve_server("estimation_trans_ui", "translocations")
  mod_estimation_results_server("estimation_trans_ui", "translocations", genome_factor_estimate)

  # Micronuclei Modules ----

  if (golem::app_dev()) {
    # Fitting
    mod_fitting_counts_hot_server("fitting_micro_ui", "micronuclei")
    mod_fitting_results_server("fitting_micro_ui", "micronuclei")

    # Dose Estimation
    mod_estimation_case_hot_server("estimation_micro_ui", "micronuclei")
    mod_estimation_fit_curve_hot_server("estimation_micro_ui")
    mod_estimation_fit_curve_server("estimation_micro_ui", "micronuclei")
    mod_estimation_results_server("estimation_micro_ui", "micronuclei")
  }
}