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