P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 20:41:58 +02:00
Code Releases Activity

add kingdom to mo_taxonomy

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-12-10 21:47:25 +01:00
parent 5ab7eb07bc
commit 01a6d56334
9 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -15,10 +15,12 @@ test_that("mo_property works", {
expect_equal(mo_gramstain("E. coli", language = "en"), "Gram negative")
expect_equal(mo_TSN("E. coli"), 285)
expect_equal(class(mo_taxonomy("E. coli")), "list")
expect_equal(names(mo_taxonomy("E. coli")), c("subkingdom", "phylum", "class", "order",
expect_equal(names(mo_taxonomy("E. coli")), c("kingdom", "subkingdom", "phylum", "class", "order",
"family", "genus", "species", "subspecies"))
expect_equal(mo_ref("E. coli"), "Castellani and Chalmers, 1919")
expect_equal(mo_authors("E. coli"), "Castellani and Chalmers")
expect_equal(mo_year("E. coli"), 1919)
expect_equal(mo_shortname("MRSA"), "S. aureus")
expect_equal(mo_shortname("MRSA", Becker = TRUE), "S. aureus")