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

WHONET/EARS-Net support

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-01-29 00:06:50 +01:00
parent f6336fdd89
commit 6aae206320
83 changed files with 1428 additions and 633 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/testthat/test-guess_ab_col.R
View File

@ -33,4 +33,13 @@ test_that("guess_ab_col works", {
"tetr")
expect_equal(guess_ab_col(septic_patients, "TETR"),
"tetr")
df <- data.frame(AMP_ND10 = "R",
AMC_ED20 = "S")
expect_equal(guess_ab_col(df, "ampicillin"),
"AMP_ND10")
expect_equal(guess_ab_col(df, "J01CR02"),
"AMC_ED20")
expect_equal(guess_ab_col(df, as.atc("augmentin")),
"AMC_ED20")
})