test: use all.equal to compare dataframes

CCBR · Dec 28, 2023 · f75c49f · f75c49f
1 parent c8b37e7
commit f75c49f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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"
       )
     )
-  )
+  ))
 })