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

(v1.5.0.9009) unit test fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-22 10:55:07 +01:00
parent 1ba44776a1
commit 1a88caa119
19 changed files with 51 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
R/aa_helper_functions.R
View File

@ -479,10 +479,13 @@ format_class <- function(class, plural) {
if ("matrix" %in% class) {
class <- "a matrix"
}
if (any(c("mo", "ab", "rsi", "disk", "mic") %in% class)) {
class <- paste0("a class <", class[1L], ">")
if ("isolate_identifier" %in% class) {
class <- "created with isolate_identifier()"
}
class[class == class.bak] <- paste0("a class <", class[class == class.bak], ">")
if (any(c("mo", "ab", "rsi", "disk", "mic") %in% class)) {
class <- paste0("of class <", class[1L], ">")
}
class[class == class.bak] <- paste0("of class <", class[class == class.bak], ">")
# output
vector_or(class, quotes = FALSE)
}
@ -514,7 +517,7 @@ meet_criteria <- function(object,
if (!is.null(allow_class)) {
stop_ifnot(inherits(object, allow_class), "argument `", obj_name,
"` must be ", format_class(allow_class, plural = isTRUE(has_length > 1)),
", not ", format_class(class(object), plural = isTRUE(has_length > 1)),
", i.e. not be ", format_class(class(object), plural = isTRUE(has_length > 1)),
call = call_depth)
# check data.frames for data
if (inherits(object, "data.frame")) {