Bug on turtleSet caused by rbind.agentmatrix

PredictiveEcology · Apr 19, 2024 · c00c080 · c00c080
1 parent 4c89e69
commit c00c080
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/agentMatrix-Class-methods.R b/R/agentMatrix-Class-methods.R
@@ -746,7 +746,11 @@ cbind.agentMatrix <- function(..., deparse.level) {
 #' @rdname agentMatrix-bind-methods
 rbind.agentMatrix <- function(..., deparse.level = 1) {
   dots <- list(...)
-  levelsSame <- isTRUE(do.call(all.equal, lapply(dots, function(x) x@levels)))
+  #levelsSame <- isTRUE(do.call(all.equal, lapply(dots, function(x) x@levels)))
+  # Bug with this line
+  # Creates a mistake when levels are different, creating NA when used in turtleSet
+  allSame <- function(x) length(unique(x)) == 1
+  levelsSame <- allSame(lapply(dots, function(x) x@levels))
   if (levelsSame) {
     # if same, then faster rbind of the matrices
     if (isTRUE(do.call(all.equal, lapply(dots, colnames)))) {