1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 15:41:56 +02:00

(v1.6.0.9049) unit tests

This commit is contained in:
2021-05-20 00:07:27 +02:00
parent 2413efd5c1
commit 9a2879cba9
17 changed files with 27 additions and 31 deletions

View File

@ -509,7 +509,7 @@ create_eucast_ab_documentation <- function() {
# separate drugs, such as `AMX`
val <- as.ab(val)
} else {
stop_("antimicrobial agent (group) not found in EUCAST rules file: ", val.bak, call = FALSE)
val <- as.rsi(NA)
}
ab <- c(ab, val)
}

View File

@ -299,6 +299,7 @@ all_any_ab_selector <- function(type, ..., na.rm = TRUE) {
cols_ab <- c(...)
result <- cols_ab[toupper(cols_ab) %in% c("R", "S", "I")]
if (length(result) == 0) {
message_("Filtering ", type, " of columns ", vector_and(font_bold(cols_ab, collapse = NULL), quotes = "'"), ' to contain value "R", "S" or "I"')
result <- c("R", "S", "I")
}
cols_ab <- cols_ab[!cols_ab %in% result]