diff options
| author | Alexander Kabui | 2022-01-30 15:45:59 +0300 |
|---|---|---|
| committer | BonfaceKilz | 2022-02-02 10:59:34 +0300 |
| commit | 6e01fe84a86914cb134ae8c6b3b203c22783e4c2 (patch) | |
| tree | d9169e4eee9e5171d43eeb1e81be716821f2eb12 /scripts/ctl_analysis.R | |
| parent | 6cc18925338a5acac18d8a31d651d0cade15a015 (diff) | |
| download | genenetwork3-6e01fe84a86914cb134ae8c6b3b203c22783e4c2.tar.gz | |
add new json output
Diffstat (limited to 'scripts/ctl_analysis.R')
| -rw-r--r-- | scripts/ctl_analysis.R | 5 |
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) |