compare genes can be selected from the table closes #15

hackseq · Oct 17, 2016 · 728e24f · 728e24f
1 parent c3ce212
commit 728e24f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git 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])