equal != identical

tests/testthat/test-rsi.R

@@ -25,7 +25,7 @@ test_that("rsi works", {
 
   library(dplyr)
   # 40 rsi columns
-  expect_identical(septic_patients %>%
+  expect_equal(septic_patients %>%
                  mutate_at(vars(peni:rifa), as.character) %>%
                  lapply(is.rsi.eligible) %>%
                  as.logical() %>%