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

(v1.7.1.9071) rsi disk fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-12-13 11:57:34 +01:00
parent 578e7dfee9
commit 0cbf8f48b6
23 changed files with 910 additions and 873 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
inst/tinytest/test-data.R
View File

@ -44,6 +44,11 @@ expect_false(any(is.na(microorganisms.codes$code)))
expect_false(any(is.na(microorganisms.codes$mo)))
expect_true(all(dosage$ab %in% antibiotics$ab))
expect_true(all(dosage$name %in% antibiotics$name))
# check valid disks/MICs
expect_false(any(is.na(as.mic(rsi_translation[which(rsi_translation$method == "MIC"), "breakpoint_S"]))))
expect_false(any(is.na(as.mic(rsi_translation[which(rsi_translation$method == "MIC"), "breakpoint_R"]))))
expect_false(any(is.na(as.disk(rsi_translation[which(rsi_translation$method == "DISK"), "breakpoint_S"]))))
expect_false(any(is.na(as.disk(rsi_translation[which(rsi_translation$method == "DISK"), "breakpoint_R"]))))
# antibiotic names must always be coercible to their original AB code
expect_identical(as.ab(antibiotics$name), antibiotics$ab)

3
inst/tinytest/test-mic.R
View File

@ -27,6 +27,9 @@ expect_true(as.mic(8) == as.mic("8"))
expect_true(as.mic("1") > as.mic("<=0.0625"))
expect_true(as.mic("1") < as.mic(">=32"))
expect_true(is.mic(as.mic(8)))
# expect_true(as.mic(1024) < as.mic(">1024"))
# expect_true(as.mic("<1024") > as.mic("1024"))
expect_equal(as.double(as.mic(">=32")), 32)
expect_equal(as.numeric(as.mic(">=32")), 32)