comparison() accepts messages of length > 1

r-lib · Apr 16, 2016 · 5700234 · 5700234
1 parent b80c637
commit 5700234
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/compare.R b/R/compare.R
@@ -14,12 +14,12 @@ compare <- function(x, y, ...) {
 
 comparison <- function(equal = TRUE, message = "Equal") {
   stopifnot(is.logical(equal), length(equal) == 1)
-  stopifnot(is.character(message), length(message) == 1)
+  stopifnot(is.character(message))
 
   structure(
     list(
       equal = equal,
-      message = message
+      message = paste(message, collapse = "\n")
     ),
     class = "comparison"
   )