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

(v1.5.0.9041) SNOMED update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-03-11 21:42:30 +01:00
parent 8d6ceb6a15
commit 4e0a9533ad
65 changed files with 86943 additions and 67626 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,7 +56,7 @@ test_that("EUCAST rules work", {
a <- data.frame(mo = c("Klebsiella pneumoniae",
"Pseudomonas aeruginosa",
"Enterobacter cloacae"),
amox = "-", # Amoxicillin
amox = "-", # Amoxicillin
stringsAsFactors = FALSE)
b <- data.frame(mo = c("Klebsiella pneumoniae",
"Pseudomonas aeruginosa",
@ -124,7 +124,7 @@ test_that("EUCAST rules work", {
expect_identical(
eucast_rules(data.frame(mo = c("Escherichia coli", "Enterobacter cloacae"),
cefotax = as.rsi(c("S", "S"))),
ampc_cephalosporin_resistance = "R",
ampc_cephalosporin_resistance = TRUE,
info = FALSE)$cefotax,
as.rsi(c("S", "R")))
expect_identical(