R Under development (unstable) (2025-06-05 r88281 ucrt) -- "Unsuffered Consequences" 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: parallelly Loading required package: future > > message("*** Standard output ...") *** Standard output ... > > truth_rows <- utils::capture.output({ + print(1:20) + str(1:20) + cat(letters, sep = "-") + cat(1:6, collapse = "\n") + write.table(datasets::iris[1:10,], sep = "\t") + }) > truth <- paste0(paste(truth_rows, collapse = "\n"), "\n") > print(truth) [1] " [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20\n int [1:20] 1 2 3 4 5 6 7 8 9 10 ...\na-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z1 2 3 4 5 6 \n\"Sepal.Length\"\t\"Sepal.Width\"\t\"Petal.Length\"\t\"Petal.Width\"\t\"Species\"\n\"1\"\t5.1\t3.5\t1.4\t0.2\t\"setosa\"\n\"2\"\t4.9\t3\t1.4\t0.2\t\"setosa\"\n\"3\"\t4.7\t3.2\t1.3\t0.2\t\"setosa\"\n\"4\"\t4.6\t3.1\t1.5\t0.2\t\"setosa\"\n\"5\"\t5\t3.6\t1.4\t0.2\t\"setosa\"\n\"6\"\t5.4\t3.9\t1.7\t0.4\t\"setosa\"\n\"7\"\t4.6\t3.4\t1.4\t0.3\t\"setosa\"\n\"8\"\t5\t3.4\t1.5\t0.2\t\"setosa\"\n\"9\"\t4.4\t2.9\t1.4\t0.2\t\"setosa\"\n\"10\"\t4.9\t3.1\t1.5\t0.1\t\"setosa\"\n" > > message("batchtools_local ...") batchtools_local ... > plan(batchtools_local) > > for (stdout in c(TRUE, FALSE, NA)) { + message(sprintf("- stdout = %s", stdout)) + + f <- future({ + print(1:20) + str(1:20) + cat(letters, sep = "-") + cat(1:6, collapse = "\n") + write.table(datasets::iris[1:10,], sep = "\t") + 42L + }, stdout = stdout) + r <- result(f) + str(r) + stopifnot(value(f) == 42L) + + if (is.na(stdout)) { + stopifnot(is.null(r$stdout) || r$stdout == "") + } else if (stdout) { + print(r) + stopifnot(identical(r$stdout, truth)) + } else { + stopifnot(is.null(r$stdout)) + } + + v %<-% { + print(1:20) + str(1:20) + cat(letters, sep = "-") + cat(1:6, collapse = "\n") + write.table(datasets::iris[1:10,], sep = "\t") + 42L + } %stdout% stdout + out <- utils::capture.output(y <- v) + stopifnot(y == 42L) + + if (is.na(stdout) || !stdout) { + stopifnot(out == "") + } else { + print(out) + stopifnot(identical(out, truth_rows)) + } + } ## for (stdout ...) - stdout = TRUE [04:39:48.965] Attaching 1 packages ('utils') ... [04:39:48.978] Attaching 1 packages ('utils') ... done [04:39:50.178] Launched future #1 List of 18 $ value : int 42 $ visible : logi TRUE $ stdout : chr " [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20\n int [1:20] 1 2 3 4 5 6 7 8 9 10 ...\na-b-c-d"| __truncated__ $ conditions : list() $ rng : logi FALSE $ seed : int [1:626] 10403 624 240850072 865285561 -61511130 -789582225 1840026084 679307157 843285330 822956715 ... $ misuseGlobalEnv : NULL $ misuseConnections :List of 3 ..$ added : NULL ..$ removed : NULL ..$ replaced: NULL $ misuseDevices : NULL $ misuseDefaultDevice: list() $ started : POSIXct[1:1], format: "2025-06-06 04:39:50" $ finished : POSIXct[1:1], format: "2025-06-06 04:39:50" $ uuid : chr [1:2] "e9ed64f69a60602e05598548333347ba" "2" $ session_uuid : chr "d419fc21f1f6f15550fcd8a2cb85df19" ..- attr(*, "source")=List of 5 .. ..$ host : Named chr "CRANWIN3" .. .. ..- attr(*, "names")= chr "COMPUTERNAME" .. ..$ info : Named chr [1:9] "Windows" "Server x64" "build 20348" "CRANWIN3" ... .. .. ..- attr(*, "names")= chr [1:9] "sysname" "release" "version" "nodename" ... .. ..$ pid : int 17204 .. ..$ time : POSIXct[1:1], format: "2025-06-06 04:39:49" .. ..$ random: int 2147483647 $ r_info :List of 4 ..$ version :Classes 'R_system_version', 'package_version', 'numeric_version' hidden list of 1 .. ..$ : int [1:3] 4 6 0 ..$ os : chr "windows" ..$ os_name : chr "Windows" ..$ captures_utf8: logi TRUE $ version : chr "1.8" $ batchtools_log : chr [1:10] "### [bt]: This is batchtools v0.9.17" "### [bt]: Starting calculation of 1 jobs" "### [bt]: Setting working directory to 'D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests'" "Loading required package: methods" ... $ PROTOTYPE_WARNING : chr "WARNING: The fields 'batchtools_log' should be considered internal and experimental for now, that is, until the"| __truncated__ - attr(*, "class")= chr "FutureResult" [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 int [1:20] 1 2 3 4 5 6 7 8 9 10 ... a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z1 2 3 4 5 6 "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species" "1" 5.1 3.5 1.4 0.2 "setosa" "2" 4.9 3 1.4 0.2 "setosa" "3" 4.7 3.2 1.3 0.2 "setosa" "4" 4.6 3.1 1.5 0.2 "setosa" "5" 5 3.6 1.4 0.2 "setosa" "6" 5.4 3.9 1.7 0.4 "setosa" "7" 4.6 3.4 1.4 0.3 "setosa" "8" 5 3.4 1.5 0.2 "setosa" "9" 4.4 2.9 1.4 0.2 "setosa" "10" 4.9 3.1 1.5 0.1 "setosa" FutureResult: value: 'integer' visible: TRUE stdout: character conditions: [n = 0] RNG used: FALSE duration: 0.08746696 secs (started 2025-06-06 04:39:50.002922) version: 1.8 [04:39:50.607] Attaching 1 packages ('utils') ... [04:39:50.621] Attaching 1 packages ('utils') ... done [04:39:51.900] Launched future #1 [1] " [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20" [2] " int [1:20] 1 2 3 4 5 6 7 8 9 10 ..." [3] "a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z1 2 3 4 5 6 " [4] "\"Sepal.Length\"\t\"Sepal.Width\"\t\"Petal.Length\"\t\"Petal.Width\"\t\"Species\"" [5] "\"1\"\t5.1\t3.5\t1.4\t0.2\t\"setosa\"" [6] "\"2\"\t4.9\t3\t1.4\t0.2\t\"setosa\"" [7] "\"3\"\t4.7\t3.2\t1.3\t0.2\t\"setosa\"" [8] "\"4\"\t4.6\t3.1\t1.5\t0.2\t\"setosa\"" [9] "\"5\"\t5\t3.6\t1.4\t0.2\t\"setosa\"" [10] "\"6\"\t5.4\t3.9\t1.7\t0.4\t\"setosa\"" [11] "\"7\"\t4.6\t3.4\t1.4\t0.3\t\"setosa\"" [12] "\"8\"\t5\t3.4\t1.5\t0.2\t\"setosa\"" [13] "\"9\"\t4.4\t2.9\t1.4\t0.2\t\"setosa\"" [14] "\"10\"\t4.9\t3.1\t1.5\t0.1\t\"setosa\"" - stdout = FALSE [04:39:52.097] Attaching 1 packages ('utils') ... [04:39:52.111] Attaching 1 packages ('utils') ... done [04:39:53.634] Launched future #1 List of 18 $ value : int 42 $ visible : logi TRUE $ stdout : NULL $ conditions : list() $ rng : logi FALSE $ seed : int [1:626] 10403 624 -1992816546 -1029080761 -165300004 -1082903507 1793134858 354559747 -816356248 -579031223 ... $ misuseGlobalEnv : NULL $ misuseConnections :List of 3 ..$ added : NULL ..$ removed : NULL ..$ replaced: NULL $ misuseDevices : NULL $ misuseDefaultDevice: list() $ started : POSIXct[1:1], format: "2025-06-06 04:39:53" $ finished : POSIXct[1:1], format: "2025-06-06 04:39:53" $ uuid : chr [1:2] "e9ed64f69a60602e05598548333347ba" "6" $ session_uuid : chr "5a28a1ff83991d2a0133476b41fd3031" ..- attr(*, "source")=List of 5 .. ..$ host : Named chr "CRANWIN3" .. .. ..- attr(*, "names")= chr "COMPUTERNAME" .. ..$ info : Named chr [1:9] "Windows" "Server x64" "build 20348" "CRANWIN3" ... .. .. ..- attr(*, "names")= chr [1:9] "sysname" "release" "version" "nodename" ... .. ..$ pid : int 21028 .. ..$ time : POSIXct[1:1], format: "2025-06-06 04:39:53" .. ..$ random: int 2147483647 $ r_info :List of 4 ..$ version :Classes 'R_system_version', 'package_version', 'numeric_version' hidden list of 1 .. ..$ : int [1:3] 4 6 0 ..$ os : chr "windows" ..$ os_name : chr "Windows" ..$ captures_utf8: logi TRUE $ version : chr "1.8" $ batchtools_log : chr [1:10] "### [bt]: This is batchtools v0.9.17" "### [bt]: Starting calculation of 1 jobs" "### [bt]: Setting working directory to 'D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests'" "Loading required package: methods" ... $ PROTOTYPE_WARNING : chr "WARNING: The fields 'batchtools_log' should be considered internal and experimental for now, that is, until the"| __truncated__ - attr(*, "class")= chr "FutureResult" [04:39:53.822] Attaching 1 packages ('utils') ... [04:39:53.835] Attaching 1 packages ('utils') ... done [04:39:55.009] Launched future #1 - stdout = NA [04:39:55.188] Attaching 1 packages ('utils') ... [04:39:55.194] Attaching 1 packages ('utils') ... done [04:39:56.932] Launched future #1 List of 18 $ value : int 42 $ visible : logi TRUE $ stdout : NULL $ conditions : list() $ rng : logi FALSE $ seed : int [1:626] 10403 624 -1454044383 -171207058 -1055323113 -222111380 612276093 1049471002 -250417453 -249760264 ... $ misuseGlobalEnv : NULL $ misuseConnections :List of 3 ..$ added : NULL ..$ removed : NULL ..$ replaced: NULL $ misuseDevices : NULL $ misuseDefaultDevice: list() $ started : POSIXct[1:1], format: "2025-06-06 04:39:56" $ finished : POSIXct[1:1], format: "2025-06-06 04:39:56" $ uuid : chr [1:2] "e9ed64f69a60602e05598548333347ba" "10" $ session_uuid : chr "b395ae1650039d0fdc4173bd216c5e1d" ..- attr(*, "source")=List of 5 .. ..$ host : Named chr "CRANWIN3" .. .. ..- attr(*, "names")= chr "COMPUTERNAME" .. ..$ info : Named chr [1:9] "Windows" "Server x64" "build 20348" "CRANWIN3" ... .. .. ..- attr(*, "names")= chr [1:9] "sysname" "release" "version" "nodename" ... .. ..$ pid : int 54208 .. ..$ time : POSIXct[1:1], format: "2025-06-06 04:39:56" .. ..$ random: int 2147483647 $ r_info :List of 4 ..$ version :Classes 'R_system_version', 'package_version', 'numeric_version' hidden list of 1 .. ..$ : int [1:3] 4 6 0 ..$ os : chr "windows" ..$ os_name : chr "Windows" ..$ captures_utf8: logi TRUE $ version : chr "1.8" $ batchtools_log : chr [1:24] "### [bt]: This is batchtools v0.9.17" "### [bt]: Starting calculation of 1 jobs" "### [bt]: Setting working directory to 'D:/RCompile/CRANincoming/R-devel/future.batchtools.Rcheck/tests'" "Loading required package: methods" ... $ PROTOTYPE_WARNING : chr "WARNING: The fields 'batchtools_log' should be considered internal and experimental for now, that is, until the"| __truncated__ - attr(*, "class")= chr "FutureResult" [04:39:57.168] Attaching 1 packages ('utils') ... [04:39:57.179] Attaching 1 packages ('utils') ... done [04:39:58.523] Launched future #1 > > message("batchtools_local ... DONE") batchtools_local ... DONE > > message("*** Standard output ... DONE") *** Standard output ... DONE > > source("incl/end.R") > > proc.time() user system elapsed 2.32 0.56 11.21