From 728e24f36c88dbc7a9cc5a7e59af8868f149e865 Mon Sep 17 00:00:00 2001
From: OganM <ogan.mancarcii@gmail.com>
Date: Sun, 16 Oct 2016 19:48:35 -0700
Subject: [PATCH] compare genes can be selected from the table closes #15

---
 server.R | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/server.R b/server.R
index 803374d..4ac72b5 100644
--- a/server.R
+++ b/server.R
@@ -181,8 +181,11 @@ shinyServer(function(input, output, session) {
       nbr_barcodes <- nbr_group1 + nbr_group2
       
       diff_genes <- differentiallyExpressed()$`Gene Symbol`
+      if(is.null(input$difGeneTable_rows_selected)){
       gene_idx <- c(1:gene_cnt, (length(diff_genes)-gene_cnt+1):length(diff_genes))
-      
+      } else{
+        gene_idx = input$difGeneTable_rows_selected
+      }
       dg_mat <- c()
       for ( n in gene_idx ) {
         gene_idx <- which(genes$Symbol == diff_genes[n])