P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 21:42:01 +02:00
Code Releases Activity

(v0.9.0.9012) Support for LOINC codes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-01-26 20:20:00 +01:00
parent 19172b1d48
commit 449d9bde35
35 changed files with 92866 additions and 295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,4 +54,8 @@ test_that("ab_property works", {
expect_error(ab_property("amox", "invalid property"))
expect_error(ab_name("amox", language = "INVALID"))
expect_output(print(ab_name("amox", language = NULL)))
expect_equal(ab_name("21066-6", language = NULL), "Ampicillin")
expect_equal(ab_loinc("ampicillin"),
c("21066-6", "3355-5", "33562-0", "33919-2", "43883-8", "43884-6", "87604-5"))
})

5
tests/testthat/test-mo.R
View File

@ -240,9 +240,8 @@ test_that("as.mo works", {
expect_output(print(mo_uncertainties()))
# Salmonella (City) are all actually Salmonella enterica spp (City)
expect_equal(as.character(suppressWarnings(as.mo("Salmonella Goettingen"))),
"B_SLMNL_ENTR")
expect_equal(as.character(as.mo("Salmonella Group A")), "B_SLMNL")
expect_equal(mo_name(c("Salmonella Goettingen", "Salmonella Typhimurium", "Salmonella Group A")),
c("Salmonella enterica", "Salmonella typhimurium", "Salmonella"))
# no virusses
expect_equal(as.character(as.mo("Virus")), NA_character_)