R version 4.4.0 alpha (2024-03-26 r86209 ucrt)
Copyright (C) 2024 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,load-only.R")
[15:33:09.356] Detected 'R CMD check':
 - adjusting defaults to be a good citizen
[15:33:09.358] Set package option 'parallelly.availableCores.methods'
[15:33:09.358] Environment variable 'R_PARALLELLY_AVAILABLECORES_METHODS' not set
[15:33:09.359] Set package option 'parallelly.availableCores.fallback'
[15:33:09.359] Environment variable 'R_PARALLELLY_AVAILABLECORES_FALLBACK' not set
[15:33:09.360] Set package option 'parallelly.availableCores.min'
[15:33:09.361] Environment variable 'R_PARALLELLY_AVAILABLECORES_MIN' not set
[15:33:09.361] Set package option 'parallelly.availableCores.system'
[15:33:09.362] Environment variable 'R_PARALLELLY_AVAILABLECORES_SYSTEM' not set
[15:33:09.362] Set package option 'parallelly.availableCores.logical'
[15:33:09.363] Environment variable 'R_PARALLELLY_AVAILABLECORES_LOGICAL' not set
[15:33:09.363] Set package option 'parallelly.availableCores.omit'
[15:33:09.364] Environment variable 'R_PARALLELLY_AVAILABLECORES_OMIT' not set
[15:33:09.364] Set package option 'parallelly.availableWorkers.methods'
[15:33:09.365] Environment variable 'R_PARALLELLY_AVAILABLEWORKERS_METHODS' not set
[15:33:09.365] Set package option 'parallelly.maxWorkers.localhost'
[15:33:09.365] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST' not set
[15:33:09.366] Set package option 'parallelly.maxWorkers.localhost.ignore'
[15:33:09.366] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE' not set
[15:33:09.367] Set package option 'parallelly.fork.enable'
[15:33:09.367] Environment variable 'R_PARALLELLY_FORK_ENABLE' not set
[15:33:09.368] Set package option 'parallelly.supportsMulticore.disableOn'
[15:33:09.368] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON' not set
[15:33:09.369] Set package option 'parallelly.supportsMulticore.unstable'
[15:33:09.369] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE' not set
[15:33:09.370] Set package option 'parallelly.makeNodePSOCK.setup_strategy'
[15:33:09.370] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY' not set
[15:33:09.371] Set package option 'parallelly.makeNodePSOCK.validate'
[15:33:09.371] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_VALIDATE' not set
[15:33:09.372] Set package option 'parallelly.makeNodePSOCK.connectTimeout'
[15:33:09.372] R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
[15:33:09.372] Coercing from character to numeric: '120'
[15:33:09.373] => options("parallelly.makeNodePSOCK.connectTimeout" = '120') [n=1, mode=double]
[15:33:09.373] Set package option 'parallelly.makeNodePSOCK.timeout'
[15:33:09.374] R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
[15:33:09.374] Coercing from character to numeric: '120'
[15:33:09.375] => options("parallelly.makeNodePSOCK.timeout" = '120') [n=1, mode=double]
[15:33:09.375] Set package option 'parallelly.makeNodePSOCK.useXDR'
[15:33:09.376] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_USEXDR' not set
[15:33:09.376] Set package option 'parallelly.makeNodePSOCK.socketOptions'
[15:33:09.377] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS' not set
[15:33:09.377] Set package option 'parallelly.makeNodePSOCK.rshcmd'
[15:33:09.378] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHCMD' not set
[15:33:09.378] Set package option 'parallelly.makeNodePSOCK.rshopts'
[15:33:09.378] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHOPTS' not set
[15:33:09.379] Set package option 'parallelly.makeNodePSOCK.tries'
[15:33:09.380] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES' not set
[15:33:09.380] Set package option 'parallelly.makeNodePSOCK.tries.delay'
[15:33:09.380] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY' not set
[15:33:09.381] Set package option 'parallelly.makeNodePSOCK.rscript_label'
[15:33:09.381] R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
[15:33:09.382] => options("parallelly.makeNodePSOCK.rscript_label" = 'TRUE') [n=1, mode=character]
[15:33:09.382] Set package option 'parallelly.makeNodePSOCK.sessionInfo.pkgs'
[15:33:09.382] R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
[15:33:09.383] => options("parallelly.makeNodePSOCK.sessionInfo.pkgs" = 'TRUE') [n=1, mode=character]
[15:33:09.383] Set package option 'parallelly.makeNodePSOCK.autoKill'
[15:33:09.384] R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
[15:33:09.384] Coercing from character to logical: 'TRUE'
[15:33:09.384] => options("parallelly.makeNodePSOCK.autoKill" = 'TRUE') [n=1, mode=logical]
[15:33:09.385] Set package option 'parallelly.makeNodePSOCK.master.localhost.hostname'
[15:33:09.385] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME' not set
[15:33:09.386] Set package option 'parallelly.makeNodePSOCK.port.increment'
[15:33:09.386] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT' not set
[15:33:09.388] parallelly-specific environment variables:
- R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
- R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
- R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
- R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
- R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
- R_PARALLELLY_RANDOM_PORTS='20000:39999'
[15:33:09.401] Future-specific environment variables:
[15:33:09.402] Environment variable 'R_FUTURE_DEMO_MANDELBROT_REGION' not set
[15:33:09.402] Environment variable 'R_FUTURE_DEMO_MANDELBROT_NROW' not set
[15:33:09.403] Environment variable 'R_FUTURE_DEPRECATED_IGNORE' not set
[15:33:09.403] Environment variable 'R_FUTURE_DEPRECATED_DEFUNCT' not set
[15:33:09.403] Environment variable 'R_FUTURE_FORK_MULTITHREADING_ENABLE' not set
[15:33:09.404] Environment variable 'R_FUTURE_GLOBALS_MAXSIZE' not set
[15:33:09.404] Environment variable 'R_FUTURE_GLOBALS_ONMISSING' not set
[15:33:09.404] Environment variable 'R_FUTURE_GLOBALS_ONREFERENCE' not set
[15:33:09.404] Environment variable 'R_FUTURE_GLOBALS_METHOD' not set
[15:33:09.405] Environment variable 'R_FUTURE_GLOBALS_RESOLVE' not set
[15:33:09.405] Environment variable 'R_FUTURE_LAZY_ASSERTOWNER' not set
[15:33:09.405] Environment variable 'R_FUTURE_PLAN' not set
[15:33:09.406] Environment variable 'R_FUTURE_PLAN_DISALLOW' not set
[15:33:09.406] Environment variable 'R_FUTURE_PSOCK_RELAY_IMMEDIATE' not set
[15:33:09.406] Environment variable 'R_FUTURE_RELAY_IMMEDIATE' not set
[15:33:09.407] Environment variable 'R_FUTURE_RESOLVE_RECURSIVE' not set
[15:33:09.407] Environment variable 'R_FUTURE_ALIVE_TIMEOUT' not set
[15:33:09.407] Environment variable 'R_FUTURE_RESOLVED_TIMEOUT' not set
[15:33:09.408] Environment variable 'R_FUTURE_CLUSTER_RESOLVED_TIMEOUT' not set
[15:33:09.408] Environment variable 'R_FUTURE_MULTICORE_RESOLVED_TIMEOUT' not set
[15:33:09.408] Environment variable 'R_FUTURE_ONFUTURECONDITION_KEEPFUTURE' not set
[15:33:09.409] Environment variable 'R_FUTURE_RNG_ONMISUSE' not set
[15:33:09.409] Environment variable 'R_FUTURE_GLOBALENV_ONMISUSE' not set
[15:33:09.409] Environment variable 'R_FUTURE_WAIT_TIMEOUT' not set
[15:33:09.409] Environment variable 'R_FUTURE_WAIT_INTERVAL' not set
[15:33:09.410] Environment variable 'R_FUTURE_WAIT_ALPHA' not set
[15:33:09.410] Environment variable 'R_FUTURE_ASSIGN_GLOBALS_EXCLUDE' not set
[15:33:09.410] Environment variable 'R_FUTURE_OUTPUT_WINDOWS_REENCODE' not set
[15:33:09.411] Environment variable 'R_FUTURE_GLOBALS_GLOBALSOF_LOCALS' not set
[15:33:09.411] Environment variable 'R_FUTURE_STATE_ONINVALID' not set
[15:33:09.411] Environment variable 'R_FUTURE_JOURNAL' not set
[15:33:09.412] Environment variable 'R_FUTURE_GLOBALS_KEEPWHERE' not set
[15:33:09.413] R process uuid: 5530f7e8-2a5a-8c86-5260-38488d9f5ac7
[15:33:09.413] Setting plan('default')
[15:33:09.414] plan(): Setting new future strategy stack:
[15:33:09.415] List of future strategies:
[15:33:09.415] 1. sequential:
[15:33:09.415]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:33:09.415]    - tweaked: FALSE
[15:33:09.415]    - call: NULL
[15:33:09.417] plan(): nbrOfWorkers() = 1
[15:33:09.448] plan(): Setting new future strategy stack:
[15:33:09.448] List of future strategies:
[15:33:09.448] 1. sequential:
[15:33:09.448]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:33:09.448]    - tweaked: FALSE
[15:33:09.448]    - call: future::plan("sequential")
[15:33:09.465] plan(): nbrOfWorkers() = 1
> stop_if_not <- future.apply:::stop_if_not
> 
> message("*** utils ...")
*** utils ...
> 
> message("*** hpaste() ...")
*** hpaste() ...
> 
> # Some vectors
> x <- 1:6
> y <- 10:1
> z <- LETTERS[x]
> 
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # Abbreviation of output vector
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> printf("x = %s.\n", hpaste(x))
x = 1, 2, 3, 4, 5, 6.
> ## x = 1, 2, 3, ..., 6.
> 
> printf("x = %s.\n", hpaste(x, maxHead = 2))
x = 1, 2, ..., 6.
> ## x = 1, 2, ..., 6.
> 
> printf("x = %s.\n", hpaste(x, maxHead = 3)) # Default
x = 1, 2, 3, ..., 6.
> ## x = 1, 2, 3, ..., 6.
> 
> # It will never output 1, 2, 3, 4, ..., 6
> printf("x = %s.\n", hpaste(x, maxHead = 4))
x = 1, 2, 3, 4, 5, 6.
> ## x = 1, 2, 3, 4, 5 and 6.
> 
> # Showing the tail
> printf("x = %s.\n", hpaste(x, maxHead = 1, maxTail = 2))
x = 1, ..., 5, 6.
> ## x = 1, ..., 5, 6.
> 
> # Turning off abbreviation
> printf("y = %s.\n", hpaste(y, maxHead = Inf))
y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1.
> ## y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1
> 
> ## ...or simply
> printf("y = %s.\n", paste(y, collapse = ", "))
y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1.
> ## y = 10, 9, 8, 7, 6, 5, 4, 3, 2, 1
> 
> # Change last separator
> printf("x = %s.\n", hpaste(x, lastCollapse = " and "))
x = 1, 2, 3, 4, 5 and 6.
> ## x = 1, 2, 3, 4, 5 and 6.
> 
> # No collapse
> stopifnot(all(hpaste(x, collapse = NULL) == x))
> 
> # Empty input
> stopifnot(identical(hpaste(character(0)), character(0)))
> 
> message("*** hpaste() ...")
*** hpaste() ...
> 
> 
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # debug()
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> message("*** mdebug() ...")
*** mdebug() ...
> 
> mdebug("Hello #", 1)
[15:33:09.491] Hello #1
> mdebugf("Hello #%d", 1)
[15:33:09.491] Hello #1
> options(future.debug = TRUE)
> 
> mdebug("Hello #", 2)
[15:33:09.491] Hello #2
> mdebugf("Hello #%d", 2)
[15:33:09.492] Hello #2
> options(future.debug = FALSE)
> 
> mdebug("Hello #", 3)
NULL
> mdebugf("Hello #%d", 3)
NULL
> 
> message("*** mdebug() ... DONE")
*** mdebug() ... DONE
> 
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> # import_from()
> # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> message("*** import_from() ...")
*** import_from() ...
> 
> obj <- import_from("non-existing-fcn", default = NA, package = "future")
> stopifnot(identical(obj, NA))
> 
> res <- tryCatch({
+   obj <- import_from("non-existing-fcn", package = "future")
+ }, error = identity)
> print(res)
<simpleError: No such 'future' function: non-existing-fcn()>
> stopifnot(inherits(res, "simpleError"))
> 
> message("*** import_from() ... DONE")
*** import_from() ... DONE
> 
> 
> message("*** stop_if_not() ...")
*** stop_if_not() ...
> 
> stop_if_not(TRUE)
NULL
> stop_if_not(TRUE, TRUE)
NULL
> res <- tryCatch({
+   stop_if_not(FALSE)
+ }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> res <- tryCatch({
+   stop_if_not(list(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))
+ }, error = identity)
> stopifnot(inherits(res, "simpleError"))
> 
> message("*** stop_if_not() ... DONE")
*** stop_if_not() ... DONE
> 
> 
> message("*** assert_values2() ...")
*** assert_values2() ...
> 
> assert_values2 <- future.apply:::assert_values2
> assert_values2(nX = 2L, values2 = as.list(1:2))
> res <- tryCatch({
+   assert_values2(nX = 1L, values = as.list(1:2), values2 = as.list(1:2), fcn = "tests", debug = TRUE)
+ }, error = identity)
> stopifnot(inherits(res, "FutureError"))
> 
> message("*** assert_values2() ... DONE")
*** assert_values2() ... DONE
> 
> 
> message("*** utils ... DONE")
*** utils ... DONE
> 
> source("incl/end.R")
> 
> proc.time()
   user  system elapsed 
   0.35    0.15    0.50