mirror of
https://github.com/msberends/AMR.git
synced 2025-07-12 02:22:08 +02:00
(v2.1.1.9289) unit test fix
This commit is contained in:
2
R/mdro.R
2
R/mdro.R
@ -1490,7 +1490,7 @@ mdro <- function(x = NULL,
|
||||
if (length(ESBLs) > 0) {
|
||||
trans_tbl(
|
||||
2, # positive, unconfirmed
|
||||
rows = which(x$order == "Enterobacterales" & x[[ESBLs[1]]] == "R" & x[[ESBLs[2]]] == "R" & is.na(esbl)),
|
||||
rows = which(x$order == "Enterobacterales" & col_values(x, ESBLs[1]) == "R" & col_values(x, ESBLs[2]) == "R" & is.na(esbl)),
|
||||
cols = c(AMX %or% AMP, cephalosporins_3rd),
|
||||
any_all = "all",
|
||||
reason = "Enterobacterales: potential ESBL"
|
||||
|
Reference in New Issue
Block a user