From 4d14bb16f591e519968da1106ab2e8c10a62eb29 Mon Sep 17 00:00:00 2001
From: shamsudheen kv <kvshamsudheen@gmail.com>
Date: Fri, 9 Jul 2021 12:29:22 -0400
Subject: [PATCH] Update load.homologs.r

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

diff --git a/R/load.homologs.r b/R/load.homologs.r
index ea72f7d..596daae 100644
--- a/R/load.homologs.r
+++ b/R/load.homologs.r
@@ -16,7 +16,8 @@ load.homologs <- function(){
     hom_vert = hom_vert[-1,]
 
     # The table is badly formatted, so drop rubbish
-    hom_vert = suppressWarnings(hom_vert[!is.na(as.numeric(hom_vert$`HomoloGene ID`)),])
+    # The table format has changed
+    hom_vert = suppressWarnings(hom_vert[!is.na(as.numeric(hom_vert$`DB Class Key`)),])
 
     # Provide some output to help the user
     print("Species for which homology classes are available:")