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

(v2.1.1.9247) CLSI/EUCAST 2025!

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-04-20 12:55:31 +02:00
parent 0bab49ff86
commit ea443f7483
65 changed files with 8297 additions and 1901 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/eucast_rules.R
View File

@ -167,7 +167,7 @@ eucast_rules <- function(x,
info = interactive(),
rules = getOption("AMR_eucastrules", default = c("breakpoints", "expected_phenotypes")),
verbose = FALSE,
version_breakpoints = 14.0,
version_breakpoints = 15.0,
version_expected_phenotypes = 1.2,
version_expertrules = 3.3,
ampc_cephalosporin_resistance = NA,
@ -1242,7 +1242,7 @@ edit_sir <- function(x,
#' @rdname eucast_rules
#' @export
eucast_dosage <- function(ab, administration = "iv", version_breakpoints = 12.0) {
eucast_dosage <- function(ab, administration = "iv", version_breakpoints = 15) {
meet_criteria(ab, allow_class = c("character", "numeric", "integer", "factor"))
meet_criteria(administration, allow_class = "character", is_in = dosage$administration[!is.na(dosage$administration)], has_length = 1)
meet_criteria(version_breakpoints, allow_class = c("numeric", "integer"), has_length = 1, is_in = as.double(names(EUCAST_VERSION_BREAKPOINTS)))