mirror of
https://github.com/msberends/AMR.git
synced 2025-07-10 10:21:56 +02:00
(v0.7.0.9001) new pathovars, small fixes
This commit is contained in:
@ -59,4 +59,8 @@ test_that("as.ab works", {
|
||||
expect_equal(as.character(as.ab("Phloxapen")),
|
||||
"FLC")
|
||||
|
||||
expect_equal(suppressWarnings(as.character(as.ab(c("Bacteria", "Bacterial")))),
|
||||
c(NA, "TMP"))
|
||||
|
||||
|
||||
})
|
||||
|
@ -74,7 +74,7 @@ test_that("as.mo works", {
|
||||
|
||||
# prevalent MO
|
||||
expect_identical(
|
||||
as.character(
|
||||
suppressWarnings(as.character(
|
||||
as.mo(c("stau",
|
||||
"STAU",
|
||||
"staaur",
|
||||
@ -83,12 +83,12 @@ test_that("as.mo works", {
|
||||
"Sthafilokkockus aureeuzz",
|
||||
"Staphylococcus aureus",
|
||||
"MRSA",
|
||||
"VISA"))),
|
||||
"VISA")))),
|
||||
rep("B_STPHY_AUR", 9))
|
||||
expect_identical(
|
||||
as.character(
|
||||
as.mo(c('EHEC', 'EPEC', 'EIEC', 'STEC', 'ATEC'))),
|
||||
rep("B_ESCHR_COL", 5))
|
||||
as.mo(c('EHEC', 'EPEC', 'EIEC', 'STEC', 'ATEC', 'UPEC'))),
|
||||
rep("B_ESCHR_COL", 6))
|
||||
# unprevalent MO
|
||||
expect_identical(
|
||||
as.character(
|
||||
|
Reference in New Issue
Block a user