WORKAROUND: Add cancel() for BatchtoolsFuture, until package has moved to the new BatchtoolsFutureBackend

Author: HenrikBengtsson

DESCRIPTION

@@ -1,9 +1,9 @@
 Package: future.batchtools
-Version: 0.12.1-9006
+Version: 0.12.1-9007
 Depends:
     R (>= 3.2.0),
     parallelly,
-    future (>= 1.31.0)
+    future (>= 1.49.0)
 Imports:
     batchtools (>= 0.9.16),
     utils

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(add_finalizer,BatchtoolsFuture)
+S3method(cancel,BatchtoolsFuture)
 S3method(delete,BatchtoolsFuture)
 S3method(loggedError,BatchtoolsFuture)
 S3method(loggedOutput,BatchtoolsFuture)
@@ -83,6 +84,7 @@ importFrom(batchtools,submitJobs)
 importFrom(batchtools,waitForJobs)
 importFrom(future,Future)
 importFrom(future,FutureError)
+importFrom(future,cancel)
 importFrom(future,getExpression)
 importFrom(future,getGlobalsAndPackages)
 importFrom(future,nbrOfFreeWorkers)

R/BatchtoolsFuture-class.R

@@ -204,6 +204,14 @@ print.BatchtoolsFuture <- function(x, ...) {
 }
 
 
+#' @importFrom future cancel
+#' @export
+cancel.BatchtoolsFuture <- function(x, interrupt = FALSE, ...) {
+  ## FIXME
+  NextMethod(interrupt = interrupt)
+}
+
+
 #' @importFrom batchtools getStatus
 status <- function(future, ...) {
   debug <- getOption("future.debug", FALSE)