Add option 'future.batchtools.expiration.tail' and increase default from 6 to 48 lines [#32]

Author: HenrikBengtsson

NEWS

@@ -13,6 +13,13 @@ NEW FEATURES:
  * Setting option 'future.delete' to FALSE will now prevent removal of the
    batchtools registry folders.
 
+ * When a batchtools job expires, for instance when the scheduler terminates
+   it because the job was running out of its allocated resources, then a
+   BatchtoolsFutureError is produced which by default outputs the tail of the
+   output logged by batchtools.  The default number of lines displayed from
+   the end is now increased to from six to 48 - a number which now can be set
+   via option 'future.batchtools.expiration.tail'.
+
 BUG FIXES:
 
  * Argument 'workers' could not be a function.

R/BatchtoolsFuture-class.R

@@ -512,11 +512,11 @@ await.BatchtoolsFuture <- function(future, cleanup = TRUE,
       output <- loggedOutput(future)
       hint <- unlist(strsplit(output, split = "\n", fixed = TRUE))
       hint <- hint[nzchar(hint)]
-      hint <- tail(hint, n = 6L)
+      hint <- tail(hint, n = getOption("future.batchtools.expiration.tail", 48L))
       if (length(hint) > 0) {
         hint <- paste(hint, collapse = "\n")
-        msg <- sprintf("%s. The last few lines of the logged output:\n%s",
-                       msg, hint)
+        msg <- paste(msg, ". The last few lines of the logged output:\n",
+	             hint, sep="")
       } else {
         msg <- sprintf("%s. No logged output exist.", msg)
       }