tweak [ci skip]

Author: HenrikBengtsson

R/BatchtoolsFuture-class.R

@@ -580,12 +580,12 @@ await <- function(future, cleanup = TRUE,
       if (inherits(result, "FutureResult")) {
         prototype_fields <- c(prototype_fields, "batchtools_log")
         result[["batchtools_log"]] <- try({
+          mdebug("- batchtools::getLog() ...")
+          on.exit(mdebug("- batchtools::getLog() ... done"))
 	  ## Since we're already collected the results, the log file
 	  ## should already exist, if it exists.  Because of this,
 	  ## only poll for the log file for a second before giving up.
 	  reg$cluster.functions$fs.latency <- 1.0
-          mdebug("- batchtools::getLog() ...")
-          on.exit(mdebug("- batchtools::getLog() ... done"))
           getLog(id = jobid, reg = reg)
         }, silent = TRUE)
         if (result_has_errors(result)) cleanup <- FALSE