mirror of
https://github.com/msberends/AMR.git
synced 2025-07-12 10:22:01 +02:00
(v1.4.0.9001) is_gram_positive(), is_gram_negative(), parameter hardening
This commit is contained in:
@ -112,4 +112,9 @@ test_that("mo_property works", {
|
||||
stringsAsFactors = FALSE)
|
||||
expect_equal(nrow(subset(x, f1 != f2)), 0)
|
||||
|
||||
# is gram pos/neg (also return FALSE for all non-bacteria)
|
||||
expect_equal(is_gram_negative(c("Escherichia coli", "Staphylococcus aureus", "Candida albicans")),
|
||||
c(TRUE, FALSE, FALSE))
|
||||
expect_equal(is_gram_positive(c("Escherichia coli", "Staphylococcus aureus", "Candida albicans")),
|
||||
c(FALSE, TRUE, FALSE))
|
||||
})
|
||||
|
Reference in New Issue
Block a user