github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-06 20:55:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix validation bug

Browse Source
This commit is contained in:
Barbara Borges Ribeiro
2016-09-07 19:22:02 +01:00
parent fe85421c7e
commit 5e1e90ad80
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/utils.R
View File

@@ -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