From 21b28bf1e8b02ac0244d05993118e6ac16b6dc4a Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 13 Feb 2024 16:53:11 +0100
Subject: [PATCH] gene selector: Fix bug in condition

---
 R/gene_selector.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/gene_selector.R b/R/gene_selector.R
index b9ffe94..e32ed87 100644
--- a/R/gene_selector.R
+++ b/R/gene_selector.R
@@ -94,7 +94,7 @@ gene_selector_server <- function(id) {
         geposan::genes[id %chin% inputs, id]
       }
 
-      if (length(gene_ids > 100)) {
+      if (length(gene_ids) > 100) {
         gene_ids[seq_len(100)]
       } else {
         gene_ids