From e290aba9abf46c9a839b445dc337dca561cece85 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 14 Jun 2022 14:04:39 +0200
Subject: [PATCH] Fix details table data selection

---
 R/server.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/server.R b/R/server.R
index c4bbb5f..b91acfa 100644
--- a/R/server.R
+++ b/R/server.R
@@ -105,10 +105,10 @@ server <- function(input, output, session) {
   })
 
   output$selected_genes <- DT::renderDataTable({
-    data <- if (length(selected_genes()) > 0) {
-      ranked_data()
-    } else {
+    data <- if (nrow(selected_genes()) > 0) {
       selected_genes()
+    } else {
+      ranked_data()
     }
 
     genes_table(data)