Examples now also report on env var 'LOADEDMODULES' to help illustrate how resources 'modules' can be used

Author: HenrikBengtsson

R/batchtools_bash.R

@@ -68,7 +68,8 @@ BatchtoolsBashFutureBackend <- function(..., template = "bash", fs.latency = 0.0
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
 #'        cores = unname(parallelly::availableCores()),
-#'          pid = Sys.getpid()
+#'          pid = Sys.getpid(),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_custom.R

@@ -20,9 +20,17 @@
 #'
 #' message("Main process ID: ", Sys.getpid())
 #'
-#' f <- future(Sys.getpid())
-#' pid <- value(f)
-#' message("Worker process ID: ", pid)
+#' f <- future({
+#'   data.frame(
+#'     hostname = Sys.info()[["nodename"]],
+#'           os = Sys.info()[["sysname"]],
+#'        cores = unname(parallelly::availableCores()),
+#'          pid = Sys.getpid(),
+#'      modules = Sys.getenv("LOADEDMODULES")
+#'   )
+#' })
+#' info <- value(f)
+#' print(info)
 #'
 #' @rdname BatchtoolsFutureBackend
 #' @keywords internal

R/batchtools_interactive.R

@@ -52,7 +52,8 @@ BatchtoolsInteractiveFutureBackend <- function(fs.latency = 0.0, ...) {
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
 #'        cores = unname(parallelly::availableCores()),
-#'          pid = Sys.getpid()
+#'          pid = Sys.getpid(),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_local.R

@@ -84,7 +84,8 @@ BatchtoolsLocalFutureBackend <- function(fs.latency = 0.0, ...) {
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
 #'        cores = unname(parallelly::availableCores()),
-#'          pid = Sys.getpid()
+#'          pid = Sys.getpid(),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_lsf.R

@@ -48,7 +48,8 @@ BatchtoolsLsfFutureBackend <- function(...) {
 #'   data.frame(
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
-#'        cores = unname(parallelly::availableCores())
+#'        cores = unname(parallelly::availableCores()),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_multicore.R

@@ -95,7 +95,8 @@ BatchtoolsMulticoreFutureBackend <- function(workers = availableCores(constraint
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
 #'        cores = unname(parallelly::availableCores()),
-#'          pid = Sys.getpid()
+#'          pid = Sys.getpid(),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_openlava.R

@@ -48,7 +48,8 @@ BatchtoolsOpenLavaFutureBackend <- function(...) {
 #'   data.frame(
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
-#'        cores = unname(parallelly::availableCores())
+#'        cores = unname(parallelly::availableCores()),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_sge.R

@@ -52,7 +52,8 @@ BatchtoolsSGEFutureBackend <- function(...) {
 #'   data.frame(
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
-#'        cores = unname(parallelly::availableCores())
+#'        cores = unname(parallelly::availableCores()),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)

R/batchtools_slurm.R

@@ -53,7 +53,8 @@ BatchtoolsSlurmFutureBackend <- function(...) {
 #'   data.frame(
 #'     hostname = Sys.info()[["nodename"]],
 #'           os = Sys.info()[["sysname"]],
-#'        cores = unname(parallelly::availableCores())
+#'        cores = unname(parallelly::availableCores()),
+#'      modules = Sys.getenv("LOADEDMODULES")
 #'   )
 #' })
 #' info <- value(f)