R Under development (unstable) (2024-10-26 r87273 ucrt) -- "Unsuffered Consequences"
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")
[18:42:21.271] Detected 'R CMD check':
 - adjusting defaults to be a good citizen
[18:42:21.274] Set package option 'parallelly.availableCores.methods'
[18:42:21.275] Environment variable 'R_PARALLELLY_AVAILABLECORES_METHODS' not set
[18:42:21.275] Set package option 'parallelly.availableCores.fallback'
[18:42:21.275] Environment variable 'R_PARALLELLY_AVAILABLECORES_FALLBACK' not set
[18:42:21.275] Set package option 'parallelly.availableCores.min'
[18:42:21.276] Environment variable 'R_PARALLELLY_AVAILABLECORES_MIN' not set
[18:42:21.276] Set package option 'parallelly.availableCores.system'
[18:42:21.276] Environment variable 'R_PARALLELLY_AVAILABLECORES_SYSTEM' not set
[18:42:21.276] Set package option 'parallelly.availableCores.logical'
[18:42:21.277] Environment variable 'R_PARALLELLY_AVAILABLECORES_LOGICAL' not set
[18:42:21.277] Set package option 'parallelly.availableCores.omit'
[18:42:21.277] Environment variable 'R_PARALLELLY_AVAILABLECORES_OMIT' not set
[18:42:21.278] Set package option 'parallelly.availableWorkers.methods'
[18:42:21.278] Environment variable 'R_PARALLELLY_AVAILABLEWORKERS_METHODS' not set
[18:42:21.278] Set package option 'parallelly.maxWorkers.localhost'
[18:42:21.278] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST' not set
[18:42:21.279] Set package option 'parallelly.maxWorkers.localhost.ignore'
[18:42:21.279] Environment variable 'R_PARALLELLY_MAXWORKERS_LOCALHOST_IGNORE' not set
[18:42:21.279] Set package option 'parallelly.fork.enable'
[18:42:21.279] Environment variable 'R_PARALLELLY_FORK_ENABLE' not set
[18:42:21.280] Set package option 'parallelly.supportsMulticore.disableOn'
[18:42:21.280] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON' not set
[18:42:21.280] Set package option 'parallelly.supportsMulticore.unstable'
[18:42:21.281] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE' not set
[18:42:21.281] Set package option 'parallelly.makeNodePSOCK.setup_strategy'
[18:42:21.281] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY' not set
[18:42:21.281] Set package option 'parallelly.makeNodePSOCK.validate'
[18:42:21.282] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_VALIDATE' not set
[18:42:21.282] Set package option 'parallelly.makeNodePSOCK.connectTimeout'
[18:42:21.282] R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
[18:42:21.282] Coercing from character to numeric: '120'
[18:42:21.283] => options("parallelly.makeNodePSOCK.connectTimeout" = '120') [n=1, mode=double]
[18:42:21.283] Set package option 'parallelly.makeNodePSOCK.timeout'
[18:42:21.283] R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
[18:42:21.283] Coercing from character to numeric: '120'
[18:42:21.284] => options("parallelly.makeNodePSOCK.timeout" = '120') [n=1, mode=double]
[18:42:21.284] Set package option 'parallelly.makeNodePSOCK.useXDR'
[18:42:21.284] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_USEXDR' not set
[18:42:21.284] Set package option 'parallelly.makeNodePSOCK.socketOptions'
[18:42:21.285] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS' not set
[18:42:21.285] Set package option 'parallelly.makeNodePSOCK.rshcmd'
[18:42:21.285] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHCMD' not set
[18:42:21.286] Set package option 'parallelly.makeNodePSOCK.rshopts'
[18:42:21.286] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHOPTS' not set
[18:42:21.286] Set package option 'parallelly.makeNodePSOCK.tries'
[18:42:21.286] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES' not set
[18:42:21.287] Set package option 'parallelly.makeNodePSOCK.tries.delay'
[18:42:21.287] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY' not set
[18:42:21.287] Set package option 'parallelly.makeNodePSOCK.rscript_label'
[18:42:21.287] R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
[18:42:21.288] => options("parallelly.makeNodePSOCK.rscript_label" = 'TRUE') [n=1, mode=character]
[18:42:21.288] Set package option 'parallelly.makeNodePSOCK.sessionInfo.pkgs'
[18:42:21.288] R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
[18:42:21.289] => options("parallelly.makeNodePSOCK.sessionInfo.pkgs" = 'TRUE') [n=1, mode=character]
[18:42:21.289] Set package option 'parallelly.makeNodePSOCK.autoKill'
[18:42:21.289] R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
[18:42:21.289] Coercing from character to logical: 'TRUE'
[18:42:21.290] => options("parallelly.makeNodePSOCK.autoKill" = 'TRUE') [n=1, mode=logical]
[18:42:21.290] Set package option 'parallelly.makeNodePSOCK.master.localhost.hostname'
[18:42:21.290] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME' not set
[18:42:21.290] Set package option 'parallelly.makeNodePSOCK.port.increment'
[18:42:21.291] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT' not set
[18:42:21.292] 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'
[18:42:21.301] Future-specific environment variables:
[18:42:21.302] Environment variable 'R_FUTURE_DEMO_MANDELBROT_REGION' not set
[18:42:21.302] Environment variable 'R_FUTURE_DEMO_MANDELBROT_NROW' not set
[18:42:21.302] Environment variable 'R_FUTURE_DEPRECATED_IGNORE' not set
[18:42:21.302] Environment variable 'R_FUTURE_DEPRECATED_DEFUNCT' not set
[18:42:21.302] Environment variable 'R_FUTURE_FORK_MULTITHREADING_ENABLE' not set
[18:42:21.303] Environment variable 'R_FUTURE_GLOBALS_MAXSIZE' not set
[18:42:21.303] Environment variable 'R_FUTURE_GLOBALS_ONMISSING' not set
[18:42:21.303] Environment variable 'R_FUTURE_GLOBALS_ONREFERENCE' not set
[18:42:21.303] Environment variable 'R_FUTURE_GLOBALS_METHOD' not set
[18:42:21.303] Environment variable 'R_FUTURE_GLOBALS_RESOLVE' not set
[18:42:21.303] Environment variable 'R_FUTURE_LAZY_ASSERTOWNER' not set
[18:42:21.304] Environment variable 'R_FUTURE_PLAN' not set
[18:42:21.304] Environment variable 'R_FUTURE_PLAN_DISALLOW' not set
[18:42:21.304] Environment variable 'R_FUTURE_PSOCK_RELAY_IMMEDIATE' not set
[18:42:21.304] Environment variable 'R_FUTURE_RELAY_IMMEDIATE' not set
[18:42:21.304] Environment variable 'R_FUTURE_RESOLVE_RECURSIVE' not set
[18:42:21.305] Environment variable 'R_FUTURE_ALIVE_TIMEOUT' not set
[18:42:21.305] Environment variable 'R_FUTURE_RESOLVED_TIMEOUT' not set
[18:42:21.305] Environment variable 'R_FUTURE_CLUSTER_RESOLVED_TIMEOUT' not set
[18:42:21.305] Environment variable 'R_FUTURE_MULTICORE_RESOLVED_TIMEOUT' not set
[18:42:21.305] Environment variable 'R_FUTURE_ONFUTURECONDITION_KEEPFUTURE' not set
[18:42:21.306] Environment variable 'R_FUTURE_RNG_ONMISUSE' not set
[18:42:21.306] Environment variable 'R_FUTURE_GLOBALENV_ONMISUSE' not set
[18:42:21.306] Environment variable 'R_FUTURE_WAIT_TIMEOUT' not set
[18:42:21.306] Environment variable 'R_FUTURE_WAIT_INTERVAL' not set
[18:42:21.306] Environment variable 'R_FUTURE_WAIT_ALPHA' not set
[18:42:21.306] Environment variable 'R_FUTURE_ASSIGN_GLOBALS_EXCLUDE' not set
[18:42:21.307] Environment variable 'R_FUTURE_OUTPUT_WINDOWS_REENCODE' not set
[18:42:21.307] Environment variable 'R_FUTURE_GLOBALS_GLOBALSOF_LOCALS' not set
[18:42:21.307] Environment variable 'R_FUTURE_STATE_ONINVALID' not set
[18:42:21.307] Environment variable 'R_FUTURE_JOURNAL' not set
[18:42:21.307] Environment variable 'R_FUTURE_GLOBALS_KEEPWHERE' not set
[18:42:21.308] Environment variable 'R_FUTURE_GLOBALS_OBJECTSIZE_METHOD' not set
[18:42:21.308] Environment variable 'R_FUTURE_PLAN_CLEANUP_LEGACY' not set
[18:42:21.309] R process uuid: 7be46d7f-b754-11d1-1251-c4ca7531a4d3
[18:42:21.309] Setting plan('default')
[18:42:21.310] plan(): Setting new future strategy stack:
[18:42:21.310] List of future strategies:
[18:42:21.310] 1. sequential:
[18:42:21.310]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:21.310]    - tweaked: FALSE
[18:42:21.310]    - call: NULL
[18:42:21.311] plan(): nbrOfWorkers() = 1
[18:42:21.337] plan(): Setting new future strategy stack:
[18:42:21.338] List of future strategies:
[18:42:21.338] 1. sequential:
[18:42:21.338]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:42:21.338]    - tweaked: FALSE
[18:42:21.338]    - call: future::plan("sequential")
[18:42:21.349] 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)
[18:42:21.365] Hello #1
> mdebugf("Hello #%d", 1)
[18:42:21.365] Hello #1
> options(future.debug = TRUE)
> 
> mdebug("Hello #", 2)
[18:42:21.365] Hello #2
> mdebugf("Hello #%d", 2)
[18:42:21.366] 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.29    0.10    0.34