mirror of
https://github.com/msberends/AMR.git
synced 2026-04-05 04:55:58 +02:00
(v3.0.1.9042) add EUCAST breakpoint table v16 to interpretive_rules()
This commit is contained in:
4
R/sir.R
4
R/sir.R
@@ -1079,8 +1079,8 @@ get_guideline <- function(guideline, reference_data) {
|
||||
guideline_param[guideline_param %unlike% " "] <- gsub("([a-z]+)([0-9]+)", "\\1 \\2", guideline_param[guideline_param %unlike% " "], ignore.case = TRUE)
|
||||
|
||||
stop_ifnot(guideline_param %in% reference_data$guideline,
|
||||
"invalid guideline: '", guideline,
|
||||
"'.\nValid guidelines are: ", vector_and(reference_data$guideline, quotes = TRUE, reverse = TRUE),
|
||||
"invalid guideline: {.val ", guideline,
|
||||
"}.\nValid guidelines are: ", vector_and(reference_data$guideline, reverse = TRUE),
|
||||
call = FALSE
|
||||
)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user