mirror of https://github.com/msberends/AMR.git
41 lines
1.0 KiB
R
41 lines
1.0 KiB
R
context("guess_bactid.R")
|
|
|
|
test_that("guess_bactid works", {
|
|
expect_identical(
|
|
guess_bactid(c("E. coli", "H. influenzae")),
|
|
c("ESCCOL", "HAEINF"))
|
|
|
|
expect_equal(guess_bactid("Escherichia coli"), "ESCCOL")
|
|
|
|
expect_equal(guess_bactid("Negative rods"), "GNR")
|
|
|
|
expect_identical(
|
|
guess_bactid(c("stau",
|
|
"STAU",
|
|
"staaur",
|
|
"S. aureus",
|
|
"S aureus",
|
|
"Staphylococcus aureus",
|
|
"MRSA",
|
|
"VISA")),
|
|
rep("STAAUR", 8))
|
|
|
|
# select with one column
|
|
expect_identical(
|
|
septic_patients[1:10,] %>%
|
|
left_join_microorganisms() %>%
|
|
select(genus) %>%
|
|
guess_bactid(),
|
|
c("STC", "STC", "NEI", "STA", "STA",
|
|
"NEI", "ENT", "ENT", "ESC", "KLE"))
|
|
|
|
# select with two columns
|
|
expect_identical(
|
|
septic_patients[1:10,] %>%
|
|
pull(bactid),
|
|
septic_patients[1:10,] %>%
|
|
left_join_microorganisms() %>%
|
|
select(genus, species) %>%
|
|
guess_bactid())
|
|
})
|