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

guess_ab

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-01-03 23:56:19 +01:00
parent 6b2d464f8c
commit 80ea555663
14 changed files with 533 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tests/testthat/test-eucast_rules.R
View File

@ -86,12 +86,14 @@ test_that("EUCAST rules work", {
# amox is inferred by benzylpenicillin in Kingella kingae
expect_equal(
as.list(eucast_rules(
data.frame(mo = as.mo("Kingella kingae"),
peni = "S",
amox = "-",
stringsAsFactors = FALSE)
, info = FALSE))$amox,
suppressWarnings(
as.list(eucast_rules(
data.frame(mo = as.mo("Kingella kingae"),
peni = "S",
amox = "-",
stringsAsFactors = FALSE)
, info = FALSE))$amox
),
"S")
# also test norf

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

@ -42,7 +42,13 @@ test_that("mdro works", {
expect_equal(outcome %>% freq() %>% pull(count),
c(1989, 9, 2)) # 1989 neg, 9 pos, 2 unconfirmed
expect_equal(brmo(septic_patients, info = FALSE), mdro(septic_patients, "nl", info = FALSE))
expect_equal(
suppressWarnings(
brmo(septic_patients, info = FALSE)),
suppressWarnings(
mdro(septic_patients, "nl", info = FALSE)
)
)
# still working on German guidelines
expect_error(suppressWarnings(mrgn(septic_patients, info = TRUE)))