Now internal S3 methods for internal S3 generic are properly registered as such in NAMESPACE

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.1-9005
+Version: 0.12.1-9006
 Depends:
     R (>= 3.2.0),
     parallelly,

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(add_finalizer,BatchtoolsFuture)
 S3method(delete,BatchtoolsFuture)
 S3method(loggedError,BatchtoolsFuture)
 S3method(loggedOutput,BatchtoolsFuture)
@@ -10,9 +11,18 @@ S3method(nbrOfWorkers,batchtools)
 S3method(nbrOfWorkers,batchtools_multicore)
 S3method(nbrOfWorkers,batchtools_uniprocess)
 S3method(print,BatchtoolsFuture)
+S3method(registerFuture,BatchtoolsFuture)
+S3method(registerFuture,BatchtoolsUniprocessFuture)
+S3method(registerFuture,default)
 S3method(resolved,BatchtoolsFuture)
 S3method(result,BatchtoolsFuture)
 S3method(run,BatchtoolsFuture)
+S3method(unregisterFuture,BatchtoolsFuture)
+S3method(unregisterFuture,BatchtoolsUniprocessFuture)
+S3method(unregisterFuture,default)
+S3method(waitForWorker,BatchtoolsFuture)
+S3method(waitForWorker,BatchtoolsUniprocessFuture)
+S3method(waitForWorker,default)
 export("%resources%")
 export(BatchtoolsBashFuture)
 export(BatchtoolsCustomFuture)

R/BatchtoolsFuture-class.R

@@ -864,6 +864,7 @@ delete.BatchtoolsFuture <- function(future,
 
 add_finalizer <- function(...) UseMethod("add_finalizer")
 
+#' @export
 add_finalizer.BatchtoolsFuture <- function(future, debug = FALSE, ...) {
   ## Register finalizer (will clean up registries etc.)
 

R/waitForWorker.R

@@ -2,17 +2,21 @@ waitForWorker <- function(future, ...) {
   UseMethod("waitForWorker")
 }
 
+#' @export
 waitForWorker.default <- function(future, ...) NULL
 
+#' @export
 waitForWorker.BatchtoolsUniprocessFuture <- function(future, ...) NULL
 
 
 registerFuture <- function(future, ...) {
   UseMethod("registerFuture")
 }
 
+#' @export
 registerFuture.default <- function(future, ...) NULL
 
+#' @export
 registerFuture.BatchtoolsUniprocessFuture <- function(future, ...) NULL
 
 
@@ -21,24 +25,29 @@ unregisterFuture <- function(future, ...) {
   UseMethod("unregisterFuture")
 }
 
+#' @export
 unregisterFuture.default <- function(future, ...) NULL
 
+#' @export
 unregisterFuture.BatchtoolsUniprocessFuture <- function(future, ...) NULL
 
 
+#' @export
 registerFuture.BatchtoolsFuture <- function(future, ...) {
   freg <- sprintf("workers-%s", class(future)[1])
   FutureRegistry(freg, action = "add", future = future, earlySignal = FALSE, ...)
 }
 
 
+#' @export
 unregisterFuture.BatchtoolsFuture <- function(future, ...) {
   freg <- sprintf("workers-%s", class(future)[1])
   FutureRegistry(freg, action = "remove", future = future, ...)
 }
 
 
 #' @importFrom future FutureError
+#' @export
 waitForWorker.BatchtoolsFuture <- function(future,
          workers,
          await = NULL,