R Under development (unstable) (2023-12-20 r85711 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 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")
[13:14:35.128] Detected 'R CMD check':
 - adjusting defaults to be a good citizen
[13:14:35.131] Set package option 'parallelly.availableCores.methods'
[13:14:35.131] Environment variable 'R_PARALLELLY_AVAILABLECORES_METHODS' not set
[13:14:35.131] Set package option 'parallelly.availableCores.fallback'
[13:14:35.132] Environment variable 'R_PARALLELLY_AVAILABLECORES_FALLBACK' not set
[13:14:35.132] Set package option 'parallelly.availableCores.min'
[13:14:35.132] Environment variable 'R_PARALLELLY_AVAILABLECORES_MIN' not set
[13:14:35.133] Set package option 'parallelly.availableCores.system'
[13:14:35.133] Environment variable 'R_PARALLELLY_AVAILABLECORES_SYSTEM' not set
[13:14:35.133] Set package option 'parallelly.availableCores.logical'
[13:14:35.133] Environment variable 'R_PARALLELLY_AVAILABLECORES_LOGICAL' not set
[13:14:35.134] Set package option 'parallelly.availableCores.omit'
[13:14:35.134] Environment variable 'R_PARALLELLY_AVAILABLECORES_OMIT' not set
[13:14:35.134] Set package option 'parallelly.availableWorkers.methods'
[13:14:35.134] Environment variable 'R_PARALLELLY_AVAILABLEWORKERS_METHODS' not set
[13:14:35.135] Set package option 'parallelly.fork.enable'
[13:14:35.135] Environment variable 'R_PARALLELLY_FORK_ENABLE' not set
[13:14:35.135] Set package option 'parallelly.supportsMulticore.disableOn'
[13:14:35.136] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_DISABLEON' not set
[13:14:35.136] Set package option 'parallelly.supportsMulticore.unstable'
[13:14:35.136] Environment variable 'R_PARALLELLY_SUPPORTSMULTICORE_UNSTABLE' not set
[13:14:35.136] Set package option 'parallelly.makeNodePSOCK.setup_strategy'
[13:14:35.137] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SETUP_STRATEGY' not set
[13:14:35.137] Set package option 'parallelly.makeNodePSOCK.validate'
[13:14:35.137] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_VALIDATE' not set
[13:14:35.137] Set package option 'parallelly.makeNodePSOCK.connectTimeout'
[13:14:35.138] R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT='120'
[13:14:35.138] Coercing from character to numeric: '120'
[13:14:35.138] => options("parallelly.makeNodePSOCK.connectTimeout" = '120') [n=1, mode=double]
[13:14:35.139] Set package option 'parallelly.makeNodePSOCK.timeout'
[13:14:35.139] R_PARALLELLY_MAKENODEPSOCK_TIMEOUT='120'
[13:14:35.139] Coercing from character to numeric: '120'
[13:14:35.139] => options("parallelly.makeNodePSOCK.timeout" = '120') [n=1, mode=double]
[13:14:35.140] Set package option 'parallelly.makeNodePSOCK.useXDR'
[13:14:35.140] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_USEXDR' not set
[13:14:35.140] Set package option 'parallelly.makeNodePSOCK.socketOptions'
[13:14:35.140] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_SOCKETOPTIONS' not set
[13:14:35.141] Set package option 'parallelly.makeNodePSOCK.rshcmd'
[13:14:35.141] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHCMD' not set
[13:14:35.141] Set package option 'parallelly.makeNodePSOCK.rshopts'
[13:14:35.141] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_RSHOPTS' not set
[13:14:35.142] Set package option 'parallelly.makeNodePSOCK.tries'
[13:14:35.142] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES' not set
[13:14:35.142] Set package option 'parallelly.makeNodePSOCK.tries.delay'
[13:14:35.143] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_TRIES_DELAY' not set
[13:14:35.143] Set package option 'parallelly.makeNodePSOCK.rscript_label'
[13:14:35.143] R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL='TRUE'
[13:14:35.143] => options("parallelly.makeNodePSOCK.rscript_label" = 'TRUE') [n=1, mode=character]
[13:14:35.144] Set package option 'parallelly.makeNodePSOCK.sessionInfo.pkgs'
[13:14:35.144] R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS='TRUE'
[13:14:35.144] => options("parallelly.makeNodePSOCK.sessionInfo.pkgs" = 'TRUE') [n=1, mode=character]
[13:14:35.144] Set package option 'parallelly.makeNodePSOCK.autoKill'
[13:14:35.145] R_PARALLELLY_MAKENODEPSOCK_AUTOKILL='TRUE'
[13:14:35.145] Coercing from character to logical: 'TRUE'
[13:14:35.145] => options("parallelly.makeNodePSOCK.autoKill" = 'TRUE') [n=1, mode=logical]
[13:14:35.145] Set package option 'parallelly.makeNodePSOCK.master.localhost.hostname'
[13:14:35.146] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_MASTER_LOCALHOST_HOSTNAME' not set
[13:14:35.146] Set package option 'parallelly.makeNodePSOCK.port.increment'
[13:14:35.146] Environment variable 'R_PARALLELLY_MAKENODEPSOCK_PORT_INCREMENT' not set
[13:14:35.147] 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'
[13:14:35.155] Future-specific environment variables:
[13:14:35.156] Environment variable 'R_FUTURE_DEMO_MANDELBROT_REGION' not set
[13:14:35.156] Environment variable 'R_FUTURE_DEMO_MANDELBROT_NROW' not set
[13:14:35.156] Environment variable 'R_FUTURE_DEPRECATED_IGNORE' not set
[13:14:35.156] Environment variable 'R_FUTURE_DEPRECATED_DEFUNCT' not set
[13:14:35.157] Environment variable 'R_FUTURE_FORK_MULTITHREADING_ENABLE' not set
[13:14:35.157] Environment variable 'R_FUTURE_GLOBALS_MAXSIZE' not set
[13:14:35.157] Environment variable 'R_FUTURE_GLOBALS_ONMISSING' not set
[13:14:35.157] Environment variable 'R_FUTURE_GLOBALS_ONREFERENCE' not set
[13:14:35.157] Environment variable 'R_FUTURE_GLOBALS_METHOD' not set
[13:14:35.158] Environment variable 'R_FUTURE_GLOBALS_RESOLVE' not set
[13:14:35.158] Environment variable 'R_FUTURE_LAZY_ASSERTOWNER' not set
[13:14:35.158] Environment variable 'R_FUTURE_PLAN' not set
[13:14:35.158] Environment variable 'R_FUTURE_PLAN_DISALLOW' not set
[13:14:35.158] Environment variable 'R_FUTURE_PSOCK_RELAY_IMMEDIATE' not set
[13:14:35.158] Environment variable 'R_FUTURE_RELAY_IMMEDIATE' not set
[13:14:35.159] Environment variable 'R_FUTURE_RESOLVE_RECURSIVE' not set
[13:14:35.159] Environment variable 'R_FUTURE_ALIVE_TIMEOUT' not set
[13:14:35.159] Environment variable 'R_FUTURE_RESOLVED_TIMEOUT' not set
[13:14:35.159] Environment variable 'R_FUTURE_CLUSTER_RESOLVED_TIMEOUT' not set
[13:14:35.159] Environment variable 'R_FUTURE_MULTICORE_RESOLVED_TIMEOUT' not set
[13:14:35.160] Environment variable 'R_FUTURE_ONFUTURECONDITION_KEEPFUTURE' not set
[13:14:35.160] Environment variable 'R_FUTURE_RNG_ONMISUSE' not set
[13:14:35.160] Environment variable 'R_FUTURE_GLOBALENV_ONMISUSE' not set
[13:14:35.160] Environment variable 'R_FUTURE_WAIT_TIMEOUT' not set
[13:14:35.160] Environment variable 'R_FUTURE_WAIT_INTERVAL' not set
[13:14:35.160] Environment variable 'R_FUTURE_WAIT_ALPHA' not set
[13:14:35.161] Environment variable 'R_FUTURE_ASSIGN_GLOBALS_EXCLUDE' not set
[13:14:35.161] Environment variable 'R_FUTURE_OUTPUT_WINDOWS_REENCODE' not set
[13:14:35.161] Environment variable 'R_FUTURE_GLOBALS_GLOBALSOF_LOCALS' not set
[13:14:35.161] Environment variable 'R_FUTURE_STATE_ONINVALID' not set
[13:14:35.161] Environment variable 'R_FUTURE_JOURNAL' not set
[13:14:35.162] Environment variable 'R_FUTURE_GLOBALS_KEEPWHERE' not set
[13:14:35.163] R process uuid: a228419f-a5d6-56aa-55f9-d29f13645535
[13:14:35.163] Setting plan('default')
[13:14:35.164] plan(): Setting new future strategy stack:
[13:14:35.164] List of future strategies:
[13:14:35.164] 1. sequential:
[13:14:35.164]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:14:35.164]    - tweaked: FALSE
[13:14:35.164]    - call: NULL
[13:14:35.165] plan(): nbrOfWorkers() = 1
[13:14:35.193] plan(): Setting new future strategy stack:
[13:14:35.193] List of future strategies:
[13:14:35.193] 1. sequential:
[13:14:35.193]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:14:35.193]    - tweaked: FALSE
[13:14:35.193]    - call: future::plan("sequential")
[13:14:35.205] 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)
[13:14:35.218] Hello #1
> mdebugf("Hello #%d", 1)
[13:14:35.219] Hello #1
> options(future.debug = TRUE)
> 
> mdebug("Hello #", 2)
[13:14:35.219] Hello #2
> mdebugf("Hello #%d", 2)
[13:14:35.219] 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.04    0.32