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

(v1.3.0.9029) eucast rules fix, unique()

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-09-25 14:44:50 +02:00
parent 1d982a82b4
commit 9667c2994f
32 changed files with 234 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/testthat/test-mic.R
View File

@@ -34,8 +34,11 @@ test_that("mic works", {
expect_equal(suppressWarnings(as.logical(as.mic("INVALID VALUE"))), NA)
# all levels should be valid MICs
expect_silent(as.mic(levels(as.mic(1))))
x <- as.mic(c(2, 4))
expect_s3_class(x[1], "mic")
expect_s3_class(x[[1]], "mic")
expect_s3_class(c(x[1], x[9]), "mic")
expect_s3_class(unique(x[1], x[9]), "mic")
expect_warning(as.mic("INVALID VALUE"))
pdf(NULL) # prevent Rplots.pdf being created