From 2c15ba55c1525a7740543b8e387830ab6b2e5700 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 26 Nov 2021 11:41:49 +0100
Subject: [PATCH] preset: Actually filter input genes

---
 R/preset.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/preset.R b/R/preset.R
index 46ae739..46f4f8f 100644
--- a/R/preset.R
+++ b/R/preset.R
@@ -54,7 +54,8 @@ preset <- function(methods = c(
 
     # Filter out genes with less than 25% existing orthologs.
     gene_ids_filtered <- genes_n_species[
-        n_species >= 0.25 * length(species_ids),
+        gene %chin% gene_ids &
+            n_species >= 0.25 * length(species_ids),
         gene
     ]