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

(v0.8.0.9002) eucast_rules() fix for S. maltophilia

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-10-23 14:48:25 +02:00
parent 666126cd5e
commit 3e5ab53209
21 changed files with 210 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/testthat/test-data.R
View File

@ -43,7 +43,7 @@ test_that("data sets are valid", {
datasets <- data(package = "AMR", envir = asNamespace("AMR"))$results[, "Item"]
for (i in seq_len(length(datasets))) {
dataset <- get(datasets[i], envir = asNamespace("AMR"))
expect_identical(dataset_UTF8_to_ASCII(dataset), dataset)
expect_identical(dataset_UTF8_to_ASCII(dataset), dataset, label = datasets[i])
}
})

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

@ -43,7 +43,7 @@ test_that("mdro works", {
# example_isolates should have these finding using Dutch guidelines
expect_equal(outcome %>% freq() %>% pull(count),
c(1972, 22, 6)) # 1969 neg, 25 unconfirmed, 6 pos
c(1969, 25, 6)) # 1969 neg, 25 unconfirmed, 6 pos
expect_equal(brmo(example_isolates, info = FALSE),
mdro(example_isolates, guideline = "BRMO", info = FALSE))