1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 21:42:01 +02:00

(v1.6.0.9030) new unit test flow

This commit is contained in:
2021-05-13 23:07:31 +02:00
parent c17acbe712
commit 9a381c8d18
16 changed files with 28 additions and 21 deletions

View File

@ -119,7 +119,7 @@ test_that("mdro works", {
pza = sample_rsi(),
MFX = sample_rsi(),
KAN = sample_rsi())
expect_gt(n_distinct(mdr_tb(x)), 2)
expect_gt(length(unique(mdr_tb(x))), 2)
# check the guideline by Magiorakos et al. (2012), the default guideline
stau <- data.frame(mo = c("S. aureus", "S. aureus", "S. aureus", "S. aureus"),