Printing a batchtools future will show logged output

Author:    Henrik Bengtsson <[email protected]>

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.2-9970
+Version: 0.12.2-9971
 Depends:
     R (>= 3.2.0),
     parallelly,

NEWS.md

@@ -35,6 +35,8 @@
 
  * Calling `plan()` on `batchtools_sge` and `batchtools_slurm` reports
    on the version of the scheduler.
+   
+ * Printing a batchtools future will show logged output.
 
 ## Documentation
 

R/BatchtoolsFutureBackend-class.R

@@ -449,8 +449,17 @@ print.BatchtoolsFuture <- function(x, ...) {
   ## Ask for status once
   status <- status(x)
   printf("batchtools status: %s\n", paste(sQuote(status), collapse = ", "))
-  if ("error" %in% status) {
-    printf("Error captured by batchtools: %s\n", loggedError(x))
+  if (any(c("finished", "error", "expired") %in% status)) {
+    if ("error" %in% status) {
+      lines <- loggedError(x)
+      lines <- sprintf("[error] %s", lines)
+      lines <- paste(lines, collapse = "\n")
+      printf("Error captured by batchtools:\n%s\n", lines)
+    }
+    lines <- loggedOutput(x)
+    lines <- sprintf("[output] %s", lines)
+    lines <- paste(lines, collapse = "\n")
+    printf("Output captured by batchtools:\n%s\n", lines)
   }
 
   if (is_na(status)) {