equal != identical

2018-11-02 15:04:48 +01:00 · 2018-11-02 15:04:48 +01:00 · e548a7ad11
parent d0bc05e5b1
commit e548a7ad11
1 changed files with 6 additions and 6 deletions
--- 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)

 })