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:")