From e548a7ad119c2937b23edbeb9a30bb3c3d67cfc8 Mon Sep 17 00:00:00 2001
From: "Matthijs S. Berends" <m.s.berends@umcg.nl>
Date: Fri, 2 Nov 2018 15:04:48 +0100
Subject: [PATCH] equal != identical

---
 tests/testthat/test-rsi.R | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/test-rsi.R b/tests/testthat/test-rsi.R
index 0c86b130..7a9d23af 100644
--- a/tests/testthat/test-rsi.R
+++ b/tests/testthat/test-rsi.R
@@ -25,11 +25,11 @@ test_that("rsi works", {
 
   library(dplyr)
   # 40 rsi columns
-  expect_identical(septic_patients %>%
-                     mutate_at(vars(peni:rifa), as.character) %>%
-                     lapply(is.rsi.eligible) %>%
-                     as.logical() %>%
-                     sum(),
-                   40)
+  expect_equal(septic_patients %>%
+                 mutate_at(vars(peni:rifa), as.character) %>%
+                 lapply(is.rsi.eligible) %>%
+                 as.logical() %>%
+                 sum(),
+               40)
 
 })