From 6e01fe84a86914cb134ae8c6b3b203c22783e4c2 Mon Sep 17 00:00:00 2001
From: Alexander Kabui
Date: Sun, 30 Jan 2022 15:45:59 +0300
Subject: add new json output

---
 scripts/ctl_analysis.R | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'scripts')

diff --git a/scripts/ctl_analysis.R b/scripts/ctl_analysis.R
index dd47759..e36ddd1 100644
--- a/scripts/ctl_analysis.R
+++ b/scripts/ctl_analysis.R
@@ -28,8 +28,6 @@ cat("The input data is \n")
 
 genoData <- input$genoData
 phenoData <- input$phenoData
-
-# formData <- input$form
 # create the matixes
 
 # genotypes Matrix of genotypes. (individuals x markers)
@@ -217,8 +215,7 @@ ctl_network = CTLnetworkGn(ctls, significance = 0.05, LODdrop = 2,short = FALSE,
 
 
 
-json_data <- list(significance_table = ctl_significant,image_loc = imageLoc,ctl_plots=ctl_plots)
-
+json_data <- list(phenotypes = input$phenoData$trait_db_list,significance_data = ctl_significant,image_loc = imageLoc,ctl_plots=ctl_plots,network_file_name =  network_file_name)
 
 json_data <- toJSON(json_data)
 
-- 
cgit v1.2.3