P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-25 18:06:12 +01:00
Code Releases Activity

equal != identical

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-11-02 15:04:48 +01:00
parent d0bc05e5b1
commit e548a7ad11
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/testthat/test-rsi.R
View File

@ -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)
})