(v0.8.0.9012) mdro improvement

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2019-11-05 11:28:52 +01:00
1 parent fe606e287b
commit 5345d2759a
12 files changed
+73 -42

No files matched your search

+1 -1
View File
@@ -32,7 +32,7 @@ test_that("mdro works", {
expect_error(mdro(example_isolates, guideline = c("BRMO", "MRGN"), info = TRUE))
expect_error(mdro(example_isolates, col_mo = "invalid", info = TRUE))
outcome <- mdro(example_isolates)
outcome <- suppressWarnings(mdro(example_isolates))
outcome <- eucast_exceptional_phenotypes(example_isolates, info = TRUE)
# check class
expect_equal(outcome %>% class(), c("ordered", "factor"))