1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 11:01:57 +02:00

(v1.5.0.9005) custom MDRO guideline

This commit is contained in:
2021-01-17 10:35:21 +01:00
parent e699de955c
commit e95218c0d1
13 changed files with 17 additions and 14 deletions

View File

@ -155,6 +155,9 @@ mdro <- function(x,
}
meet_criteria(x, allow_class = "data.frame")
meet_criteria(guideline, allow_class = c("list", "character"), allow_NULL = TRUE)
if (!is.list(guideline)) {
meet_criteria(guideline, allow_class = "character", has_length = 1, allow_NULL = TRUE)
}
meet_criteria(col_mo, allow_class = "character", has_length = 1, is_in = colnames(x), allow_NULL = TRUE)
meet_criteria(info, allow_class = "logical", has_length = 1)
meet_criteria(pct_required_classes, allow_class = "numeric", has_length = 1)