P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 23:21:56 +02:00
Code Releases Activity

(v1.5.0.9004) custom MDRO guideline

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-17 00:26:48 +01:00
parent 7ebc534ccd
commit e699de955c
17 changed files with 272 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tests/testthat/test-mdro.R
View File

@ -223,4 +223,15 @@ test_that("mdro works", {
expect_equal(as.integer(mdro(acin)), c(1:4))
expect_s3_class(mdro(acin, verbose = TRUE), "data.frame")
# custom rules
custom <- custom_mdro_guideline("CIP == 'R' & age > 60" ~ "Elderly Type A",
"ERY == 'R' & age > 60" ~ "Elderly Type B")
expect_output(print(custom))
x <- mdro(example_isolates, guideline = custom, info = TRUE)
expect_equal(as.double(table(x)), c(43, 891, 1066))
expect_error(custom_mdro_guideline())
expect_error(custom_mdro_guideline("test"))
expect_error(custom_mdro_guideline("test" ~ c(1:3)))
expect_error(custom_mdro_guideline("test" ~ A))
})