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

age_groups fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-02-27 11:36:12 +01:00
parent 4ba2ff68e0
commit 54162522bd
41 changed files with 450 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,9 +58,16 @@ test_that("data sets are valid", {
test_that("creation of data sets is valid", {
df <- make()
expect_lt(nrow(df[which(df$prevalence == 1), ]), nrow(df[which(df$prevalence == 2), ]))
expect_lt(nrow(df[which(df$prevalence == 2), ]), nrow(df[which(df$prevalence == 3), ]))
DT <- make_DT()
expect_lt(nrow(DT[prevalence == 1]), nrow(DT[prevalence == 2]))
expect_lt(nrow(DT[prevalence == 2]), nrow(DT[prevalence == 3]))
old <- make_trans_tbl()
expect_gt(length(old), 0)
})
test_that("CoL version info works", {
expect_equal(class(catalogue_of_life_version()), "list")
})

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

@ -30,4 +30,17 @@ test_that("deprecated functions work", {
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))
expect_warning(guess_mo("esco"))
expect_warning(guess_atc("amox"))
expect_warning(ab_property("amox"))
expect_warning(ab_atc("amox"))
expect_warning(ab_official("amox"))
expect_warning(ab_name("amox"))
expect_warning(ab_trivial_nl("amox"))
expect_warning(ab_certe("amox"))
expect_warning(ab_umcg("amox"))
expect_warning(ab_tradenames("amox"))
expect_warning(atc_ddd("amox"))
expect_warning(atc_groups("amox"))
})