From 5e1e90ad80bc3dc397cf68b8f684ea3249461b60 Mon Sep 17 00:00:00 2001 From: Barbara Borges Ribeiro Date: Wed, 7 Sep 2016 19:22:02 +0100 Subject: [PATCH] fix validation bug --- R/utils.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/utils.R b/R/utils.R index ea83f3a5f..f6dd23ece 100644 --- a/R/utils.R +++ b/R/utils.R @@ -1134,7 +1134,7 @@ validate <- function(..., errorClass = character(0)) { # There may be empty strings remaining; these are message-less failures that # started as FALSE results <- results[nzchar(results)] - reactiveStop(paste(results, collapse="\n"), errorClass) + reactiveStop(paste(results, collapse="\n"), c(errorClass, "validation")) } #' @param expr An expression to test. The condition will pass if the expression