R version 4.5.0 alpha (2025-03-15 r87978 ucrt) Copyright (C) 2025 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > source("incl/start.R") Loading required package: foreach Loading required package: future R version 4.5.0 alpha (2025-03-15 r87978 ucrt) Platform: x86_64-w64-mingw32/x64 Running under: Windows Server 2022 x64 (build 20348) Matrix products: default LAPACK version 3.12.1 locale: [1] LC_COLLATE=C LC_CTYPE=German_Germany.utf8 [3] LC_MONETARY=C LC_NUMERIC=C [5] LC_TIME=C time zone: Europe/Berlin tzcode source: internal attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] doFuture_1.0.2 future_1.34.0 foreach_1.5.2 loaded via a namespace (and not attached): [1] compiler_4.5.0 parallelly_1.42.0 tools_4.5.0 [4] parallel_4.5.0 future.apply_1.11.3 listenv_0.9.1 [7] codetools_0.2-20 iterators_1.0.14 digest_0.6.37 [10] globals_0.16.3 > > strategies <- future:::supportedStrategies() > > message("*** registerDoFuture() ...") *** registerDoFuture() ... > > message("doSEQ() %dopar% information:") doSEQ() %dopar% information: > registerDoSEQ() > message("getDoParName(): ", sQuote(getDoParName())) getDoParName(): 'doSEQ' > message("getDoParVersion(): ", sQuote(getDoParVersion())) getDoParVersion(): '1.5.2' > message("getDoParWorkers(): ", sQuote(getDoParWorkers())) getDoParWorkers(): '1' > > oldDoPar <- registerDoFuture() > message("Previously registered foreach backend:") Previously registered foreach backend: > utils::str(oldDoPar) List of 3 $ fun :function (obj, expr, envir, data) $ data: NULL $ info:function (data, item) - attr(*, "class")= chr "DoPar" > > stopifnot( + "fun" %in% names(oldDoPar), + "data" %in% names(oldDoPar), + "info" %in% names(oldDoPar), + is.function(oldDoPar$fun) + ) > > message("doFuture() %dopar% information:") doFuture() %dopar% information: > > for (strategy in strategies) { + message(sprintf("- plan('%s') ...", strategy)) + plan(strategy) + + message(name <- getDoParName()) + stopifnot(name == "doFuture") + message(version <- getDoParVersion()) + stopifnot(packageVersion(name) == version) + message(nbr_of_workers <- getDoParWorkers()) + stopifnot(nbr_of_workers == nbrOfWorkers()) + + # Shutdown current plan + plan(sequential) + + message(sprintf("- plan('%s') ... DONE", strategy)) + } ## for (strategy ...) - plan('sequential') ... doFuture 1.0.2 1 - plan('sequential') ... DONE - plan('multisession') ... doFuture 1.0.2 2 - plan('multisession') ... DONE - plan('cluster') ... doFuture 1.0.2 2 - plan('cluster') ... DONE > > message("*** registerDoFuture() ... DONE") *** registerDoFuture() ... DONE > > source("incl/end.R") R version 4.5.0 alpha (2025-03-15 r87978 ucrt) Platform: x86_64-w64-mingw32/x64 Running under: Windows Server 2022 x64 (build 20348) Matrix products: default LAPACK version 3.12.1 locale: [1] LC_COLLATE=C LC_CTYPE=German_Germany.utf8 [3] LC_MONETARY=C LC_NUMERIC=C [5] LC_TIME=C time zone: Europe/Berlin tzcode source: internal attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] doFuture_1.0.2 future_1.34.0 foreach_1.5.2 loaded via a namespace (and not attached): [1] compiler_4.5.0 parallelly_1.42.0 tools_4.5.0 [4] parallel_4.5.0 future.apply_1.11.3 listenv_0.9.1 [7] codetools_0.2-20 iterators_1.0.14 digest_0.6.37 [10] globals_0.16.3 > > proc.time() user system elapsed 0.62 0.18 2.26