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

(v3.0.1.9090) unit test

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-09-04 19:47:30 +02:00
parent 177e83aaf8
commit 3f50d6b6c3
4 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
R/aa_helper_functions.R
View File

@@ -972,10 +972,14 @@ meet_criteria <- function(object, # can be literally `list(...)` for `allow_argu
if ("logical" %in% allow_class) {
or_values <- paste0(or_values, ", or TRUE or FALSE")
}
stop_ifnot(all(object %in% is_in.bak, na.rm = TRUE), "argument {.arg ", obj_name, "} ",
ifelse(!is.null(has_length) && length(has_length) == 1 && has_length == 1,
"must be either ",
"must only contain values "
stop_ifnot(all(object %in% is_in.bak, na.rm = TRUE),
"argument {.arg ", obj_name, "} ",
ifelse(!is.null(has_length) && length(has_length) == 1 && has_length == 1 && length(is_in.bak) == 1,
"must be ",
ifelse(!is.null(has_length) && length(has_length) == 1 && has_length == 1,
"must be either ",
"must only contain values "
)
),
or_values,
ifelse(allow_NA == TRUE, ", or NA", ""),