fix bug in link validation

VEuPathDB · Jan 26, 2024 · 2ce05c6 · 2ce05c6
1 parent 35e4166
commit 2ce05c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/class-Link.R b/R/class-Link.R
@@ -10,7 +10,7 @@ check_link <- function(object) {
   }
 
   #dont allow self-links for now
-  if (object@source@id == object@target@id) {
+  if (id(object@source) == id(object@target)) {
     errors <- c(errors, "Links cannot be self-links. They must have a different source and target.")
   }