Improve error message

hadley · Apr 11, 2009 · 51f7a09 · 51f7a09
1 parent b9bc3d5
commit 51f7a09
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ply-list.r b/R/ply-list.r
@@ -44,7 +44,7 @@ llply <- function(.data, .fun = NULL, ..., .progress = "none") {
 
     res <- try(.fun(piece, ...))
     if (inherits(res, "try-error")) {
-      piece <- capture.output(print.default(piece))
+      piece <- paste(capture.output(print(piece)), collapse = "\n")
       stop("with piece ", i, ": \n", piece, call. = FALSE)
     }