inst/shiny-squid/server.R

In squid: Statistical Quantification of Individual Differences

# My WebServer  ----------------------------------------------------------------

# Initialisation ------------------------------------------
source("./source/svr_source.R",local = TRUE)

shinyServer(function(input, output, session) {
  
  
  # Automatically stop a Shiny app when closing the browser tab
  session$onSessionEnded(stopApp)
  
  # Graphs
  color <- list(
    "color1"  = "red",
    "color2"  =  "dodgerblue"
  )
  
  isPreparing <- FALSE
  isRunning   <- FALSE
  
  # Portal ----------------
  
  # Modules   ---------------------------------------------------------  
  # SVRmodules(input, session)  
  source("./source/server/modules/svr_modules.R",local = TRUE)
  
  # Module 1  ---------------------------------------------------------  
  
  # Module 1 Step 1 -----------------------
  source("./source/server/modules/module1/svr_mod1_step_1.R",local = TRUE)
  
  # Module 1 Step 2 -----------------------
  source("./source/server/modules/module1/svr_mod1_step_2.R",local = TRUE)
  
  # Module 1 Step 3 -----------------------
  source("./source/server/modules/module1/svr_mod1_step_3.R",local = TRUE)
  
  # Module 1 Step 4 -----------------------
  source("./source/server/modules/module1/svr_mod1_step_4.R",local = TRUE)
  
  # Module 2  ---------------------------------------------------------  
  
  # Module 2 Step 1 -----------------------
  source("./source/server/modules/module2/svr_mod2_step_1.R",local = TRUE)
  
  # # Module 2 Step 2 -----------------------
  source("./source/server/modules/module2/svr_mod2_step_2.R",local = TRUE)
  
  # # Module 2 Step 3 -----------------------
  source("./source/server/modules/module2/svr_mod2_step_3.R",local = TRUE)
  
  
  # Module 3  --------------------------------------------------------- 
  
  # Module 3 Step 1 -----------------------
  source("./source/server/modules/module3/svr_mod3_step_1.R",local = TRUE)
  
  # Module 3 Step 2 -----------------------
  source("./source/server/modules/module3/svr_mod3_step_2.R",local = TRUE)
  
  # Module 3 Step 3 -----------------------
  source("./source/server/modules/module3/svr_mod3_step_3.R",local = TRUE)
  
  
  # Module 4  --------------------------------------------------------- 
  
  # Module 4 Step 1 -----------------------
  source("./source/server/modules/module4/svr_mod4_step_1.R",local = TRUE)
  
  # # Module 4 Step 2 -----------------------
  source("./source/server/modules/module4/svr_mod4_step_2.R",local = TRUE)
  
  # # Module 4 Step 3 -----------------------
  source("./source/server/modules/module4/svr_mod4_step_3.R",local = TRUE)
  
  # # Module 4 Step 5 -----------------------
  source("./source/server/modules/module4/svr_mod4_step_5.R",local = TRUE)
  
  
  # Module 5  --------------------------------------------------------- 
  
  # Module 5 Step 1 -----------------------
  source("./source/server/modules/module5/svr_mod5_step_1.R",local = TRUE)

  # # Module 5 Step 2 -----------------------
  source("./source/server/modules/module5/svr_mod5_step_2.R",local = TRUE)
  
  
  # Module 6  --------------------------------------------------------- 
  
  # Module 6 Step 1 -----------------------
  source("./source/server/modules/module6/svr_mod6_step_1.R",local = TRUE)
  
  # Module 6 Step 2 -----------------------
  source("./source/server/modules/module6/svr_mod6_step_2.R",local = TRUE)
  
  # Module 6 Step 3 -----------------------
  source("./source/server/modules/module6/svr_mod6_step_3.R",local = TRUE)
  
  
  # Module 8  --------------------------------------------------------- 
  
  # Module 6 Step 1 ---------------------------------------------------------
  source("./source/server/modules/module8/svr_mod8_step_1.R",local = TRUE)
  
  # Module 6 Step 2 ---------------------------------------------------------
  source("./source/server/modules/module8/svr_mod8_step_2.R",local = TRUE)
  
  
  # Full model  (Step by Step)   ----------------
  SVRFullModel("FModSbyS", input, output, session)  
  
  # Full model  (express access) ----------------
  SVRFullModel("FMod", input, output, session)
  
  #     output$table_test <- renderTable({ 
  #       if(!is.null(Mod1Step3_output())){
  #         Mod1Step3_output()$data_S
  #       }else{
  #         data.frame(0)
  #       }
  #     })
  
  
  ##### For Debugging ####
  output$debug <- renderPrint({
    sessionInfo()
  })
  
})