(v1.6.0.9017) extra system codes

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2021-05-04 12:47:33 +02:00
1 parent f33e61bac7
commit 5679ccdaf9
32 files changed
+98 -133

No files matched your search

+2 -1
View File
@@ -149,7 +149,8 @@ test_that("Custom EUCAST rules work", {
skip_on_cran()
x <- custom_eucast_rules(AMC == "R" & genus == "Klebsiella" ~ aminopenicillins == "R",
AMC == "I" & genus == "Klebsiella" ~ aminopenicillins == "I")
AMC == "I" & genus == "Klebsiella" ~ aminopenicillins == "I",
AMX == "S" ~ AMC == "S")
expect_output(print(x))
expect_output(print(c(x, x)))
expect_output(print(as.list(x, x)))