Add makeClusterSequential() - tweaks

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.37.1-9010
+Version: 1.37.1-9011
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

NAMESPACE

@@ -26,7 +26,6 @@ S3method(killNode,cluster)
 S3method(killNode,default)
 S3method(print,RichSOCKcluster)
 S3method(print,RichSOCKnode)
-S3method(print,sequential_node)
 S3method(stopCluster,RichMPIcluster)
 S3method(summary,RichSOCKcluster)
 S3method(summary,RichSOCKnode)
@@ -53,9 +52,11 @@ export(makeClusterMPI)
 export(makeClusterPSOCK)
 export(makeNodePSOCK)
 export(supportsMulticore)
+if (getRversion() >= "4.4") S3method(print,sequential_cluster)
 if (getRversion() >= "4.4") S3method(print,sequential_node)
 if (getRversion() >= "4.4") S3method(recvData,sequential_node)
 if (getRversion() >= "4.4") S3method(sendData,sequential_node)
+if (getRversion() >= "4.4") export(SEQ)
 if (getRversion() >= "4.4") export(makeClusterSequential)
 if (getRversion() >= "4.4") importFrom(parallel,recvData)
 if (getRversion() >= "4.4") importFrom(parallel,sendData)

R/makeClusterSequential.R

@@ -22,14 +22,15 @@
 #' This function is only defined for R (>= 4.4.0).
 #'
 #' @rawNamespace if (getRversion() >= "4.4") export(makeClusterSequential)
+#' @aliases SEQ
 makeClusterSequential <- function() {
   node <- makeNodeSequential()
   cl <- list(node)
   class(cl) <- c("sequential_cluster", "cluster")
   cl
 }
 
-#' @rawNamespace if (getRversion() >= "4.4") S3method(print,sequential_node)
+#' @rawNamespace if (getRversion() >= "4.4") S3method(print,sequential_cluster)
 print.sequential_cluster <- function(x, ...) {
   cat(sprintf("A %s cluster with %d node\n", sQuote(class(x)[1]), length(x)))
 }
@@ -42,7 +43,7 @@ makeNodeSequential <- function() {
   node
 }
 
-#' @export
+#' @rawNamespace if (getRversion() >= "4.4") S3method(print,sequential_node)
 print.sequential_node <- function(x, ...) {
   cat(sprintf("A %s node\n", sQuote(class(x))))
 }

R/registerClusterTypes.R

@@ -8,6 +8,7 @@ MPI   <- "parallelly::MPI"
 #' @rawNamespace export(PSOCK)
 PSOCK <- "parallelly::PSOCK"
 
+#' @rawNamespace if (getRversion() >= "4.4") export(SEQ)
 SEQ <- "parallelly::SEQ"
 
 registerClusterTypes <- local({
@@ -25,8 +26,8 @@ registerClusterTypes <- local({
     ## WORKAROUND: 'R CMD build' somehow creates and calls this function
     ## twice, resulting in warnings from parallel::registerClusterType().
     suppressWarnings({
-      registerClusterType(MPI,   makeClusterMPI,   make.default = FALSE)
-      registerClusterType(PSOCK, makeClusterPSOCK, make.default = FALSE)
+      registerClusterType(MPI,   makeClusterMPI,        make.default = FALSE)
+      registerClusterType(PSOCK, makeClusterPSOCK,      make.default = FALSE)
       registerClusterType(SEQ,   makeClusterSequential, make.default = FALSE)
     })
     done <<- TRUE