From 7a819e46566859062359be173c5c863e4b44fc78 Mon Sep 17 00:00:00 2001 From: Fawaz Dabbaghieh Date: Wed, 7 Mar 2018 02:19:14 +0100 Subject: [PATCH] wrong assignment fixed --- app/server.r | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/app/server.r b/app/server.r index fb5ae86..1de3759 100644 --- a/app/server.r +++ b/app/server.r @@ -400,16 +400,16 @@ function(input, output, session) { plot_pca_batch <- eventReactive(input$plot_batch, { #get plot - plot_pca_batch <- plotly_pca <- plotly_pca(experiments_info_meta = experiments_info_meta(), - filtered_score_matrix = batch_adjusted_matrix()[[input$corrected_matrices]], - name = input$corrected_matrices, - project = input$project, - type_of_score = input$type_of_score, - color_by = input$color_by_batch, - epigenetic_mark = input$epigenetic_mark, - first_pc = input$first_pc_batch, - second_pc = input$second_pc_batch, - show_legend = TRUE) + plot_pca_batch <- plotly_pca(experiments_info_meta = experiments_info_meta(), + filtered_score_matrix = batch_adjusted_matrix()[[input$corrected_matrices]], + name = input$corrected_matrices, + project = input$project, + type_of_score = input$type_of_score, + color_by = input$color_by_batch, + epigenetic_mark = input$epigenetic_mark, + first_pc = input$first_pc_batch, + second_pc = input$second_pc_batch, + show_legend = TRUE) showTab(inputId = "batch_plot_box", target = "Download Plot")