(v1.4.0.9013) is_gram_negative/positive update

2025-07-08 23:21:56 +02:00 · 2020-11-09 13:07:02 +01:00
parent 423879c034
commit d3b1d33210
22 changed files with 149 additions and 82 deletions
--- a/tests/testthat/test-mo_property.R
+++ b/tests/testthat/test-mo_property.R
@ -117,4 +117,10 @@ test_that("mo_property works", {
               c(TRUE, FALSE, FALSE))
  expect_equal(is_gram_positive(c("Escherichia coli", "Staphylococcus aureus", "Candida albicans")),
               c(FALSE, TRUE, FALSE))
+  
+  library(dplyr)
+  expect_equal(example_isolates %>% filter(is_gram_negative()) %>% nrow(),
+               730)
+  expect_equal(example_isolates %>% filter(is_gram_positive()) %>% nrow(),
+               1238)
 })