Merge pull request #337 from Roche-GSK/298_bug_is_date

Updated failure message
pharmaverse · Jul 13, 2021 · b8ed299 · b8ed299
2 parents 88a637c + 132229d
commit b8ed299
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/R/assertions.R b/R/assertions.R
@@ -588,11 +588,20 @@ is_date <- function(arg) {
   is.instant(arg)
 }
 on_failure(is_date) <- function(call, env) {
+  evld <- eval(call$arg, envir = env)
+  len <- length(evld)
+  msg <- if (len == 0) {
+    deparse(evld)
+  } else if (len == 1) {
+    evld
+  } else {
+    paste0("c(", paste(head(evld, 5), collapse = ", "), `if`(len > 5, ", ..."), ")")
+  }
   paste0(
     "Argument ",
     deparse(call$arg),
     " = ",
-    eval(call$arg, envir = env),
+    msg,
     " is not a lubridate date."
   )
 }