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:
@ -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)
|
||||
}
|
||||
|
@ -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]
|
||||
|
Reference in New Issue
Block a user