wrong assignment fixed

fdabbagh · Mar 7, 2018 · 7a819e4 · 7a819e4
1 parent 128fe62
commit 7a819e4
Showing 1 changed file with 10 additions and 10 deletions.
diff --git 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")