P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-09-11 16:58:56 +02:00
Code Releases Activity

(v3.0.1.9090) unit test

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-09-04 19:47:30 +02:00
parent 177e83aaf8
commit 3f50d6b6c3
4 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tests/testthat/test-interpretive_rules.R
View File

@@ -108,17 +108,17 @@ test_that("test-interpretive_rules.R", {
)
expect_equal(suppressWarnings(interpretive_rules(a, "mo", info = FALSE)), b)
# piperacillin must be R in Enterobacteriaceae when tica is R
# piperacillin must be R in E. coli when ampi is R
if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
expect_equal(
suppressWarnings(
example_isolates %>%
filter(mo_family(mo) == "Enterobacteriaceae") %>%
filter(mo_name(mo) == "Escherichia coli") %>%
mutate(
TIC = as.sir("R"),
PIP = as.sir("S")
AMP = as.sir("R"),
PIP = as.sir(NA)
) %>%
interpretive_rules(col_mo = "mo", version_expertrules = 3.1, rules = "expert", info = FALSE, overwrite = TRUE) %>%
interpretive_rules(col_mo = "mo", version_expertrules = 3.3, rules = "expert", info = FALSE, overwrite = TRUE) %>%
pull(PIP) %>%
unique() %>%
as.character()