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

unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-01-30 17:24:03 +01:00
parent 89a577805f
commit 4b133d4c96
6 changed files with 57 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/aa_helper_functions.R
View File

@ -722,9 +722,9 @@ format_class <- function(class, plural = FALSE) {
class <- "input created with `custom_eucast_rules()`"
}
if (any(c("mo", "ab", "sir") %in% class)) {
class <- paste0("of class <", class[1L], ">")
class <- paste0("of class '", class[1L], "'")
}
class[class == class.bak] <- paste0("of class <", class[class == class.bak], ">")
class[class == class.bak] <- paste0("of class '", class[class == class.bak], "'")
# output
vector_or(class, quotes = FALSE, sort = FALSE)
}
@ -854,7 +854,7 @@ meet_criteria <- function(object,
}
), na.rm = TRUE),
"the data provided in argument `", obj_name,
"` must contain at least one column of class <", contains_column_class, ">. ",
"` must contain at least one column of class '", contains_column_class, "'. ",
"See ?as.", contains_column_class, ".",
call = call_depth
)