aboutsummaryrefslogtreecommitdiff
path: root/scripts/ctl_analysis.R
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/ctl_analysis.R')
-rw-r--r--scripts/ctl_analysis.R5
1 files changed, 1 insertions, 4 deletions
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)