P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-18 10:03:17 +02:00
Code Releases Activity

(v0.7.1.9004) atc class removal

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-06-27 11:57:45 +02:00
parent 6013fbefae
commit 65c6702b21
49 changed files with 393 additions and 706 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
tests/testthat/test-deprecated.R
View File

@ -23,18 +23,16 @@ context("deprecated.R")
test_that("deprecated functions work", {
expect_error(suppressWarnings(ratio("A")))
expect_error(suppressWarnings(ratio(1, ratio = "abc")))
expect_error(suppressWarnings(ratio(c(1, 2), ratio = c(1, 2, 3))))
expect_warning(ratio(c(772, 1611, 737), ratio = "1:2:1"))
expect_identical(suppressWarnings(ratio(c(772, 1611, 737), ratio = "1:2:1")), c(780, 1560, 780))
expect_identical(suppressWarnings(ratio(c(1752, 1895), ratio = c(1, 1))), c(1823.5, 1823.5))
# first 5 chars of official name
expect_equal(suppressWarnings(as.character(as.atc(c("nitro", "cipro")))),
c("J01XE01", "J01MA02"))
expect_warning(atc_property("amox"))
expect_warning(atc_official("amox"))
expect_warning(ab_official("amox"))
expect_warning(atc_name("amox"))
expect_warning(atc_trivial_nl("amox"))
expect_warning(atc_tradenames("amox"))
# EARS-Net
expect_equal(suppressWarnings(as.character(as.atc("AMX"))),
"J01CA04")
expect_equal(suppressWarnings(guess_ab_col(data.frame(AMP_ND10 = "R",
AMC_ED20 = "S"),
as.atc("augmentin"))),
"AMC_ED20")
})