P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-02-09 11:12:55 +01:00
Code Releases Activity

(v3.0.1.9019) Wildtype/Non-wildtype support, and start with interpretive_rules()

Browse Source 
Fixes #246
Fixes #254
Fixes #255
Fixes #256
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-02-08 23:15:40 +01:00
parent 2df2911cf4
commit ba4c159154
31 changed files with 394 additions and 165 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/custom_eucast_rules.R
View File

@@ -220,8 +220,8 @@ custom_eucast_rules <- function(...) {
result_value <- as.character(result)[[3]]
result_value[result_value == "NA"] <- NA
stop_ifnot(
result_value %in% c("S", "SDD", "I", "R", "NI", NA),
"the resulting value of rule ", i, " must be either \"S\", \"SDD\", \"I\", \"R\", \"NI\" or NA"
result_value %in% c(VALID_SIR_LEVELS, NA),
paste0("the resulting value of rule ", i, " must be either ", vector_or(c(VALID_SIR_LEVELS, NA), sort = FALSE))
)
result_value <- as.sir(result_value)