From 47bef440e46b584daa6800357567cce2ab5e5d7e Mon Sep 17 00:00:00 2001
From: Christophe Vanderaa <vanderaa.christophe@gmail.com>
Date: Tue, 11 Aug 2020 11:06:50 +0200
Subject: [PATCH] bug: solves issue #100 about joining assays

---
 R/QFeatures-join.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/QFeatures-join.R b/R/QFeatures-join.R
index 5df1978f..8cbf45b2 100644
--- a/R/QFeatures-join.R
+++ b/R/QFeatures-join.R
@@ -9,7 +9,7 @@
     .x <- x[k, , drop = FALSE]
     .y <- y[k, , drop = FALSE]
     for (j in names(.x))
-        if (!isTRUE(all.equal(.x[[j]], .y[[j]])))
+        if (!isTRUE(identical(.x[[j]], .y[[j]])))
             x[, j] <- y[, j] <- NULL
     ## Create these to recover rownames
     x$._rownames <- rownames(x)