From 76980908d7e100910c380e35a892e09d9bbd1f3d Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 26 Apr 2024 19:35:23 +0200
Subject: [PATCH] ranking: Exclude genes without data

---
 R/ranking.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ranking.R b/R/ranking.R
index e0da83e..41a75f6 100644
--- a/R/ranking.R
+++ b/R/ranking.R
@@ -45,8 +45,8 @@ rank_genes <- function(data = ubigen::gtex_all,
   data[, score := (score - min(score, na.rm = TRUE)) /
     (max(score, na.rm = TRUE) - min(score, na.rm = TRUE))]
 
-  # These are genes that are not expressed at all.
-  data[is.na(score), score := 0.0]
+  # Exclude genes that are not expressed at all.
+  data <- data[!is.na(score)]
 
   setorder(data, -score)
   data[, rank := .I]