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

(v2.1.1.9268) WISCA vignette, antibiogram sorting, fix translations

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-05-01 14:38:51 +02:00
parent 5e6bbdf3d1
commit 2461631bce
16 changed files with 156 additions and 134 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,7 +33,7 @@ test_that("test-ab_property.R", {
ab_reset_session()
expect_identical(ab_name("AMX", language = NULL), "Amoxicillin")
expect_identical(ab_atc("AMX"), "J01CA04")
expect_identical(ab_atc("AMX"), c("J01CA04", "QG51AA03", "QJ01CA04"))
expect_identical(ab_cid("AMX"), as.integer(33613))
expect_inherits(ab_tradenames("AMX"), "character")

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

@ -35,8 +35,8 @@ test_that("test-atc_online.R", {
AMR:::pkg_is_available("xml2") &&
tryCatch(curl::has_internet(), error = function(e) FALSE)) {
expect_true(length(atc_online_groups(ab_atc("AMX"))) >= 1)
expect_equal(atc_online_ddd(ab_atc("AMX"), administration = "O"), 1.5)
expect_equal(atc_online_ddd(ab_atc("AMX"), administration = "P"), 3)
expect_equal(atc_online_ddd(ab_atc("AMX", only_first = TRUE), administration = "O"), 1.5)
expect_equal(atc_online_ddd(ab_atc("AMX", only_first = TRUE), administration = "P"), 3)
expect_equal(atc_online_ddd_units("AMX", administration = "P"), "g")
}
})

1
tests/testthat/test-data.R
View File

@ -34,7 +34,6 @@ test_that("test-data.R", {
expect_identical(nrow(microorganisms), length(unique(microorganisms$mo)))
expect_identical(class(microorganisms$mo), c("mo", "character"))
expect_identical(nrow(antimicrobials), length(unique(AMR::antimicrobials$ab)))
expect_true(all(is.na(AMR::antimicrobials$atc[duplicated(AMR::antimicrobials$atc)])))
expect_identical(class(AMR::antimicrobials$ab), c("ab", "character"))