From b0d3d9fe503a3e1d1a587d5ff98582d6a9411a13 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sat, 11 Nov 2023 16:16:53 +0100
Subject: [PATCH] results: Adapt to changes in geposan

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

diff --git a/R/results.R b/R/results.R
index b9beb03..1b1cd27 100644
--- a/R/results.R
+++ b/R/results.R
@@ -184,7 +184,7 @@ results_server <- function(id, options, analysis) {
 
     genes_with_distances <- merge(
       geposan::genes,
-      geposan::distances[species == "hsapiens"],
+      geposan::distances[species == 9606, .(gene, distance)],
       by.x = "id",
       by.y = "gene"
     )