From f75c49f9c0f569f31746906d3787b45ddb173e67 Mon Sep 17 00:00:00 2001
From: Kelly Sovacool <kelly.sovacool@nih.gov>
Date: Thu, 28 Dec 2023 12:09:44 -0500
Subject: [PATCH] test: use all.equal to compare dataframes

---
 tests/testthat/test-deseq2.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-deseq2.R b/tests/testthat/test-deseq2.R
index f1498d8..988b222 100644
--- a/tests/testthat/test-deseq2.R
+++ b/tests/testthat/test-deseq2.R
@@ -33,7 +33,7 @@ test_that("create_deseq_obj works", {
   dds_dex <- DESeq2::DESeq(dds, fitType = "local")
   res <- DESeq2::results(dds_dex)
   res_dat <- res %>% as.data.frame()
-  expect_equal(
+  expect_true(all.equal(
     res_dat %>% dplyr::filter(baseMean > 30),
     structure(
       list(
@@ -89,5 +89,5 @@ test_that("create_deseq_obj works", {
         "ENSG00000182670.13"
       )
     )
-  )
+  ))
 })