P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-06-24 14:56:23 +02:00
Code Releases Activity

(v3.0.1.9059) Update taxonomy of microorganisms

Browse Source
This commit is contained in:
Matthijs Berends
2026-06-23 01:38:13 +02:00
committed by GitHub
parent 0af3f84655
commit 3f9f931777
123 changed files with 121928 additions and 94162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/testthat/test-mo_property.R
View File

@@ -30,8 +30,7 @@
test_that("test-mo_property.R", {
skip_on_cran()
expect_equal(mo_kingdom("Escherichia coli"), "Bacteria")
expect_equal(mo_kingdom("Escherichia coli"), mo_domain("Escherichia coli"))
expect_equal(mo_kingdom("Escherichia coli"), "Pseudomonadati")
expect_equal(mo_phylum("Escherichia coli"), "Pseudomonadota")
expect_equal(mo_class("Escherichia coli"), "Gammaproteobacteria")
expect_equal(mo_order("Escherichia coli"), "Enterobacterales")
@@ -71,12 +70,13 @@ test_that("test-mo_property.R", {
"Erysipelotrichia",
"Ktedonobacteria",
"Limnochordia",
"Limnocylindria",
"Mollicutes",
"Negativicutes",
"Nitriliruptoria",
"Rubrobacteria",
"Syntrophomonadia",
"Tepidiformia",
"Thermaerobacteria",
"Thermoflexia",
"Thermoleophilia",
"Thermolithobacteria"
@@ -92,7 +92,7 @@ test_that("test-mo_property.R", {
expect_equal(mo_gramstain("Escherichia coli", language = "en"), "Gram-negative")
expect_inherits(mo_taxonomy("Escherichia coli"), "list")
expect_equal(names(mo_taxonomy("Escherichia coli")), c(
"kingdom", "phylum", "class", "order",
"domain", "kingdom", "phylum", "class", "order",
"family", "genus", "species", "subspecies"
))
expect_equal(mo_synonyms("Escherichia coli"), NULL)
@@ -100,8 +100,8 @@ test_that("test-mo_property.R", {
expect_inherits(mo_synonyms(c("Candida albicans", "Escherichia coli")), "list")
expect_equal(names(mo_info("Escherichia coli")), c(
"mo", "rank",
"kingdom", "phylum", "class", "order", "family", "genus", "species", "subspecies",
"status", "synonyms", "gramstain", "oxygen_tolerance",
"domain", "kingdom", "phylum", "class", "order", "family", "genus", "species", "subspecies",
"status", "synonyms", "gramstain", "morphology", "oxygen_tolerance",
"url", "ref", "snomed", "lpsn", "mycobank", "gbif", "group_members"
))
expect_inherits(mo_info(c("Escherichia coli", "Staphylococcus aureus")), "list")
@@ -115,7 +115,7 @@ test_that("test-mo_property.R", {
expect_equal(
as.character(table(mo_pathogenicity(example_isolates$mo))),
c("1911", "66", "1", "22")
c("1915", "62", "1", "22")
)
expect_equal(mo_ref("Escherichia coli"), "Castellani et al., 1919")
@@ -185,7 +185,7 @@ test_that("test-mo_property.R", {
c("Shimwellia blattae", "Escherichia coli")
)
expect_identical(mo_ref("Chlamydia psittaci"), "Garcia-Lopez et al., 2019")
expect_identical(mo_ref("Chlamydia psittaci"), "Page, 1968")
expect_identical(mo_ref("Chlamydophila psittaci", keep_synonyms = TRUE), "Everett et al., 1999")
expect_true(112283007 %in% mo_snomed("Escherichia coli")[[1]])