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.R")
Loading required package: future
[15:32:15.372] plan(): Setting new future strategy stack:
[15:32:15.374] List of future strategies:
[15:32:15.374] 1. sequential:
[15:32:15.374]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.374]    - tweaked: FALSE
[15:32:15.374]    - call: future::plan("sequential")
[15:32:15.398] plan(): nbrOfWorkers() = 1
> 
> message("*** future_replicate() ...")
*** future_replicate() ...
> 
> for (strategy in supportedStrategies()) {
+   message(sprintf("*** strategy = %s ...", sQuote(strategy)))
+   plan(strategy)
+   
+   y0 <- replicate(5L, sample(10L, size = 1L))
+   y1 <- future_replicate(5L, sample(10L, size = 1L))
+   stopifnot(length(y0) == length(y1))
+   
+   set.seed(0xBEEF)
+   y1 <- future_replicate(5L, sample(10L, size = 1L))
+   set.seed(0xBEEF)
+   y2 <- future_replicate(5L, sample(10L, size = 1L))
+   stopifnot(all.equal(y2, y1))
+   
+   y3 <- future_replicate(5L, sample(10L, size = 1L), future.seed = 0xBEEF)
+   y4 <- future_replicate(5L, sample(10L, size = 1L), future.seed = 0xBEEF)
+   stopifnot(all.equal(y4, y3))
+   
+   
+   message("- example(replicate) ...")
+   
+   foo <- function(x = 1, y = 2) c(x, y)
+   bar0 <- function(n, x) replicate(n, foo(x = x))
+   y0 <- bar0(5, x = 3)
+   
+   bar1 <- function(n, x) future_replicate(n, foo(x = x))
+   y1 <- bar1(5, x = 3)
+   stopifnot(all.equal(y1, y0))
+   
+   plan(sequential)
+   message(sprintf("*** strategy = %s ... done", sQuote(strategy)))
+ } ## for (strategy in ...) 
*** strategy = 'sequential' ...
[15:32:15.431] plan(): Setting new future strategy stack:
[15:32:15.431] List of future strategies:
[15:32:15.431] 1. sequential:
[15:32:15.431]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.431]    - tweaked: FALSE
[15:32:15.431]    - call: plan(strategy)
[15:32:15.450] plan(): nbrOfWorkers() = 1
[15:32:15.452] future_lapply() ...
[15:32:15.460] Generating random seeds ...
[15:32:15.460] Generating random seed streams for 5 elements ...
[15:32:15.461] Generating random seed streams for 5 elements ... DONE
[15:32:15.461] Generating random seeds ... DONE
[15:32:15.461] Will set RNG state on exit: 10403, 11, -554372828, -898802422, -1660158859, -1843554353, -227657514, 2102057088, 1924671171, 855904353, 228442320, -936035794, -966276135, 1448645611, -564645286, 2104517660, -991944417, -488812171, -1297723380, 1237326306, -1352596803, -966738633, 2039243230, 1344694040, -327176581, 889961497, -1705210712, 1687053910, -453475631, 1377399427, -1504302830, -1224831836, 1562115175, 1164309949, 429074228, -1968712550, -306210075, 572064895, 1329569286, 383093136, 1745261619, -1638335535, -1207701120, -682288034, -1248715863, -1013702053, 1457534570, 491035404, -929919665, -820128251, 812473532, 179838354, -2106091891, 501427399, 900041134, -1193593848, 421177355, 580025577, -1004201032, -371325850, 344139009, -1714936941, -1409702846, 1552301044, -621201929, -739964435, -2356604, -2055361366, 578681365, 966551215, -1824488266, 1909248736, 1749233187, -794185407, 1272204336, -1160972722, -1366359367, -1962772789, 375558010, 1696282236, -984059201, -254504043, 6001580, 911579522, 56975197, 299922007, -925943490, 461379960, -1401884069, -135277127, -199448568, -529081674, 705384945, -1853405149, -1103624078, 1502534340, -274879353, 302735453, 1066821204, 567280762, -1511968827, -1094160097, -1149099866, -2135309776, -906938157, -249678095, -75098592, 84639934, -688225079, 1155493499, 1952209994, 65348780, 561546159, -1495128219, -1772290788, 695453042, -1382576659, -52116953, 385274446, 105830056, -2009273173, 528453065, 1327137240, -278660986, -1141955231, 1947867379, -376436894, -1810558508, 2113762519, 786413261, -1442824604, -1735902134, -2106287691, 1170253071, -838233578, -2042147648, -690845053, -1153403231, 1819064464, -1694592146, -112354023, -1926591061, -1176990822, 1536861020, 1473765983, 1958160949, -37318196, -1451824862, -1898632323, -1208465289, 373595550, -1948642216, -1351659077, 1493804889, -1891728152, -889377514, 1989250705, -1502510269, 862846546, -369831708, 1244357415, 231946109, 1962777204, 110552154, 452041893, -1603762497, -955343546, 328901584, -159846925, -1430197999, -1005906624, 1512772894, 881652201, 1257177883, 961678634, 785090124, 435626511, 1194661189, -391334148, 278072658, 29876941, -820249977, -122004114, -1213802680, 484176715, 229005993, -85872648, -1816592602, 1903657025, -669797933, 1231428482, -301846604, -177756361, -408060371, 950562628, 1120988266, -991209771, -1729347473, -385285770, -703886688, -743000221, -1759241215, 1648805744, 964759310, 1916725625, -528851701, -1266080198, -1760281284, 567784063, 253016533, -867272724, 583993666, 1533843101, -1044790505, -2008984962, 565207608, -1134627557, -325516679, -1953415480, -645810442, -323346639, 1747539811, -2058613454, -1203933564, 1555794631, -1529484899, 1391197460, -997469254, 1000191493, 2118848752, -1650874692, 531137044, -1563480894, 1814755936, 1362796924, -309334832, 1205479458, -1014758232, -658812532, 910823868, 1380252722, 723261248, 264508084, 1725504840, -712661318, 1695290128, 2070001900, 1472207956, -963675374, -1817027168, 72497100, 1868850016, 701009090, 1643119144, 933113260, 1578285884, 344498034, 650075952, -2128989148, -1676316104, 164161242, -2090839152, -1263154948, 1222689172, 387388226, -595289600, 1881527356, -236545456, -728484702, 989247304, -1834885620, 431320796, -1973333934, -306757504, 1957915476, 848155624, -1331477766, -414666928, 593752108, 1183916404, 1224475282, -1056288160, -1035398004, -1287871136, 2069293282, 752332968, -1117828404, -2034289156, -593469518, 770377712, 1389209028, 607623512, -698092166, 1649825200, -142001732, -168375724, 887680450, 1990007584, 145476540, -1132501936, -293974046, -1064774808, -1718122676, 310323964, -345048334, -919727872, 210138228, 218139144, -1987356230, -1065653808, 1306790892, -1100859500, 1465900242, 2558048, 593285452, 844281632, -697607550, 213101032, -1996590100, -60764612, -614176142, 1170288496, 1099202852, 339799608, 1728650650, -139065904, 1108894140, 1182995092, -1059428734, 1439068608, -780570820, 1037674128, -2103315678, 1375634952, 1181087500, 482989980, 1372770322, -1606343808, 653610772, -685332184, -1905610694, 1931757520, 155011692, 533994548, -1606843246, -276583072, 2114883916, 1177582048, 1454419874, -736440408, -72244084, 365798332, 1939339378, 1360847856, -1214652348, -1253833640, 1555308602, 516022384, -885935556, 490027796, 355606210, 1991765728, -1783737220, 1870422224, -920890462, -741752280, -1943583476, 1391496124, -1236302542, 1495309504, 505925172, -361122104, 1127470778, 1445896336, -1935144212, 520518228, -1820606830, -1487439072, -596472884, 399617248, 1467607746, 122433576, -570452, -925070660, -679135758, -829749712, -1664381020, -369732168, 920485722, -1581913968, 493022076, -710794476, -1236602558, 1873330944, 1247215548, 179512144, -2085227230, 1550487112, 1046648844, -173694884, 1712417234, -39187968, 98287956, -700271384, 831909114, 1425127120, 1612553516, -1221506828, -6011502, 619182432, -609806324, -504484128, 1553091170, 532668072, -1453050292, -1978754180, -1632627406, -1792680336, -376468668, 1322406872, -1784942726, -305524176, 695405500, 826237524, -79623102, 449902752, -1520569668, 852336080, -1158498462, -38784280, 1911067852, -569717252, -383796750, 1974703744, -43989516, -1849007480, 1396455226, 2146262864, 407280748, -1282806380, -618308526, 1938745824, 562541772, 1019461792, -1249941118, 1315092712, -193711380, 2094576956, 537918578, 1962108016, -220287964, -833109960, -2048550118, -138355504, -2088842436, -929269868, 1809066157, 438881562, 970713560, 1769288257, 375793907, -1594161388, -664146270, -2028787785, -173837439, 1415799174, 2031981508, -1234706699, 1870375775, -1854761544, 1965223062, 1902895779, 1680508005, -1687932542, 1123461872, 1698520729, -975109493, -426122372, 1130689962, -1440006689, 519687017, -1378227330, 1002373996, -79132739, 1375253639, 1331005552, -1878600946, -589463493, -1922797795, 12180938, 1743779560, -496821807, -1289286717, -1358379836, -2071176334, 2129782343, 1681495569, 1514231702, 43420404, 1628593285, -602029617, -2100144952, 295466342, 1217292179, -1373566731, -190258990, 662392608, -279171319, -1689470917, 1414196620, -1684626406, -1846658929, 1427066841, 1937354862, -1293372420, 1682743661, 1680079639, -1938543904, 1293686974, 1614739083, 1455295757, 768352570, -1964830344, -701635807, 1648096211, -1110664460, -639847550, 982090263, -195022623, 1426726438, 1463367460, 350722005, -988622977, -687384040, 787888438, 375801795, -569727483, -1402305118, -1386428016, -1811091143, 1604978155, -2122676516, 1607430922, 18210303, 26469449, 1703319006, -181541492, 1272918365, 1446938983, -1112401264, 1915245742, -1276336805, -807302851, -970968150, 2029012040, 1836280945, 1139059171, 1601307876, 1189404690, 142693351, 570309553, -392292874, 669251604, -1134323931, -1037307857, -267937304, -934202, 1862352755, 40851413, -2000359502, 1408530816, 972988777, -1435343397, -175366868, 481797946, -1941923345, -2022605703, 1535676174, 959908572, -2110994099, 1714095287, 458792512, -709669090, -2052897301, 312228205, 1450399706, 371626392, -2066874367, 1884598707, 1671129300, 1872719330, 1522268279, -1637126719, 1261520710, 1926009476, 1508326453, 1906375711, -742876296, -207134122, -958320925, 791660709, 889231682, 981262128, 1769179993, -1273601845, 1342402876, 1925578090, -2071849057, 1779106345, 2003954878, -719882836, 970099453, -1271478713, 1760761136, -436902322, -738208133, -1967991331, -731929590, -1388251864, 1199627153, 1880931715, -551110012, 502401202, 15849479, 1295004753, 286843038
[15:32:15.463] Number of chunks: 1
[15:32:15.463] getGlobalsAndPackagesXApply() ...
[15:32:15.464]  - future.globals: TRUE
[15:32:15.465] getGlobalsAndPackages() ...
[15:32:15.465] Searching for globals...
[15:32:15.468] - globals found: [2] 'FUN', 'sample'
[15:32:15.469] Searching for globals ... DONE
[15:32:15.469] Resolving globals: FALSE
[15:32:15.470] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:15.471] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:15.471] - globals: [1] 'FUN'
[15:32:15.471] 
[15:32:15.471] getGlobalsAndPackages() ... DONE
[15:32:15.472]  - globals found/used: [n=1] 'FUN'
[15:32:15.472]  - needed namespaces: [n=0] 
[15:32:15.472] Finding globals ... DONE
[15:32:15.472]  - use_args: TRUE
[15:32:15.472]  - Getting '...' globals ...
[15:32:15.473] resolve() on list ...
[15:32:15.473]  recursive: 0
[15:32:15.474]  length: 1
[15:32:15.474]  elements: '...'
[15:32:15.474]  length: 0 (resolved future 1)
[15:32:15.474] resolve() on list ... DONE
[15:32:15.475]    - '...' content: [n=0] 
[15:32:15.475] List of 1
[15:32:15.475]  $ ...: list()
[15:32:15.475]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.475]  - attr(*, "where")=List of 1
[15:32:15.475]   ..$ ...:<environment: 0x000002abb4686ca8> 
[15:32:15.475]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.475]  - attr(*, "resolved")= logi TRUE
[15:32:15.475]  - attr(*, "total_size")= num NA
[15:32:15.482]  - Getting '...' globals ... DONE
[15:32:15.482] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:15.482] List of 2
[15:32:15.482]  $ ...future.FUN:function (...)  
[15:32:15.482]  $ ...          : list()
[15:32:15.482]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.482]  - attr(*, "where")=List of 2
[15:32:15.482]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.482]   ..$ ...          :<environment: 0x000002abb4686ca8> 
[15:32:15.482]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.482]  - attr(*, "resolved")= logi FALSE
[15:32:15.482]  - attr(*, "total_size")= num 616
[15:32:15.487] Packages to be attached in all futures: [n=0] 
[15:32:15.487] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.488] Number of futures (= number of chunks): 1
[15:32:15.488] Launching 1 futures (chunks) ...
[15:32:15.488] Chunk #1 of 1 ...
[15:32:15.489]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.489] getGlobalsAndPackages() ...
[15:32:15.489] Searching for globals...
[15:32:15.490] 
[15:32:15.490] Searching for globals ... DONE
[15:32:15.490] - globals: [0] <none>
[15:32:15.491] getGlobalsAndPackages() ... DONE
[15:32:15.491]    + additional globals found: [n=0] 
[15:32:15.491]    + additional namespaces needed: [n=0] 
[15:32:15.491]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.491]  - seeds: [5] <seeds>
[15:32:15.492]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.492] getGlobalsAndPackages() ...
[15:32:15.492] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.493] Resolving globals: FALSE
[15:32:15.493] Tweak future expression to call with '...' arguments ...
[15:32:15.493] {
[15:32:15.493]     do.call(function(...) {
[15:32:15.493]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.493]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.493]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.493]             on.exit(options(oopts), add = TRUE)
[15:32:15.493]         }
[15:32:15.493]         {
[15:32:15.493]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.493]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.493]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.493]                   envir = globalenv(), inherits = FALSE)
[15:32:15.493]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.493]             })
[15:32:15.493]         }
[15:32:15.493]     }, args = future.call.arguments)
[15:32:15.493] }
[15:32:15.494] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.495] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.495] 
[15:32:15.495] getGlobalsAndPackages() ... DONE
[15:32:15.496] run() for 'Future' ...
[15:32:15.496] - state: 'created'
[15:32:15.497] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.497] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.498] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.498]   - Field: 'label'
[15:32:15.498]   - Field: 'local'
[15:32:15.499]   - Field: 'owner'
[15:32:15.499]   - Field: 'envir'
[15:32:15.499]   - Field: 'packages'
[15:32:15.499]   - Field: 'gc'
[15:32:15.500]   - Field: 'conditions'
[15:32:15.500]   - Field: 'expr'
[15:32:15.500]   - Field: 'uuid'
[15:32:15.500]   - Field: 'seed'
[15:32:15.501]   - Field: 'version'
[15:32:15.501]   - Field: 'result'
[15:32:15.501]   - Field: 'asynchronous'
[15:32:15.501]   - Field: 'calls'
[15:32:15.502]   - Field: 'globals'
[15:32:15.502]   - Field: 'stdout'
[15:32:15.502]   - Field: 'earlySignal'
[15:32:15.502]   - Field: 'lazy'
[15:32:15.503]   - Field: 'state'
[15:32:15.503] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.503] - Launch lazy future ...
[15:32:15.504] Packages needed by the future expression (n = 0): <none>
[15:32:15.504] Packages needed by future strategies (n = 0): <none>
[15:32:15.506] {
[15:32:15.506]     {
[15:32:15.506]         {
[15:32:15.506]             ...future.startTime <- base::Sys.time()
[15:32:15.506]             {
[15:32:15.506]                 {
[15:32:15.506]                   {
[15:32:15.506]                     base::local({
[15:32:15.506]                       has_future <- base::requireNamespace("future", 
[15:32:15.506]                         quietly = TRUE)
[15:32:15.506]                       if (has_future) {
[15:32:15.506]                         ns <- base::getNamespace("future")
[15:32:15.506]                         version <- ns[[".package"]][["version"]]
[15:32:15.506]                         if (is.null(version)) 
[15:32:15.506]                           version <- utils::packageVersion("future")
[15:32:15.506]                       }
[15:32:15.506]                       else {
[15:32:15.506]                         version <- NULL
[15:32:15.506]                       }
[15:32:15.506]                       if (!has_future || version < "1.8.0") {
[15:32:15.506]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.506]                           "", base::R.version$version.string), 
[15:32:15.506]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.506]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.506]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.506]                             "release", "version")], collapse = " "), 
[15:32:15.506]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.506]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.506]                           info)
[15:32:15.506]                         info <- base::paste(info, collapse = "; ")
[15:32:15.506]                         if (!has_future) {
[15:32:15.506]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.506]                             info)
[15:32:15.506]                         }
[15:32:15.506]                         else {
[15:32:15.506]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.506]                             info, version)
[15:32:15.506]                         }
[15:32:15.506]                         base::stop(msg)
[15:32:15.506]                       }
[15:32:15.506]                     })
[15:32:15.506]                   }
[15:32:15.506]                   ...future.strategy.old <- future::plan("list")
[15:32:15.506]                   options(future.plan = NULL)
[15:32:15.506]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.506]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.506]                 }
[15:32:15.506]                 ...future.workdir <- getwd()
[15:32:15.506]             }
[15:32:15.506]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.506]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.506]         }
[15:32:15.506]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.506]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.506]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.506]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.506]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.506]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.506]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.506]             base::names(...future.oldOptions))
[15:32:15.506]     }
[15:32:15.506]     if (FALSE) {
[15:32:15.506]     }
[15:32:15.506]     else {
[15:32:15.506]         if (TRUE) {
[15:32:15.506]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.506]                 open = "w")
[15:32:15.506]         }
[15:32:15.506]         else {
[15:32:15.506]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.506]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.506]         }
[15:32:15.506]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.506]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.506]             base::sink(type = "output", split = FALSE)
[15:32:15.506]             base::close(...future.stdout)
[15:32:15.506]         }, add = TRUE)
[15:32:15.506]     }
[15:32:15.506]     ...future.frame <- base::sys.nframe()
[15:32:15.506]     ...future.conditions <- base::list()
[15:32:15.506]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.506]     if (FALSE) {
[15:32:15.506]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.506]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.506]     }
[15:32:15.506]     ...future.result <- base::tryCatch({
[15:32:15.506]         base::withCallingHandlers({
[15:32:15.506]             ...future.value <- base::withVisible(base::local({
[15:32:15.506]                 do.call(function(...) {
[15:32:15.506]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.506]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.506]                     ...future.globals.maxSize)) {
[15:32:15.506]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.506]                     on.exit(options(oopts), add = TRUE)
[15:32:15.506]                   }
[15:32:15.506]                   {
[15:32:15.506]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.506]                       FUN = function(jj) {
[15:32:15.506]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.506]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.506]                           envir = globalenv(), inherits = FALSE)
[15:32:15.506]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.506]                       })
[15:32:15.506]                   }
[15:32:15.506]                 }, args = future.call.arguments)
[15:32:15.506]             }))
[15:32:15.506]             future::FutureResult(value = ...future.value$value, 
[15:32:15.506]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.506]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.506]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.506]                     ...future.globalenv.names))
[15:32:15.506]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.506]         }, condition = base::local({
[15:32:15.506]             c <- base::c
[15:32:15.506]             inherits <- base::inherits
[15:32:15.506]             invokeRestart <- base::invokeRestart
[15:32:15.506]             length <- base::length
[15:32:15.506]             list <- base::list
[15:32:15.506]             seq.int <- base::seq.int
[15:32:15.506]             signalCondition <- base::signalCondition
[15:32:15.506]             sys.calls <- base::sys.calls
[15:32:15.506]             `[[` <- base::`[[`
[15:32:15.506]             `+` <- base::`+`
[15:32:15.506]             `<<-` <- base::`<<-`
[15:32:15.506]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.506]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.506]                   3L)]
[15:32:15.506]             }
[15:32:15.506]             function(cond) {
[15:32:15.506]                 is_error <- inherits(cond, "error")
[15:32:15.506]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.506]                   NULL)
[15:32:15.506]                 if (is_error) {
[15:32:15.506]                   sessionInformation <- function() {
[15:32:15.506]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.506]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.506]                       search = base::search(), system = base::Sys.info())
[15:32:15.506]                   }
[15:32:15.506]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.506]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.506]                     cond$call), session = sessionInformation(), 
[15:32:15.506]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.506]                   signalCondition(cond)
[15:32:15.506]                 }
[15:32:15.506]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.506]                 "immediateCondition"))) {
[15:32:15.506]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.506]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.506]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.506]                   if (TRUE && !signal) {
[15:32:15.506]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.506]                     {
[15:32:15.506]                       inherits <- base::inherits
[15:32:15.506]                       invokeRestart <- base::invokeRestart
[15:32:15.506]                       is.null <- base::is.null
[15:32:15.506]                       muffled <- FALSE
[15:32:15.506]                       if (inherits(cond, "message")) {
[15:32:15.506]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.506]                         if (muffled) 
[15:32:15.506]                           invokeRestart("muffleMessage")
[15:32:15.506]                       }
[15:32:15.506]                       else if (inherits(cond, "warning")) {
[15:32:15.506]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.506]                         if (muffled) 
[15:32:15.506]                           invokeRestart("muffleWarning")
[15:32:15.506]                       }
[15:32:15.506]                       else if (inherits(cond, "condition")) {
[15:32:15.506]                         if (!is.null(pattern)) {
[15:32:15.506]                           computeRestarts <- base::computeRestarts
[15:32:15.506]                           grepl <- base::grepl
[15:32:15.506]                           restarts <- computeRestarts(cond)
[15:32:15.506]                           for (restart in restarts) {
[15:32:15.506]                             name <- restart$name
[15:32:15.506]                             if (is.null(name)) 
[15:32:15.506]                               next
[15:32:15.506]                             if (!grepl(pattern, name)) 
[15:32:15.506]                               next
[15:32:15.506]                             invokeRestart(restart)
[15:32:15.506]                             muffled <- TRUE
[15:32:15.506]                             break
[15:32:15.506]                           }
[15:32:15.506]                         }
[15:32:15.506]                       }
[15:32:15.506]                       invisible(muffled)
[15:32:15.506]                     }
[15:32:15.506]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.506]                   }
[15:32:15.506]                 }
[15:32:15.506]                 else {
[15:32:15.506]                   if (TRUE) {
[15:32:15.506]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.506]                     {
[15:32:15.506]                       inherits <- base::inherits
[15:32:15.506]                       invokeRestart <- base::invokeRestart
[15:32:15.506]                       is.null <- base::is.null
[15:32:15.506]                       muffled <- FALSE
[15:32:15.506]                       if (inherits(cond, "message")) {
[15:32:15.506]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.506]                         if (muffled) 
[15:32:15.506]                           invokeRestart("muffleMessage")
[15:32:15.506]                       }
[15:32:15.506]                       else if (inherits(cond, "warning")) {
[15:32:15.506]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.506]                         if (muffled) 
[15:32:15.506]                           invokeRestart("muffleWarning")
[15:32:15.506]                       }
[15:32:15.506]                       else if (inherits(cond, "condition")) {
[15:32:15.506]                         if (!is.null(pattern)) {
[15:32:15.506]                           computeRestarts <- base::computeRestarts
[15:32:15.506]                           grepl <- base::grepl
[15:32:15.506]                           restarts <- computeRestarts(cond)
[15:32:15.506]                           for (restart in restarts) {
[15:32:15.506]                             name <- restart$name
[15:32:15.506]                             if (is.null(name)) 
[15:32:15.506]                               next
[15:32:15.506]                             if (!grepl(pattern, name)) 
[15:32:15.506]                               next
[15:32:15.506]                             invokeRestart(restart)
[15:32:15.506]                             muffled <- TRUE
[15:32:15.506]                             break
[15:32:15.506]                           }
[15:32:15.506]                         }
[15:32:15.506]                       }
[15:32:15.506]                       invisible(muffled)
[15:32:15.506]                     }
[15:32:15.506]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.506]                   }
[15:32:15.506]                 }
[15:32:15.506]             }
[15:32:15.506]         }))
[15:32:15.506]     }, error = function(ex) {
[15:32:15.506]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.506]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.506]                 ...future.rng), started = ...future.startTime, 
[15:32:15.506]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.506]             version = "1.8"), class = "FutureResult")
[15:32:15.506]     }, finally = {
[15:32:15.506]         if (!identical(...future.workdir, getwd())) 
[15:32:15.506]             setwd(...future.workdir)
[15:32:15.506]         {
[15:32:15.506]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.506]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.506]             }
[15:32:15.506]             base::options(...future.oldOptions)
[15:32:15.506]             if (.Platform$OS.type == "windows") {
[15:32:15.506]                 old_names <- names(...future.oldEnvVars)
[15:32:15.506]                 envs <- base::Sys.getenv()
[15:32:15.506]                 names <- names(envs)
[15:32:15.506]                 common <- intersect(names, old_names)
[15:32:15.506]                 added <- setdiff(names, old_names)
[15:32:15.506]                 removed <- setdiff(old_names, names)
[15:32:15.506]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.506]                   envs[common]]
[15:32:15.506]                 NAMES <- toupper(changed)
[15:32:15.506]                 args <- list()
[15:32:15.506]                 for (kk in seq_along(NAMES)) {
[15:32:15.506]                   name <- changed[[kk]]
[15:32:15.506]                   NAME <- NAMES[[kk]]
[15:32:15.506]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.506]                     next
[15:32:15.506]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.506]                 }
[15:32:15.506]                 NAMES <- toupper(added)
[15:32:15.506]                 for (kk in seq_along(NAMES)) {
[15:32:15.506]                   name <- added[[kk]]
[15:32:15.506]                   NAME <- NAMES[[kk]]
[15:32:15.506]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.506]                     next
[15:32:15.506]                   args[[name]] <- ""
[15:32:15.506]                 }
[15:32:15.506]                 NAMES <- toupper(removed)
[15:32:15.506]                 for (kk in seq_along(NAMES)) {
[15:32:15.506]                   name <- removed[[kk]]
[15:32:15.506]                   NAME <- NAMES[[kk]]
[15:32:15.506]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.506]                     next
[15:32:15.506]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.506]                 }
[15:32:15.506]                 if (length(args) > 0) 
[15:32:15.506]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.506]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.506]             }
[15:32:15.506]             else {
[15:32:15.506]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.506]             }
[15:32:15.506]             {
[15:32:15.506]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.506]                   0L) {
[15:32:15.506]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.506]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.506]                   base::options(opts)
[15:32:15.506]                 }
[15:32:15.506]                 {
[15:32:15.506]                   {
[15:32:15.506]                     base::assign(".Random.seed", c(10403L, 11L, 
[15:32:15.506]                     -554372828L, -898802422L, -1660158859L, -1843554353L, 
[15:32:15.506]                     -227657514L, 2102057088L, 1924671171L, 855904353L, 
[15:32:15.506]                     228442320L, -936035794L, -966276135L, 1448645611L, 
[15:32:15.506]                     -564645286L, 2104517660L, -991944417L, -488812171L, 
[15:32:15.506]                     -1297723380L, 1237326306L, -1352596803L, 
[15:32:15.506]                     -966738633L, 2039243230L, 1344694040L, -327176581L, 
[15:32:15.506]                     889961497L, -1705210712L, 1687053910L, -453475631L, 
[15:32:15.506]                     1377399427L, -1504302830L, -1224831836L, 
[15:32:15.506]                     1562115175L, 1164309949L, 429074228L, -1968712550L, 
[15:32:15.506]                     -306210075L, 572064895L, 1329569286L, 383093136L, 
[15:32:15.506]                     1745261619L, -1638335535L, -1207701120L, 
[15:32:15.506]                     -682288034L, -1248715863L, -1013702053L, 
[15:32:15.506]                     1457534570L, 491035404L, -929919665L, -820128251L, 
[15:32:15.506]                     812473532L, 179838354L, -2106091891L, 501427399L, 
[15:32:15.506]                     900041134L, -1193593848L, 421177355L, 580025577L, 
[15:32:15.506]                     -1004201032L, -371325850L, 344139009L, -1714936941L, 
[15:32:15.506]                     -1409702846L, 1552301044L, -621201929L, -739964435L, 
[15:32:15.506]                     -2356604L, -2055361366L, 578681365L, 966551215L, 
[15:32:15.506]                     -1824488266L, 1909248736L, 1749233187L, -794185407L, 
[15:32:15.506]                     1272204336L, -1160972722L, -1366359367L, 
[15:32:15.506]                     -1962772789L, 375558010L, 1696282236L, -984059201L, 
[15:32:15.506]                     -254504043L, 6001580L, 911579522L, 56975197L, 
[15:32:15.506]                     299922007L, -925943490L, 461379960L, -1401884069L, 
[15:32:15.506]                     -135277127L, -199448568L, -529081674L, 705384945L, 
[15:32:15.506]                     -1853405149L, -1103624078L, 1502534340L, 
[15:32:15.506]                     -274879353L, 302735453L, 1066821204L, 567280762L, 
[15:32:15.506]                     -1511968827L, -1094160097L, -1149099866L, 
[15:32:15.506]                     -2135309776L, -906938157L, -249678095L, -75098592L, 
[15:32:15.506]                     84639934L, -688225079L, 1155493499L, 1952209994L, 
[15:32:15.506]                     65348780L, 561546159L, -1495128219L, -1772290788L, 
[15:32:15.506]                     695453042L, -1382576659L, -52116953L, 385274446L, 
[15:32:15.506]                     105830056L, -2009273173L, 528453065L, 1327137240L, 
[15:32:15.506]                     -278660986L, -1141955231L, 1947867379L, -376436894L, 
[15:32:15.506]                     -1810558508L, 2113762519L, 786413261L, -1442824604L, 
[15:32:15.506]                     -1735902134L, -2106287691L, 1170253071L, 
[15:32:15.506]                     -838233578L, -2042147648L, -690845053L, -1153403231L, 
[15:32:15.506]                     1819064464L, -1694592146L, -112354023L, -1926591061L, 
[15:32:15.506]                     -1176990822L, 1536861020L, 1473765983L, 1958160949L, 
[15:32:15.506]                     -37318196L, -1451824862L, -1898632323L, -1208465289L, 
[15:32:15.506]                     373595550L, -1948642216L, -1351659077L, 1493804889L, 
[15:32:15.506]                     -1891728152L, -889377514L, 1989250705L, -1502510269L, 
[15:32:15.506]                     862846546L, -369831708L, 1244357415L, 231946109L, 
[15:32:15.506]                     1962777204L, 110552154L, 452041893L, -1603762497L, 
[15:32:15.506]                     -955343546L, 328901584L, -159846925L, -1430197999L, 
[15:32:15.506]                     -1005906624L, 1512772894L, 881652201L, 1257177883L, 
[15:32:15.506]                     961678634L, 785090124L, 435626511L, 1194661189L, 
[15:32:15.506]                     -391334148L, 278072658L, 29876941L, -820249977L, 
[15:32:15.506]                     -122004114L, -1213802680L, 484176715L, 229005993L, 
[15:32:15.506]                     -85872648L, -1816592602L, 1903657025L, -669797933L, 
[15:32:15.506]                     1231428482L, -301846604L, -177756361L, -408060371L, 
[15:32:15.506]                     950562628L, 1120988266L, -991209771L, -1729347473L, 
[15:32:15.506]                     -385285770L, -703886688L, -743000221L, -1759241215L, 
[15:32:15.506]                     1648805744L, 964759310L, 1916725625L, -528851701L, 
[15:32:15.506]                     -1266080198L, -1760281284L, 567784063L, 253016533L, 
[15:32:15.506]                     -867272724L, 583993666L, 1533843101L, -1044790505L, 
[15:32:15.506]                     -2008984962L, 565207608L, -1134627557L, -325516679L, 
[15:32:15.506]                     -1953415480L, -645810442L, -323346639L, 1747539811L, 
[15:32:15.506]                     -2058613454L, -1203933564L, 1555794631L, 
[15:32:15.506]                     -1529484899L, 1391197460L, -997469254L, 1000191493L, 
[15:32:15.506]                     2118848752L, -1650874692L, 531137044L, -1563480894L, 
[15:32:15.506]                     1814755936L, 1362796924L, -309334832L, 1205479458L, 
[15:32:15.506]                     -1014758232L, -658812532L, 910823868L, 1380252722L, 
[15:32:15.506]                     723261248L, 264508084L, 1725504840L, -712661318L, 
[15:32:15.506]                     1695290128L, 2070001900L, 1472207956L, -963675374L, 
[15:32:15.506]                     -1817027168L, 72497100L, 1868850016L, 701009090L, 
[15:32:15.506]                     1643119144L, 933113260L, 1578285884L, 344498034L, 
[15:32:15.506]                     650075952L, -2128989148L, -1676316104L, 164161242L, 
[15:32:15.506]                     -2090839152L, -1263154948L, 1222689172L, 
[15:32:15.506]                     387388226L, -595289600L, 1881527356L, -236545456L, 
[15:32:15.506]                     -728484702L, 989247304L, -1834885620L, 431320796L, 
[15:32:15.506]                     -1973333934L, -306757504L, 1957915476L, 848155624L, 
[15:32:15.506]                     -1331477766L, -414666928L, 593752108L, 1183916404L, 
[15:32:15.506]                     1224475282L, -1056288160L, -1035398004L, 
[15:32:15.506]                     -1287871136L, 2069293282L, 752332968L, -1117828404L, 
[15:32:15.506]                     -2034289156L, -593469518L, 770377712L, 1389209028L, 
[15:32:15.506]                     607623512L, -698092166L, 1649825200L, -142001732L, 
[15:32:15.506]                     -168375724L, 887680450L, 1990007584L, 145476540L, 
[15:32:15.506]                     -1132501936L, -293974046L, -1064774808L, 
[15:32:15.506]                     -1718122676L, 310323964L, -345048334L, -919727872L, 
[15:32:15.506]                     210138228L, 218139144L, -1987356230L, -1065653808L, 
[15:32:15.506]                     1306790892L, -1100859500L, 1465900242L, 2558048L, 
[15:32:15.506]                     593285452L, 844281632L, -697607550L, 213101032L, 
[15:32:15.506]                     -1996590100L, -60764612L, -614176142L, 1170288496L, 
[15:32:15.506]                     1099202852L, 339799608L, 1728650650L, -139065904L, 
[15:32:15.506]                     1108894140L, 1182995092L, -1059428734L, 1439068608L, 
[15:32:15.506]                     -780570820L, 1037674128L, -2103315678L, 1375634952L, 
[15:32:15.506]                     1181087500L, 482989980L, 1372770322L, -1606343808L, 
[15:32:15.506]                     653610772L, -685332184L, -1905610694L, 1931757520L, 
[15:32:15.506]                     155011692L, 533994548L, -1606843246L, -276583072L, 
[15:32:15.506]                     2114883916L, 1177582048L, 1454419874L, -736440408L, 
[15:32:15.506]                     -72244084L, 365798332L, 1939339378L, 1360847856L, 
[15:32:15.506]                     -1214652348L, -1253833640L, 1555308602L, 
[15:32:15.506]                     516022384L, -885935556L, 490027796L, 355606210L, 
[15:32:15.506]                     1991765728L, -1783737220L, 1870422224L, -920890462L, 
[15:32:15.506]                     -741752280L, -1943583476L, 1391496124L, -1236302542L, 
[15:32:15.506]                     1495309504L, 505925172L, -361122104L, 1127470778L, 
[15:32:15.506]                     1445896336L, -1935144212L, 520518228L, -1820606830L, 
[15:32:15.506]                     -1487439072L, -596472884L, 399617248L, 1467607746L, 
[15:32:15.506]                     122433576L, -570452L, -925070660L, -679135758L, 
[15:32:15.506]                     -829749712L, -1664381020L, -369732168L, 920485722L, 
[15:32:15.506]                     -1581913968L, 493022076L, -710794476L, -1236602558L, 
[15:32:15.506]                     1873330944L, 1247215548L, 179512144L, -2085227230L, 
[15:32:15.506]                     1550487112L, 1046648844L, -173694884L, 1712417234L, 
[15:32:15.506]                     -39187968L, 98287956L, -700271384L, 831909114L, 
[15:32:15.506]                     1425127120L, 1612553516L, -1221506828L, -6011502L, 
[15:32:15.506]                     619182432L, -609806324L, -504484128L, 1553091170L, 
[15:32:15.506]                     532668072L, -1453050292L, -1978754180L, -1632627406L, 
[15:32:15.506]                     -1792680336L, -376468668L, 1322406872L, -1784942726L, 
[15:32:15.506]                     -305524176L, 695405500L, 826237524L, -79623102L, 
[15:32:15.506]                     449902752L, -1520569668L, 852336080L, -1158498462L, 
[15:32:15.506]                     -38784280L, 1911067852L, -569717252L, -383796750L, 
[15:32:15.506]                     1974703744L, -43989516L, -1849007480L, 1396455226L, 
[15:32:15.506]                     2146262864L, 407280748L, -1282806380L, -618308526L, 
[15:32:15.506]                     1938745824L, 562541772L, 1019461792L, -1249941118L, 
[15:32:15.506]                     1315092712L, -193711380L, 2094576956L, 537918578L, 
[15:32:15.506]                     1962108016L, -220287964L, -833109960L, -2048550118L, 
[15:32:15.506]                     -138355504L, -2088842436L, -929269868L, 1809066157L, 
[15:32:15.506]                     438881562L, 970713560L, 1769288257L, 375793907L, 
[15:32:15.506]                     -1594161388L, -664146270L, -2028787785L, 
[15:32:15.506]                     -173837439L, 1415799174L, 2031981508L, -1234706699L, 
[15:32:15.506]                     1870375775L, -1854761544L, 1965223062L, 1902895779L, 
[15:32:15.506]                     1680508005L, -1687932542L, 1123461872L, 1698520729L, 
[15:32:15.506]                     -975109493L, -426122372L, 1130689962L, -1440006689L, 
[15:32:15.506]                     519687017L, -1378227330L, 1002373996L, -79132739L, 
[15:32:15.506]                     1375253639L, 1331005552L, -1878600946L, -589463493L, 
[15:32:15.506]                     -1922797795L, 12180938L, 1743779560L, -496821807L, 
[15:32:15.506]                     -1289286717L, -1358379836L, -2071176334L, 
[15:32:15.506]                     2129782343L, 1681495569L, 1514231702L, 43420404L, 
[15:32:15.506]                     1628593285L, -602029617L, -2100144952L, 295466342L, 
[15:32:15.506]                     1217292179L, -1373566731L, -190258990L, 662392608L, 
[15:32:15.506]                     -279171319L, -1689470917L, 1414196620L, -1684626406L, 
[15:32:15.506]                     -1846658929L, 1427066841L, 1937354862L, -1293372420L, 
[15:32:15.506]                     1682743661L, 1680079639L, -1938543904L, 1293686974L, 
[15:32:15.506]                     1614739083L, 1455295757L, 768352570L, -1964830344L, 
[15:32:15.506]                     -701635807L, 1648096211L, -1110664460L, -639847550L, 
[15:32:15.506]                     982090263L, -195022623L, 1426726438L, 1463367460L, 
[15:32:15.506]                     350722005L, -988622977L, -687384040L, 787888438L, 
[15:32:15.506]                     375801795L, -569727483L, -1402305118L, -1386428016L, 
[15:32:15.506]                     -1811091143L, 1604978155L, -2122676516L, 
[15:32:15.506]                     1607430922L, 18210303L, 26469449L, 1703319006L, 
[15:32:15.506]                     -181541492L, 1272918365L, 1446938983L, -1112401264L, 
[15:32:15.506]                     1915245742L, -1276336805L, -807302851L, -970968150L, 
[15:32:15.506]                     2029012040L, 1836280945L, 1139059171L, 1601307876L, 
[15:32:15.506]                     1189404690L, 142693351L, 570309553L, -392292874L, 
[15:32:15.506]                     669251604L, -1134323931L, -1037307857L, -267937304L, 
[15:32:15.506]                     -934202L, 1862352755L, 40851413L, -2000359502L, 
[15:32:15.506]                     1408530816L, 972988777L, -1435343397L, -175366868L, 
[15:32:15.506]                     481797946L, -1941923345L, -2022605703L, 1535676174L, 
[15:32:15.506]                     959908572L, -2110994099L, 1714095287L, 458792512L, 
[15:32:15.506]                     -709669090L, -2052897301L, 312228205L, 1450399706L, 
[15:32:15.506]                     371626392L, -2066874367L, 1884598707L, 1671129300L, 
[15:32:15.506]                     1872719330L, 1522268279L, -1637126719L, 1261520710L, 
[15:32:15.506]                     1926009476L, 1508326453L, 1906375711L, -742876296L, 
[15:32:15.506]                     -207134122L, -958320925L, 791660709L, 889231682L, 
[15:32:15.506]                     981262128L, 1769179993L, -1273601845L, 1342402876L, 
[15:32:15.506]                     1925578090L, -2071849057L, 1779106345L, 2003954878L, 
[15:32:15.506]                     -719882836L, 970099453L, -1271478713L, 1760761136L, 
[15:32:15.506]                     -436902322L, -738208133L, -1967991331L, -731929590L, 
[15:32:15.506]                     -1388251864L, 1199627153L, 1880931715L, -551110012L, 
[15:32:15.506]                     502401202L, 15849479L, 1295004753L, 286843038L
[15:32:15.506]                     ), envir = base::globalenv(), inherits = FALSE)
[15:32:15.506]                     NULL
[15:32:15.506]                   }
[15:32:15.506]                   options(future.plan = NULL)
[15:32:15.506]                   if (is.na(NA_character_)) 
[15:32:15.506]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.506]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.506]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.506]                     .init = FALSE)
[15:32:15.506]                 }
[15:32:15.506]             }
[15:32:15.506]         }
[15:32:15.506]     })
[15:32:15.506]     if (TRUE) {
[15:32:15.506]         base::sink(type = "output", split = FALSE)
[15:32:15.506]         if (TRUE) {
[15:32:15.506]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.506]         }
[15:32:15.506]         else {
[15:32:15.506]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.506]         }
[15:32:15.506]         base::close(...future.stdout)
[15:32:15.506]         ...future.stdout <- NULL
[15:32:15.506]     }
[15:32:15.506]     ...future.result$conditions <- ...future.conditions
[15:32:15.506]     ...future.result$finished <- base::Sys.time()
[15:32:15.506]     ...future.result
[15:32:15.506] }
[15:32:15.513] assign_globals() ...
[15:32:15.514] List of 5
[15:32:15.514]  $ ...future.FUN            :function (...)  
[15:32:15.514]  $ future.call.arguments    : list()
[15:32:15.514]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.514]  $ ...future.elements_ii    :List of 5
[15:32:15.514]   ..$ : int 0
[15:32:15.514]   ..$ : int 0
[15:32:15.514]   ..$ : int 0
[15:32:15.514]   ..$ : int 0
[15:32:15.514]   ..$ : int 0
[15:32:15.514]  $ ...future.seeds_ii       :List of 5
[15:32:15.514]   ..$ : int [1:7] 10407 1938119661 587046585 1743152248 532712501 -291479259 -1396726054
[15:32:15.514]   ..$ : int [1:7] 10407 470721570 1745066819 1531749506 -82816380 1893247426 788880404
[15:32:15.514]   ..$ : int [1:7] 10407 -1011133451 -1867611508 2146953806 63452452 1950566634 -1197767958
[15:32:15.514]   ..$ : int [1:7] 10407 1038857767 341800498 745459211 -2033284943 -583384553 1411730806
[15:32:15.514]   ..$ : int [1:7] 10407 -726410939 975152565 -209520790 -1906012870 -735178375 -1021128066
[15:32:15.514]  $ ...future.globals.maxSize: NULL
[15:32:15.514]  - attr(*, "where")=List of 5
[15:32:15.514]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.514]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.514]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.514]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.514]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.514]  - attr(*, "resolved")= logi FALSE
[15:32:15.514]  - attr(*, "total_size")= num 616
[15:32:15.514]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.514]  - attr(*, "already-done")= logi TRUE
[15:32:15.531] - reassign environment for '...future.FUN'
[15:32:15.531] - copied '...future.FUN' to environment
[15:32:15.532] - copied 'future.call.arguments' to environment
[15:32:15.532] - copied '...future.elements_ii' to environment
[15:32:15.532] - copied '...future.seeds_ii' to environment
[15:32:15.532] - copied '...future.globals.maxSize' to environment
[15:32:15.533] assign_globals() ... done
[15:32:15.533] plan(): Setting new future strategy stack:
[15:32:15.534] List of future strategies:
[15:32:15.534] 1. sequential:
[15:32:15.534]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.534]    - tweaked: FALSE
[15:32:15.534]    - call: NULL
[15:32:15.535] plan(): nbrOfWorkers() = 1
[15:32:15.537] plan(): Setting new future strategy stack:
[15:32:15.538] List of future strategies:
[15:32:15.538] 1. sequential:
[15:32:15.538]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.538]    - tweaked: FALSE
[15:32:15.538]    - call: plan(strategy)
[15:32:15.539] plan(): nbrOfWorkers() = 1
[15:32:15.539] SequentialFuture started (and completed)
[15:32:15.540] - Launch lazy future ... done
[15:32:15.540] run() for 'SequentialFuture' ... done
[15:32:15.540] Created future:
[15:32:15.541] SequentialFuture:
[15:32:15.541] Label: 'future_replicate-1'
[15:32:15.541] Expression:
[15:32:15.541] {
[15:32:15.541]     do.call(function(...) {
[15:32:15.541]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.541]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.541]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.541]             on.exit(options(oopts), add = TRUE)
[15:32:15.541]         }
[15:32:15.541]         {
[15:32:15.541]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.541]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.541]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.541]                   envir = globalenv(), inherits = FALSE)
[15:32:15.541]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.541]             })
[15:32:15.541]         }
[15:32:15.541]     }, args = future.call.arguments)
[15:32:15.541] }
[15:32:15.541] Lazy evaluation: FALSE
[15:32:15.541] Asynchronous evaluation: FALSE
[15:32:15.541] Local evaluation: TRUE
[15:32:15.541] Environment: R_GlobalEnv
[15:32:15.541] Capture standard output: TRUE
[15:32:15.541] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.541] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:15.541] Packages: <none>
[15:32:15.541] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.541] Resolved: TRUE
[15:32:15.541] Value: 280 bytes of class 'list'
[15:32:15.541] Early signaling: FALSE
[15:32:15.541] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.541] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.544] Chunk #1 of 1 ... DONE
[15:32:15.544] Launching 1 futures (chunks) ... DONE
[15:32:15.544] Resolving 1 futures (chunks) ...
[15:32:15.544] resolve() on list ...
[15:32:15.545]  recursive: 0
[15:32:15.545]  length: 1
[15:32:15.545] 
[15:32:15.546] resolved() for 'SequentialFuture' ...
[15:32:15.546] - state: 'finished'
[15:32:15.546] - run: TRUE
[15:32:15.546] - result: 'FutureResult'
[15:32:15.547] resolved() for 'SequentialFuture' ... done
[15:32:15.547] Future #1
[15:32:15.548] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.548] - nx: 1
[15:32:15.548] - relay: TRUE
[15:32:15.549] - stdout: TRUE
[15:32:15.549] - signal: TRUE
[15:32:15.549] - resignal: FALSE
[15:32:15.549] - force: TRUE
[15:32:15.550] - relayed: [n=1] FALSE
[15:32:15.550] - queued futures: [n=1] FALSE
[15:32:15.550]  - until=1
[15:32:15.550]  - relaying element #1
[15:32:15.551] - relayed: [n=1] TRUE
[15:32:15.551] - queued futures: [n=1] TRUE
[15:32:15.551] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:15.552]  length: 0 (resolved future 1)
[15:32:15.552] Relaying remaining futures
[15:32:15.552] signalConditionsASAP(NULL, pos=0) ...
[15:32:15.552] - nx: 1
[15:32:15.553] - relay: TRUE
[15:32:15.553] - stdout: TRUE
[15:32:15.553] - signal: TRUE
[15:32:15.553] - resignal: FALSE
[15:32:15.554] - force: TRUE
[15:32:15.554] - relayed: [n=1] TRUE
[15:32:15.554] - queued futures: [n=1] TRUE
 - flush all
[15:32:15.554] - relayed: [n=1] TRUE
[15:32:15.555] - queued futures: [n=1] TRUE
[15:32:15.555] signalConditionsASAP(NULL, pos=0) ... done
[15:32:15.555] resolve() on list ... DONE
[15:32:15.555]  - Number of value chunks collected: 1
[15:32:15.556] Resolving 1 futures (chunks) ... DONE
[15:32:15.556] Reducing values from 1 chunks ...
[15:32:15.556]  - Number of values collected after concatenation: 5
[15:32:15.556]  - Number of values expected: 5
[15:32:15.557] Reducing values from 1 chunks ... DONE
[15:32:15.557] future_lapply() ... DONE
[15:32:15.557] future_lapply() ...
[15:32:15.558] Generating random seeds ...
[15:32:15.558] Generating random seed streams for 5 elements ...
[15:32:15.558] Generating random seed streams for 5 elements ... DONE
[15:32:15.558] Generating random seeds ... DONE
[15:32:15.559] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:15.559] Number of chunks: 1
[15:32:15.560] getGlobalsAndPackagesXApply() ...
[15:32:15.560]  - future.globals: TRUE
[15:32:15.560] getGlobalsAndPackages() ...
[15:32:15.560] Searching for globals...
[15:32:15.564] - globals found: [2] 'FUN', 'sample'
[15:32:15.564] Searching for globals ... DONE
[15:32:15.565] Resolving globals: FALSE
[15:32:15.565] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:15.565] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:15.566] - globals: [1] 'FUN'
[15:32:15.566] 
[15:32:15.566] getGlobalsAndPackages() ... DONE
[15:32:15.566]  - globals found/used: [n=1] 'FUN'
[15:32:15.566]  - needed namespaces: [n=0] 
[15:32:15.566] Finding globals ... DONE
[15:32:15.567]  - use_args: TRUE
[15:32:15.567]  - Getting '...' globals ...
[15:32:15.567] resolve() on list ...
[15:32:15.567]  recursive: 0
[15:32:15.568]  length: 1
[15:32:15.568]  elements: '...'
[15:32:15.568]  length: 0 (resolved future 1)
[15:32:15.568] resolve() on list ... DONE
[15:32:15.568]    - '...' content: [n=0] 
[15:32:15.568] List of 1
[15:32:15.568]  $ ...: list()
[15:32:15.568]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.568]  - attr(*, "where")=List of 1
[15:32:15.568]   ..$ ...:<environment: 0x000002abb4316810> 
[15:32:15.568]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.568]  - attr(*, "resolved")= logi TRUE
[15:32:15.568]  - attr(*, "total_size")= num NA
[15:32:15.571]  - Getting '...' globals ... DONE
[15:32:15.572] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:15.572] List of 2
[15:32:15.572]  $ ...future.FUN:function (...)  
[15:32:15.572]  $ ...          : list()
[15:32:15.572]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.572]  - attr(*, "where")=List of 2
[15:32:15.572]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.572]   ..$ ...          :<environment: 0x000002abb4316810> 
[15:32:15.572]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.572]  - attr(*, "resolved")= logi FALSE
[15:32:15.572]  - attr(*, "total_size")= num 616
[15:32:15.576] Packages to be attached in all futures: [n=0] 
[15:32:15.576] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.576] Number of futures (= number of chunks): 1
[15:32:15.576] Launching 1 futures (chunks) ...
[15:32:15.576] Chunk #1 of 1 ...
[15:32:15.577]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.577] getGlobalsAndPackages() ...
[15:32:15.577] Searching for globals...
[15:32:15.577] 
[15:32:15.578] Searching for globals ... DONE
[15:32:15.578] - globals: [0] <none>
[15:32:15.578] getGlobalsAndPackages() ... DONE
[15:32:15.578]    + additional globals found: [n=0] 
[15:32:15.578]    + additional namespaces needed: [n=0] 
[15:32:15.578]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.579]  - seeds: [5] <seeds>
[15:32:15.579]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.579] getGlobalsAndPackages() ...
[15:32:15.579] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.579] Resolving globals: FALSE
[15:32:15.579] Tweak future expression to call with '...' arguments ...
[15:32:15.580] {
[15:32:15.580]     do.call(function(...) {
[15:32:15.580]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.580]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.580]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.580]             on.exit(options(oopts), add = TRUE)
[15:32:15.580]         }
[15:32:15.580]         {
[15:32:15.580]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.580]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.580]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.580]                   envir = globalenv(), inherits = FALSE)
[15:32:15.580]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.580]             })
[15:32:15.580]         }
[15:32:15.580]     }, args = future.call.arguments)
[15:32:15.580] }
[15:32:15.580] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.581] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.581] 
[15:32:15.581] getGlobalsAndPackages() ... DONE
[15:32:15.581] run() for 'Future' ...
[15:32:15.582] - state: 'created'
[15:32:15.582] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.582] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.582] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.582]   - Field: 'label'
[15:32:15.583]   - Field: 'local'
[15:32:15.583]   - Field: 'owner'
[15:32:15.583]   - Field: 'envir'
[15:32:15.583]   - Field: 'packages'
[15:32:15.583]   - Field: 'gc'
[15:32:15.584]   - Field: 'conditions'
[15:32:15.584]   - Field: 'expr'
[15:32:15.584]   - Field: 'uuid'
[15:32:15.584]   - Field: 'seed'
[15:32:15.584]   - Field: 'version'
[15:32:15.584]   - Field: 'result'
[15:32:15.585]   - Field: 'asynchronous'
[15:32:15.585]   - Field: 'calls'
[15:32:15.585]   - Field: 'globals'
[15:32:15.585]   - Field: 'stdout'
[15:32:15.585]   - Field: 'earlySignal'
[15:32:15.585]   - Field: 'lazy'
[15:32:15.586]   - Field: 'state'
[15:32:15.586] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.586] - Launch lazy future ...
[15:32:15.586] Packages needed by the future expression (n = 0): <none>
[15:32:15.586] Packages needed by future strategies (n = 0): <none>
[15:32:15.587] {
[15:32:15.587]     {
[15:32:15.587]         {
[15:32:15.587]             ...future.startTime <- base::Sys.time()
[15:32:15.587]             {
[15:32:15.587]                 {
[15:32:15.587]                   {
[15:32:15.587]                     base::local({
[15:32:15.587]                       has_future <- base::requireNamespace("future", 
[15:32:15.587]                         quietly = TRUE)
[15:32:15.587]                       if (has_future) {
[15:32:15.587]                         ns <- base::getNamespace("future")
[15:32:15.587]                         version <- ns[[".package"]][["version"]]
[15:32:15.587]                         if (is.null(version)) 
[15:32:15.587]                           version <- utils::packageVersion("future")
[15:32:15.587]                       }
[15:32:15.587]                       else {
[15:32:15.587]                         version <- NULL
[15:32:15.587]                       }
[15:32:15.587]                       if (!has_future || version < "1.8.0") {
[15:32:15.587]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.587]                           "", base::R.version$version.string), 
[15:32:15.587]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.587]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.587]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.587]                             "release", "version")], collapse = " "), 
[15:32:15.587]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.587]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.587]                           info)
[15:32:15.587]                         info <- base::paste(info, collapse = "; ")
[15:32:15.587]                         if (!has_future) {
[15:32:15.587]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.587]                             info)
[15:32:15.587]                         }
[15:32:15.587]                         else {
[15:32:15.587]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.587]                             info, version)
[15:32:15.587]                         }
[15:32:15.587]                         base::stop(msg)
[15:32:15.587]                       }
[15:32:15.587]                     })
[15:32:15.587]                   }
[15:32:15.587]                   ...future.strategy.old <- future::plan("list")
[15:32:15.587]                   options(future.plan = NULL)
[15:32:15.587]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.587]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.587]                 }
[15:32:15.587]                 ...future.workdir <- getwd()
[15:32:15.587]             }
[15:32:15.587]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.587]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.587]         }
[15:32:15.587]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.587]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.587]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.587]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.587]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.587]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.587]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.587]             base::names(...future.oldOptions))
[15:32:15.587]     }
[15:32:15.587]     if (FALSE) {
[15:32:15.587]     }
[15:32:15.587]     else {
[15:32:15.587]         if (TRUE) {
[15:32:15.587]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.587]                 open = "w")
[15:32:15.587]         }
[15:32:15.587]         else {
[15:32:15.587]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.587]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.587]         }
[15:32:15.587]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.587]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.587]             base::sink(type = "output", split = FALSE)
[15:32:15.587]             base::close(...future.stdout)
[15:32:15.587]         }, add = TRUE)
[15:32:15.587]     }
[15:32:15.587]     ...future.frame <- base::sys.nframe()
[15:32:15.587]     ...future.conditions <- base::list()
[15:32:15.587]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.587]     if (FALSE) {
[15:32:15.587]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.587]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.587]     }
[15:32:15.587]     ...future.result <- base::tryCatch({
[15:32:15.587]         base::withCallingHandlers({
[15:32:15.587]             ...future.value <- base::withVisible(base::local({
[15:32:15.587]                 do.call(function(...) {
[15:32:15.587]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.587]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.587]                     ...future.globals.maxSize)) {
[15:32:15.587]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.587]                     on.exit(options(oopts), add = TRUE)
[15:32:15.587]                   }
[15:32:15.587]                   {
[15:32:15.587]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.587]                       FUN = function(jj) {
[15:32:15.587]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.587]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.587]                           envir = globalenv(), inherits = FALSE)
[15:32:15.587]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.587]                       })
[15:32:15.587]                   }
[15:32:15.587]                 }, args = future.call.arguments)
[15:32:15.587]             }))
[15:32:15.587]             future::FutureResult(value = ...future.value$value, 
[15:32:15.587]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.587]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.587]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.587]                     ...future.globalenv.names))
[15:32:15.587]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.587]         }, condition = base::local({
[15:32:15.587]             c <- base::c
[15:32:15.587]             inherits <- base::inherits
[15:32:15.587]             invokeRestart <- base::invokeRestart
[15:32:15.587]             length <- base::length
[15:32:15.587]             list <- base::list
[15:32:15.587]             seq.int <- base::seq.int
[15:32:15.587]             signalCondition <- base::signalCondition
[15:32:15.587]             sys.calls <- base::sys.calls
[15:32:15.587]             `[[` <- base::`[[`
[15:32:15.587]             `+` <- base::`+`
[15:32:15.587]             `<<-` <- base::`<<-`
[15:32:15.587]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.587]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.587]                   3L)]
[15:32:15.587]             }
[15:32:15.587]             function(cond) {
[15:32:15.587]                 is_error <- inherits(cond, "error")
[15:32:15.587]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.587]                   NULL)
[15:32:15.587]                 if (is_error) {
[15:32:15.587]                   sessionInformation <- function() {
[15:32:15.587]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.587]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.587]                       search = base::search(), system = base::Sys.info())
[15:32:15.587]                   }
[15:32:15.587]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.587]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.587]                     cond$call), session = sessionInformation(), 
[15:32:15.587]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.587]                   signalCondition(cond)
[15:32:15.587]                 }
[15:32:15.587]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.587]                 "immediateCondition"))) {
[15:32:15.587]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.587]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.587]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.587]                   if (TRUE && !signal) {
[15:32:15.587]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.587]                     {
[15:32:15.587]                       inherits <- base::inherits
[15:32:15.587]                       invokeRestart <- base::invokeRestart
[15:32:15.587]                       is.null <- base::is.null
[15:32:15.587]                       muffled <- FALSE
[15:32:15.587]                       if (inherits(cond, "message")) {
[15:32:15.587]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.587]                         if (muffled) 
[15:32:15.587]                           invokeRestart("muffleMessage")
[15:32:15.587]                       }
[15:32:15.587]                       else if (inherits(cond, "warning")) {
[15:32:15.587]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.587]                         if (muffled) 
[15:32:15.587]                           invokeRestart("muffleWarning")
[15:32:15.587]                       }
[15:32:15.587]                       else if (inherits(cond, "condition")) {
[15:32:15.587]                         if (!is.null(pattern)) {
[15:32:15.587]                           computeRestarts <- base::computeRestarts
[15:32:15.587]                           grepl <- base::grepl
[15:32:15.587]                           restarts <- computeRestarts(cond)
[15:32:15.587]                           for (restart in restarts) {
[15:32:15.587]                             name <- restart$name
[15:32:15.587]                             if (is.null(name)) 
[15:32:15.587]                               next
[15:32:15.587]                             if (!grepl(pattern, name)) 
[15:32:15.587]                               next
[15:32:15.587]                             invokeRestart(restart)
[15:32:15.587]                             muffled <- TRUE
[15:32:15.587]                             break
[15:32:15.587]                           }
[15:32:15.587]                         }
[15:32:15.587]                       }
[15:32:15.587]                       invisible(muffled)
[15:32:15.587]                     }
[15:32:15.587]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.587]                   }
[15:32:15.587]                 }
[15:32:15.587]                 else {
[15:32:15.587]                   if (TRUE) {
[15:32:15.587]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.587]                     {
[15:32:15.587]                       inherits <- base::inherits
[15:32:15.587]                       invokeRestart <- base::invokeRestart
[15:32:15.587]                       is.null <- base::is.null
[15:32:15.587]                       muffled <- FALSE
[15:32:15.587]                       if (inherits(cond, "message")) {
[15:32:15.587]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.587]                         if (muffled) 
[15:32:15.587]                           invokeRestart("muffleMessage")
[15:32:15.587]                       }
[15:32:15.587]                       else if (inherits(cond, "warning")) {
[15:32:15.587]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.587]                         if (muffled) 
[15:32:15.587]                           invokeRestart("muffleWarning")
[15:32:15.587]                       }
[15:32:15.587]                       else if (inherits(cond, "condition")) {
[15:32:15.587]                         if (!is.null(pattern)) {
[15:32:15.587]                           computeRestarts <- base::computeRestarts
[15:32:15.587]                           grepl <- base::grepl
[15:32:15.587]                           restarts <- computeRestarts(cond)
[15:32:15.587]                           for (restart in restarts) {
[15:32:15.587]                             name <- restart$name
[15:32:15.587]                             if (is.null(name)) 
[15:32:15.587]                               next
[15:32:15.587]                             if (!grepl(pattern, name)) 
[15:32:15.587]                               next
[15:32:15.587]                             invokeRestart(restart)
[15:32:15.587]                             muffled <- TRUE
[15:32:15.587]                             break
[15:32:15.587]                           }
[15:32:15.587]                         }
[15:32:15.587]                       }
[15:32:15.587]                       invisible(muffled)
[15:32:15.587]                     }
[15:32:15.587]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.587]                   }
[15:32:15.587]                 }
[15:32:15.587]             }
[15:32:15.587]         }))
[15:32:15.587]     }, error = function(ex) {
[15:32:15.587]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.587]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.587]                 ...future.rng), started = ...future.startTime, 
[15:32:15.587]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.587]             version = "1.8"), class = "FutureResult")
[15:32:15.587]     }, finally = {
[15:32:15.587]         if (!identical(...future.workdir, getwd())) 
[15:32:15.587]             setwd(...future.workdir)
[15:32:15.587]         {
[15:32:15.587]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.587]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.587]             }
[15:32:15.587]             base::options(...future.oldOptions)
[15:32:15.587]             if (.Platform$OS.type == "windows") {
[15:32:15.587]                 old_names <- names(...future.oldEnvVars)
[15:32:15.587]                 envs <- base::Sys.getenv()
[15:32:15.587]                 names <- names(envs)
[15:32:15.587]                 common <- intersect(names, old_names)
[15:32:15.587]                 added <- setdiff(names, old_names)
[15:32:15.587]                 removed <- setdiff(old_names, names)
[15:32:15.587]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.587]                   envs[common]]
[15:32:15.587]                 NAMES <- toupper(changed)
[15:32:15.587]                 args <- list()
[15:32:15.587]                 for (kk in seq_along(NAMES)) {
[15:32:15.587]                   name <- changed[[kk]]
[15:32:15.587]                   NAME <- NAMES[[kk]]
[15:32:15.587]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.587]                     next
[15:32:15.587]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.587]                 }
[15:32:15.587]                 NAMES <- toupper(added)
[15:32:15.587]                 for (kk in seq_along(NAMES)) {
[15:32:15.587]                   name <- added[[kk]]
[15:32:15.587]                   NAME <- NAMES[[kk]]
[15:32:15.587]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.587]                     next
[15:32:15.587]                   args[[name]] <- ""
[15:32:15.587]                 }
[15:32:15.587]                 NAMES <- toupper(removed)
[15:32:15.587]                 for (kk in seq_along(NAMES)) {
[15:32:15.587]                   name <- removed[[kk]]
[15:32:15.587]                   NAME <- NAMES[[kk]]
[15:32:15.587]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.587]                     next
[15:32:15.587]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.587]                 }
[15:32:15.587]                 if (length(args) > 0) 
[15:32:15.587]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.587]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.587]             }
[15:32:15.587]             else {
[15:32:15.587]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.587]             }
[15:32:15.587]             {
[15:32:15.587]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.587]                   0L) {
[15:32:15.587]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.587]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.587]                   base::options(opts)
[15:32:15.587]                 }
[15:32:15.587]                 {
[15:32:15.587]                   {
[15:32:15.587]                     base::assign(".Random.seed", c(10403L, 2L, 
[15:32:15.587]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[15:32:15.587]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[15:32:15.587]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[15:32:15.587]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[15:32:15.587]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[15:32:15.587]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[15:32:15.587]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[15:32:15.587]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[15:32:15.587]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[15:32:15.587]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[15:32:15.587]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[15:32:15.587]                     -1512233174L, -1985955764L, -425390065L, 
[15:32:15.587]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[15:32:15.587]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[15:32:15.587]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[15:32:15.587]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[15:32:15.587]                     1818328109L, -1284085436L, -1981489558L, 
[15:32:15.587]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[15:32:15.587]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[15:32:15.587]                     -1718567047L, -793788661L, -1133789126L, 
[15:32:15.587]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[15:32:15.587]                     -1823521982L, -1345991523L, -1672661737L, 
[15:32:15.587]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[15:32:15.587]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[15:32:15.587]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[15:32:15.587]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[15:32:15.587]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[15:32:15.587]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[15:32:15.587]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[15:32:15.587]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[15:32:15.587]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[15:32:15.587]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[15:32:15.587]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[15:32:15.587]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[15:32:15.587]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[15:32:15.587]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[15:32:15.587]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[15:32:15.587]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[15:32:15.587]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[15:32:15.587]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[15:32:15.587]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[15:32:15.587]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[15:32:15.587]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[15:32:15.587]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[15:32:15.587]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[15:32:15.587]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[15:32:15.587]                     -1119334354L, -1521015416L, -2041922421L, 
[15:32:15.587]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[15:32:15.587]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[15:32:15.587]                     1232111981L, -1801753084L, -1608606422L, 
[15:32:15.587]                     -1172096363L, 1420874031L, -1210473418L, 
[15:32:15.587]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[15:32:15.587]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[15:32:15.587]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[15:32:15.587]                     679371266L, -591318819L, -104578089L, -172818754L, 
[15:32:15.587]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[15:32:15.587]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[15:32:15.587]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[15:32:15.587]                     -332493318L, -1978392251L, -1691039632L, 
[15:32:15.587]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[15:32:15.587]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[15:32:15.587]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[15:32:15.587]                     87560756L, -87565624L, 426345146L, -699970416L, 
[15:32:15.587]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[15:32:15.587]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[15:32:15.587]                     -1178330196L, -687617348L, -1701912078L, 
[15:32:15.587]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[15:32:15.587]                     -1345416048L, 1816730492L, -1570431212L, 
[15:32:15.587]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[15:32:15.587]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[15:32:15.587]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[15:32:15.587]                     -1493184262L, -1943836976L, -590788308L, 
[15:32:15.587]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[15:32:15.587]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[15:32:15.587]                     1274857340L, -1205842638L, -1938479504L, 
[15:32:15.587]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[15:32:15.587]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[15:32:15.587]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[15:32:15.587]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[15:32:15.587]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[15:32:15.587]                     -1460751252L, 1201879444L, -1459788718L, 
[15:32:15.587]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[15:32:15.587]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[15:32:15.587]                     -420945808L, -1997735900L, -1838404552L, 
[15:32:15.587]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[15:32:15.587]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[15:32:15.587]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[15:32:15.587]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[15:32:15.587]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[15:32:15.587]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[15:32:15.587]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[15:32:15.587]                     942193650L, 751741680L, 689743428L, -18455976L, 
[15:32:15.587]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[15:32:15.587]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[15:32:15.587]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[15:32:15.587]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[15:32:15.587]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[15:32:15.587]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[15:32:15.587]                     -1357570110L, 1896595240L, -2066952276L, 
[15:32:15.587]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[15:32:15.587]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[15:32:15.587]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[15:32:15.587]                     769655120L, 236357794L, 181393736L, -13334772L, 
[15:32:15.587]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[15:32:15.587]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[15:32:15.587]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[15:32:15.587]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[15:32:15.587]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[15:32:15.587]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[15:32:15.587]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[15:32:15.587]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[15:32:15.587]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[15:32:15.587]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[15:32:15.587]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[15:32:15.587]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[15:32:15.587]                     -1365842884L, -438961294L, -1851472272L, 
[15:32:15.587]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[15:32:15.587]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[15:32:15.587]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[15:32:15.587]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[15:32:15.587]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[15:32:15.587]                     -594809770L, -2146766621L, -2013964635L, 
[15:32:15.587]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[15:32:15.587]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[15:32:15.587]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[15:32:15.587]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[15:32:15.587]                     -1426021878L, -1285634264L, 1507547537L, 
[15:32:15.587]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[15:32:15.587]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[15:32:15.587]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[15:32:15.587]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[15:32:15.587]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[15:32:15.587]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[15:32:15.587]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[15:32:15.587]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[15:32:15.587]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[15:32:15.587]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[15:32:15.587]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[15:32:15.587]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[15:32:15.587]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[15:32:15.587]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[15:32:15.587]                     -1604604761L, 1421229008L, -1268333714L, 
[15:32:15.587]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[15:32:15.587]                     -2070476623L, -2099222749L, 1141171236L, 
[15:32:15.587]                     -146426158L, -1797385433L, -1129376399L, 
[15:32:15.587]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[15:32:15.587]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[15:32:15.587]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[15:32:15.587]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[15:32:15.587]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[15:32:15.587]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[15:32:15.587]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[15:32:15.587]                     -1092079724L, -1765622238L, -1882554057L, 
[15:32:15.587]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[15:32:15.587]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[15:32:15.587]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[15:32:15.587]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[15:32:15.587]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[15:32:15.587]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[15:32:15.587]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[15:32:15.587]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[15:32:15.587]                     865377681L, -1127426242L), envir = base::globalenv(), 
[15:32:15.587]                       inherits = FALSE)
[15:32:15.587]                     NULL
[15:32:15.587]                   }
[15:32:15.587]                   options(future.plan = NULL)
[15:32:15.587]                   if (is.na(NA_character_)) 
[15:32:15.587]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.587]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.587]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.587]                     .init = FALSE)
[15:32:15.587]                 }
[15:32:15.587]             }
[15:32:15.587]         }
[15:32:15.587]     })
[15:32:15.587]     if (TRUE) {
[15:32:15.587]         base::sink(type = "output", split = FALSE)
[15:32:15.587]         if (TRUE) {
[15:32:15.587]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.587]         }
[15:32:15.587]         else {
[15:32:15.587]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.587]         }
[15:32:15.587]         base::close(...future.stdout)
[15:32:15.587]         ...future.stdout <- NULL
[15:32:15.587]     }
[15:32:15.587]     ...future.result$conditions <- ...future.conditions
[15:32:15.587]     ...future.result$finished <- base::Sys.time()
[15:32:15.587]     ...future.result
[15:32:15.587] }
[15:32:15.592] assign_globals() ...
[15:32:15.592] List of 5
[15:32:15.592]  $ ...future.FUN            :function (...)  
[15:32:15.592]  $ future.call.arguments    : list()
[15:32:15.592]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.592]  $ ...future.elements_ii    :List of 5
[15:32:15.592]   ..$ : int 0
[15:32:15.592]   ..$ : int 0
[15:32:15.592]   ..$ : int 0
[15:32:15.592]   ..$ : int 0
[15:32:15.592]   ..$ : int 0
[15:32:15.592]  $ ...future.seeds_ii       :List of 5
[15:32:15.592]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[15:32:15.592]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[15:32:15.592]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[15:32:15.592]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[15:32:15.592]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[15:32:15.592]  $ ...future.globals.maxSize: NULL
[15:32:15.592]  - attr(*, "where")=List of 5
[15:32:15.592]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.592]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.592]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.592]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.592]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.592]  - attr(*, "resolved")= logi FALSE
[15:32:15.592]  - attr(*, "total_size")= num 616
[15:32:15.592]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.592]  - attr(*, "already-done")= logi TRUE
[15:32:15.603] - reassign environment for '...future.FUN'
[15:32:15.603] - copied '...future.FUN' to environment
[15:32:15.604] - copied 'future.call.arguments' to environment
[15:32:15.604] - copied '...future.elements_ii' to environment
[15:32:15.604] - copied '...future.seeds_ii' to environment
[15:32:15.604] - copied '...future.globals.maxSize' to environment
[15:32:15.604] assign_globals() ... done
[15:32:15.605] plan(): Setting new future strategy stack:
[15:32:15.605] List of future strategies:
[15:32:15.605] 1. sequential:
[15:32:15.605]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.605]    - tweaked: FALSE
[15:32:15.605]    - call: NULL
[15:32:15.605] plan(): nbrOfWorkers() = 1
[15:32:15.607] plan(): Setting new future strategy stack:
[15:32:15.607] List of future strategies:
[15:32:15.607] 1. sequential:
[15:32:15.607]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.607]    - tweaked: FALSE
[15:32:15.607]    - call: plan(strategy)
[15:32:15.607] plan(): nbrOfWorkers() = 1
[15:32:15.608] SequentialFuture started (and completed)
[15:32:15.608] - Launch lazy future ... done
[15:32:15.608] run() for 'SequentialFuture' ... done
[15:32:15.608] Created future:
[15:32:15.609] SequentialFuture:
[15:32:15.609] Label: 'future_replicate-1'
[15:32:15.609] Expression:
[15:32:15.609] {
[15:32:15.609]     do.call(function(...) {
[15:32:15.609]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.609]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.609]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.609]             on.exit(options(oopts), add = TRUE)
[15:32:15.609]         }
[15:32:15.609]         {
[15:32:15.609]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.609]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.609]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.609]                   envir = globalenv(), inherits = FALSE)
[15:32:15.609]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.609]             })
[15:32:15.609]         }
[15:32:15.609]     }, args = future.call.arguments)
[15:32:15.609] }
[15:32:15.609] Lazy evaluation: FALSE
[15:32:15.609] Asynchronous evaluation: FALSE
[15:32:15.609] Local evaluation: TRUE
[15:32:15.609] Environment: R_GlobalEnv
[15:32:15.609] Capture standard output: TRUE
[15:32:15.609] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.609] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:15.609] Packages: <none>
[15:32:15.609] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.609] Resolved: TRUE
[15:32:15.609] Value: 280 bytes of class 'list'
[15:32:15.609] Early signaling: FALSE
[15:32:15.609] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.609] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.610] Chunk #1 of 1 ... DONE
[15:32:15.611] Launching 1 futures (chunks) ... DONE
[15:32:15.611] Resolving 1 futures (chunks) ...
[15:32:15.611] resolve() on list ...
[15:32:15.611]  recursive: 0
[15:32:15.612]  length: 1
[15:32:15.612] 
[15:32:15.612] resolved() for 'SequentialFuture' ...
[15:32:15.612] - state: 'finished'
[15:32:15.613] - run: TRUE
[15:32:15.613] - result: 'FutureResult'
[15:32:15.613] resolved() for 'SequentialFuture' ... done
[15:32:15.613] Future #1
[15:32:15.614] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.614] - nx: 1
[15:32:15.614] - relay: TRUE
[15:32:15.614] - stdout: TRUE
[15:32:15.615] - signal: TRUE
[15:32:15.615] - resignal: FALSE
[15:32:15.615] - force: TRUE
[15:32:15.615] - relayed: [n=1] FALSE
[15:32:15.616] - queued futures: [n=1] FALSE
[15:32:15.616]  - until=1
[15:32:15.616]  - relaying element #1
[15:32:15.616] - relayed: [n=1] TRUE
[15:32:15.617] - queued futures: [n=1] TRUE
[15:32:15.617] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:15.617]  length: 0 (resolved future 1)
[15:32:15.617] Relaying remaining futures
[15:32:15.618] signalConditionsASAP(NULL, pos=0) ...
[15:32:15.618] - nx: 1
[15:32:15.618] - relay: TRUE
[15:32:15.618] - stdout: TRUE
[15:32:15.619] - signal: TRUE
[15:32:15.619] - resignal: FALSE
[15:32:15.619] - force: TRUE
[15:32:15.619] - relayed: [n=1] TRUE
[15:32:15.619] - queued futures: [n=1] TRUE
 - flush all
[15:32:15.620] - relayed: [n=1] TRUE
[15:32:15.620] - queued futures: [n=1] TRUE
[15:32:15.620] signalConditionsASAP(NULL, pos=0) ... done
[15:32:15.620] resolve() on list ... DONE
[15:32:15.621]  - Number of value chunks collected: 1
[15:32:15.621] Resolving 1 futures (chunks) ... DONE
[15:32:15.621] Reducing values from 1 chunks ...
[15:32:15.622]  - Number of values collected after concatenation: 5
[15:32:15.622]  - Number of values expected: 5
[15:32:15.622] Reducing values from 1 chunks ... DONE
[15:32:15.622] future_lapply() ... DONE
[15:32:15.623] future_lapply() ...
[15:32:15.623] Generating random seeds ...
[15:32:15.624] Generating random seed streams for 5 elements ...
[15:32:15.624] Generating random seed streams for 5 elements ... DONE
[15:32:15.624] Generating random seeds ... DONE
[15:32:15.625] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:15.626] Number of chunks: 1
[15:32:15.626] getGlobalsAndPackagesXApply() ...
[15:32:15.626]  - future.globals: TRUE
[15:32:15.627] getGlobalsAndPackages() ...
[15:32:15.627] Searching for globals...
[15:32:15.629] - globals found: [2] 'FUN', 'sample'
[15:32:15.629] Searching for globals ... DONE
[15:32:15.629] Resolving globals: FALSE
[15:32:15.630] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:15.631] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:15.631] - globals: [1] 'FUN'
[15:32:15.631] 
[15:32:15.631] getGlobalsAndPackages() ... DONE
[15:32:15.632]  - globals found/used: [n=1] 'FUN'
[15:32:15.632]  - needed namespaces: [n=0] 
[15:32:15.632] Finding globals ... DONE
[15:32:15.635]  - use_args: TRUE
[15:32:15.635]  - Getting '...' globals ...
[15:32:15.635] resolve() on list ...
[15:32:15.636]  recursive: 0
[15:32:15.636]  length: 1
[15:32:15.636]  elements: '...'
[15:32:15.637]  length: 0 (resolved future 1)
[15:32:15.637] resolve() on list ... DONE
[15:32:15.637]    - '...' content: [n=0] 
[15:32:15.637] List of 1
[15:32:15.637]  $ ...: list()
[15:32:15.637]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.637]  - attr(*, "where")=List of 1
[15:32:15.637]   ..$ ...:<environment: 0x000002abb41a86c0> 
[15:32:15.637]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.637]  - attr(*, "resolved")= logi TRUE
[15:32:15.637]  - attr(*, "total_size")= num NA
[15:32:15.642]  - Getting '...' globals ... DONE
[15:32:15.642] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:15.642] List of 2
[15:32:15.642]  $ ...future.FUN:function (...)  
[15:32:15.642]  $ ...          : list()
[15:32:15.642]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.642]  - attr(*, "where")=List of 2
[15:32:15.642]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.642]   ..$ ...          :<environment: 0x000002abb41a86c0> 
[15:32:15.642]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.642]  - attr(*, "resolved")= logi FALSE
[15:32:15.642]  - attr(*, "total_size")= num 616
[15:32:15.647] Packages to be attached in all futures: [n=0] 
[15:32:15.647] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.648] Number of futures (= number of chunks): 1
[15:32:15.648] Launching 1 futures (chunks) ...
[15:32:15.648] Chunk #1 of 1 ...
[15:32:15.648]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.649] getGlobalsAndPackages() ...
[15:32:15.649] Searching for globals...
[15:32:15.649] 
[15:32:15.650] Searching for globals ... DONE
[15:32:15.650] - globals: [0] <none>
[15:32:15.650] getGlobalsAndPackages() ... DONE
[15:32:15.650]    + additional globals found: [n=0] 
[15:32:15.651]    + additional namespaces needed: [n=0] 
[15:32:15.651]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.651]  - seeds: [5] <seeds>
[15:32:15.651]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.652] getGlobalsAndPackages() ...
[15:32:15.652] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.652] Resolving globals: FALSE
[15:32:15.652] Tweak future expression to call with '...' arguments ...
[15:32:15.653] {
[15:32:15.653]     do.call(function(...) {
[15:32:15.653]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.653]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.653]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.653]             on.exit(options(oopts), add = TRUE)
[15:32:15.653]         }
[15:32:15.653]         {
[15:32:15.653]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.653]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.653]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.653]                   envir = globalenv(), inherits = FALSE)
[15:32:15.653]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.653]             })
[15:32:15.653]         }
[15:32:15.653]     }, args = future.call.arguments)
[15:32:15.653] }
[15:32:15.653] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.654] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.654] 
[15:32:15.655] getGlobalsAndPackages() ... DONE
[15:32:15.655] run() for 'Future' ...
[15:32:15.655] - state: 'created'
[15:32:15.656] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.656] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.657] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.657]   - Field: 'label'
[15:32:15.657]   - Field: 'local'
[15:32:15.657]   - Field: 'owner'
[15:32:15.658]   - Field: 'envir'
[15:32:15.658]   - Field: 'packages'
[15:32:15.658]   - Field: 'gc'
[15:32:15.658]   - Field: 'conditions'
[15:32:15.659]   - Field: 'expr'
[15:32:15.659]   - Field: 'uuid'
[15:32:15.659]   - Field: 'seed'
[15:32:15.660]   - Field: 'version'
[15:32:15.660]   - Field: 'result'
[15:32:15.660]   - Field: 'asynchronous'
[15:32:15.660]   - Field: 'calls'
[15:32:15.661]   - Field: 'globals'
[15:32:15.661]   - Field: 'stdout'
[15:32:15.661]   - Field: 'earlySignal'
[15:32:15.661]   - Field: 'lazy'
[15:32:15.662]   - Field: 'state'
[15:32:15.662] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.662] - Launch lazy future ...
[15:32:15.662] Packages needed by the future expression (n = 0): <none>
[15:32:15.663] Packages needed by future strategies (n = 0): <none>
[15:32:15.664] {
[15:32:15.664]     {
[15:32:15.664]         {
[15:32:15.664]             ...future.startTime <- base::Sys.time()
[15:32:15.664]             {
[15:32:15.664]                 {
[15:32:15.664]                   {
[15:32:15.664]                     base::local({
[15:32:15.664]                       has_future <- base::requireNamespace("future", 
[15:32:15.664]                         quietly = TRUE)
[15:32:15.664]                       if (has_future) {
[15:32:15.664]                         ns <- base::getNamespace("future")
[15:32:15.664]                         version <- ns[[".package"]][["version"]]
[15:32:15.664]                         if (is.null(version)) 
[15:32:15.664]                           version <- utils::packageVersion("future")
[15:32:15.664]                       }
[15:32:15.664]                       else {
[15:32:15.664]                         version <- NULL
[15:32:15.664]                       }
[15:32:15.664]                       if (!has_future || version < "1.8.0") {
[15:32:15.664]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.664]                           "", base::R.version$version.string), 
[15:32:15.664]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.664]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.664]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.664]                             "release", "version")], collapse = " "), 
[15:32:15.664]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.664]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.664]                           info)
[15:32:15.664]                         info <- base::paste(info, collapse = "; ")
[15:32:15.664]                         if (!has_future) {
[15:32:15.664]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.664]                             info)
[15:32:15.664]                         }
[15:32:15.664]                         else {
[15:32:15.664]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.664]                             info, version)
[15:32:15.664]                         }
[15:32:15.664]                         base::stop(msg)
[15:32:15.664]                       }
[15:32:15.664]                     })
[15:32:15.664]                   }
[15:32:15.664]                   ...future.strategy.old <- future::plan("list")
[15:32:15.664]                   options(future.plan = NULL)
[15:32:15.664]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.664]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.664]                 }
[15:32:15.664]                 ...future.workdir <- getwd()
[15:32:15.664]             }
[15:32:15.664]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.664]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.664]         }
[15:32:15.664]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.664]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.664]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.664]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.664]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.664]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.664]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.664]             base::names(...future.oldOptions))
[15:32:15.664]     }
[15:32:15.664]     if (FALSE) {
[15:32:15.664]     }
[15:32:15.664]     else {
[15:32:15.664]         if (TRUE) {
[15:32:15.664]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.664]                 open = "w")
[15:32:15.664]         }
[15:32:15.664]         else {
[15:32:15.664]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.664]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.664]         }
[15:32:15.664]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.664]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.664]             base::sink(type = "output", split = FALSE)
[15:32:15.664]             base::close(...future.stdout)
[15:32:15.664]         }, add = TRUE)
[15:32:15.664]     }
[15:32:15.664]     ...future.frame <- base::sys.nframe()
[15:32:15.664]     ...future.conditions <- base::list()
[15:32:15.664]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.664]     if (FALSE) {
[15:32:15.664]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.664]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.664]     }
[15:32:15.664]     ...future.result <- base::tryCatch({
[15:32:15.664]         base::withCallingHandlers({
[15:32:15.664]             ...future.value <- base::withVisible(base::local({
[15:32:15.664]                 do.call(function(...) {
[15:32:15.664]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.664]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.664]                     ...future.globals.maxSize)) {
[15:32:15.664]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.664]                     on.exit(options(oopts), add = TRUE)
[15:32:15.664]                   }
[15:32:15.664]                   {
[15:32:15.664]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.664]                       FUN = function(jj) {
[15:32:15.664]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.664]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.664]                           envir = globalenv(), inherits = FALSE)
[15:32:15.664]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.664]                       })
[15:32:15.664]                   }
[15:32:15.664]                 }, args = future.call.arguments)
[15:32:15.664]             }))
[15:32:15.664]             future::FutureResult(value = ...future.value$value, 
[15:32:15.664]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.664]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.664]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.664]                     ...future.globalenv.names))
[15:32:15.664]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.664]         }, condition = base::local({
[15:32:15.664]             c <- base::c
[15:32:15.664]             inherits <- base::inherits
[15:32:15.664]             invokeRestart <- base::invokeRestart
[15:32:15.664]             length <- base::length
[15:32:15.664]             list <- base::list
[15:32:15.664]             seq.int <- base::seq.int
[15:32:15.664]             signalCondition <- base::signalCondition
[15:32:15.664]             sys.calls <- base::sys.calls
[15:32:15.664]             `[[` <- base::`[[`
[15:32:15.664]             `+` <- base::`+`
[15:32:15.664]             `<<-` <- base::`<<-`
[15:32:15.664]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.664]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.664]                   3L)]
[15:32:15.664]             }
[15:32:15.664]             function(cond) {
[15:32:15.664]                 is_error <- inherits(cond, "error")
[15:32:15.664]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.664]                   NULL)
[15:32:15.664]                 if (is_error) {
[15:32:15.664]                   sessionInformation <- function() {
[15:32:15.664]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.664]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.664]                       search = base::search(), system = base::Sys.info())
[15:32:15.664]                   }
[15:32:15.664]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.664]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.664]                     cond$call), session = sessionInformation(), 
[15:32:15.664]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.664]                   signalCondition(cond)
[15:32:15.664]                 }
[15:32:15.664]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.664]                 "immediateCondition"))) {
[15:32:15.664]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.664]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.664]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.664]                   if (TRUE && !signal) {
[15:32:15.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.664]                     {
[15:32:15.664]                       inherits <- base::inherits
[15:32:15.664]                       invokeRestart <- base::invokeRestart
[15:32:15.664]                       is.null <- base::is.null
[15:32:15.664]                       muffled <- FALSE
[15:32:15.664]                       if (inherits(cond, "message")) {
[15:32:15.664]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.664]                         if (muffled) 
[15:32:15.664]                           invokeRestart("muffleMessage")
[15:32:15.664]                       }
[15:32:15.664]                       else if (inherits(cond, "warning")) {
[15:32:15.664]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.664]                         if (muffled) 
[15:32:15.664]                           invokeRestart("muffleWarning")
[15:32:15.664]                       }
[15:32:15.664]                       else if (inherits(cond, "condition")) {
[15:32:15.664]                         if (!is.null(pattern)) {
[15:32:15.664]                           computeRestarts <- base::computeRestarts
[15:32:15.664]                           grepl <- base::grepl
[15:32:15.664]                           restarts <- computeRestarts(cond)
[15:32:15.664]                           for (restart in restarts) {
[15:32:15.664]                             name <- restart$name
[15:32:15.664]                             if (is.null(name)) 
[15:32:15.664]                               next
[15:32:15.664]                             if (!grepl(pattern, name)) 
[15:32:15.664]                               next
[15:32:15.664]                             invokeRestart(restart)
[15:32:15.664]                             muffled <- TRUE
[15:32:15.664]                             break
[15:32:15.664]                           }
[15:32:15.664]                         }
[15:32:15.664]                       }
[15:32:15.664]                       invisible(muffled)
[15:32:15.664]                     }
[15:32:15.664]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.664]                   }
[15:32:15.664]                 }
[15:32:15.664]                 else {
[15:32:15.664]                   if (TRUE) {
[15:32:15.664]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.664]                     {
[15:32:15.664]                       inherits <- base::inherits
[15:32:15.664]                       invokeRestart <- base::invokeRestart
[15:32:15.664]                       is.null <- base::is.null
[15:32:15.664]                       muffled <- FALSE
[15:32:15.664]                       if (inherits(cond, "message")) {
[15:32:15.664]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.664]                         if (muffled) 
[15:32:15.664]                           invokeRestart("muffleMessage")
[15:32:15.664]                       }
[15:32:15.664]                       else if (inherits(cond, "warning")) {
[15:32:15.664]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.664]                         if (muffled) 
[15:32:15.664]                           invokeRestart("muffleWarning")
[15:32:15.664]                       }
[15:32:15.664]                       else if (inherits(cond, "condition")) {
[15:32:15.664]                         if (!is.null(pattern)) {
[15:32:15.664]                           computeRestarts <- base::computeRestarts
[15:32:15.664]                           grepl <- base::grepl
[15:32:15.664]                           restarts <- computeRestarts(cond)
[15:32:15.664]                           for (restart in restarts) {
[15:32:15.664]                             name <- restart$name
[15:32:15.664]                             if (is.null(name)) 
[15:32:15.664]                               next
[15:32:15.664]                             if (!grepl(pattern, name)) 
[15:32:15.664]                               next
[15:32:15.664]                             invokeRestart(restart)
[15:32:15.664]                             muffled <- TRUE
[15:32:15.664]                             break
[15:32:15.664]                           }
[15:32:15.664]                         }
[15:32:15.664]                       }
[15:32:15.664]                       invisible(muffled)
[15:32:15.664]                     }
[15:32:15.664]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.664]                   }
[15:32:15.664]                 }
[15:32:15.664]             }
[15:32:15.664]         }))
[15:32:15.664]     }, error = function(ex) {
[15:32:15.664]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.664]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.664]                 ...future.rng), started = ...future.startTime, 
[15:32:15.664]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.664]             version = "1.8"), class = "FutureResult")
[15:32:15.664]     }, finally = {
[15:32:15.664]         if (!identical(...future.workdir, getwd())) 
[15:32:15.664]             setwd(...future.workdir)
[15:32:15.664]         {
[15:32:15.664]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.664]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.664]             }
[15:32:15.664]             base::options(...future.oldOptions)
[15:32:15.664]             if (.Platform$OS.type == "windows") {
[15:32:15.664]                 old_names <- names(...future.oldEnvVars)
[15:32:15.664]                 envs <- base::Sys.getenv()
[15:32:15.664]                 names <- names(envs)
[15:32:15.664]                 common <- intersect(names, old_names)
[15:32:15.664]                 added <- setdiff(names, old_names)
[15:32:15.664]                 removed <- setdiff(old_names, names)
[15:32:15.664]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.664]                   envs[common]]
[15:32:15.664]                 NAMES <- toupper(changed)
[15:32:15.664]                 args <- list()
[15:32:15.664]                 for (kk in seq_along(NAMES)) {
[15:32:15.664]                   name <- changed[[kk]]
[15:32:15.664]                   NAME <- NAMES[[kk]]
[15:32:15.664]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.664]                     next
[15:32:15.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.664]                 }
[15:32:15.664]                 NAMES <- toupper(added)
[15:32:15.664]                 for (kk in seq_along(NAMES)) {
[15:32:15.664]                   name <- added[[kk]]
[15:32:15.664]                   NAME <- NAMES[[kk]]
[15:32:15.664]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.664]                     next
[15:32:15.664]                   args[[name]] <- ""
[15:32:15.664]                 }
[15:32:15.664]                 NAMES <- toupper(removed)
[15:32:15.664]                 for (kk in seq_along(NAMES)) {
[15:32:15.664]                   name <- removed[[kk]]
[15:32:15.664]                   NAME <- NAMES[[kk]]
[15:32:15.664]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.664]                     next
[15:32:15.664]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.664]                 }
[15:32:15.664]                 if (length(args) > 0) 
[15:32:15.664]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.664]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.664]             }
[15:32:15.664]             else {
[15:32:15.664]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.664]             }
[15:32:15.664]             {
[15:32:15.664]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.664]                   0L) {
[15:32:15.664]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.664]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.664]                   base::options(opts)
[15:32:15.664]                 }
[15:32:15.664]                 {
[15:32:15.664]                   {
[15:32:15.664]                     base::assign(".Random.seed", c(10403L, 2L, 
[15:32:15.664]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[15:32:15.664]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[15:32:15.664]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[15:32:15.664]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[15:32:15.664]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[15:32:15.664]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[15:32:15.664]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[15:32:15.664]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[15:32:15.664]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[15:32:15.664]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[15:32:15.664]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[15:32:15.664]                     -1512233174L, -1985955764L, -425390065L, 
[15:32:15.664]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[15:32:15.664]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[15:32:15.664]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[15:32:15.664]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[15:32:15.664]                     1818328109L, -1284085436L, -1981489558L, 
[15:32:15.664]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[15:32:15.664]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[15:32:15.664]                     -1718567047L, -793788661L, -1133789126L, 
[15:32:15.664]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[15:32:15.664]                     -1823521982L, -1345991523L, -1672661737L, 
[15:32:15.664]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[15:32:15.664]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[15:32:15.664]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[15:32:15.664]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[15:32:15.664]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[15:32:15.664]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[15:32:15.664]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[15:32:15.664]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[15:32:15.664]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[15:32:15.664]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[15:32:15.664]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[15:32:15.664]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[15:32:15.664]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[15:32:15.664]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[15:32:15.664]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[15:32:15.664]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[15:32:15.664]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[15:32:15.664]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[15:32:15.664]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[15:32:15.664]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[15:32:15.664]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[15:32:15.664]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[15:32:15.664]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[15:32:15.664]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[15:32:15.664]                     -1119334354L, -1521015416L, -2041922421L, 
[15:32:15.664]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[15:32:15.664]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[15:32:15.664]                     1232111981L, -1801753084L, -1608606422L, 
[15:32:15.664]                     -1172096363L, 1420874031L, -1210473418L, 
[15:32:15.664]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[15:32:15.664]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[15:32:15.664]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[15:32:15.664]                     679371266L, -591318819L, -104578089L, -172818754L, 
[15:32:15.664]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[15:32:15.664]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[15:32:15.664]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[15:32:15.664]                     -332493318L, -1978392251L, -1691039632L, 
[15:32:15.664]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[15:32:15.664]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[15:32:15.664]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[15:32:15.664]                     87560756L, -87565624L, 426345146L, -699970416L, 
[15:32:15.664]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[15:32:15.664]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[15:32:15.664]                     -1178330196L, -687617348L, -1701912078L, 
[15:32:15.664]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[15:32:15.664]                     -1345416048L, 1816730492L, -1570431212L, 
[15:32:15.664]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[15:32:15.664]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[15:32:15.664]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[15:32:15.664]                     -1493184262L, -1943836976L, -590788308L, 
[15:32:15.664]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[15:32:15.664]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[15:32:15.664]                     1274857340L, -1205842638L, -1938479504L, 
[15:32:15.664]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[15:32:15.664]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[15:32:15.664]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[15:32:15.664]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[15:32:15.664]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[15:32:15.664]                     -1460751252L, 1201879444L, -1459788718L, 
[15:32:15.664]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[15:32:15.664]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[15:32:15.664]                     -420945808L, -1997735900L, -1838404552L, 
[15:32:15.664]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[15:32:15.664]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[15:32:15.664]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[15:32:15.664]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[15:32:15.664]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[15:32:15.664]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[15:32:15.664]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[15:32:15.664]                     942193650L, 751741680L, 689743428L, -18455976L, 
[15:32:15.664]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[15:32:15.664]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[15:32:15.664]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[15:32:15.664]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[15:32:15.664]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[15:32:15.664]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[15:32:15.664]                     -1357570110L, 1896595240L, -2066952276L, 
[15:32:15.664]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[15:32:15.664]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[15:32:15.664]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[15:32:15.664]                     769655120L, 236357794L, 181393736L, -13334772L, 
[15:32:15.664]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[15:32:15.664]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[15:32:15.664]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[15:32:15.664]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[15:32:15.664]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[15:32:15.664]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[15:32:15.664]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[15:32:15.664]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[15:32:15.664]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[15:32:15.664]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[15:32:15.664]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[15:32:15.664]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[15:32:15.664]                     -1365842884L, -438961294L, -1851472272L, 
[15:32:15.664]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[15:32:15.664]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[15:32:15.664]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[15:32:15.664]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[15:32:15.664]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[15:32:15.664]                     -594809770L, -2146766621L, -2013964635L, 
[15:32:15.664]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[15:32:15.664]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[15:32:15.664]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[15:32:15.664]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[15:32:15.664]                     -1426021878L, -1285634264L, 1507547537L, 
[15:32:15.664]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[15:32:15.664]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[15:32:15.664]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[15:32:15.664]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[15:32:15.664]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[15:32:15.664]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[15:32:15.664]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[15:32:15.664]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[15:32:15.664]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[15:32:15.664]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[15:32:15.664]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[15:32:15.664]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[15:32:15.664]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[15:32:15.664]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[15:32:15.664]                     -1604604761L, 1421229008L, -1268333714L, 
[15:32:15.664]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[15:32:15.664]                     -2070476623L, -2099222749L, 1141171236L, 
[15:32:15.664]                     -146426158L, -1797385433L, -1129376399L, 
[15:32:15.664]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[15:32:15.664]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[15:32:15.664]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[15:32:15.664]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[15:32:15.664]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[15:32:15.664]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[15:32:15.664]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[15:32:15.664]                     -1092079724L, -1765622238L, -1882554057L, 
[15:32:15.664]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[15:32:15.664]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[15:32:15.664]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[15:32:15.664]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[15:32:15.664]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[15:32:15.664]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[15:32:15.664]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[15:32:15.664]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[15:32:15.664]                     865377681L, -1127426242L), envir = base::globalenv(), 
[15:32:15.664]                       inherits = FALSE)
[15:32:15.664]                     NULL
[15:32:15.664]                   }
[15:32:15.664]                   options(future.plan = NULL)
[15:32:15.664]                   if (is.na(NA_character_)) 
[15:32:15.664]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.664]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.664]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.664]                     .init = FALSE)
[15:32:15.664]                 }
[15:32:15.664]             }
[15:32:15.664]         }
[15:32:15.664]     })
[15:32:15.664]     if (TRUE) {
[15:32:15.664]         base::sink(type = "output", split = FALSE)
[15:32:15.664]         if (TRUE) {
[15:32:15.664]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.664]         }
[15:32:15.664]         else {
[15:32:15.664]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.664]         }
[15:32:15.664]         base::close(...future.stdout)
[15:32:15.664]         ...future.stdout <- NULL
[15:32:15.664]     }
[15:32:15.664]     ...future.result$conditions <- ...future.conditions
[15:32:15.664]     ...future.result$finished <- base::Sys.time()
[15:32:15.664]     ...future.result
[15:32:15.664] }
[15:32:15.672] assign_globals() ...
[15:32:15.672] List of 5
[15:32:15.672]  $ ...future.FUN            :function (...)  
[15:32:15.672]  $ future.call.arguments    : list()
[15:32:15.672]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.672]  $ ...future.elements_ii    :List of 5
[15:32:15.672]   ..$ : int 0
[15:32:15.672]   ..$ : int 0
[15:32:15.672]   ..$ : int 0
[15:32:15.672]   ..$ : int 0
[15:32:15.672]   ..$ : int 0
[15:32:15.672]  $ ...future.seeds_ii       :List of 5
[15:32:15.672]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[15:32:15.672]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[15:32:15.672]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[15:32:15.672]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[15:32:15.672]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[15:32:15.672]  $ ...future.globals.maxSize: NULL
[15:32:15.672]  - attr(*, "where")=List of 5
[15:32:15.672]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.672]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.672]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.672]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.672]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.672]  - attr(*, "resolved")= logi FALSE
[15:32:15.672]  - attr(*, "total_size")= num 616
[15:32:15.672]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.672]  - attr(*, "already-done")= logi TRUE
[15:32:15.687] - reassign environment for '...future.FUN'
[15:32:15.688] - copied '...future.FUN' to environment
[15:32:15.688] - copied 'future.call.arguments' to environment
[15:32:15.688] - copied '...future.elements_ii' to environment
[15:32:15.688] - copied '...future.seeds_ii' to environment
[15:32:15.689] - copied '...future.globals.maxSize' to environment
[15:32:15.689] assign_globals() ... done
[15:32:15.689] plan(): Setting new future strategy stack:
[15:32:15.690] List of future strategies:
[15:32:15.690] 1. sequential:
[15:32:15.690]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.690]    - tweaked: FALSE
[15:32:15.690]    - call: NULL
[15:32:15.691] plan(): nbrOfWorkers() = 1
[15:32:15.692] plan(): Setting new future strategy stack:
[15:32:15.693] List of future strategies:
[15:32:15.693] 1. sequential:
[15:32:15.693]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.693]    - tweaked: FALSE
[15:32:15.693]    - call: plan(strategy)
[15:32:15.694] plan(): nbrOfWorkers() = 1
[15:32:15.694] SequentialFuture started (and completed)
[15:32:15.694] - Launch lazy future ... done
[15:32:15.695] run() for 'SequentialFuture' ... done
[15:32:15.695] Created future:
[15:32:15.695] SequentialFuture:
[15:32:15.695] Label: 'future_replicate-1'
[15:32:15.695] Expression:
[15:32:15.695] {
[15:32:15.695]     do.call(function(...) {
[15:32:15.695]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.695]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.695]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.695]             on.exit(options(oopts), add = TRUE)
[15:32:15.695]         }
[15:32:15.695]         {
[15:32:15.695]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.695]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.695]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.695]                   envir = globalenv(), inherits = FALSE)
[15:32:15.695]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.695]             })
[15:32:15.695]         }
[15:32:15.695]     }, args = future.call.arguments)
[15:32:15.695] }
[15:32:15.695] Lazy evaluation: FALSE
[15:32:15.695] Asynchronous evaluation: FALSE
[15:32:15.695] Local evaluation: TRUE
[15:32:15.695] Environment: R_GlobalEnv
[15:32:15.695] Capture standard output: TRUE
[15:32:15.695] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.695] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:15.695] Packages: <none>
[15:32:15.695] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.695] Resolved: TRUE
[15:32:15.695] Value: 280 bytes of class 'list'
[15:32:15.695] Early signaling: FALSE
[15:32:15.695] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.695] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.697] Chunk #1 of 1 ... DONE
[15:32:15.697] Launching 1 futures (chunks) ... DONE
[15:32:15.698] Resolving 1 futures (chunks) ...
[15:32:15.698] resolve() on list ...
[15:32:15.698]  recursive: 0
[15:32:15.698]  length: 1
[15:32:15.699] 
[15:32:15.699] resolved() for 'SequentialFuture' ...
[15:32:15.699] - state: 'finished'
[15:32:15.699] - run: TRUE
[15:32:15.700] - result: 'FutureResult'
[15:32:15.700] resolved() for 'SequentialFuture' ... done
[15:32:15.700] Future #1
[15:32:15.701] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.701] - nx: 1
[15:32:15.701] - relay: TRUE
[15:32:15.701] - stdout: TRUE
[15:32:15.702] - signal: TRUE
[15:32:15.702] - resignal: FALSE
[15:32:15.702] - force: TRUE
[15:32:15.702] - relayed: [n=1] FALSE
[15:32:15.702] - queued futures: [n=1] FALSE
[15:32:15.703]  - until=1
[15:32:15.703]  - relaying element #1
[15:32:15.703] - relayed: [n=1] TRUE
[15:32:15.704] - queued futures: [n=1] TRUE
[15:32:15.704] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:15.704]  length: 0 (resolved future 1)
[15:32:15.704] Relaying remaining futures
[15:32:15.705] signalConditionsASAP(NULL, pos=0) ...
[15:32:15.705] - nx: 1
[15:32:15.705] - relay: TRUE
[15:32:15.705] - stdout: TRUE
[15:32:15.705] - signal: TRUE
[15:32:15.706] - resignal: FALSE
[15:32:15.706] - force: TRUE
[15:32:15.706] - relayed: [n=1] TRUE
[15:32:15.706] - queued futures: [n=1] TRUE
 - flush all
[15:32:15.707] - relayed: [n=1] TRUE
[15:32:15.707] - queued futures: [n=1] TRUE
[15:32:15.707] signalConditionsASAP(NULL, pos=0) ... done
[15:32:15.707] resolve() on list ... DONE
[15:32:15.708]  - Number of value chunks collected: 1
[15:32:15.708] Resolving 1 futures (chunks) ... DONE
[15:32:15.708] Reducing values from 1 chunks ...
[15:32:15.708]  - Number of values collected after concatenation: 5
[15:32:15.709]  - Number of values expected: 5
[15:32:15.709] Reducing values from 1 chunks ... DONE
[15:32:15.709] future_lapply() ... DONE
[15:32:15.710] future_lapply() ...
[15:32:15.711] Generating random seeds ...
[15:32:15.711] Generating random seed streams for 5 elements ...
[15:32:15.712] Generating random seed streams for 5 elements ... DONE
[15:32:15.712] Generating random seeds ... DONE
[15:32:15.712] Will set RNG state on exit: 10403, 4, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:15.713] Number of chunks: 1
[15:32:15.714] getGlobalsAndPackagesXApply() ...
[15:32:15.714]  - future.globals: TRUE
[15:32:15.714] getGlobalsAndPackages() ...
[15:32:15.714] Searching for globals...
[15:32:15.716] - globals found: [2] 'FUN', 'sample'
[15:32:15.717] Searching for globals ... DONE
[15:32:15.717] Resolving globals: FALSE
[15:32:15.717] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:15.718] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:15.718] - globals: [1] 'FUN'
[15:32:15.719] 
[15:32:15.719] getGlobalsAndPackages() ... DONE
[15:32:15.719]  - globals found/used: [n=1] 'FUN'
[15:32:15.719]  - needed namespaces: [n=0] 
[15:32:15.720] Finding globals ... DONE
[15:32:15.720]  - use_args: TRUE
[15:32:15.720]  - Getting '...' globals ...
[15:32:15.721] resolve() on list ...
[15:32:15.723]  recursive: 0
[15:32:15.724]  length: 1
[15:32:15.724]  elements: '...'
[15:32:15.724]  length: 0 (resolved future 1)
[15:32:15.725] resolve() on list ... DONE
[15:32:15.725]    - '...' content: [n=0] 
[15:32:15.725] List of 1
[15:32:15.725]  $ ...: list()
[15:32:15.725]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.725]  - attr(*, "where")=List of 1
[15:32:15.725]   ..$ ...:<environment: 0x000002abb40ab920> 
[15:32:15.725]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.725]  - attr(*, "resolved")= logi TRUE
[15:32:15.725]  - attr(*, "total_size")= num NA
[15:32:15.729]  - Getting '...' globals ... DONE
[15:32:15.730] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:15.730] List of 2
[15:32:15.730]  $ ...future.FUN:function (...)  
[15:32:15.730]  $ ...          : list()
[15:32:15.730]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.730]  - attr(*, "where")=List of 2
[15:32:15.730]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.730]   ..$ ...          :<environment: 0x000002abb40ab920> 
[15:32:15.730]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.730]  - attr(*, "resolved")= logi FALSE
[15:32:15.730]  - attr(*, "total_size")= num 616
[15:32:15.735] Packages to be attached in all futures: [n=0] 
[15:32:15.735] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.736] Number of futures (= number of chunks): 1
[15:32:15.736] Launching 1 futures (chunks) ...
[15:32:15.736] Chunk #1 of 1 ...
[15:32:15.736]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.737] getGlobalsAndPackages() ...
[15:32:15.737] Searching for globals...
[15:32:15.737] 
[15:32:15.738] Searching for globals ... DONE
[15:32:15.738] - globals: [0] <none>
[15:32:15.738] getGlobalsAndPackages() ... DONE
[15:32:15.738]    + additional globals found: [n=0] 
[15:32:15.739]    + additional namespaces needed: [n=0] 
[15:32:15.739]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.739]  - seeds: [5] <seeds>
[15:32:15.740]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.740] getGlobalsAndPackages() ...
[15:32:15.740] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.740] Resolving globals: FALSE
[15:32:15.741] Tweak future expression to call with '...' arguments ...
[15:32:15.741] {
[15:32:15.741]     do.call(function(...) {
[15:32:15.741]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.741]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.741]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.741]             on.exit(options(oopts), add = TRUE)
[15:32:15.741]         }
[15:32:15.741]         {
[15:32:15.741]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.741]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.741]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.741]                   envir = globalenv(), inherits = FALSE)
[15:32:15.741]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.741]             })
[15:32:15.741]         }
[15:32:15.741]     }, args = future.call.arguments)
[15:32:15.741] }
[15:32:15.742] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.742] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.743] 
[15:32:15.743] getGlobalsAndPackages() ... DONE
[15:32:15.744] run() for 'Future' ...
[15:32:15.744] - state: 'created'
[15:32:15.744] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.745] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.745] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.745]   - Field: 'label'
[15:32:15.746]   - Field: 'local'
[15:32:15.746]   - Field: 'owner'
[15:32:15.746]   - Field: 'envir'
[15:32:15.746]   - Field: 'packages'
[15:32:15.747]   - Field: 'gc'
[15:32:15.747]   - Field: 'conditions'
[15:32:15.747]   - Field: 'expr'
[15:32:15.747]   - Field: 'uuid'
[15:32:15.748]   - Field: 'seed'
[15:32:15.748]   - Field: 'version'
[15:32:15.748]   - Field: 'result'
[15:32:15.748]   - Field: 'asynchronous'
[15:32:15.749]   - Field: 'calls'
[15:32:15.749]   - Field: 'globals'
[15:32:15.749]   - Field: 'stdout'
[15:32:15.749]   - Field: 'earlySignal'
[15:32:15.750]   - Field: 'lazy'
[15:32:15.750]   - Field: 'state'
[15:32:15.750] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.751] - Launch lazy future ...
[15:32:15.751] Packages needed by the future expression (n = 0): <none>
[15:32:15.751] Packages needed by future strategies (n = 0): <none>
[15:32:15.752] {
[15:32:15.752]     {
[15:32:15.752]         {
[15:32:15.752]             ...future.startTime <- base::Sys.time()
[15:32:15.752]             {
[15:32:15.752]                 {
[15:32:15.752]                   {
[15:32:15.752]                     base::local({
[15:32:15.752]                       has_future <- base::requireNamespace("future", 
[15:32:15.752]                         quietly = TRUE)
[15:32:15.752]                       if (has_future) {
[15:32:15.752]                         ns <- base::getNamespace("future")
[15:32:15.752]                         version <- ns[[".package"]][["version"]]
[15:32:15.752]                         if (is.null(version)) 
[15:32:15.752]                           version <- utils::packageVersion("future")
[15:32:15.752]                       }
[15:32:15.752]                       else {
[15:32:15.752]                         version <- NULL
[15:32:15.752]                       }
[15:32:15.752]                       if (!has_future || version < "1.8.0") {
[15:32:15.752]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.752]                           "", base::R.version$version.string), 
[15:32:15.752]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.752]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.752]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.752]                             "release", "version")], collapse = " "), 
[15:32:15.752]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.752]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.752]                           info)
[15:32:15.752]                         info <- base::paste(info, collapse = "; ")
[15:32:15.752]                         if (!has_future) {
[15:32:15.752]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.752]                             info)
[15:32:15.752]                         }
[15:32:15.752]                         else {
[15:32:15.752]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.752]                             info, version)
[15:32:15.752]                         }
[15:32:15.752]                         base::stop(msg)
[15:32:15.752]                       }
[15:32:15.752]                     })
[15:32:15.752]                   }
[15:32:15.752]                   ...future.strategy.old <- future::plan("list")
[15:32:15.752]                   options(future.plan = NULL)
[15:32:15.752]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.752]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.752]                 }
[15:32:15.752]                 ...future.workdir <- getwd()
[15:32:15.752]             }
[15:32:15.752]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.752]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.752]         }
[15:32:15.752]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.752]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.752]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.752]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.752]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.752]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.752]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.752]             base::names(...future.oldOptions))
[15:32:15.752]     }
[15:32:15.752]     if (FALSE) {
[15:32:15.752]     }
[15:32:15.752]     else {
[15:32:15.752]         if (TRUE) {
[15:32:15.752]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.752]                 open = "w")
[15:32:15.752]         }
[15:32:15.752]         else {
[15:32:15.752]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.752]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.752]         }
[15:32:15.752]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.752]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.752]             base::sink(type = "output", split = FALSE)
[15:32:15.752]             base::close(...future.stdout)
[15:32:15.752]         }, add = TRUE)
[15:32:15.752]     }
[15:32:15.752]     ...future.frame <- base::sys.nframe()
[15:32:15.752]     ...future.conditions <- base::list()
[15:32:15.752]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.752]     if (FALSE) {
[15:32:15.752]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.752]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.752]     }
[15:32:15.752]     ...future.result <- base::tryCatch({
[15:32:15.752]         base::withCallingHandlers({
[15:32:15.752]             ...future.value <- base::withVisible(base::local({
[15:32:15.752]                 do.call(function(...) {
[15:32:15.752]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.752]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.752]                     ...future.globals.maxSize)) {
[15:32:15.752]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.752]                     on.exit(options(oopts), add = TRUE)
[15:32:15.752]                   }
[15:32:15.752]                   {
[15:32:15.752]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.752]                       FUN = function(jj) {
[15:32:15.752]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.752]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.752]                           envir = globalenv(), inherits = FALSE)
[15:32:15.752]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.752]                       })
[15:32:15.752]                   }
[15:32:15.752]                 }, args = future.call.arguments)
[15:32:15.752]             }))
[15:32:15.752]             future::FutureResult(value = ...future.value$value, 
[15:32:15.752]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.752]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.752]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.752]                     ...future.globalenv.names))
[15:32:15.752]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.752]         }, condition = base::local({
[15:32:15.752]             c <- base::c
[15:32:15.752]             inherits <- base::inherits
[15:32:15.752]             invokeRestart <- base::invokeRestart
[15:32:15.752]             length <- base::length
[15:32:15.752]             list <- base::list
[15:32:15.752]             seq.int <- base::seq.int
[15:32:15.752]             signalCondition <- base::signalCondition
[15:32:15.752]             sys.calls <- base::sys.calls
[15:32:15.752]             `[[` <- base::`[[`
[15:32:15.752]             `+` <- base::`+`
[15:32:15.752]             `<<-` <- base::`<<-`
[15:32:15.752]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.752]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.752]                   3L)]
[15:32:15.752]             }
[15:32:15.752]             function(cond) {
[15:32:15.752]                 is_error <- inherits(cond, "error")
[15:32:15.752]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.752]                   NULL)
[15:32:15.752]                 if (is_error) {
[15:32:15.752]                   sessionInformation <- function() {
[15:32:15.752]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.752]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.752]                       search = base::search(), system = base::Sys.info())
[15:32:15.752]                   }
[15:32:15.752]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.752]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.752]                     cond$call), session = sessionInformation(), 
[15:32:15.752]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.752]                   signalCondition(cond)
[15:32:15.752]                 }
[15:32:15.752]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.752]                 "immediateCondition"))) {
[15:32:15.752]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.752]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.752]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.752]                   if (TRUE && !signal) {
[15:32:15.752]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.752]                     {
[15:32:15.752]                       inherits <- base::inherits
[15:32:15.752]                       invokeRestart <- base::invokeRestart
[15:32:15.752]                       is.null <- base::is.null
[15:32:15.752]                       muffled <- FALSE
[15:32:15.752]                       if (inherits(cond, "message")) {
[15:32:15.752]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.752]                         if (muffled) 
[15:32:15.752]                           invokeRestart("muffleMessage")
[15:32:15.752]                       }
[15:32:15.752]                       else if (inherits(cond, "warning")) {
[15:32:15.752]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.752]                         if (muffled) 
[15:32:15.752]                           invokeRestart("muffleWarning")
[15:32:15.752]                       }
[15:32:15.752]                       else if (inherits(cond, "condition")) {
[15:32:15.752]                         if (!is.null(pattern)) {
[15:32:15.752]                           computeRestarts <- base::computeRestarts
[15:32:15.752]                           grepl <- base::grepl
[15:32:15.752]                           restarts <- computeRestarts(cond)
[15:32:15.752]                           for (restart in restarts) {
[15:32:15.752]                             name <- restart$name
[15:32:15.752]                             if (is.null(name)) 
[15:32:15.752]                               next
[15:32:15.752]                             if (!grepl(pattern, name)) 
[15:32:15.752]                               next
[15:32:15.752]                             invokeRestart(restart)
[15:32:15.752]                             muffled <- TRUE
[15:32:15.752]                             break
[15:32:15.752]                           }
[15:32:15.752]                         }
[15:32:15.752]                       }
[15:32:15.752]                       invisible(muffled)
[15:32:15.752]                     }
[15:32:15.752]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.752]                   }
[15:32:15.752]                 }
[15:32:15.752]                 else {
[15:32:15.752]                   if (TRUE) {
[15:32:15.752]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.752]                     {
[15:32:15.752]                       inherits <- base::inherits
[15:32:15.752]                       invokeRestart <- base::invokeRestart
[15:32:15.752]                       is.null <- base::is.null
[15:32:15.752]                       muffled <- FALSE
[15:32:15.752]                       if (inherits(cond, "message")) {
[15:32:15.752]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.752]                         if (muffled) 
[15:32:15.752]                           invokeRestart("muffleMessage")
[15:32:15.752]                       }
[15:32:15.752]                       else if (inherits(cond, "warning")) {
[15:32:15.752]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.752]                         if (muffled) 
[15:32:15.752]                           invokeRestart("muffleWarning")
[15:32:15.752]                       }
[15:32:15.752]                       else if (inherits(cond, "condition")) {
[15:32:15.752]                         if (!is.null(pattern)) {
[15:32:15.752]                           computeRestarts <- base::computeRestarts
[15:32:15.752]                           grepl <- base::grepl
[15:32:15.752]                           restarts <- computeRestarts(cond)
[15:32:15.752]                           for (restart in restarts) {
[15:32:15.752]                             name <- restart$name
[15:32:15.752]                             if (is.null(name)) 
[15:32:15.752]                               next
[15:32:15.752]                             if (!grepl(pattern, name)) 
[15:32:15.752]                               next
[15:32:15.752]                             invokeRestart(restart)
[15:32:15.752]                             muffled <- TRUE
[15:32:15.752]                             break
[15:32:15.752]                           }
[15:32:15.752]                         }
[15:32:15.752]                       }
[15:32:15.752]                       invisible(muffled)
[15:32:15.752]                     }
[15:32:15.752]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.752]                   }
[15:32:15.752]                 }
[15:32:15.752]             }
[15:32:15.752]         }))
[15:32:15.752]     }, error = function(ex) {
[15:32:15.752]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.752]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.752]                 ...future.rng), started = ...future.startTime, 
[15:32:15.752]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.752]             version = "1.8"), class = "FutureResult")
[15:32:15.752]     }, finally = {
[15:32:15.752]         if (!identical(...future.workdir, getwd())) 
[15:32:15.752]             setwd(...future.workdir)
[15:32:15.752]         {
[15:32:15.752]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.752]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.752]             }
[15:32:15.752]             base::options(...future.oldOptions)
[15:32:15.752]             if (.Platform$OS.type == "windows") {
[15:32:15.752]                 old_names <- names(...future.oldEnvVars)
[15:32:15.752]                 envs <- base::Sys.getenv()
[15:32:15.752]                 names <- names(envs)
[15:32:15.752]                 common <- intersect(names, old_names)
[15:32:15.752]                 added <- setdiff(names, old_names)
[15:32:15.752]                 removed <- setdiff(old_names, names)
[15:32:15.752]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.752]                   envs[common]]
[15:32:15.752]                 NAMES <- toupper(changed)
[15:32:15.752]                 args <- list()
[15:32:15.752]                 for (kk in seq_along(NAMES)) {
[15:32:15.752]                   name <- changed[[kk]]
[15:32:15.752]                   NAME <- NAMES[[kk]]
[15:32:15.752]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.752]                     next
[15:32:15.752]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.752]                 }
[15:32:15.752]                 NAMES <- toupper(added)
[15:32:15.752]                 for (kk in seq_along(NAMES)) {
[15:32:15.752]                   name <- added[[kk]]
[15:32:15.752]                   NAME <- NAMES[[kk]]
[15:32:15.752]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.752]                     next
[15:32:15.752]                   args[[name]] <- ""
[15:32:15.752]                 }
[15:32:15.752]                 NAMES <- toupper(removed)
[15:32:15.752]                 for (kk in seq_along(NAMES)) {
[15:32:15.752]                   name <- removed[[kk]]
[15:32:15.752]                   NAME <- NAMES[[kk]]
[15:32:15.752]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.752]                     next
[15:32:15.752]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.752]                 }
[15:32:15.752]                 if (length(args) > 0) 
[15:32:15.752]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.752]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.752]             }
[15:32:15.752]             else {
[15:32:15.752]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.752]             }
[15:32:15.752]             {
[15:32:15.752]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.752]                   0L) {
[15:32:15.752]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.752]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.752]                   base::options(opts)
[15:32:15.752]                 }
[15:32:15.752]                 {
[15:32:15.752]                   {
[15:32:15.752]                     base::assign(".Random.seed", c(10403L, 4L, 
[15:32:15.752]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[15:32:15.752]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[15:32:15.752]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[15:32:15.752]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[15:32:15.752]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[15:32:15.752]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[15:32:15.752]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[15:32:15.752]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[15:32:15.752]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[15:32:15.752]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[15:32:15.752]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[15:32:15.752]                     -1512233174L, -1985955764L, -425390065L, 
[15:32:15.752]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[15:32:15.752]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[15:32:15.752]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[15:32:15.752]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[15:32:15.752]                     1818328109L, -1284085436L, -1981489558L, 
[15:32:15.752]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[15:32:15.752]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[15:32:15.752]                     -1718567047L, -793788661L, -1133789126L, 
[15:32:15.752]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[15:32:15.752]                     -1823521982L, -1345991523L, -1672661737L, 
[15:32:15.752]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[15:32:15.752]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[15:32:15.752]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[15:32:15.752]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[15:32:15.752]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[15:32:15.752]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[15:32:15.752]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[15:32:15.752]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[15:32:15.752]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[15:32:15.752]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[15:32:15.752]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[15:32:15.752]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[15:32:15.752]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[15:32:15.752]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[15:32:15.752]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[15:32:15.752]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[15:32:15.752]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[15:32:15.752]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[15:32:15.752]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[15:32:15.752]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[15:32:15.752]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[15:32:15.752]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[15:32:15.752]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[15:32:15.752]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[15:32:15.752]                     -1119334354L, -1521015416L, -2041922421L, 
[15:32:15.752]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[15:32:15.752]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[15:32:15.752]                     1232111981L, -1801753084L, -1608606422L, 
[15:32:15.752]                     -1172096363L, 1420874031L, -1210473418L, 
[15:32:15.752]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[15:32:15.752]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[15:32:15.752]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[15:32:15.752]                     679371266L, -591318819L, -104578089L, -172818754L, 
[15:32:15.752]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[15:32:15.752]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[15:32:15.752]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[15:32:15.752]                     -332493318L, -1978392251L, -1691039632L, 
[15:32:15.752]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[15:32:15.752]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[15:32:15.752]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[15:32:15.752]                     87560756L, -87565624L, 426345146L, -699970416L, 
[15:32:15.752]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[15:32:15.752]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[15:32:15.752]                     -1178330196L, -687617348L, -1701912078L, 
[15:32:15.752]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[15:32:15.752]                     -1345416048L, 1816730492L, -1570431212L, 
[15:32:15.752]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[15:32:15.752]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[15:32:15.752]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[15:32:15.752]                     -1493184262L, -1943836976L, -590788308L, 
[15:32:15.752]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[15:32:15.752]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[15:32:15.752]                     1274857340L, -1205842638L, -1938479504L, 
[15:32:15.752]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[15:32:15.752]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[15:32:15.752]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[15:32:15.752]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[15:32:15.752]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[15:32:15.752]                     -1460751252L, 1201879444L, -1459788718L, 
[15:32:15.752]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[15:32:15.752]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[15:32:15.752]                     -420945808L, -1997735900L, -1838404552L, 
[15:32:15.752]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[15:32:15.752]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[15:32:15.752]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[15:32:15.752]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[15:32:15.752]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[15:32:15.752]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[15:32:15.752]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[15:32:15.752]                     942193650L, 751741680L, 689743428L, -18455976L, 
[15:32:15.752]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[15:32:15.752]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[15:32:15.752]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[15:32:15.752]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[15:32:15.752]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[15:32:15.752]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[15:32:15.752]                     -1357570110L, 1896595240L, -2066952276L, 
[15:32:15.752]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[15:32:15.752]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[15:32:15.752]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[15:32:15.752]                     769655120L, 236357794L, 181393736L, -13334772L, 
[15:32:15.752]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[15:32:15.752]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[15:32:15.752]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[15:32:15.752]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[15:32:15.752]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[15:32:15.752]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[15:32:15.752]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[15:32:15.752]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[15:32:15.752]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[15:32:15.752]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[15:32:15.752]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[15:32:15.752]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[15:32:15.752]                     -1365842884L, -438961294L, -1851472272L, 
[15:32:15.752]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[15:32:15.752]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[15:32:15.752]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[15:32:15.752]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[15:32:15.752]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[15:32:15.752]                     -594809770L, -2146766621L, -2013964635L, 
[15:32:15.752]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[15:32:15.752]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[15:32:15.752]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[15:32:15.752]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[15:32:15.752]                     -1426021878L, -1285634264L, 1507547537L, 
[15:32:15.752]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[15:32:15.752]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[15:32:15.752]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[15:32:15.752]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[15:32:15.752]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[15:32:15.752]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[15:32:15.752]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[15:32:15.752]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[15:32:15.752]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[15:32:15.752]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[15:32:15.752]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[15:32:15.752]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[15:32:15.752]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[15:32:15.752]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[15:32:15.752]                     -1604604761L, 1421229008L, -1268333714L, 
[15:32:15.752]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[15:32:15.752]                     -2070476623L, -2099222749L, 1141171236L, 
[15:32:15.752]                     -146426158L, -1797385433L, -1129376399L, 
[15:32:15.752]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[15:32:15.752]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[15:32:15.752]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[15:32:15.752]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[15:32:15.752]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[15:32:15.752]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[15:32:15.752]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[15:32:15.752]                     -1092079724L, -1765622238L, -1882554057L, 
[15:32:15.752]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[15:32:15.752]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[15:32:15.752]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[15:32:15.752]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[15:32:15.752]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[15:32:15.752]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[15:32:15.752]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[15:32:15.752]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[15:32:15.752]                     865377681L, -1127426242L), envir = base::globalenv(), 
[15:32:15.752]                       inherits = FALSE)
[15:32:15.752]                     NULL
[15:32:15.752]                   }
[15:32:15.752]                   options(future.plan = NULL)
[15:32:15.752]                   if (is.na(NA_character_)) 
[15:32:15.752]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.752]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.752]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.752]                     .init = FALSE)
[15:32:15.752]                 }
[15:32:15.752]             }
[15:32:15.752]         }
[15:32:15.752]     })
[15:32:15.752]     if (TRUE) {
[15:32:15.752]         base::sink(type = "output", split = FALSE)
[15:32:15.752]         if (TRUE) {
[15:32:15.752]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.752]         }
[15:32:15.752]         else {
[15:32:15.752]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.752]         }
[15:32:15.752]         base::close(...future.stdout)
[15:32:15.752]         ...future.stdout <- NULL
[15:32:15.752]     }
[15:32:15.752]     ...future.result$conditions <- ...future.conditions
[15:32:15.752]     ...future.result$finished <- base::Sys.time()
[15:32:15.752]     ...future.result
[15:32:15.752] }
[15:32:15.761] assign_globals() ...
[15:32:15.761] List of 5
[15:32:15.761]  $ ...future.FUN            :function (...)  
[15:32:15.761]  $ future.call.arguments    : list()
[15:32:15.761]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.761]  $ ...future.elements_ii    :List of 5
[15:32:15.761]   ..$ : int 0
[15:32:15.761]   ..$ : int 0
[15:32:15.761]   ..$ : int 0
[15:32:15.761]   ..$ : int 0
[15:32:15.761]   ..$ : int 0
[15:32:15.761]  $ ...future.seeds_ii       :List of 5
[15:32:15.761]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[15:32:15.761]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[15:32:15.761]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[15:32:15.761]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[15:32:15.761]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[15:32:15.761]  $ ...future.globals.maxSize: NULL
[15:32:15.761]  - attr(*, "where")=List of 5
[15:32:15.761]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.761]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.761]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.761]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.761]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.761]  - attr(*, "resolved")= logi FALSE
[15:32:15.761]  - attr(*, "total_size")= num 616
[15:32:15.761]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.761]  - attr(*, "already-done")= logi TRUE
[15:32:15.779] - reassign environment for '...future.FUN'
[15:32:15.779] - copied '...future.FUN' to environment
[15:32:15.779] - copied 'future.call.arguments' to environment
[15:32:15.780] - copied '...future.elements_ii' to environment
[15:32:15.780] - copied '...future.seeds_ii' to environment
[15:32:15.780] - copied '...future.globals.maxSize' to environment
[15:32:15.780] assign_globals() ... done
[15:32:15.781] plan(): Setting new future strategy stack:
[15:32:15.781] List of future strategies:
[15:32:15.781] 1. sequential:
[15:32:15.781]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.781]    - tweaked: FALSE
[15:32:15.781]    - call: NULL
[15:32:15.782] plan(): nbrOfWorkers() = 1
[15:32:15.784] plan(): Setting new future strategy stack:
[15:32:15.785] List of future strategies:
[15:32:15.785] 1. sequential:
[15:32:15.785]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.785]    - tweaked: FALSE
[15:32:15.785]    - call: plan(strategy)
[15:32:15.786] plan(): nbrOfWorkers() = 1
[15:32:15.786] SequentialFuture started (and completed)
[15:32:15.786] - Launch lazy future ... done
[15:32:15.787] run() for 'SequentialFuture' ... done
[15:32:15.787] Created future:
[15:32:15.787] SequentialFuture:
[15:32:15.787] Label: 'future_replicate-1'
[15:32:15.787] Expression:
[15:32:15.787] {
[15:32:15.787]     do.call(function(...) {
[15:32:15.787]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.787]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.787]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.787]             on.exit(options(oopts), add = TRUE)
[15:32:15.787]         }
[15:32:15.787]         {
[15:32:15.787]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.787]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.787]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.787]                   envir = globalenv(), inherits = FALSE)
[15:32:15.787]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.787]             })
[15:32:15.787]         }
[15:32:15.787]     }, args = future.call.arguments)
[15:32:15.787] }
[15:32:15.787] Lazy evaluation: FALSE
[15:32:15.787] Asynchronous evaluation: FALSE
[15:32:15.787] Local evaluation: TRUE
[15:32:15.787] Environment: R_GlobalEnv
[15:32:15.787] Capture standard output: TRUE
[15:32:15.787] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.787] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:15.787] Packages: <none>
[15:32:15.787] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.787] Resolved: TRUE
[15:32:15.787] Value: 280 bytes of class 'list'
[15:32:15.787] Early signaling: FALSE
[15:32:15.787] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.787] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.789] Chunk #1 of 1 ... DONE
[15:32:15.790] Launching 1 futures (chunks) ... DONE
[15:32:15.790] Resolving 1 futures (chunks) ...
[15:32:15.790] resolve() on list ...
[15:32:15.791]  recursive: 0
[15:32:15.791]  length: 1
[15:32:15.791] 
[15:32:15.791] resolved() for 'SequentialFuture' ...
[15:32:15.792] - state: 'finished'
[15:32:15.792] - run: TRUE
[15:32:15.792] - result: 'FutureResult'
[15:32:15.793] resolved() for 'SequentialFuture' ... done
[15:32:15.793] Future #1
[15:32:15.793] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.794] - nx: 1
[15:32:15.794] - relay: TRUE
[15:32:15.794] - stdout: TRUE
[15:32:15.794] - signal: TRUE
[15:32:15.794] - resignal: FALSE
[15:32:15.795] - force: TRUE
[15:32:15.795] - relayed: [n=1] FALSE
[15:32:15.795] - queued futures: [n=1] FALSE
[15:32:15.796]  - until=1
[15:32:15.796]  - relaying element #1
[15:32:15.796] - relayed: [n=1] TRUE
[15:32:15.797] - queued futures: [n=1] TRUE
[15:32:15.797] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:15.797]  length: 0 (resolved future 1)
[15:32:15.797] Relaying remaining futures
[15:32:15.798] signalConditionsASAP(NULL, pos=0) ...
[15:32:15.798] - nx: 1
[15:32:15.798] - relay: TRUE
[15:32:15.798] - stdout: TRUE
[15:32:15.799] - signal: TRUE
[15:32:15.799] - resignal: FALSE
[15:32:15.799] - force: TRUE
[15:32:15.799] - relayed: [n=1] TRUE
[15:32:15.800] - queued futures: [n=1] TRUE
 - flush all
[15:32:15.800] - relayed: [n=1] TRUE
[15:32:15.800] - queued futures: [n=1] TRUE
[15:32:15.801] signalConditionsASAP(NULL, pos=0) ... done
[15:32:15.801] resolve() on list ... DONE
[15:32:15.801]  - Number of value chunks collected: 1
[15:32:15.801] Resolving 1 futures (chunks) ... DONE
[15:32:15.802] Reducing values from 1 chunks ...
[15:32:15.802]  - Number of values collected after concatenation: 5
[15:32:15.802]  - Number of values expected: 5
[15:32:15.803] Reducing values from 1 chunks ... DONE
[15:32:15.803] future_lapply() ... DONE
[15:32:15.803] future_lapply() ...
[15:32:15.804] Generating random seeds ...
[15:32:15.804] Generating random seed streams for 5 elements ...
[15:32:15.805] Generating random seed streams for 5 elements ... DONE
[15:32:15.805] Generating random seeds ... DONE
[15:32:15.805] Will set RNG state on exit: 10403, 6, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:15.807] Number of chunks: 1
[15:32:15.807] getGlobalsAndPackagesXApply() ...
[15:32:15.807]  - future.globals: TRUE
[15:32:15.807] getGlobalsAndPackages() ...
[15:32:15.808] Searching for globals...
[15:32:15.810] - globals found: [2] 'FUN', 'sample'
[15:32:15.810] Searching for globals ... DONE
[15:32:15.810] Resolving globals: FALSE
[15:32:15.811] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:15.812] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:15.812] - globals: [1] 'FUN'
[15:32:15.812] 
[15:32:15.813] getGlobalsAndPackages() ... DONE
[15:32:15.813]  - globals found/used: [n=1] 'FUN'
[15:32:15.813]  - needed namespaces: [n=0] 
[15:32:15.813] Finding globals ... DONE
[15:32:15.814]  - use_args: TRUE
[15:32:15.814]  - Getting '...' globals ...
[15:32:15.817] resolve() on list ...
[15:32:15.817]  recursive: 0
[15:32:15.818]  length: 1
[15:32:15.818]  elements: '...'
[15:32:15.818]  length: 0 (resolved future 1)
[15:32:15.818] resolve() on list ... DONE
[15:32:15.819]    - '...' content: [n=0] 
[15:32:15.819] List of 1
[15:32:15.819]  $ ...: list()
[15:32:15.819]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.819]  - attr(*, "where")=List of 1
[15:32:15.819]   ..$ ...:<environment: 0x000002abb40aa730> 
[15:32:15.819]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.819]  - attr(*, "resolved")= logi TRUE
[15:32:15.819]  - attr(*, "total_size")= num NA
[15:32:15.823]  - Getting '...' globals ... DONE
[15:32:15.824] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:15.824] List of 2
[15:32:15.824]  $ ...future.FUN:function (...)  
[15:32:15.824]  $ ...          : list()
[15:32:15.824]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.824]  - attr(*, "where")=List of 2
[15:32:15.824]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.824]   ..$ ...          :<environment: 0x000002abb40aa730> 
[15:32:15.824]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.824]  - attr(*, "resolved")= logi FALSE
[15:32:15.824]  - attr(*, "total_size")= num 616
[15:32:15.829] Packages to be attached in all futures: [n=0] 
[15:32:15.829] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.830] Number of futures (= number of chunks): 1
[15:32:15.830] Launching 1 futures (chunks) ...
[15:32:15.830] Chunk #1 of 1 ...
[15:32:15.831]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.831] getGlobalsAndPackages() ...
[15:32:15.831] Searching for globals...
[15:32:15.832] 
[15:32:15.832] Searching for globals ... DONE
[15:32:15.832] - globals: [0] <none>
[15:32:15.832] getGlobalsAndPackages() ... DONE
[15:32:15.833]    + additional globals found: [n=0] 
[15:32:15.833]    + additional namespaces needed: [n=0] 
[15:32:15.833]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.834]  - seeds: [5] <seeds>
[15:32:15.834]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.834] getGlobalsAndPackages() ...
[15:32:15.834] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.835] Resolving globals: FALSE
[15:32:15.835] Tweak future expression to call with '...' arguments ...
[15:32:15.835] {
[15:32:15.835]     do.call(function(...) {
[15:32:15.835]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.835]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.835]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.835]             on.exit(options(oopts), add = TRUE)
[15:32:15.835]         }
[15:32:15.835]         {
[15:32:15.835]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.835]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.835]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.835]                   envir = globalenv(), inherits = FALSE)
[15:32:15.835]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.835]             })
[15:32:15.835]         }
[15:32:15.835]     }, args = future.call.arguments)
[15:32:15.835] }
[15:32:15.836] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.837] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.837] 
[15:32:15.837] getGlobalsAndPackages() ... DONE
[15:32:15.838] run() for 'Future' ...
[15:32:15.838] - state: 'created'
[15:32:15.839] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.839] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.840] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.840]   - Field: 'label'
[15:32:15.840]   - Field: 'local'
[15:32:15.841]   - Field: 'owner'
[15:32:15.841]   - Field: 'envir'
[15:32:15.841]   - Field: 'packages'
[15:32:15.842]   - Field: 'gc'
[15:32:15.842]   - Field: 'conditions'
[15:32:15.842]   - Field: 'expr'
[15:32:15.842]   - Field: 'uuid'
[15:32:15.843]   - Field: 'seed'
[15:32:15.843]   - Field: 'version'
[15:32:15.843]   - Field: 'result'
[15:32:15.844]   - Field: 'asynchronous'
[15:32:15.844]   - Field: 'calls'
[15:32:15.844]   - Field: 'globals'
[15:32:15.844]   - Field: 'stdout'
[15:32:15.845]   - Field: 'earlySignal'
[15:32:15.845]   - Field: 'lazy'
[15:32:15.845]   - Field: 'state'
[15:32:15.846] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.846] - Launch lazy future ...
[15:32:15.846] Packages needed by the future expression (n = 0): <none>
[15:32:15.847] Packages needed by future strategies (n = 0): <none>
[15:32:15.848] {
[15:32:15.848]     {
[15:32:15.848]         {
[15:32:15.848]             ...future.startTime <- base::Sys.time()
[15:32:15.848]             {
[15:32:15.848]                 {
[15:32:15.848]                   {
[15:32:15.848]                     base::local({
[15:32:15.848]                       has_future <- base::requireNamespace("future", 
[15:32:15.848]                         quietly = TRUE)
[15:32:15.848]                       if (has_future) {
[15:32:15.848]                         ns <- base::getNamespace("future")
[15:32:15.848]                         version <- ns[[".package"]][["version"]]
[15:32:15.848]                         if (is.null(version)) 
[15:32:15.848]                           version <- utils::packageVersion("future")
[15:32:15.848]                       }
[15:32:15.848]                       else {
[15:32:15.848]                         version <- NULL
[15:32:15.848]                       }
[15:32:15.848]                       if (!has_future || version < "1.8.0") {
[15:32:15.848]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.848]                           "", base::R.version$version.string), 
[15:32:15.848]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.848]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.848]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.848]                             "release", "version")], collapse = " "), 
[15:32:15.848]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.848]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.848]                           info)
[15:32:15.848]                         info <- base::paste(info, collapse = "; ")
[15:32:15.848]                         if (!has_future) {
[15:32:15.848]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.848]                             info)
[15:32:15.848]                         }
[15:32:15.848]                         else {
[15:32:15.848]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.848]                             info, version)
[15:32:15.848]                         }
[15:32:15.848]                         base::stop(msg)
[15:32:15.848]                       }
[15:32:15.848]                     })
[15:32:15.848]                   }
[15:32:15.848]                   ...future.strategy.old <- future::plan("list")
[15:32:15.848]                   options(future.plan = NULL)
[15:32:15.848]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.848]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.848]                 }
[15:32:15.848]                 ...future.workdir <- getwd()
[15:32:15.848]             }
[15:32:15.848]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.848]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.848]         }
[15:32:15.848]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.848]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.848]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.848]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.848]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.848]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.848]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.848]             base::names(...future.oldOptions))
[15:32:15.848]     }
[15:32:15.848]     if (FALSE) {
[15:32:15.848]     }
[15:32:15.848]     else {
[15:32:15.848]         if (TRUE) {
[15:32:15.848]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.848]                 open = "w")
[15:32:15.848]         }
[15:32:15.848]         else {
[15:32:15.848]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.848]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.848]         }
[15:32:15.848]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.848]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.848]             base::sink(type = "output", split = FALSE)
[15:32:15.848]             base::close(...future.stdout)
[15:32:15.848]         }, add = TRUE)
[15:32:15.848]     }
[15:32:15.848]     ...future.frame <- base::sys.nframe()
[15:32:15.848]     ...future.conditions <- base::list()
[15:32:15.848]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.848]     if (FALSE) {
[15:32:15.848]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.848]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.848]     }
[15:32:15.848]     ...future.result <- base::tryCatch({
[15:32:15.848]         base::withCallingHandlers({
[15:32:15.848]             ...future.value <- base::withVisible(base::local({
[15:32:15.848]                 do.call(function(...) {
[15:32:15.848]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.848]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.848]                     ...future.globals.maxSize)) {
[15:32:15.848]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.848]                     on.exit(options(oopts), add = TRUE)
[15:32:15.848]                   }
[15:32:15.848]                   {
[15:32:15.848]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.848]                       FUN = function(jj) {
[15:32:15.848]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.848]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.848]                           envir = globalenv(), inherits = FALSE)
[15:32:15.848]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.848]                       })
[15:32:15.848]                   }
[15:32:15.848]                 }, args = future.call.arguments)
[15:32:15.848]             }))
[15:32:15.848]             future::FutureResult(value = ...future.value$value, 
[15:32:15.848]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.848]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.848]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.848]                     ...future.globalenv.names))
[15:32:15.848]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.848]         }, condition = base::local({
[15:32:15.848]             c <- base::c
[15:32:15.848]             inherits <- base::inherits
[15:32:15.848]             invokeRestart <- base::invokeRestart
[15:32:15.848]             length <- base::length
[15:32:15.848]             list <- base::list
[15:32:15.848]             seq.int <- base::seq.int
[15:32:15.848]             signalCondition <- base::signalCondition
[15:32:15.848]             sys.calls <- base::sys.calls
[15:32:15.848]             `[[` <- base::`[[`
[15:32:15.848]             `+` <- base::`+`
[15:32:15.848]             `<<-` <- base::`<<-`
[15:32:15.848]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.848]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.848]                   3L)]
[15:32:15.848]             }
[15:32:15.848]             function(cond) {
[15:32:15.848]                 is_error <- inherits(cond, "error")
[15:32:15.848]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.848]                   NULL)
[15:32:15.848]                 if (is_error) {
[15:32:15.848]                   sessionInformation <- function() {
[15:32:15.848]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.848]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.848]                       search = base::search(), system = base::Sys.info())
[15:32:15.848]                   }
[15:32:15.848]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.848]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.848]                     cond$call), session = sessionInformation(), 
[15:32:15.848]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.848]                   signalCondition(cond)
[15:32:15.848]                 }
[15:32:15.848]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.848]                 "immediateCondition"))) {
[15:32:15.848]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.848]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.848]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.848]                   if (TRUE && !signal) {
[15:32:15.848]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.848]                     {
[15:32:15.848]                       inherits <- base::inherits
[15:32:15.848]                       invokeRestart <- base::invokeRestart
[15:32:15.848]                       is.null <- base::is.null
[15:32:15.848]                       muffled <- FALSE
[15:32:15.848]                       if (inherits(cond, "message")) {
[15:32:15.848]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.848]                         if (muffled) 
[15:32:15.848]                           invokeRestart("muffleMessage")
[15:32:15.848]                       }
[15:32:15.848]                       else if (inherits(cond, "warning")) {
[15:32:15.848]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.848]                         if (muffled) 
[15:32:15.848]                           invokeRestart("muffleWarning")
[15:32:15.848]                       }
[15:32:15.848]                       else if (inherits(cond, "condition")) {
[15:32:15.848]                         if (!is.null(pattern)) {
[15:32:15.848]                           computeRestarts <- base::computeRestarts
[15:32:15.848]                           grepl <- base::grepl
[15:32:15.848]                           restarts <- computeRestarts(cond)
[15:32:15.848]                           for (restart in restarts) {
[15:32:15.848]                             name <- restart$name
[15:32:15.848]                             if (is.null(name)) 
[15:32:15.848]                               next
[15:32:15.848]                             if (!grepl(pattern, name)) 
[15:32:15.848]                               next
[15:32:15.848]                             invokeRestart(restart)
[15:32:15.848]                             muffled <- TRUE
[15:32:15.848]                             break
[15:32:15.848]                           }
[15:32:15.848]                         }
[15:32:15.848]                       }
[15:32:15.848]                       invisible(muffled)
[15:32:15.848]                     }
[15:32:15.848]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.848]                   }
[15:32:15.848]                 }
[15:32:15.848]                 else {
[15:32:15.848]                   if (TRUE) {
[15:32:15.848]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.848]                     {
[15:32:15.848]                       inherits <- base::inherits
[15:32:15.848]                       invokeRestart <- base::invokeRestart
[15:32:15.848]                       is.null <- base::is.null
[15:32:15.848]                       muffled <- FALSE
[15:32:15.848]                       if (inherits(cond, "message")) {
[15:32:15.848]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.848]                         if (muffled) 
[15:32:15.848]                           invokeRestart("muffleMessage")
[15:32:15.848]                       }
[15:32:15.848]                       else if (inherits(cond, "warning")) {
[15:32:15.848]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.848]                         if (muffled) 
[15:32:15.848]                           invokeRestart("muffleWarning")
[15:32:15.848]                       }
[15:32:15.848]                       else if (inherits(cond, "condition")) {
[15:32:15.848]                         if (!is.null(pattern)) {
[15:32:15.848]                           computeRestarts <- base::computeRestarts
[15:32:15.848]                           grepl <- base::grepl
[15:32:15.848]                           restarts <- computeRestarts(cond)
[15:32:15.848]                           for (restart in restarts) {
[15:32:15.848]                             name <- restart$name
[15:32:15.848]                             if (is.null(name)) 
[15:32:15.848]                               next
[15:32:15.848]                             if (!grepl(pattern, name)) 
[15:32:15.848]                               next
[15:32:15.848]                             invokeRestart(restart)
[15:32:15.848]                             muffled <- TRUE
[15:32:15.848]                             break
[15:32:15.848]                           }
[15:32:15.848]                         }
[15:32:15.848]                       }
[15:32:15.848]                       invisible(muffled)
[15:32:15.848]                     }
[15:32:15.848]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.848]                   }
[15:32:15.848]                 }
[15:32:15.848]             }
[15:32:15.848]         }))
[15:32:15.848]     }, error = function(ex) {
[15:32:15.848]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.848]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.848]                 ...future.rng), started = ...future.startTime, 
[15:32:15.848]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.848]             version = "1.8"), class = "FutureResult")
[15:32:15.848]     }, finally = {
[15:32:15.848]         if (!identical(...future.workdir, getwd())) 
[15:32:15.848]             setwd(...future.workdir)
[15:32:15.848]         {
[15:32:15.848]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.848]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.848]             }
[15:32:15.848]             base::options(...future.oldOptions)
[15:32:15.848]             if (.Platform$OS.type == "windows") {
[15:32:15.848]                 old_names <- names(...future.oldEnvVars)
[15:32:15.848]                 envs <- base::Sys.getenv()
[15:32:15.848]                 names <- names(envs)
[15:32:15.848]                 common <- intersect(names, old_names)
[15:32:15.848]                 added <- setdiff(names, old_names)
[15:32:15.848]                 removed <- setdiff(old_names, names)
[15:32:15.848]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.848]                   envs[common]]
[15:32:15.848]                 NAMES <- toupper(changed)
[15:32:15.848]                 args <- list()
[15:32:15.848]                 for (kk in seq_along(NAMES)) {
[15:32:15.848]                   name <- changed[[kk]]
[15:32:15.848]                   NAME <- NAMES[[kk]]
[15:32:15.848]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.848]                     next
[15:32:15.848]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.848]                 }
[15:32:15.848]                 NAMES <- toupper(added)
[15:32:15.848]                 for (kk in seq_along(NAMES)) {
[15:32:15.848]                   name <- added[[kk]]
[15:32:15.848]                   NAME <- NAMES[[kk]]
[15:32:15.848]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.848]                     next
[15:32:15.848]                   args[[name]] <- ""
[15:32:15.848]                 }
[15:32:15.848]                 NAMES <- toupper(removed)
[15:32:15.848]                 for (kk in seq_along(NAMES)) {
[15:32:15.848]                   name <- removed[[kk]]
[15:32:15.848]                   NAME <- NAMES[[kk]]
[15:32:15.848]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.848]                     next
[15:32:15.848]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.848]                 }
[15:32:15.848]                 if (length(args) > 0) 
[15:32:15.848]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.848]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.848]             }
[15:32:15.848]             else {
[15:32:15.848]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.848]             }
[15:32:15.848]             {
[15:32:15.848]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.848]                   0L) {
[15:32:15.848]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.848]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.848]                   base::options(opts)
[15:32:15.848]                 }
[15:32:15.848]                 {
[15:32:15.848]                   {
[15:32:15.848]                     base::assign(".Random.seed", c(10403L, 6L, 
[15:32:15.848]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[15:32:15.848]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[15:32:15.848]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[15:32:15.848]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[15:32:15.848]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[15:32:15.848]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[15:32:15.848]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[15:32:15.848]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[15:32:15.848]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[15:32:15.848]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[15:32:15.848]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[15:32:15.848]                     -1512233174L, -1985955764L, -425390065L, 
[15:32:15.848]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[15:32:15.848]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[15:32:15.848]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[15:32:15.848]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[15:32:15.848]                     1818328109L, -1284085436L, -1981489558L, 
[15:32:15.848]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[15:32:15.848]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[15:32:15.848]                     -1718567047L, -793788661L, -1133789126L, 
[15:32:15.848]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[15:32:15.848]                     -1823521982L, -1345991523L, -1672661737L, 
[15:32:15.848]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[15:32:15.848]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[15:32:15.848]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[15:32:15.848]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[15:32:15.848]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[15:32:15.848]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[15:32:15.848]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[15:32:15.848]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[15:32:15.848]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[15:32:15.848]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[15:32:15.848]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[15:32:15.848]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[15:32:15.848]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[15:32:15.848]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[15:32:15.848]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[15:32:15.848]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[15:32:15.848]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[15:32:15.848]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[15:32:15.848]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[15:32:15.848]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[15:32:15.848]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[15:32:15.848]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[15:32:15.848]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[15:32:15.848]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[15:32:15.848]                     -1119334354L, -1521015416L, -2041922421L, 
[15:32:15.848]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[15:32:15.848]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[15:32:15.848]                     1232111981L, -1801753084L, -1608606422L, 
[15:32:15.848]                     -1172096363L, 1420874031L, -1210473418L, 
[15:32:15.848]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[15:32:15.848]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[15:32:15.848]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[15:32:15.848]                     679371266L, -591318819L, -104578089L, -172818754L, 
[15:32:15.848]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[15:32:15.848]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[15:32:15.848]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[15:32:15.848]                     -332493318L, -1978392251L, -1691039632L, 
[15:32:15.848]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[15:32:15.848]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[15:32:15.848]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[15:32:15.848]                     87560756L, -87565624L, 426345146L, -699970416L, 
[15:32:15.848]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[15:32:15.848]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[15:32:15.848]                     -1178330196L, -687617348L, -1701912078L, 
[15:32:15.848]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[15:32:15.848]                     -1345416048L, 1816730492L, -1570431212L, 
[15:32:15.848]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[15:32:15.848]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[15:32:15.848]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[15:32:15.848]                     -1493184262L, -1943836976L, -590788308L, 
[15:32:15.848]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[15:32:15.848]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[15:32:15.848]                     1274857340L, -1205842638L, -1938479504L, 
[15:32:15.848]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[15:32:15.848]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[15:32:15.848]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[15:32:15.848]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[15:32:15.848]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[15:32:15.848]                     -1460751252L, 1201879444L, -1459788718L, 
[15:32:15.848]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[15:32:15.848]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[15:32:15.848]                     -420945808L, -1997735900L, -1838404552L, 
[15:32:15.848]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[15:32:15.848]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[15:32:15.848]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[15:32:15.848]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[15:32:15.848]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[15:32:15.848]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[15:32:15.848]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[15:32:15.848]                     942193650L, 751741680L, 689743428L, -18455976L, 
[15:32:15.848]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[15:32:15.848]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[15:32:15.848]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[15:32:15.848]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[15:32:15.848]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[15:32:15.848]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[15:32:15.848]                     -1357570110L, 1896595240L, -2066952276L, 
[15:32:15.848]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[15:32:15.848]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[15:32:15.848]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[15:32:15.848]                     769655120L, 236357794L, 181393736L, -13334772L, 
[15:32:15.848]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[15:32:15.848]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[15:32:15.848]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[15:32:15.848]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[15:32:15.848]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[15:32:15.848]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[15:32:15.848]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[15:32:15.848]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[15:32:15.848]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[15:32:15.848]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[15:32:15.848]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[15:32:15.848]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[15:32:15.848]                     -1365842884L, -438961294L, -1851472272L, 
[15:32:15.848]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[15:32:15.848]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[15:32:15.848]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[15:32:15.848]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[15:32:15.848]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[15:32:15.848]                     -594809770L, -2146766621L, -2013964635L, 
[15:32:15.848]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[15:32:15.848]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[15:32:15.848]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[15:32:15.848]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[15:32:15.848]                     -1426021878L, -1285634264L, 1507547537L, 
[15:32:15.848]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[15:32:15.848]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[15:32:15.848]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[15:32:15.848]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[15:32:15.848]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[15:32:15.848]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[15:32:15.848]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[15:32:15.848]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[15:32:15.848]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[15:32:15.848]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[15:32:15.848]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[15:32:15.848]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[15:32:15.848]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[15:32:15.848]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[15:32:15.848]                     -1604604761L, 1421229008L, -1268333714L, 
[15:32:15.848]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[15:32:15.848]                     -2070476623L, -2099222749L, 1141171236L, 
[15:32:15.848]                     -146426158L, -1797385433L, -1129376399L, 
[15:32:15.848]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[15:32:15.848]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[15:32:15.848]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[15:32:15.848]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[15:32:15.848]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[15:32:15.848]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[15:32:15.848]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[15:32:15.848]                     -1092079724L, -1765622238L, -1882554057L, 
[15:32:15.848]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[15:32:15.848]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[15:32:15.848]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[15:32:15.848]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[15:32:15.848]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[15:32:15.848]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[15:32:15.848]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[15:32:15.848]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[15:32:15.848]                     865377681L, -1127426242L), envir = base::globalenv(), 
[15:32:15.848]                       inherits = FALSE)
[15:32:15.848]                     NULL
[15:32:15.848]                   }
[15:32:15.848]                   options(future.plan = NULL)
[15:32:15.848]                   if (is.na(NA_character_)) 
[15:32:15.848]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.848]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.848]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.848]                     .init = FALSE)
[15:32:15.848]                 }
[15:32:15.848]             }
[15:32:15.848]         }
[15:32:15.848]     })
[15:32:15.848]     if (TRUE) {
[15:32:15.848]         base::sink(type = "output", split = FALSE)
[15:32:15.848]         if (TRUE) {
[15:32:15.848]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.848]         }
[15:32:15.848]         else {
[15:32:15.848]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.848]         }
[15:32:15.848]         base::close(...future.stdout)
[15:32:15.848]         ...future.stdout <- NULL
[15:32:15.848]     }
[15:32:15.848]     ...future.result$conditions <- ...future.conditions
[15:32:15.848]     ...future.result$finished <- base::Sys.time()
[15:32:15.848]     ...future.result
[15:32:15.848] }
[15:32:15.857] assign_globals() ...
[15:32:15.857] List of 5
[15:32:15.857]  $ ...future.FUN            :function (...)  
[15:32:15.857]  $ future.call.arguments    : list()
[15:32:15.857]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.857]  $ ...future.elements_ii    :List of 5
[15:32:15.857]   ..$ : int 0
[15:32:15.857]   ..$ : int 0
[15:32:15.857]   ..$ : int 0
[15:32:15.857]   ..$ : int 0
[15:32:15.857]   ..$ : int 0
[15:32:15.857]  $ ...future.seeds_ii       :List of 5
[15:32:15.857]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[15:32:15.857]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[15:32:15.857]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[15:32:15.857]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[15:32:15.857]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[15:32:15.857]  $ ...future.globals.maxSize: NULL
[15:32:15.857]  - attr(*, "where")=List of 5
[15:32:15.857]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.857]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.857]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.857]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.857]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.857]  - attr(*, "resolved")= logi FALSE
[15:32:15.857]  - attr(*, "total_size")= num 616
[15:32:15.857]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.857]  - attr(*, "already-done")= logi TRUE
[15:32:15.875] - reassign environment for '...future.FUN'
[15:32:15.875] - copied '...future.FUN' to environment
[15:32:15.875] - copied 'future.call.arguments' to environment
[15:32:15.876] - copied '...future.elements_ii' to environment
[15:32:15.876] - copied '...future.seeds_ii' to environment
[15:32:15.876] - copied '...future.globals.maxSize' to environment
[15:32:15.876] assign_globals() ... done
[15:32:15.877] plan(): Setting new future strategy stack:
[15:32:15.877] List of future strategies:
[15:32:15.877] 1. sequential:
[15:32:15.877]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.877]    - tweaked: FALSE
[15:32:15.877]    - call: NULL
[15:32:15.878] plan(): nbrOfWorkers() = 1
[15:32:15.880] plan(): Setting new future strategy stack:
[15:32:15.881] List of future strategies:
[15:32:15.881] 1. sequential:
[15:32:15.881]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.881]    - tweaked: FALSE
[15:32:15.881]    - call: plan(strategy)
[15:32:15.882] plan(): nbrOfWorkers() = 1
[15:32:15.882] SequentialFuture started (and completed)
[15:32:15.882] - Launch lazy future ... done
[15:32:15.883] run() for 'SequentialFuture' ... done
[15:32:15.883] Created future:
[15:32:15.883] SequentialFuture:
[15:32:15.883] Label: 'future_replicate-1'
[15:32:15.883] Expression:
[15:32:15.883] {
[15:32:15.883]     do.call(function(...) {
[15:32:15.883]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.883]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.883]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.883]             on.exit(options(oopts), add = TRUE)
[15:32:15.883]         }
[15:32:15.883]         {
[15:32:15.883]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.883]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.883]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.883]                   envir = globalenv(), inherits = FALSE)
[15:32:15.883]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.883]             })
[15:32:15.883]         }
[15:32:15.883]     }, args = future.call.arguments)
[15:32:15.883] }
[15:32:15.883] Lazy evaluation: FALSE
[15:32:15.883] Asynchronous evaluation: FALSE
[15:32:15.883] Local evaluation: TRUE
[15:32:15.883] Environment: R_GlobalEnv
[15:32:15.883] Capture standard output: TRUE
[15:32:15.883] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.883] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:15.883] Packages: <none>
[15:32:15.883] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.883] Resolved: TRUE
[15:32:15.883] Value: 280 bytes of class 'list'
[15:32:15.883] Early signaling: FALSE
[15:32:15.883] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.883] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.886] Chunk #1 of 1 ... DONE
[15:32:15.886] Launching 1 futures (chunks) ... DONE
[15:32:15.886] Resolving 1 futures (chunks) ...
[15:32:15.886] resolve() on list ...
[15:32:15.887]  recursive: 0
[15:32:15.887]  length: 1
[15:32:15.887] 
[15:32:15.887] resolved() for 'SequentialFuture' ...
[15:32:15.888] - state: 'finished'
[15:32:15.888] - run: TRUE
[15:32:15.888] - result: 'FutureResult'
[15:32:15.889] resolved() for 'SequentialFuture' ... done
[15:32:15.889] Future #1
[15:32:15.889] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.890] - nx: 1
[15:32:15.890] - relay: TRUE
[15:32:15.890] - stdout: TRUE
[15:32:15.890] - signal: TRUE
[15:32:15.891] - resignal: FALSE
[15:32:15.891] - force: TRUE
[15:32:15.891] - relayed: [n=1] FALSE
[15:32:15.891] - queued futures: [n=1] FALSE
[15:32:15.892]  - until=1
[15:32:15.892]  - relaying element #1
[15:32:15.892] - relayed: [n=1] TRUE
[15:32:15.893] - queued futures: [n=1] TRUE
[15:32:15.893] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:15.893]  length: 0 (resolved future 1)
[15:32:15.893] Relaying remaining futures
[15:32:15.894] signalConditionsASAP(NULL, pos=0) ...
[15:32:15.894] - nx: 1
[15:32:15.894] - relay: TRUE
[15:32:15.894] - stdout: TRUE
[15:32:15.895] - signal: TRUE
[15:32:15.895] - resignal: FALSE
[15:32:15.895] - force: TRUE
[15:32:15.895] - relayed: [n=1] TRUE
[15:32:15.896] - queued futures: [n=1] TRUE
 - flush all
[15:32:15.896] - relayed: [n=1] TRUE
[15:32:15.896] - queued futures: [n=1] TRUE
[15:32:15.897] signalConditionsASAP(NULL, pos=0) ... done
[15:32:15.897] resolve() on list ... DONE
[15:32:15.897]  - Number of value chunks collected: 1
[15:32:15.898] Resolving 1 futures (chunks) ... DONE
[15:32:15.898] Reducing values from 1 chunks ...
[15:32:15.898]  - Number of values collected after concatenation: 5
[15:32:15.898]  - Number of values expected: 5
[15:32:15.899] Reducing values from 1 chunks ... DONE
[15:32:15.899] future_lapply() ... DONE
- example(replicate) ...
[15:32:15.900] future_lapply() ...
[15:32:15.901] Generating random seeds ...
[15:32:15.901] Generating random seed streams for 5 elements ...
[15:32:15.901] Generating random seed streams for 5 elements ... DONE
[15:32:15.902] Generating random seeds ... DONE
[15:32:15.902] Will set RNG state on exit: 10403, 8, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:15.903] Number of chunks: 1
[15:32:15.904] getGlobalsAndPackagesXApply() ...
[15:32:15.904]  - future.globals: TRUE
[15:32:15.904] getGlobalsAndPackages() ...
[15:32:15.904] Searching for globals...
[15:32:15.911] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[15:32:15.911] Searching for globals ... DONE
[15:32:15.911] Resolving globals: FALSE
[15:32:15.912] The total size of the 3 globals is 2.15 KiB (2200 bytes)
[15:32:15.913] The total size of the 3 globals exported for future expression ('FUN()') is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (1.60 KiB of class 'function'), 'FUN' (504 bytes of class 'function') and 'x' (56 bytes of class 'numeric')
[15:32:15.913] - globals: [3] 'FUN', 'foo', 'x'
[15:32:15.914] 
[15:32:15.914] getGlobalsAndPackages() ... DONE
[15:32:15.914]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[15:32:15.914]  - needed namespaces: [n=0] 
[15:32:15.915] Finding globals ... DONE
[15:32:15.915]  - use_args: TRUE
[15:32:15.915]  - Getting '...' globals ...
[15:32:15.916] resolve() on list ...
[15:32:15.916]  recursive: 0
[15:32:15.916]  length: 1
[15:32:15.917]  elements: '...'
[15:32:15.917]  length: 0 (resolved future 1)
[15:32:15.917] resolve() on list ... DONE
[15:32:15.918]    - '...' content: [n=0] 
[15:32:15.918] List of 1
[15:32:15.918]  $ ...: list()
[15:32:15.918]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.918]  - attr(*, "where")=List of 1
[15:32:15.918]   ..$ ...:<environment: 0x000002abb41bbd80> 
[15:32:15.918]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.918]  - attr(*, "resolved")= logi TRUE
[15:32:15.918]  - attr(*, "total_size")= num NA
[15:32:15.923]  - Getting '...' globals ... DONE
[15:32:15.923] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[15:32:15.923] List of 4
[15:32:15.923]  $ ...future.FUN:function (...)  
[15:32:15.923]  $ foo          :function (x = 1, y = 2)  
[15:32:15.923]  $ x            : num 3
[15:32:15.923]  $ ...          : list()
[15:32:15.923]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.923]  - attr(*, "where")=List of 4
[15:32:15.923]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:15.923]   ..$ foo          :<environment: R_EmptyEnv> 
[15:32:15.923]   ..$ x            :<environment: R_EmptyEnv> 
[15:32:15.923]   ..$ ...          :<environment: 0x000002abb41bbd80> 
[15:32:15.923]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.923]  - attr(*, "resolved")= logi FALSE
[15:32:15.923]  - attr(*, "total_size")= num 2200
[15:32:15.931] Packages to be attached in all futures: [n=0] 
[15:32:15.931] getGlobalsAndPackagesXApply() ... DONE
[15:32:15.931] Number of futures (= number of chunks): 1
[15:32:15.932] Launching 1 futures (chunks) ...
[15:32:15.932] Chunk #1 of 1 ...
[15:32:15.932]  - Finding globals in 'X' for chunk #1 ...
[15:32:15.932] getGlobalsAndPackages() ...
[15:32:15.933] Searching for globals...
[15:32:15.933] 
[15:32:15.934] Searching for globals ... DONE
[15:32:15.934] - globals: [0] <none>
[15:32:15.934] getGlobalsAndPackages() ... DONE
[15:32:15.934]    + additional globals found: [n=0] 
[15:32:15.935]    + additional namespaces needed: [n=0] 
[15:32:15.935]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:15.935]  - seeds: [5] <seeds>
[15:32:15.935]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.936] getGlobalsAndPackages() ...
[15:32:15.936] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.936] Resolving globals: FALSE
[15:32:15.937] Tweak future expression to call with '...' arguments ...
[15:32:15.937] {
[15:32:15.937]     do.call(function(...) {
[15:32:15.937]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.937]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.937]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.937]             on.exit(options(oopts), add = TRUE)
[15:32:15.937]         }
[15:32:15.937]         {
[15:32:15.937]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.937]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.937]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.937]                   envir = globalenv(), inherits = FALSE)
[15:32:15.937]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.937]             })
[15:32:15.937]         }
[15:32:15.937]     }, args = future.call.arguments)
[15:32:15.937] }
[15:32:15.938] Tweak future expression to call with '...' arguments ... DONE
[15:32:15.939] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:15.939] 
[15:32:15.939] getGlobalsAndPackages() ... DONE
[15:32:15.940] run() for 'Future' ...
[15:32:15.940] - state: 'created'
[15:32:15.941] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[15:32:15.941] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.941] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[15:32:15.942]   - Field: 'label'
[15:32:15.942]   - Field: 'local'
[15:32:15.942]   - Field: 'owner'
[15:32:15.943]   - Field: 'envir'
[15:32:15.943]   - Field: 'packages'
[15:32:15.943]   - Field: 'gc'
[15:32:15.944]   - Field: 'conditions'
[15:32:15.944]   - Field: 'expr'
[15:32:15.944]   - Field: 'uuid'
[15:32:15.944]   - Field: 'seed'
[15:32:15.945]   - Field: 'version'
[15:32:15.945]   - Field: 'result'
[15:32:15.945]   - Field: 'asynchronous'
[15:32:15.946]   - Field: 'calls'
[15:32:15.946]   - Field: 'globals'
[15:32:15.946]   - Field: 'stdout'
[15:32:15.946]   - Field: 'earlySignal'
[15:32:15.947]   - Field: 'lazy'
[15:32:15.947]   - Field: 'state'
[15:32:15.947] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[15:32:15.948] - Launch lazy future ...
[15:32:15.948] Packages needed by the future expression (n = 0): <none>
[15:32:15.948] Packages needed by future strategies (n = 0): <none>
[15:32:15.949] {
[15:32:15.949]     {
[15:32:15.949]         {
[15:32:15.949]             ...future.startTime <- base::Sys.time()
[15:32:15.949]             {
[15:32:15.949]                 {
[15:32:15.949]                   {
[15:32:15.949]                     base::local({
[15:32:15.949]                       has_future <- base::requireNamespace("future", 
[15:32:15.949]                         quietly = TRUE)
[15:32:15.949]                       if (has_future) {
[15:32:15.949]                         ns <- base::getNamespace("future")
[15:32:15.949]                         version <- ns[[".package"]][["version"]]
[15:32:15.949]                         if (is.null(version)) 
[15:32:15.949]                           version <- utils::packageVersion("future")
[15:32:15.949]                       }
[15:32:15.949]                       else {
[15:32:15.949]                         version <- NULL
[15:32:15.949]                       }
[15:32:15.949]                       if (!has_future || version < "1.8.0") {
[15:32:15.949]                         info <- base::c(r_version = base::gsub("R version ", 
[15:32:15.949]                           "", base::R.version$version.string), 
[15:32:15.949]                           platform = base::sprintf("%s (%s-bit)", 
[15:32:15.949]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:15.949]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:15.949]                             "release", "version")], collapse = " "), 
[15:32:15.949]                           hostname = base::Sys.info()[["nodename"]])
[15:32:15.949]                         info <- base::sprintf("%s: %s", base::names(info), 
[15:32:15.949]                           info)
[15:32:15.949]                         info <- base::paste(info, collapse = "; ")
[15:32:15.949]                         if (!has_future) {
[15:32:15.949]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:15.949]                             info)
[15:32:15.949]                         }
[15:32:15.949]                         else {
[15:32:15.949]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:15.949]                             info, version)
[15:32:15.949]                         }
[15:32:15.949]                         base::stop(msg)
[15:32:15.949]                       }
[15:32:15.949]                     })
[15:32:15.949]                   }
[15:32:15.949]                   ...future.strategy.old <- future::plan("list")
[15:32:15.949]                   options(future.plan = NULL)
[15:32:15.949]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.949]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:15.949]                 }
[15:32:15.949]                 ...future.workdir <- getwd()
[15:32:15.949]             }
[15:32:15.949]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:15.949]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:15.949]         }
[15:32:15.949]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:15.949]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:15.949]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:15.949]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:15.949]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:15.949]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:15.949]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:15.949]             base::names(...future.oldOptions))
[15:32:15.949]     }
[15:32:15.949]     if (FALSE) {
[15:32:15.949]     }
[15:32:15.949]     else {
[15:32:15.949]         if (TRUE) {
[15:32:15.949]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:15.949]                 open = "w")
[15:32:15.949]         }
[15:32:15.949]         else {
[15:32:15.949]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:15.949]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:15.949]         }
[15:32:15.949]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:15.949]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:15.949]             base::sink(type = "output", split = FALSE)
[15:32:15.949]             base::close(...future.stdout)
[15:32:15.949]         }, add = TRUE)
[15:32:15.949]     }
[15:32:15.949]     ...future.frame <- base::sys.nframe()
[15:32:15.949]     ...future.conditions <- base::list()
[15:32:15.949]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:15.949]     if (FALSE) {
[15:32:15.949]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:15.949]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:15.949]     }
[15:32:15.949]     ...future.result <- base::tryCatch({
[15:32:15.949]         base::withCallingHandlers({
[15:32:15.949]             ...future.value <- base::withVisible(base::local({
[15:32:15.949]                 do.call(function(...) {
[15:32:15.949]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.949]                   if (!identical(...future.globals.maxSize.org, 
[15:32:15.949]                     ...future.globals.maxSize)) {
[15:32:15.949]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.949]                     on.exit(options(oopts), add = TRUE)
[15:32:15.949]                   }
[15:32:15.949]                   {
[15:32:15.949]                     lapply(seq_along(...future.elements_ii), 
[15:32:15.949]                       FUN = function(jj) {
[15:32:15.949]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.949]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.949]                           envir = globalenv(), inherits = FALSE)
[15:32:15.949]                         ...future.FUN(...future.X_jj, ...)
[15:32:15.949]                       })
[15:32:15.949]                   }
[15:32:15.949]                 }, args = future.call.arguments)
[15:32:15.949]             }))
[15:32:15.949]             future::FutureResult(value = ...future.value$value, 
[15:32:15.949]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.949]                   ...future.rng), globalenv = if (FALSE) 
[15:32:15.949]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:15.949]                     ...future.globalenv.names))
[15:32:15.949]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:15.949]         }, condition = base::local({
[15:32:15.949]             c <- base::c
[15:32:15.949]             inherits <- base::inherits
[15:32:15.949]             invokeRestart <- base::invokeRestart
[15:32:15.949]             length <- base::length
[15:32:15.949]             list <- base::list
[15:32:15.949]             seq.int <- base::seq.int
[15:32:15.949]             signalCondition <- base::signalCondition
[15:32:15.949]             sys.calls <- base::sys.calls
[15:32:15.949]             `[[` <- base::`[[`
[15:32:15.949]             `+` <- base::`+`
[15:32:15.949]             `<<-` <- base::`<<-`
[15:32:15.949]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:15.949]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:15.949]                   3L)]
[15:32:15.949]             }
[15:32:15.949]             function(cond) {
[15:32:15.949]                 is_error <- inherits(cond, "error")
[15:32:15.949]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:15.949]                   NULL)
[15:32:15.949]                 if (is_error) {
[15:32:15.949]                   sessionInformation <- function() {
[15:32:15.949]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:15.949]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:15.949]                       search = base::search(), system = base::Sys.info())
[15:32:15.949]                   }
[15:32:15.949]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.949]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:15.949]                     cond$call), session = sessionInformation(), 
[15:32:15.949]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:15.949]                   signalCondition(cond)
[15:32:15.949]                 }
[15:32:15.949]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:15.949]                 "immediateCondition"))) {
[15:32:15.949]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:15.949]                   ...future.conditions[[length(...future.conditions) + 
[15:32:15.949]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:15.949]                   if (TRUE && !signal) {
[15:32:15.949]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.949]                     {
[15:32:15.949]                       inherits <- base::inherits
[15:32:15.949]                       invokeRestart <- base::invokeRestart
[15:32:15.949]                       is.null <- base::is.null
[15:32:15.949]                       muffled <- FALSE
[15:32:15.949]                       if (inherits(cond, "message")) {
[15:32:15.949]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.949]                         if (muffled) 
[15:32:15.949]                           invokeRestart("muffleMessage")
[15:32:15.949]                       }
[15:32:15.949]                       else if (inherits(cond, "warning")) {
[15:32:15.949]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.949]                         if (muffled) 
[15:32:15.949]                           invokeRestart("muffleWarning")
[15:32:15.949]                       }
[15:32:15.949]                       else if (inherits(cond, "condition")) {
[15:32:15.949]                         if (!is.null(pattern)) {
[15:32:15.949]                           computeRestarts <- base::computeRestarts
[15:32:15.949]                           grepl <- base::grepl
[15:32:15.949]                           restarts <- computeRestarts(cond)
[15:32:15.949]                           for (restart in restarts) {
[15:32:15.949]                             name <- restart$name
[15:32:15.949]                             if (is.null(name)) 
[15:32:15.949]                               next
[15:32:15.949]                             if (!grepl(pattern, name)) 
[15:32:15.949]                               next
[15:32:15.949]                             invokeRestart(restart)
[15:32:15.949]                             muffled <- TRUE
[15:32:15.949]                             break
[15:32:15.949]                           }
[15:32:15.949]                         }
[15:32:15.949]                       }
[15:32:15.949]                       invisible(muffled)
[15:32:15.949]                     }
[15:32:15.949]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.949]                   }
[15:32:15.949]                 }
[15:32:15.949]                 else {
[15:32:15.949]                   if (TRUE) {
[15:32:15.949]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:15.949]                     {
[15:32:15.949]                       inherits <- base::inherits
[15:32:15.949]                       invokeRestart <- base::invokeRestart
[15:32:15.949]                       is.null <- base::is.null
[15:32:15.949]                       muffled <- FALSE
[15:32:15.949]                       if (inherits(cond, "message")) {
[15:32:15.949]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:15.949]                         if (muffled) 
[15:32:15.949]                           invokeRestart("muffleMessage")
[15:32:15.949]                       }
[15:32:15.949]                       else if (inherits(cond, "warning")) {
[15:32:15.949]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:15.949]                         if (muffled) 
[15:32:15.949]                           invokeRestart("muffleWarning")
[15:32:15.949]                       }
[15:32:15.949]                       else if (inherits(cond, "condition")) {
[15:32:15.949]                         if (!is.null(pattern)) {
[15:32:15.949]                           computeRestarts <- base::computeRestarts
[15:32:15.949]                           grepl <- base::grepl
[15:32:15.949]                           restarts <- computeRestarts(cond)
[15:32:15.949]                           for (restart in restarts) {
[15:32:15.949]                             name <- restart$name
[15:32:15.949]                             if (is.null(name)) 
[15:32:15.949]                               next
[15:32:15.949]                             if (!grepl(pattern, name)) 
[15:32:15.949]                               next
[15:32:15.949]                             invokeRestart(restart)
[15:32:15.949]                             muffled <- TRUE
[15:32:15.949]                             break
[15:32:15.949]                           }
[15:32:15.949]                         }
[15:32:15.949]                       }
[15:32:15.949]                       invisible(muffled)
[15:32:15.949]                     }
[15:32:15.949]                     muffleCondition(cond, pattern = "^muffle")
[15:32:15.949]                   }
[15:32:15.949]                 }
[15:32:15.949]             }
[15:32:15.949]         }))
[15:32:15.949]     }, error = function(ex) {
[15:32:15.949]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:15.949]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:15.949]                 ...future.rng), started = ...future.startTime, 
[15:32:15.949]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:15.949]             version = "1.8"), class = "FutureResult")
[15:32:15.949]     }, finally = {
[15:32:15.949]         if (!identical(...future.workdir, getwd())) 
[15:32:15.949]             setwd(...future.workdir)
[15:32:15.949]         {
[15:32:15.949]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:15.949]                 ...future.oldOptions$nwarnings <- NULL
[15:32:15.949]             }
[15:32:15.949]             base::options(...future.oldOptions)
[15:32:15.949]             if (.Platform$OS.type == "windows") {
[15:32:15.949]                 old_names <- names(...future.oldEnvVars)
[15:32:15.949]                 envs <- base::Sys.getenv()
[15:32:15.949]                 names <- names(envs)
[15:32:15.949]                 common <- intersect(names, old_names)
[15:32:15.949]                 added <- setdiff(names, old_names)
[15:32:15.949]                 removed <- setdiff(old_names, names)
[15:32:15.949]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:15.949]                   envs[common]]
[15:32:15.949]                 NAMES <- toupper(changed)
[15:32:15.949]                 args <- list()
[15:32:15.949]                 for (kk in seq_along(NAMES)) {
[15:32:15.949]                   name <- changed[[kk]]
[15:32:15.949]                   NAME <- NAMES[[kk]]
[15:32:15.949]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.949]                     next
[15:32:15.949]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.949]                 }
[15:32:15.949]                 NAMES <- toupper(added)
[15:32:15.949]                 for (kk in seq_along(NAMES)) {
[15:32:15.949]                   name <- added[[kk]]
[15:32:15.949]                   NAME <- NAMES[[kk]]
[15:32:15.949]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.949]                     next
[15:32:15.949]                   args[[name]] <- ""
[15:32:15.949]                 }
[15:32:15.949]                 NAMES <- toupper(removed)
[15:32:15.949]                 for (kk in seq_along(NAMES)) {
[15:32:15.949]                   name <- removed[[kk]]
[15:32:15.949]                   NAME <- NAMES[[kk]]
[15:32:15.949]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:15.949]                     next
[15:32:15.949]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:15.949]                 }
[15:32:15.949]                 if (length(args) > 0) 
[15:32:15.949]                   base::do.call(base::Sys.setenv, args = args)
[15:32:15.949]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:15.949]             }
[15:32:15.949]             else {
[15:32:15.949]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:15.949]             }
[15:32:15.949]             {
[15:32:15.949]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:15.949]                   0L) {
[15:32:15.949]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:15.949]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:15.949]                   base::options(opts)
[15:32:15.949]                 }
[15:32:15.949]                 {
[15:32:15.949]                   {
[15:32:15.949]                     base::assign(".Random.seed", c(10403L, 8L, 
[15:32:15.949]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[15:32:15.949]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[15:32:15.949]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[15:32:15.949]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[15:32:15.949]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[15:32:15.949]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[15:32:15.949]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[15:32:15.949]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[15:32:15.949]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[15:32:15.949]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[15:32:15.949]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[15:32:15.949]                     -1512233174L, -1985955764L, -425390065L, 
[15:32:15.949]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[15:32:15.949]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[15:32:15.949]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[15:32:15.949]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[15:32:15.949]                     1818328109L, -1284085436L, -1981489558L, 
[15:32:15.949]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[15:32:15.949]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[15:32:15.949]                     -1718567047L, -793788661L, -1133789126L, 
[15:32:15.949]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[15:32:15.949]                     -1823521982L, -1345991523L, -1672661737L, 
[15:32:15.949]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[15:32:15.949]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[15:32:15.949]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[15:32:15.949]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[15:32:15.949]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[15:32:15.949]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[15:32:15.949]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[15:32:15.949]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[15:32:15.949]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[15:32:15.949]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[15:32:15.949]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[15:32:15.949]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[15:32:15.949]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[15:32:15.949]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[15:32:15.949]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[15:32:15.949]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[15:32:15.949]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[15:32:15.949]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[15:32:15.949]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[15:32:15.949]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[15:32:15.949]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[15:32:15.949]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[15:32:15.949]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[15:32:15.949]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[15:32:15.949]                     -1119334354L, -1521015416L, -2041922421L, 
[15:32:15.949]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[15:32:15.949]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[15:32:15.949]                     1232111981L, -1801753084L, -1608606422L, 
[15:32:15.949]                     -1172096363L, 1420874031L, -1210473418L, 
[15:32:15.949]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[15:32:15.949]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[15:32:15.949]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[15:32:15.949]                     679371266L, -591318819L, -104578089L, -172818754L, 
[15:32:15.949]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[15:32:15.949]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[15:32:15.949]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[15:32:15.949]                     -332493318L, -1978392251L, -1691039632L, 
[15:32:15.949]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[15:32:15.949]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[15:32:15.949]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[15:32:15.949]                     87560756L, -87565624L, 426345146L, -699970416L, 
[15:32:15.949]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[15:32:15.949]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[15:32:15.949]                     -1178330196L, -687617348L, -1701912078L, 
[15:32:15.949]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[15:32:15.949]                     -1345416048L, 1816730492L, -1570431212L, 
[15:32:15.949]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[15:32:15.949]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[15:32:15.949]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[15:32:15.949]                     -1493184262L, -1943836976L, -590788308L, 
[15:32:15.949]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[15:32:15.949]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[15:32:15.949]                     1274857340L, -1205842638L, -1938479504L, 
[15:32:15.949]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[15:32:15.949]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[15:32:15.949]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[15:32:15.949]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[15:32:15.949]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[15:32:15.949]                     -1460751252L, 1201879444L, -1459788718L, 
[15:32:15.949]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[15:32:15.949]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[15:32:15.949]                     -420945808L, -1997735900L, -1838404552L, 
[15:32:15.949]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[15:32:15.949]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[15:32:15.949]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[15:32:15.949]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[15:32:15.949]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[15:32:15.949]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[15:32:15.949]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[15:32:15.949]                     942193650L, 751741680L, 689743428L, -18455976L, 
[15:32:15.949]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[15:32:15.949]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[15:32:15.949]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[15:32:15.949]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[15:32:15.949]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[15:32:15.949]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[15:32:15.949]                     -1357570110L, 1896595240L, -2066952276L, 
[15:32:15.949]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[15:32:15.949]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[15:32:15.949]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[15:32:15.949]                     769655120L, 236357794L, 181393736L, -13334772L, 
[15:32:15.949]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[15:32:15.949]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[15:32:15.949]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[15:32:15.949]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[15:32:15.949]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[15:32:15.949]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[15:32:15.949]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[15:32:15.949]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[15:32:15.949]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[15:32:15.949]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[15:32:15.949]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[15:32:15.949]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[15:32:15.949]                     -1365842884L, -438961294L, -1851472272L, 
[15:32:15.949]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[15:32:15.949]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[15:32:15.949]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[15:32:15.949]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[15:32:15.949]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[15:32:15.949]                     -594809770L, -2146766621L, -2013964635L, 
[15:32:15.949]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[15:32:15.949]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[15:32:15.949]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[15:32:15.949]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[15:32:15.949]                     -1426021878L, -1285634264L, 1507547537L, 
[15:32:15.949]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[15:32:15.949]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[15:32:15.949]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[15:32:15.949]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[15:32:15.949]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[15:32:15.949]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[15:32:15.949]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[15:32:15.949]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[15:32:15.949]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[15:32:15.949]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[15:32:15.949]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[15:32:15.949]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[15:32:15.949]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[15:32:15.949]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[15:32:15.949]                     -1604604761L, 1421229008L, -1268333714L, 
[15:32:15.949]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[15:32:15.949]                     -2070476623L, -2099222749L, 1141171236L, 
[15:32:15.949]                     -146426158L, -1797385433L, -1129376399L, 
[15:32:15.949]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[15:32:15.949]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[15:32:15.949]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[15:32:15.949]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[15:32:15.949]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[15:32:15.949]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[15:32:15.949]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[15:32:15.949]                     -1092079724L, -1765622238L, -1882554057L, 
[15:32:15.949]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[15:32:15.949]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[15:32:15.949]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[15:32:15.949]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[15:32:15.949]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[15:32:15.949]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[15:32:15.949]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[15:32:15.949]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[15:32:15.949]                     865377681L, -1127426242L), envir = base::globalenv(), 
[15:32:15.949]                       inherits = FALSE)
[15:32:15.949]                     NULL
[15:32:15.949]                   }
[15:32:15.949]                   options(future.plan = NULL)
[15:32:15.949]                   if (is.na(NA_character_)) 
[15:32:15.949]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:15.949]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:15.949]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:15.949]                     .init = FALSE)
[15:32:15.949]                 }
[15:32:15.949]             }
[15:32:15.949]         }
[15:32:15.949]     })
[15:32:15.949]     if (TRUE) {
[15:32:15.949]         base::sink(type = "output", split = FALSE)
[15:32:15.949]         if (TRUE) {
[15:32:15.949]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:15.949]         }
[15:32:15.949]         else {
[15:32:15.949]             ...future.result["stdout"] <- base::list(NULL)
[15:32:15.949]         }
[15:32:15.949]         base::close(...future.stdout)
[15:32:15.949]         ...future.stdout <- NULL
[15:32:15.949]     }
[15:32:15.949]     ...future.result$conditions <- ...future.conditions
[15:32:15.949]     ...future.result$finished <- base::Sys.time()
[15:32:15.949]     ...future.result
[15:32:15.949] }
[15:32:15.962] assign_globals() ...
[15:32:15.963] List of 7
[15:32:15.963]  $ ...future.FUN            :function (...)  
[15:32:15.963]  $ foo                      :function (x = 1, y = 2)  
[15:32:15.963]  $ x                        : num 3
[15:32:15.963]  $ future.call.arguments    : list()
[15:32:15.963]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:15.963]  $ ...future.elements_ii    :List of 5
[15:32:15.963]   ..$ : int 0
[15:32:15.963]   ..$ : int 0
[15:32:15.963]   ..$ : int 0
[15:32:15.963]   ..$ : int 0
[15:32:15.963]   ..$ : int 0
[15:32:15.963]  $ ...future.seeds_ii       :List of 5
[15:32:15.963]   ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430
[15:32:15.963]   ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537
[15:32:15.963]   ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810
[15:32:15.963]   ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309
[15:32:15.963]   ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045
[15:32:15.963]  $ ...future.globals.maxSize: NULL
[15:32:15.963]  - attr(*, "where")=List of 7
[15:32:15.963]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ foo                      :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ x                        :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[15:32:15.963]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[15:32:15.963]  - attr(*, "resolved")= logi FALSE
[15:32:15.963]  - attr(*, "total_size")= num 2200
[15:32:15.963]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:15.963]  - attr(*, "already-done")= logi TRUE
[15:32:15.980] - reassign environment for '...future.FUN'
[15:32:15.980] - copied '...future.FUN' to environment
[15:32:15.981] - reassign environment for 'foo'
[15:32:15.981] - copied 'foo' to environment
[15:32:15.981] - copied 'x' to environment
[15:32:15.982] - copied 'future.call.arguments' to environment
[15:32:15.982] - copied '...future.elements_ii' to environment
[15:32:15.982] - copied '...future.seeds_ii' to environment
[15:32:15.982] - copied '...future.globals.maxSize' to environment
[15:32:15.983] assign_globals() ... done
[15:32:15.983] plan(): Setting new future strategy stack:
[15:32:15.984] List of future strategies:
[15:32:15.984] 1. sequential:
[15:32:15.984]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.984]    - tweaked: FALSE
[15:32:15.984]    - call: NULL
[15:32:15.985] plan(): nbrOfWorkers() = 1
[15:32:15.987] plan(): Setting new future strategy stack:
[15:32:15.987] List of future strategies:
[15:32:15.987] 1. sequential:
[15:32:15.987]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:15.987]    - tweaked: FALSE
[15:32:15.987]    - call: plan(strategy)
[15:32:15.988] plan(): nbrOfWorkers() = 1
[15:32:15.988] SequentialFuture started (and completed)
[15:32:15.989] - Launch lazy future ... done
[15:32:15.989] run() for 'SequentialFuture' ... done
[15:32:15.989] Created future:
[15:32:15.989] SequentialFuture:
[15:32:15.989] Label: 'future_replicate-1'
[15:32:15.989] Expression:
[15:32:15.989] {
[15:32:15.989]     do.call(function(...) {
[15:32:15.989]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:15.989]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:15.989]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:15.989]             on.exit(options(oopts), add = TRUE)
[15:32:15.989]         }
[15:32:15.989]         {
[15:32:15.989]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:15.989]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:15.989]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:15.989]                   envir = globalenv(), inherits = FALSE)
[15:32:15.989]                 ...future.FUN(...future.X_jj, ...)
[15:32:15.989]             })
[15:32:15.989]         }
[15:32:15.989]     }, args = future.call.arguments)
[15:32:15.989] }
[15:32:15.989] Lazy evaluation: FALSE
[15:32:15.989] Asynchronous evaluation: FALSE
[15:32:15.989] Local evaluation: TRUE
[15:32:15.989] Environment: 0x000002abb41bfd48
[15:32:15.989] Capture standard output: TRUE
[15:32:15.989] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:15.989] Globals: 7 objects totaling 2.81 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, ...)
[15:32:15.989] Packages: <none>
[15:32:15.989] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:15.989] Resolved: TRUE
[15:32:15.989] Value: 320 bytes of class 'list'
[15:32:15.989] Early signaling: FALSE
[15:32:15.989] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:15.989] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[15:32:15.992] Chunk #1 of 1 ... DONE
[15:32:15.992] Launching 1 futures (chunks) ... DONE
[15:32:15.992] Resolving 1 futures (chunks) ...
[15:32:15.993] resolve() on list ...
[15:32:15.993]  recursive: 0
[15:32:15.993]  length: 1
[15:32:15.993] 
[15:32:15.994] resolved() for 'SequentialFuture' ...
[15:32:15.994] - state: 'finished'
[15:32:15.994] - run: TRUE
[15:32:15.995] - result: 'FutureResult'
[15:32:15.995] resolved() for 'SequentialFuture' ... done
[15:32:15.995] Future #1
[15:32:15.996] signalConditionsASAP(SequentialFuture, pos=1) ...
[15:32:15.996] - nx: 1
[15:32:15.996] - relay: TRUE
[15:32:15.996] - stdout: TRUE
[15:32:15.997] - signal: TRUE
[15:32:15.997] - resignal: FALSE
[15:32:15.997] - force: TRUE
[15:32:15.997] - relayed: [n=1] FALSE
[15:32:15.998] - queued futures: [n=1] FALSE
[15:32:15.998]  - until=1
[15:32:15.998]  - relaying element #1
[15:32:15.999] - relayed: [n=1] TRUE
[15:32:15.999] - queued futures: [n=1] TRUE
[15:32:15.999] signalConditionsASAP(SequentialFuture, pos=1) ... done
[15:32:16.002]  length: 0 (resolved future 1)
[15:32:16.003] Relaying remaining futures
[15:32:16.003] signalConditionsASAP(NULL, pos=0) ...
[15:32:16.003] - nx: 1
[15:32:16.003] - relay: TRUE
[15:32:16.004] - stdout: TRUE
[15:32:16.004] - signal: TRUE
[15:32:16.004] - resignal: FALSE
[15:32:16.004] - force: TRUE
[15:32:16.005] - relayed: [n=1] TRUE
[15:32:16.005] - queued futures: [n=1] TRUE
 - flush all
[15:32:16.005] - relayed: [n=1] TRUE
[15:32:16.006] - queued futures: [n=1] TRUE
[15:32:16.006] signalConditionsASAP(NULL, pos=0) ... done
[15:32:16.006] resolve() on list ... DONE
[15:32:16.006]  - Number of value chunks collected: 1
[15:32:16.007] Resolving 1 futures (chunks) ... DONE
[15:32:16.007] Reducing values from 1 chunks ...
[15:32:16.007]  - Number of values collected after concatenation: 5
[15:32:16.007]  - Number of values expected: 5
[15:32:16.008] Reducing values from 1 chunks ... DONE
[15:32:16.008] future_lapply() ... DONE
[15:32:16.009] plan(): Setting new future strategy stack:
[15:32:16.009] List of future strategies:
[15:32:16.009] 1. sequential:
[15:32:16.009]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:16.009]    - tweaked: FALSE
[15:32:16.009]    - call: plan(sequential)
[15:32:16.010] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[15:32:16.011] plan(): Setting new future strategy stack:
[15:32:16.011] List of future strategies:
[15:32:16.011] 1. multisession:
[15:32:16.011]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[15:32:16.011]    - tweaked: FALSE
[15:32:16.011]    - call: plan(strategy)
[15:32:16.012] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[15:32:16.012] multisession:
[15:32:16.012] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[15:32:16.012] - tweaked: FALSE
[15:32:16.012] - call: plan(strategy)
[15:32:16.019] getGlobalsAndPackages() ...
[15:32:16.020] Not searching for globals
[15:32:16.020] - globals: [0] <none>
[15:32:16.020] getGlobalsAndPackages() ... DONE
[15:32:16.021] [local output] makeClusterPSOCK() ...
[15:32:16.076] [local output] Workers: [n = 2] 'localhost', 'localhost'
[15:32:16.085] [local output] Base port: 28000
[15:32:16.085] [local output] Getting setup options for 2 cluster nodes ...
[15:32:16.085] [local output]  - Node 1 of 2 ...
[15:32:16.086] [local output] localMachine=TRUE => revtunnel=FALSE

[15:32:16.088] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpUt2Eqk/worker.rank=1.parallelly.parent=76848.12c30144b5f6d.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpUt2Eqk/worker.rank=1.parallelly.parent=76848.12c30144b5f6d.pid\")"'
[15:32:16.640] - Possible to infer worker's PID: TRUE
[15:32:16.641] [local output] Rscript port: 28000

[15:32:16.642] [local output]  - Node 2 of 2 ...
[15:32:16.643] [local output] localMachine=TRUE => revtunnel=FALSE

[15:32:16.646] [local output] Rscript port: 28000

[15:32:16.647] [local output] Getting setup options for 2 cluster nodes ... done
[15:32:16.647] [local output]  - Parallel setup requested for some PSOCK nodes
[15:32:16.648] [local output] Setting up PSOCK nodes in parallel
[15:32:16.649] List of 36
[15:32:16.649]  $ worker          : chr "localhost"
[15:32:16.649]   ..- attr(*, "localhost")= logi TRUE
[15:32:16.649]  $ master          : chr "localhost"
[15:32:16.649]  $ port            : int 28000
[15:32:16.649]  $ connectTimeout  : num 120
[15:32:16.649]  $ timeout         : num 120
[15:32:16.649]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[15:32:16.649]  $ homogeneous     : logi TRUE
[15:32:16.649]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_replicate.R:76848:CRANWIN"| __truncated__
[15:32:16.649]  $ rscript_envs    : NULL
[15:32:16.649]  $ rscript_libs    : chr [1:2] "D:/temp/RtmpIhDozX/RLIBS_2bbc83f2b47c7" "D:/RCompile/recent/R/library"
[15:32:16.649]  $ rscript_startup : NULL
[15:32:16.649]  $ rscript_sh      : chr "cmd"
[15:32:16.649]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[15:32:16.649]  $ methods         : logi TRUE
[15:32:16.649]  $ socketOptions   : chr "no-delay"
[15:32:16.649]  $ useXDR          : logi FALSE
[15:32:16.649]  $ outfile         : chr "/dev/null"
[15:32:16.649]  $ renice          : int NA
[15:32:16.649]  $ rshcmd          : NULL
[15:32:16.649]  $ user            : chr(0) 
[15:32:16.649]  $ revtunnel       : logi FALSE
[15:32:16.649]  $ rshlogfile      : NULL
[15:32:16.649]  $ rshopts         : chr(0) 
[15:32:16.649]  $ rank            : int 1
[15:32:16.649]  $ manual          : logi FALSE
[15:32:16.649]  $ dryrun          : logi FALSE
[15:32:16.649]  $ quiet           : logi FALSE
[15:32:16.649]  $ setup_strategy  : chr "parallel"
[15:32:16.649]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[15:32:16.649]  $ pidfile         : chr "D:/temp/RtmpUt2Eqk/worker.rank=1.parallelly.parent=76848.12c30144b5f6d.pid"
[15:32:16.649]  $ rshcmd_label    : NULL
[15:32:16.649]  $ rsh_call        : NULL
[15:32:16.649]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[15:32:16.649]  $ localMachine    : logi TRUE
[15:32:16.649]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[15:32:16.649]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[15:32:16.649]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[15:32:16.649]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[15:32:16.649]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[15:32:16.649]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
[15:32:16.649]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[15:32:16.649]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[15:32:16.649]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[15:32:16.649]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[15:32:16.649]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[15:32:16.649]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[15:32:16.649]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[15:32:16.649]  $ arguments       :List of 28
[15:32:16.649]   ..$ worker          : chr "localhost"
[15:32:16.649]   ..$ master          : NULL
[15:32:16.649]   ..$ port            : int 28000
[15:32:16.649]   ..$ connectTimeout  : num 120
[15:32:16.649]   ..$ timeout         : num 120
[15:32:16.649]   ..$ rscript         : NULL
[15:32:16.649]   ..$ homogeneous     : NULL
[15:32:16.649]   ..$ rscript_args    : NULL
[15:32:16.649]   ..$ rscript_envs    : NULL
[15:32:16.649]   ..$ rscript_libs    : chr [1:2] "D:/temp/RtmpIhDozX/RLIBS_2bbc83f2b47c7" "D:/RCompile/recent/R/library"
[15:32:16.649]   ..$ rscript_startup : NULL
[15:32:16.649]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
[15:32:16.649]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[15:32:16.649]   ..$ methods         : logi TRUE
[15:32:16.649]   ..$ socketOptions   : chr "no-delay"
[15:32:16.649]   ..$ useXDR          : logi FALSE
[15:32:16.649]   ..$ outfile         : chr "/dev/null"
[15:32:16.649]   ..$ renice          : int NA
[15:32:16.649]   ..$ rshcmd          : NULL
[15:32:16.649]   ..$ user            : NULL
[15:32:16.649]   ..$ revtunnel       : logi NA
[15:32:16.649]   ..$ rshlogfile      : NULL
[15:32:16.649]   ..$ rshopts         : NULL
[15:32:16.649]   ..$ rank            : int 1
[15:32:16.649]   ..$ manual          : logi FALSE
[15:32:16.649]   ..$ dryrun          : logi FALSE
[15:32:16.649]   ..$ quiet           : logi FALSE
[15:32:16.649]   ..$ setup_strategy  : chr "parallel"
[15:32:16.649]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[15:32:16.681] [local output] System call to launch all workers:
[15:32:16.681] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_replicate.R:76848:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpUt2Eqk/worker.rank=1.parallelly.parent=76848.12c30144b5f6d.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/RtmpIhDozX/RLIBS_2bbc83f2b47c7\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=28000 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[15:32:16.681] [local output] Starting PSOCK main server
[15:32:16.691] [local output] Workers launched
[15:32:16.691] [local output] Waiting for workers to connect back
[15:32:16.692]  - [local output] 0 workers out of 2 ready
[15:32:16.947]  - [local output] 0 workers out of 2 ready
[15:32:16.948]  - [local output] 1 workers out of 2 ready
[15:32:16.978]  - [local output] 1 workers out of 2 ready
[15:32:16.979]  - [local output] 2 workers out of 2 ready
[15:32:16.979] [local output] Launching of workers completed
[15:32:16.980] [local output] Collecting session information from workers
[15:32:16.982] [local output]  - Worker #1 of 2
[15:32:16.983] [local output]  - Worker #2 of 2
[15:32:16.983] [local output] makeClusterPSOCK() ... done
[15:32:16.999] Packages needed by the future expression (n = 0): <none>
[15:32:17.000] Packages needed by future strategies (n = 0): <none>
[15:32:17.001] {
[15:32:17.001]     {
[15:32:17.001]         {
[15:32:17.001]             ...future.startTime <- base::Sys.time()
[15:32:17.001]             {
[15:32:17.001]                 {
[15:32:17.001]                   {
[15:32:17.001]                     {
[15:32:17.001]                       base::local({
[15:32:17.001]                         has_future <- base::requireNamespace("future", 
[15:32:17.001]                           quietly = TRUE)
[15:32:17.001]                         if (has_future) {
[15:32:17.001]                           ns <- base::getNamespace("future")
[15:32:17.001]                           version <- ns[[".package"]][["version"]]
[15:32:17.001]                           if (is.null(version)) 
[15:32:17.001]                             version <- utils::packageVersion("future")
[15:32:17.001]                         }
[15:32:17.001]                         else {
[15:32:17.001]                           version <- NULL
[15:32:17.001]                         }
[15:32:17.001]                         if (!has_future || version < "1.8.0") {
[15:32:17.001]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.001]                             "", base::R.version$version.string), 
[15:32:17.001]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.001]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.001]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.001]                               "release", "version")], collapse = " "), 
[15:32:17.001]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.001]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.001]                             info)
[15:32:17.001]                           info <- base::paste(info, collapse = "; ")
[15:32:17.001]                           if (!has_future) {
[15:32:17.001]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.001]                               info)
[15:32:17.001]                           }
[15:32:17.001]                           else {
[15:32:17.001]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.001]                               info, version)
[15:32:17.001]                           }
[15:32:17.001]                           base::stop(msg)
[15:32:17.001]                         }
[15:32:17.001]                       })
[15:32:17.001]                     }
[15:32:17.001]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.001]                     base::options(mc.cores = 1L)
[15:32:17.001]                   }
[15:32:17.001]                   ...future.strategy.old <- future::plan("list")
[15:32:17.001]                   options(future.plan = NULL)
[15:32:17.001]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.001]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.001]                 }
[15:32:17.001]                 ...future.workdir <- getwd()
[15:32:17.001]             }
[15:32:17.001]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.001]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.001]         }
[15:32:17.001]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.001]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[15:32:17.001]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.001]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.001]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.001]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.001]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.001]             base::names(...future.oldOptions))
[15:32:17.001]     }
[15:32:17.001]     if (FALSE) {
[15:32:17.001]     }
[15:32:17.001]     else {
[15:32:17.001]         if (TRUE) {
[15:32:17.001]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.001]                 open = "w")
[15:32:17.001]         }
[15:32:17.001]         else {
[15:32:17.001]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.001]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.001]         }
[15:32:17.001]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.001]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.001]             base::sink(type = "output", split = FALSE)
[15:32:17.001]             base::close(...future.stdout)
[15:32:17.001]         }, add = TRUE)
[15:32:17.001]     }
[15:32:17.001]     ...future.frame <- base::sys.nframe()
[15:32:17.001]     ...future.conditions <- base::list()
[15:32:17.001]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.001]     if (FALSE) {
[15:32:17.001]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.001]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.001]     }
[15:32:17.001]     ...future.result <- base::tryCatch({
[15:32:17.001]         base::withCallingHandlers({
[15:32:17.001]             ...future.value <- base::withVisible(base::local({
[15:32:17.001]                 ...future.makeSendCondition <- base::local({
[15:32:17.001]                   sendCondition <- NULL
[15:32:17.001]                   function(frame = 1L) {
[15:32:17.001]                     if (is.function(sendCondition)) 
[15:32:17.001]                       return(sendCondition)
[15:32:17.001]                     ns <- getNamespace("parallel")
[15:32:17.001]                     if (exists("sendData", mode = "function", 
[15:32:17.001]                       envir = ns)) {
[15:32:17.001]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.001]                         envir = ns)
[15:32:17.001]                       envir <- sys.frame(frame)
[15:32:17.001]                       master <- NULL
[15:32:17.001]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.001]                         !identical(envir, emptyenv())) {
[15:32:17.001]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.001]                           inherits = FALSE)) {
[15:32:17.001]                           master <- get("master", mode = "list", 
[15:32:17.001]                             envir = envir, inherits = FALSE)
[15:32:17.001]                           if (inherits(master, c("SOCKnode", 
[15:32:17.001]                             "SOCK0node"))) {
[15:32:17.001]                             sendCondition <<- function(cond) {
[15:32:17.001]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.001]                                 success = TRUE)
[15:32:17.001]                               parallel_sendData(master, data)
[15:32:17.001]                             }
[15:32:17.001]                             return(sendCondition)
[15:32:17.001]                           }
[15:32:17.001]                         }
[15:32:17.001]                         frame <- frame + 1L
[15:32:17.001]                         envir <- sys.frame(frame)
[15:32:17.001]                       }
[15:32:17.001]                     }
[15:32:17.001]                     sendCondition <<- function(cond) NULL
[15:32:17.001]                   }
[15:32:17.001]                 })
[15:32:17.001]                 withCallingHandlers({
[15:32:17.001]                   NA
[15:32:17.001]                 }, immediateCondition = function(cond) {
[15:32:17.001]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.001]                   sendCondition(cond)
[15:32:17.001]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.001]                   {
[15:32:17.001]                     inherits <- base::inherits
[15:32:17.001]                     invokeRestart <- base::invokeRestart
[15:32:17.001]                     is.null <- base::is.null
[15:32:17.001]                     muffled <- FALSE
[15:32:17.001]                     if (inherits(cond, "message")) {
[15:32:17.001]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.001]                       if (muffled) 
[15:32:17.001]                         invokeRestart("muffleMessage")
[15:32:17.001]                     }
[15:32:17.001]                     else if (inherits(cond, "warning")) {
[15:32:17.001]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.001]                       if (muffled) 
[15:32:17.001]                         invokeRestart("muffleWarning")
[15:32:17.001]                     }
[15:32:17.001]                     else if (inherits(cond, "condition")) {
[15:32:17.001]                       if (!is.null(pattern)) {
[15:32:17.001]                         computeRestarts <- base::computeRestarts
[15:32:17.001]                         grepl <- base::grepl
[15:32:17.001]                         restarts <- computeRestarts(cond)
[15:32:17.001]                         for (restart in restarts) {
[15:32:17.001]                           name <- restart$name
[15:32:17.001]                           if (is.null(name)) 
[15:32:17.001]                             next
[15:32:17.001]                           if (!grepl(pattern, name)) 
[15:32:17.001]                             next
[15:32:17.001]                           invokeRestart(restart)
[15:32:17.001]                           muffled <- TRUE
[15:32:17.001]                           break
[15:32:17.001]                         }
[15:32:17.001]                       }
[15:32:17.001]                     }
[15:32:17.001]                     invisible(muffled)
[15:32:17.001]                   }
[15:32:17.001]                   muffleCondition(cond)
[15:32:17.001]                 })
[15:32:17.001]             }))
[15:32:17.001]             future::FutureResult(value = ...future.value$value, 
[15:32:17.001]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.001]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.001]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.001]                     ...future.globalenv.names))
[15:32:17.001]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.001]         }, condition = base::local({
[15:32:17.001]             c <- base::c
[15:32:17.001]             inherits <- base::inherits
[15:32:17.001]             invokeRestart <- base::invokeRestart
[15:32:17.001]             length <- base::length
[15:32:17.001]             list <- base::list
[15:32:17.001]             seq.int <- base::seq.int
[15:32:17.001]             signalCondition <- base::signalCondition
[15:32:17.001]             sys.calls <- base::sys.calls
[15:32:17.001]             `[[` <- base::`[[`
[15:32:17.001]             `+` <- base::`+`
[15:32:17.001]             `<<-` <- base::`<<-`
[15:32:17.001]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.001]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.001]                   3L)]
[15:32:17.001]             }
[15:32:17.001]             function(cond) {
[15:32:17.001]                 is_error <- inherits(cond, "error")
[15:32:17.001]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.001]                   NULL)
[15:32:17.001]                 if (is_error) {
[15:32:17.001]                   sessionInformation <- function() {
[15:32:17.001]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.001]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.001]                       search = base::search(), system = base::Sys.info())
[15:32:17.001]                   }
[15:32:17.001]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.001]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.001]                     cond$call), session = sessionInformation(), 
[15:32:17.001]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.001]                   signalCondition(cond)
[15:32:17.001]                 }
[15:32:17.001]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.001]                 "immediateCondition"))) {
[15:32:17.001]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.001]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.001]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.001]                   if (TRUE && !signal) {
[15:32:17.001]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.001]                     {
[15:32:17.001]                       inherits <- base::inherits
[15:32:17.001]                       invokeRestart <- base::invokeRestart
[15:32:17.001]                       is.null <- base::is.null
[15:32:17.001]                       muffled <- FALSE
[15:32:17.001]                       if (inherits(cond, "message")) {
[15:32:17.001]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.001]                         if (muffled) 
[15:32:17.001]                           invokeRestart("muffleMessage")
[15:32:17.001]                       }
[15:32:17.001]                       else if (inherits(cond, "warning")) {
[15:32:17.001]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.001]                         if (muffled) 
[15:32:17.001]                           invokeRestart("muffleWarning")
[15:32:17.001]                       }
[15:32:17.001]                       else if (inherits(cond, "condition")) {
[15:32:17.001]                         if (!is.null(pattern)) {
[15:32:17.001]                           computeRestarts <- base::computeRestarts
[15:32:17.001]                           grepl <- base::grepl
[15:32:17.001]                           restarts <- computeRestarts(cond)
[15:32:17.001]                           for (restart in restarts) {
[15:32:17.001]                             name <- restart$name
[15:32:17.001]                             if (is.null(name)) 
[15:32:17.001]                               next
[15:32:17.001]                             if (!grepl(pattern, name)) 
[15:32:17.001]                               next
[15:32:17.001]                             invokeRestart(restart)
[15:32:17.001]                             muffled <- TRUE
[15:32:17.001]                             break
[15:32:17.001]                           }
[15:32:17.001]                         }
[15:32:17.001]                       }
[15:32:17.001]                       invisible(muffled)
[15:32:17.001]                     }
[15:32:17.001]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.001]                   }
[15:32:17.001]                 }
[15:32:17.001]                 else {
[15:32:17.001]                   if (TRUE) {
[15:32:17.001]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.001]                     {
[15:32:17.001]                       inherits <- base::inherits
[15:32:17.001]                       invokeRestart <- base::invokeRestart
[15:32:17.001]                       is.null <- base::is.null
[15:32:17.001]                       muffled <- FALSE
[15:32:17.001]                       if (inherits(cond, "message")) {
[15:32:17.001]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.001]                         if (muffled) 
[15:32:17.001]                           invokeRestart("muffleMessage")
[15:32:17.001]                       }
[15:32:17.001]                       else if (inherits(cond, "warning")) {
[15:32:17.001]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.001]                         if (muffled) 
[15:32:17.001]                           invokeRestart("muffleWarning")
[15:32:17.001]                       }
[15:32:17.001]                       else if (inherits(cond, "condition")) {
[15:32:17.001]                         if (!is.null(pattern)) {
[15:32:17.001]                           computeRestarts <- base::computeRestarts
[15:32:17.001]                           grepl <- base::grepl
[15:32:17.001]                           restarts <- computeRestarts(cond)
[15:32:17.001]                           for (restart in restarts) {
[15:32:17.001]                             name <- restart$name
[15:32:17.001]                             if (is.null(name)) 
[15:32:17.001]                               next
[15:32:17.001]                             if (!grepl(pattern, name)) 
[15:32:17.001]                               next
[15:32:17.001]                             invokeRestart(restart)
[15:32:17.001]                             muffled <- TRUE
[15:32:17.001]                             break
[15:32:17.001]                           }
[15:32:17.001]                         }
[15:32:17.001]                       }
[15:32:17.001]                       invisible(muffled)
[15:32:17.001]                     }
[15:32:17.001]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.001]                   }
[15:32:17.001]                 }
[15:32:17.001]             }
[15:32:17.001]         }))
[15:32:17.001]     }, error = function(ex) {
[15:32:17.001]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.001]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.001]                 ...future.rng), started = ...future.startTime, 
[15:32:17.001]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.001]             version = "1.8"), class = "FutureResult")
[15:32:17.001]     }, finally = {
[15:32:17.001]         if (!identical(...future.workdir, getwd())) 
[15:32:17.001]             setwd(...future.workdir)
[15:32:17.001]         {
[15:32:17.001]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.001]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.001]             }
[15:32:17.001]             base::options(...future.oldOptions)
[15:32:17.001]             if (.Platform$OS.type == "windows") {
[15:32:17.001]                 old_names <- names(...future.oldEnvVars)
[15:32:17.001]                 envs <- base::Sys.getenv()
[15:32:17.001]                 names <- names(envs)
[15:32:17.001]                 common <- intersect(names, old_names)
[15:32:17.001]                 added <- setdiff(names, old_names)
[15:32:17.001]                 removed <- setdiff(old_names, names)
[15:32:17.001]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.001]                   envs[common]]
[15:32:17.001]                 NAMES <- toupper(changed)
[15:32:17.001]                 args <- list()
[15:32:17.001]                 for (kk in seq_along(NAMES)) {
[15:32:17.001]                   name <- changed[[kk]]
[15:32:17.001]                   NAME <- NAMES[[kk]]
[15:32:17.001]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.001]                     next
[15:32:17.001]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.001]                 }
[15:32:17.001]                 NAMES <- toupper(added)
[15:32:17.001]                 for (kk in seq_along(NAMES)) {
[15:32:17.001]                   name <- added[[kk]]
[15:32:17.001]                   NAME <- NAMES[[kk]]
[15:32:17.001]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.001]                     next
[15:32:17.001]                   args[[name]] <- ""
[15:32:17.001]                 }
[15:32:17.001]                 NAMES <- toupper(removed)
[15:32:17.001]                 for (kk in seq_along(NAMES)) {
[15:32:17.001]                   name <- removed[[kk]]
[15:32:17.001]                   NAME <- NAMES[[kk]]
[15:32:17.001]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.001]                     next
[15:32:17.001]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.001]                 }
[15:32:17.001]                 if (length(args) > 0) 
[15:32:17.001]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.001]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.001]             }
[15:32:17.001]             else {
[15:32:17.001]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.001]             }
[15:32:17.001]             {
[15:32:17.001]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.001]                   0L) {
[15:32:17.001]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.001]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.001]                   base::options(opts)
[15:32:17.001]                 }
[15:32:17.001]                 {
[15:32:17.001]                   {
[15:32:17.001]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.001]                     NULL
[15:32:17.001]                   }
[15:32:17.001]                   options(future.plan = NULL)
[15:32:17.001]                   if (is.na(NA_character_)) 
[15:32:17.001]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.001]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.001]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.001]                     .init = FALSE)
[15:32:17.001]                 }
[15:32:17.001]             }
[15:32:17.001]         }
[15:32:17.001]     })
[15:32:17.001]     if (TRUE) {
[15:32:17.001]         base::sink(type = "output", split = FALSE)
[15:32:17.001]         if (TRUE) {
[15:32:17.001]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.001]         }
[15:32:17.001]         else {
[15:32:17.001]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.001]         }
[15:32:17.001]         base::close(...future.stdout)
[15:32:17.001]         ...future.stdout <- NULL
[15:32:17.001]     }
[15:32:17.001]     ...future.result$conditions <- ...future.conditions
[15:32:17.001]     ...future.result$finished <- base::Sys.time()
[15:32:17.001]     ...future.result
[15:32:17.001] }
[15:32:17.116] MultisessionFuture started
[15:32:17.117] result() for ClusterFuture ...
[15:32:17.118] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.118] - Validating connection of MultisessionFuture
[15:32:17.204] - received message: FutureResult
[15:32:17.205] - Received FutureResult
[15:32:17.209] - Erased future from FutureRegistry
[15:32:17.209] result() for ClusterFuture ...
[15:32:17.210] - result already collected: FutureResult
[15:32:17.210] result() for ClusterFuture ... done
[15:32:17.210] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.210] result() for ClusterFuture ... done
[15:32:17.210] result() for ClusterFuture ...
[15:32:17.211] - result already collected: FutureResult
[15:32:17.211] result() for ClusterFuture ... done
[15:32:17.211] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[15:32:17.214] plan(): nbrOfWorkers() = 2
[15:32:17.215] future_lapply() ...
[15:32:17.216] Generating random seeds ...
[15:32:17.216] Generating random seed streams for 5 elements ...
[15:32:17.216] Generating random seed streams for 5 elements ... DONE
[15:32:17.216] Generating random seeds ... DONE
[15:32:17.217] Will set RNG state on exit: 10403, 17, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:17.223] Number of chunks: 2
[15:32:17.223] getGlobalsAndPackagesXApply() ...
[15:32:17.223]  - future.globals: TRUE
[15:32:17.223] getGlobalsAndPackages() ...
[15:32:17.224] Searching for globals...
[15:32:17.226] - globals found: [2] 'FUN', 'sample'
[15:32:17.226] Searching for globals ... DONE
[15:32:17.226] Resolving globals: FALSE
[15:32:17.227] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:17.227] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:17.228] - globals: [1] 'FUN'
[15:32:17.228] 
[15:32:17.228] getGlobalsAndPackages() ... DONE
[15:32:17.228]  - globals found/used: [n=1] 'FUN'
[15:32:17.229]  - needed namespaces: [n=0] 
[15:32:17.229] Finding globals ... DONE
[15:32:17.229]  - use_args: TRUE
[15:32:17.229]  - Getting '...' globals ...
[15:32:17.230] resolve() on list ...
[15:32:17.230]  recursive: 0
[15:32:17.230]  length: 1
[15:32:17.230]  elements: '...'
[15:32:17.231]  length: 0 (resolved future 1)
[15:32:17.231] resolve() on list ... DONE
[15:32:17.231]    - '...' content: [n=0] 
[15:32:17.231] List of 1
[15:32:17.231]  $ ...: list()
[15:32:17.231]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.231]  - attr(*, "where")=List of 1
[15:32:17.231]   ..$ ...:<environment: 0x000002abb694a2e0> 
[15:32:17.231]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.231]  - attr(*, "resolved")= logi TRUE
[15:32:17.231]  - attr(*, "total_size")= num NA
[15:32:17.236]  - Getting '...' globals ... DONE
[15:32:17.237] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:17.237] List of 2
[15:32:17.237]  $ ...future.FUN:function (...)  
[15:32:17.237]  $ ...          : list()
[15:32:17.237]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.237]  - attr(*, "where")=List of 2
[15:32:17.237]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:17.237]   ..$ ...          :<environment: 0x000002abb694a2e0> 
[15:32:17.237]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.237]  - attr(*, "resolved")= logi FALSE
[15:32:17.237]  - attr(*, "total_size")= num 616
[15:32:17.242] Packages to be attached in all futures: [n=0] 
[15:32:17.242] getGlobalsAndPackagesXApply() ... DONE
[15:32:17.242] Number of futures (= number of chunks): 2
[15:32:17.243] Launching 2 futures (chunks) ...
[15:32:17.243] Chunk #1 of 2 ...
[15:32:17.243]  - Finding globals in 'X' for chunk #1 ...
[15:32:17.243] getGlobalsAndPackages() ...
[15:32:17.244] Searching for globals...
[15:32:17.244] 
[15:32:17.244] Searching for globals ... DONE
[15:32:17.245] - globals: [0] <none>
[15:32:17.245] getGlobalsAndPackages() ... DONE
[15:32:17.245]    + additional globals found: [n=0] 
[15:32:17.245]    + additional namespaces needed: [n=0] 
[15:32:17.245]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:17.246]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.246]  - seeds: [2] <seeds>
[15:32:17.246]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.246] getGlobalsAndPackages() ...
[15:32:17.247] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.247] Resolving globals: FALSE
[15:32:17.247] Tweak future expression to call with '...' arguments ...
[15:32:17.247] {
[15:32:17.247]     do.call(function(...) {
[15:32:17.247]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.247]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.247]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.247]             on.exit(options(oopts), add = TRUE)
[15:32:17.247]         }
[15:32:17.247]         {
[15:32:17.247]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.247]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.247]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.247]                   envir = globalenv(), inherits = FALSE)
[15:32:17.247]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.247]             })
[15:32:17.247]         }
[15:32:17.247]     }, args = future.call.arguments)
[15:32:17.247] }
[15:32:17.248] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.249] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.249] 
[15:32:17.249] getGlobalsAndPackages() ... DONE
[15:32:17.250] run() for 'Future' ...
[15:32:17.251] - state: 'created'
[15:32:17.251] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.268] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.268] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.269]   - Field: 'node'
[15:32:17.269]   - Field: 'label'
[15:32:17.269]   - Field: 'local'
[15:32:17.269]   - Field: 'owner'
[15:32:17.270]   - Field: 'envir'
[15:32:17.270]   - Field: 'workers'
[15:32:17.270]   - Field: 'packages'
[15:32:17.270]   - Field: 'gc'
[15:32:17.271]   - Field: 'conditions'
[15:32:17.271]   - Field: 'persistent'
[15:32:17.271]   - Field: 'expr'
[15:32:17.271]   - Field: 'uuid'
[15:32:17.272]   - Field: 'seed'
[15:32:17.272]   - Field: 'version'
[15:32:17.272]   - Field: 'result'
[15:32:17.273]   - Field: 'asynchronous'
[15:32:17.273]   - Field: 'calls'
[15:32:17.273]   - Field: 'globals'
[15:32:17.273]   - Field: 'stdout'
[15:32:17.274]   - Field: 'earlySignal'
[15:32:17.274]   - Field: 'lazy'
[15:32:17.274]   - Field: 'state'
[15:32:17.275] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.275] - Launch lazy future ...
[15:32:17.275] Packages needed by the future expression (n = 0): <none>
[15:32:17.276] Packages needed by future strategies (n = 0): <none>
[15:32:17.277] {
[15:32:17.277]     {
[15:32:17.277]         {
[15:32:17.277]             ...future.startTime <- base::Sys.time()
[15:32:17.277]             {
[15:32:17.277]                 {
[15:32:17.277]                   {
[15:32:17.277]                     {
[15:32:17.277]                       base::local({
[15:32:17.277]                         has_future <- base::requireNamespace("future", 
[15:32:17.277]                           quietly = TRUE)
[15:32:17.277]                         if (has_future) {
[15:32:17.277]                           ns <- base::getNamespace("future")
[15:32:17.277]                           version <- ns[[".package"]][["version"]]
[15:32:17.277]                           if (is.null(version)) 
[15:32:17.277]                             version <- utils::packageVersion("future")
[15:32:17.277]                         }
[15:32:17.277]                         else {
[15:32:17.277]                           version <- NULL
[15:32:17.277]                         }
[15:32:17.277]                         if (!has_future || version < "1.8.0") {
[15:32:17.277]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.277]                             "", base::R.version$version.string), 
[15:32:17.277]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.277]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.277]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.277]                               "release", "version")], collapse = " "), 
[15:32:17.277]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.277]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.277]                             info)
[15:32:17.277]                           info <- base::paste(info, collapse = "; ")
[15:32:17.277]                           if (!has_future) {
[15:32:17.277]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.277]                               info)
[15:32:17.277]                           }
[15:32:17.277]                           else {
[15:32:17.277]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.277]                               info, version)
[15:32:17.277]                           }
[15:32:17.277]                           base::stop(msg)
[15:32:17.277]                         }
[15:32:17.277]                       })
[15:32:17.277]                     }
[15:32:17.277]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.277]                     base::options(mc.cores = 1L)
[15:32:17.277]                   }
[15:32:17.277]                   ...future.strategy.old <- future::plan("list")
[15:32:17.277]                   options(future.plan = NULL)
[15:32:17.277]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.277]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.277]                 }
[15:32:17.277]                 ...future.workdir <- getwd()
[15:32:17.277]             }
[15:32:17.277]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.277]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.277]         }
[15:32:17.277]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.277]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.277]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.277]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.277]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.277]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.277]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.277]             base::names(...future.oldOptions))
[15:32:17.277]     }
[15:32:17.277]     if (FALSE) {
[15:32:17.277]     }
[15:32:17.277]     else {
[15:32:17.277]         if (TRUE) {
[15:32:17.277]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.277]                 open = "w")
[15:32:17.277]         }
[15:32:17.277]         else {
[15:32:17.277]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.277]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.277]         }
[15:32:17.277]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.277]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.277]             base::sink(type = "output", split = FALSE)
[15:32:17.277]             base::close(...future.stdout)
[15:32:17.277]         }, add = TRUE)
[15:32:17.277]     }
[15:32:17.277]     ...future.frame <- base::sys.nframe()
[15:32:17.277]     ...future.conditions <- base::list()
[15:32:17.277]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.277]     if (FALSE) {
[15:32:17.277]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.277]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.277]     }
[15:32:17.277]     ...future.result <- base::tryCatch({
[15:32:17.277]         base::withCallingHandlers({
[15:32:17.277]             ...future.value <- base::withVisible(base::local({
[15:32:17.277]                 ...future.makeSendCondition <- base::local({
[15:32:17.277]                   sendCondition <- NULL
[15:32:17.277]                   function(frame = 1L) {
[15:32:17.277]                     if (is.function(sendCondition)) 
[15:32:17.277]                       return(sendCondition)
[15:32:17.277]                     ns <- getNamespace("parallel")
[15:32:17.277]                     if (exists("sendData", mode = "function", 
[15:32:17.277]                       envir = ns)) {
[15:32:17.277]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.277]                         envir = ns)
[15:32:17.277]                       envir <- sys.frame(frame)
[15:32:17.277]                       master <- NULL
[15:32:17.277]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.277]                         !identical(envir, emptyenv())) {
[15:32:17.277]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.277]                           inherits = FALSE)) {
[15:32:17.277]                           master <- get("master", mode = "list", 
[15:32:17.277]                             envir = envir, inherits = FALSE)
[15:32:17.277]                           if (inherits(master, c("SOCKnode", 
[15:32:17.277]                             "SOCK0node"))) {
[15:32:17.277]                             sendCondition <<- function(cond) {
[15:32:17.277]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.277]                                 success = TRUE)
[15:32:17.277]                               parallel_sendData(master, data)
[15:32:17.277]                             }
[15:32:17.277]                             return(sendCondition)
[15:32:17.277]                           }
[15:32:17.277]                         }
[15:32:17.277]                         frame <- frame + 1L
[15:32:17.277]                         envir <- sys.frame(frame)
[15:32:17.277]                       }
[15:32:17.277]                     }
[15:32:17.277]                     sendCondition <<- function(cond) NULL
[15:32:17.277]                   }
[15:32:17.277]                 })
[15:32:17.277]                 withCallingHandlers({
[15:32:17.277]                   {
[15:32:17.277]                     do.call(function(...) {
[15:32:17.277]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.277]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.277]                         ...future.globals.maxSize)) {
[15:32:17.277]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.277]                         on.exit(options(oopts), add = TRUE)
[15:32:17.277]                       }
[15:32:17.277]                       {
[15:32:17.277]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.277]                           FUN = function(jj) {
[15:32:17.277]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.277]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.277]                               envir = globalenv(), inherits = FALSE)
[15:32:17.277]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.277]                           })
[15:32:17.277]                       }
[15:32:17.277]                     }, args = future.call.arguments)
[15:32:17.277]                   }
[15:32:17.277]                 }, immediateCondition = function(cond) {
[15:32:17.277]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.277]                   sendCondition(cond)
[15:32:17.277]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.277]                   {
[15:32:17.277]                     inherits <- base::inherits
[15:32:17.277]                     invokeRestart <- base::invokeRestart
[15:32:17.277]                     is.null <- base::is.null
[15:32:17.277]                     muffled <- FALSE
[15:32:17.277]                     if (inherits(cond, "message")) {
[15:32:17.277]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.277]                       if (muffled) 
[15:32:17.277]                         invokeRestart("muffleMessage")
[15:32:17.277]                     }
[15:32:17.277]                     else if (inherits(cond, "warning")) {
[15:32:17.277]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.277]                       if (muffled) 
[15:32:17.277]                         invokeRestart("muffleWarning")
[15:32:17.277]                     }
[15:32:17.277]                     else if (inherits(cond, "condition")) {
[15:32:17.277]                       if (!is.null(pattern)) {
[15:32:17.277]                         computeRestarts <- base::computeRestarts
[15:32:17.277]                         grepl <- base::grepl
[15:32:17.277]                         restarts <- computeRestarts(cond)
[15:32:17.277]                         for (restart in restarts) {
[15:32:17.277]                           name <- restart$name
[15:32:17.277]                           if (is.null(name)) 
[15:32:17.277]                             next
[15:32:17.277]                           if (!grepl(pattern, name)) 
[15:32:17.277]                             next
[15:32:17.277]                           invokeRestart(restart)
[15:32:17.277]                           muffled <- TRUE
[15:32:17.277]                           break
[15:32:17.277]                         }
[15:32:17.277]                       }
[15:32:17.277]                     }
[15:32:17.277]                     invisible(muffled)
[15:32:17.277]                   }
[15:32:17.277]                   muffleCondition(cond)
[15:32:17.277]                 })
[15:32:17.277]             }))
[15:32:17.277]             future::FutureResult(value = ...future.value$value, 
[15:32:17.277]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.277]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.277]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.277]                     ...future.globalenv.names))
[15:32:17.277]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.277]         }, condition = base::local({
[15:32:17.277]             c <- base::c
[15:32:17.277]             inherits <- base::inherits
[15:32:17.277]             invokeRestart <- base::invokeRestart
[15:32:17.277]             length <- base::length
[15:32:17.277]             list <- base::list
[15:32:17.277]             seq.int <- base::seq.int
[15:32:17.277]             signalCondition <- base::signalCondition
[15:32:17.277]             sys.calls <- base::sys.calls
[15:32:17.277]             `[[` <- base::`[[`
[15:32:17.277]             `+` <- base::`+`
[15:32:17.277]             `<<-` <- base::`<<-`
[15:32:17.277]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.277]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.277]                   3L)]
[15:32:17.277]             }
[15:32:17.277]             function(cond) {
[15:32:17.277]                 is_error <- inherits(cond, "error")
[15:32:17.277]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.277]                   NULL)
[15:32:17.277]                 if (is_error) {
[15:32:17.277]                   sessionInformation <- function() {
[15:32:17.277]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.277]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.277]                       search = base::search(), system = base::Sys.info())
[15:32:17.277]                   }
[15:32:17.277]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.277]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.277]                     cond$call), session = sessionInformation(), 
[15:32:17.277]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.277]                   signalCondition(cond)
[15:32:17.277]                 }
[15:32:17.277]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.277]                 "immediateCondition"))) {
[15:32:17.277]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.277]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.277]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.277]                   if (TRUE && !signal) {
[15:32:17.277]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.277]                     {
[15:32:17.277]                       inherits <- base::inherits
[15:32:17.277]                       invokeRestart <- base::invokeRestart
[15:32:17.277]                       is.null <- base::is.null
[15:32:17.277]                       muffled <- FALSE
[15:32:17.277]                       if (inherits(cond, "message")) {
[15:32:17.277]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.277]                         if (muffled) 
[15:32:17.277]                           invokeRestart("muffleMessage")
[15:32:17.277]                       }
[15:32:17.277]                       else if (inherits(cond, "warning")) {
[15:32:17.277]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.277]                         if (muffled) 
[15:32:17.277]                           invokeRestart("muffleWarning")
[15:32:17.277]                       }
[15:32:17.277]                       else if (inherits(cond, "condition")) {
[15:32:17.277]                         if (!is.null(pattern)) {
[15:32:17.277]                           computeRestarts <- base::computeRestarts
[15:32:17.277]                           grepl <- base::grepl
[15:32:17.277]                           restarts <- computeRestarts(cond)
[15:32:17.277]                           for (restart in restarts) {
[15:32:17.277]                             name <- restart$name
[15:32:17.277]                             if (is.null(name)) 
[15:32:17.277]                               next
[15:32:17.277]                             if (!grepl(pattern, name)) 
[15:32:17.277]                               next
[15:32:17.277]                             invokeRestart(restart)
[15:32:17.277]                             muffled <- TRUE
[15:32:17.277]                             break
[15:32:17.277]                           }
[15:32:17.277]                         }
[15:32:17.277]                       }
[15:32:17.277]                       invisible(muffled)
[15:32:17.277]                     }
[15:32:17.277]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.277]                   }
[15:32:17.277]                 }
[15:32:17.277]                 else {
[15:32:17.277]                   if (TRUE) {
[15:32:17.277]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.277]                     {
[15:32:17.277]                       inherits <- base::inherits
[15:32:17.277]                       invokeRestart <- base::invokeRestart
[15:32:17.277]                       is.null <- base::is.null
[15:32:17.277]                       muffled <- FALSE
[15:32:17.277]                       if (inherits(cond, "message")) {
[15:32:17.277]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.277]                         if (muffled) 
[15:32:17.277]                           invokeRestart("muffleMessage")
[15:32:17.277]                       }
[15:32:17.277]                       else if (inherits(cond, "warning")) {
[15:32:17.277]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.277]                         if (muffled) 
[15:32:17.277]                           invokeRestart("muffleWarning")
[15:32:17.277]                       }
[15:32:17.277]                       else if (inherits(cond, "condition")) {
[15:32:17.277]                         if (!is.null(pattern)) {
[15:32:17.277]                           computeRestarts <- base::computeRestarts
[15:32:17.277]                           grepl <- base::grepl
[15:32:17.277]                           restarts <- computeRestarts(cond)
[15:32:17.277]                           for (restart in restarts) {
[15:32:17.277]                             name <- restart$name
[15:32:17.277]                             if (is.null(name)) 
[15:32:17.277]                               next
[15:32:17.277]                             if (!grepl(pattern, name)) 
[15:32:17.277]                               next
[15:32:17.277]                             invokeRestart(restart)
[15:32:17.277]                             muffled <- TRUE
[15:32:17.277]                             break
[15:32:17.277]                           }
[15:32:17.277]                         }
[15:32:17.277]                       }
[15:32:17.277]                       invisible(muffled)
[15:32:17.277]                     }
[15:32:17.277]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.277]                   }
[15:32:17.277]                 }
[15:32:17.277]             }
[15:32:17.277]         }))
[15:32:17.277]     }, error = function(ex) {
[15:32:17.277]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.277]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.277]                 ...future.rng), started = ...future.startTime, 
[15:32:17.277]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.277]             version = "1.8"), class = "FutureResult")
[15:32:17.277]     }, finally = {
[15:32:17.277]         if (!identical(...future.workdir, getwd())) 
[15:32:17.277]             setwd(...future.workdir)
[15:32:17.277]         {
[15:32:17.277]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.277]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.277]             }
[15:32:17.277]             base::options(...future.oldOptions)
[15:32:17.277]             if (.Platform$OS.type == "windows") {
[15:32:17.277]                 old_names <- names(...future.oldEnvVars)
[15:32:17.277]                 envs <- base::Sys.getenv()
[15:32:17.277]                 names <- names(envs)
[15:32:17.277]                 common <- intersect(names, old_names)
[15:32:17.277]                 added <- setdiff(names, old_names)
[15:32:17.277]                 removed <- setdiff(old_names, names)
[15:32:17.277]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.277]                   envs[common]]
[15:32:17.277]                 NAMES <- toupper(changed)
[15:32:17.277]                 args <- list()
[15:32:17.277]                 for (kk in seq_along(NAMES)) {
[15:32:17.277]                   name <- changed[[kk]]
[15:32:17.277]                   NAME <- NAMES[[kk]]
[15:32:17.277]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.277]                     next
[15:32:17.277]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.277]                 }
[15:32:17.277]                 NAMES <- toupper(added)
[15:32:17.277]                 for (kk in seq_along(NAMES)) {
[15:32:17.277]                   name <- added[[kk]]
[15:32:17.277]                   NAME <- NAMES[[kk]]
[15:32:17.277]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.277]                     next
[15:32:17.277]                   args[[name]] <- ""
[15:32:17.277]                 }
[15:32:17.277]                 NAMES <- toupper(removed)
[15:32:17.277]                 for (kk in seq_along(NAMES)) {
[15:32:17.277]                   name <- removed[[kk]]
[15:32:17.277]                   NAME <- NAMES[[kk]]
[15:32:17.277]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.277]                     next
[15:32:17.277]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.277]                 }
[15:32:17.277]                 if (length(args) > 0) 
[15:32:17.277]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.277]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.277]             }
[15:32:17.277]             else {
[15:32:17.277]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.277]             }
[15:32:17.277]             {
[15:32:17.277]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.277]                   0L) {
[15:32:17.277]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.277]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.277]                   base::options(opts)
[15:32:17.277]                 }
[15:32:17.277]                 {
[15:32:17.277]                   {
[15:32:17.277]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.277]                     NULL
[15:32:17.277]                   }
[15:32:17.277]                   options(future.plan = NULL)
[15:32:17.277]                   if (is.na(NA_character_)) 
[15:32:17.277]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.277]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.277]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.277]                     .init = FALSE)
[15:32:17.277]                 }
[15:32:17.277]             }
[15:32:17.277]         }
[15:32:17.277]     })
[15:32:17.277]     if (TRUE) {
[15:32:17.277]         base::sink(type = "output", split = FALSE)
[15:32:17.277]         if (TRUE) {
[15:32:17.277]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.277]         }
[15:32:17.277]         else {
[15:32:17.277]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.277]         }
[15:32:17.277]         base::close(...future.stdout)
[15:32:17.277]         ...future.stdout <- NULL
[15:32:17.277]     }
[15:32:17.277]     ...future.result$conditions <- ...future.conditions
[15:32:17.277]     ...future.result$finished <- base::Sys.time()
[15:32:17.277]     ...future.result
[15:32:17.277] }
[15:32:17.285] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.286] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.288] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.288] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.290] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.290] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:17.291] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:17.292] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:17.292] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:17.293] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.294] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.294] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.296] MultisessionFuture started
[15:32:17.296] - Launch lazy future ... done
[15:32:17.296] run() for 'MultisessionFuture' ... done
[15:32:17.297] Created future:
[15:32:17.319] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.320] - Validating connection of MultisessionFuture
[15:32:17.320] - received message: FutureResult
[15:32:17.320] - Received FutureResult
[15:32:17.321] - Erased future from FutureRegistry
[15:32:17.321] result() for ClusterFuture ...
[15:32:17.321] - result already collected: FutureResult
[15:32:17.321] result() for ClusterFuture ... done
[15:32:17.321] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.297] MultisessionFuture:
[15:32:17.297] Label: 'future_replicate-1'
[15:32:17.297] Expression:
[15:32:17.297] {
[15:32:17.297]     do.call(function(...) {
[15:32:17.297]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.297]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.297]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.297]             on.exit(options(oopts), add = TRUE)
[15:32:17.297]         }
[15:32:17.297]         {
[15:32:17.297]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.297]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.297]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.297]                   envir = globalenv(), inherits = FALSE)
[15:32:17.297]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.297]             })
[15:32:17.297]         }
[15:32:17.297]     }, args = future.call.arguments)
[15:32:17.297] }
[15:32:17.297] Lazy evaluation: FALSE
[15:32:17.297] Asynchronous evaluation: TRUE
[15:32:17.297] Local evaluation: TRUE
[15:32:17.297] Environment: R_GlobalEnv
[15:32:17.297] Capture standard output: TRUE
[15:32:17.297] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.297] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.297] Packages: <none>
[15:32:17.297] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.297] Resolved: TRUE
[15:32:17.297] Value: <not collected>
[15:32:17.297] Conditions captured: <none>
[15:32:17.297] Early signaling: FALSE
[15:32:17.297] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.297] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.322] Chunk #1 of 2 ... DONE
[15:32:17.322] Chunk #2 of 2 ...
[15:32:17.322]  - Finding globals in 'X' for chunk #2 ...
[15:32:17.322] getGlobalsAndPackages() ...
[15:32:17.323] Searching for globals...
[15:32:17.323] 
[15:32:17.323] Searching for globals ... DONE
[15:32:17.323] - globals: [0] <none>
[15:32:17.324] getGlobalsAndPackages() ... DONE
[15:32:17.324]    + additional globals found: [n=0] 
[15:32:17.324]    + additional namespaces needed: [n=0] 
[15:32:17.324]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:17.324]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.324]  - seeds: [3] <seeds>
[15:32:17.325]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.325] getGlobalsAndPackages() ...
[15:32:17.325] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.325] Resolving globals: FALSE
[15:32:17.325] Tweak future expression to call with '...' arguments ...
[15:32:17.326] {
[15:32:17.326]     do.call(function(...) {
[15:32:17.326]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.326]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.326]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.326]             on.exit(options(oopts), add = TRUE)
[15:32:17.326]         }
[15:32:17.326]         {
[15:32:17.326]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.326]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.326]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.326]                   envir = globalenv(), inherits = FALSE)
[15:32:17.326]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.326]             })
[15:32:17.326]         }
[15:32:17.326]     }, args = future.call.arguments)
[15:32:17.326] }
[15:32:17.326] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.327] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.327] 
[15:32:17.327] getGlobalsAndPackages() ... DONE
[15:32:17.328] run() for 'Future' ...
[15:32:17.328] - state: 'created'
[15:32:17.328] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.345] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.345] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.346]   - Field: 'node'
[15:32:17.346]   - Field: 'label'
[15:32:17.346]   - Field: 'local'
[15:32:17.347]   - Field: 'owner'
[15:32:17.347]   - Field: 'envir'
[15:32:17.347]   - Field: 'workers'
[15:32:17.347]   - Field: 'packages'
[15:32:17.348]   - Field: 'gc'
[15:32:17.348]   - Field: 'conditions'
[15:32:17.348]   - Field: 'persistent'
[15:32:17.348]   - Field: 'expr'
[15:32:17.349]   - Field: 'uuid'
[15:32:17.349]   - Field: 'seed'
[15:32:17.349]   - Field: 'version'
[15:32:17.349]   - Field: 'result'
[15:32:17.350]   - Field: 'asynchronous'
[15:32:17.350]   - Field: 'calls'
[15:32:17.350]   - Field: 'globals'
[15:32:17.351]   - Field: 'stdout'
[15:32:17.351]   - Field: 'earlySignal'
[15:32:17.351]   - Field: 'lazy'
[15:32:17.351]   - Field: 'state'
[15:32:17.352] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.352] - Launch lazy future ...
[15:32:17.352] Packages needed by the future expression (n = 0): <none>
[15:32:17.353] Packages needed by future strategies (n = 0): <none>
[15:32:17.354] {
[15:32:17.354]     {
[15:32:17.354]         {
[15:32:17.354]             ...future.startTime <- base::Sys.time()
[15:32:17.354]             {
[15:32:17.354]                 {
[15:32:17.354]                   {
[15:32:17.354]                     {
[15:32:17.354]                       base::local({
[15:32:17.354]                         has_future <- base::requireNamespace("future", 
[15:32:17.354]                           quietly = TRUE)
[15:32:17.354]                         if (has_future) {
[15:32:17.354]                           ns <- base::getNamespace("future")
[15:32:17.354]                           version <- ns[[".package"]][["version"]]
[15:32:17.354]                           if (is.null(version)) 
[15:32:17.354]                             version <- utils::packageVersion("future")
[15:32:17.354]                         }
[15:32:17.354]                         else {
[15:32:17.354]                           version <- NULL
[15:32:17.354]                         }
[15:32:17.354]                         if (!has_future || version < "1.8.0") {
[15:32:17.354]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.354]                             "", base::R.version$version.string), 
[15:32:17.354]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.354]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.354]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.354]                               "release", "version")], collapse = " "), 
[15:32:17.354]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.354]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.354]                             info)
[15:32:17.354]                           info <- base::paste(info, collapse = "; ")
[15:32:17.354]                           if (!has_future) {
[15:32:17.354]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.354]                               info)
[15:32:17.354]                           }
[15:32:17.354]                           else {
[15:32:17.354]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.354]                               info, version)
[15:32:17.354]                           }
[15:32:17.354]                           base::stop(msg)
[15:32:17.354]                         }
[15:32:17.354]                       })
[15:32:17.354]                     }
[15:32:17.354]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.354]                     base::options(mc.cores = 1L)
[15:32:17.354]                   }
[15:32:17.354]                   ...future.strategy.old <- future::plan("list")
[15:32:17.354]                   options(future.plan = NULL)
[15:32:17.354]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.354]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.354]                 }
[15:32:17.354]                 ...future.workdir <- getwd()
[15:32:17.354]             }
[15:32:17.354]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.354]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.354]         }
[15:32:17.354]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.354]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.354]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.354]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.354]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.354]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.354]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.354]             base::names(...future.oldOptions))
[15:32:17.354]     }
[15:32:17.354]     if (FALSE) {
[15:32:17.354]     }
[15:32:17.354]     else {
[15:32:17.354]         if (TRUE) {
[15:32:17.354]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.354]                 open = "w")
[15:32:17.354]         }
[15:32:17.354]         else {
[15:32:17.354]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.354]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.354]         }
[15:32:17.354]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.354]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.354]             base::sink(type = "output", split = FALSE)
[15:32:17.354]             base::close(...future.stdout)
[15:32:17.354]         }, add = TRUE)
[15:32:17.354]     }
[15:32:17.354]     ...future.frame <- base::sys.nframe()
[15:32:17.354]     ...future.conditions <- base::list()
[15:32:17.354]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.354]     if (FALSE) {
[15:32:17.354]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.354]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.354]     }
[15:32:17.354]     ...future.result <- base::tryCatch({
[15:32:17.354]         base::withCallingHandlers({
[15:32:17.354]             ...future.value <- base::withVisible(base::local({
[15:32:17.354]                 ...future.makeSendCondition <- base::local({
[15:32:17.354]                   sendCondition <- NULL
[15:32:17.354]                   function(frame = 1L) {
[15:32:17.354]                     if (is.function(sendCondition)) 
[15:32:17.354]                       return(sendCondition)
[15:32:17.354]                     ns <- getNamespace("parallel")
[15:32:17.354]                     if (exists("sendData", mode = "function", 
[15:32:17.354]                       envir = ns)) {
[15:32:17.354]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.354]                         envir = ns)
[15:32:17.354]                       envir <- sys.frame(frame)
[15:32:17.354]                       master <- NULL
[15:32:17.354]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.354]                         !identical(envir, emptyenv())) {
[15:32:17.354]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.354]                           inherits = FALSE)) {
[15:32:17.354]                           master <- get("master", mode = "list", 
[15:32:17.354]                             envir = envir, inherits = FALSE)
[15:32:17.354]                           if (inherits(master, c("SOCKnode", 
[15:32:17.354]                             "SOCK0node"))) {
[15:32:17.354]                             sendCondition <<- function(cond) {
[15:32:17.354]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.354]                                 success = TRUE)
[15:32:17.354]                               parallel_sendData(master, data)
[15:32:17.354]                             }
[15:32:17.354]                             return(sendCondition)
[15:32:17.354]                           }
[15:32:17.354]                         }
[15:32:17.354]                         frame <- frame + 1L
[15:32:17.354]                         envir <- sys.frame(frame)
[15:32:17.354]                       }
[15:32:17.354]                     }
[15:32:17.354]                     sendCondition <<- function(cond) NULL
[15:32:17.354]                   }
[15:32:17.354]                 })
[15:32:17.354]                 withCallingHandlers({
[15:32:17.354]                   {
[15:32:17.354]                     do.call(function(...) {
[15:32:17.354]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.354]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.354]                         ...future.globals.maxSize)) {
[15:32:17.354]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.354]                         on.exit(options(oopts), add = TRUE)
[15:32:17.354]                       }
[15:32:17.354]                       {
[15:32:17.354]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.354]                           FUN = function(jj) {
[15:32:17.354]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.354]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.354]                               envir = globalenv(), inherits = FALSE)
[15:32:17.354]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.354]                           })
[15:32:17.354]                       }
[15:32:17.354]                     }, args = future.call.arguments)
[15:32:17.354]                   }
[15:32:17.354]                 }, immediateCondition = function(cond) {
[15:32:17.354]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.354]                   sendCondition(cond)
[15:32:17.354]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.354]                   {
[15:32:17.354]                     inherits <- base::inherits
[15:32:17.354]                     invokeRestart <- base::invokeRestart
[15:32:17.354]                     is.null <- base::is.null
[15:32:17.354]                     muffled <- FALSE
[15:32:17.354]                     if (inherits(cond, "message")) {
[15:32:17.354]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.354]                       if (muffled) 
[15:32:17.354]                         invokeRestart("muffleMessage")
[15:32:17.354]                     }
[15:32:17.354]                     else if (inherits(cond, "warning")) {
[15:32:17.354]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.354]                       if (muffled) 
[15:32:17.354]                         invokeRestart("muffleWarning")
[15:32:17.354]                     }
[15:32:17.354]                     else if (inherits(cond, "condition")) {
[15:32:17.354]                       if (!is.null(pattern)) {
[15:32:17.354]                         computeRestarts <- base::computeRestarts
[15:32:17.354]                         grepl <- base::grepl
[15:32:17.354]                         restarts <- computeRestarts(cond)
[15:32:17.354]                         for (restart in restarts) {
[15:32:17.354]                           name <- restart$name
[15:32:17.354]                           if (is.null(name)) 
[15:32:17.354]                             next
[15:32:17.354]                           if (!grepl(pattern, name)) 
[15:32:17.354]                             next
[15:32:17.354]                           invokeRestart(restart)
[15:32:17.354]                           muffled <- TRUE
[15:32:17.354]                           break
[15:32:17.354]                         }
[15:32:17.354]                       }
[15:32:17.354]                     }
[15:32:17.354]                     invisible(muffled)
[15:32:17.354]                   }
[15:32:17.354]                   muffleCondition(cond)
[15:32:17.354]                 })
[15:32:17.354]             }))
[15:32:17.354]             future::FutureResult(value = ...future.value$value, 
[15:32:17.354]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.354]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.354]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.354]                     ...future.globalenv.names))
[15:32:17.354]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.354]         }, condition = base::local({
[15:32:17.354]             c <- base::c
[15:32:17.354]             inherits <- base::inherits
[15:32:17.354]             invokeRestart <- base::invokeRestart
[15:32:17.354]             length <- base::length
[15:32:17.354]             list <- base::list
[15:32:17.354]             seq.int <- base::seq.int
[15:32:17.354]             signalCondition <- base::signalCondition
[15:32:17.354]             sys.calls <- base::sys.calls
[15:32:17.354]             `[[` <- base::`[[`
[15:32:17.354]             `+` <- base::`+`
[15:32:17.354]             `<<-` <- base::`<<-`
[15:32:17.354]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.354]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.354]                   3L)]
[15:32:17.354]             }
[15:32:17.354]             function(cond) {
[15:32:17.354]                 is_error <- inherits(cond, "error")
[15:32:17.354]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.354]                   NULL)
[15:32:17.354]                 if (is_error) {
[15:32:17.354]                   sessionInformation <- function() {
[15:32:17.354]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.354]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.354]                       search = base::search(), system = base::Sys.info())
[15:32:17.354]                   }
[15:32:17.354]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.354]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.354]                     cond$call), session = sessionInformation(), 
[15:32:17.354]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.354]                   signalCondition(cond)
[15:32:17.354]                 }
[15:32:17.354]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.354]                 "immediateCondition"))) {
[15:32:17.354]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.354]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.354]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.354]                   if (TRUE && !signal) {
[15:32:17.354]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.354]                     {
[15:32:17.354]                       inherits <- base::inherits
[15:32:17.354]                       invokeRestart <- base::invokeRestart
[15:32:17.354]                       is.null <- base::is.null
[15:32:17.354]                       muffled <- FALSE
[15:32:17.354]                       if (inherits(cond, "message")) {
[15:32:17.354]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.354]                         if (muffled) 
[15:32:17.354]                           invokeRestart("muffleMessage")
[15:32:17.354]                       }
[15:32:17.354]                       else if (inherits(cond, "warning")) {
[15:32:17.354]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.354]                         if (muffled) 
[15:32:17.354]                           invokeRestart("muffleWarning")
[15:32:17.354]                       }
[15:32:17.354]                       else if (inherits(cond, "condition")) {
[15:32:17.354]                         if (!is.null(pattern)) {
[15:32:17.354]                           computeRestarts <- base::computeRestarts
[15:32:17.354]                           grepl <- base::grepl
[15:32:17.354]                           restarts <- computeRestarts(cond)
[15:32:17.354]                           for (restart in restarts) {
[15:32:17.354]                             name <- restart$name
[15:32:17.354]                             if (is.null(name)) 
[15:32:17.354]                               next
[15:32:17.354]                             if (!grepl(pattern, name)) 
[15:32:17.354]                               next
[15:32:17.354]                             invokeRestart(restart)
[15:32:17.354]                             muffled <- TRUE
[15:32:17.354]                             break
[15:32:17.354]                           }
[15:32:17.354]                         }
[15:32:17.354]                       }
[15:32:17.354]                       invisible(muffled)
[15:32:17.354]                     }
[15:32:17.354]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.354]                   }
[15:32:17.354]                 }
[15:32:17.354]                 else {
[15:32:17.354]                   if (TRUE) {
[15:32:17.354]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.354]                     {
[15:32:17.354]                       inherits <- base::inherits
[15:32:17.354]                       invokeRestart <- base::invokeRestart
[15:32:17.354]                       is.null <- base::is.null
[15:32:17.354]                       muffled <- FALSE
[15:32:17.354]                       if (inherits(cond, "message")) {
[15:32:17.354]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.354]                         if (muffled) 
[15:32:17.354]                           invokeRestart("muffleMessage")
[15:32:17.354]                       }
[15:32:17.354]                       else if (inherits(cond, "warning")) {
[15:32:17.354]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.354]                         if (muffled) 
[15:32:17.354]                           invokeRestart("muffleWarning")
[15:32:17.354]                       }
[15:32:17.354]                       else if (inherits(cond, "condition")) {
[15:32:17.354]                         if (!is.null(pattern)) {
[15:32:17.354]                           computeRestarts <- base::computeRestarts
[15:32:17.354]                           grepl <- base::grepl
[15:32:17.354]                           restarts <- computeRestarts(cond)
[15:32:17.354]                           for (restart in restarts) {
[15:32:17.354]                             name <- restart$name
[15:32:17.354]                             if (is.null(name)) 
[15:32:17.354]                               next
[15:32:17.354]                             if (!grepl(pattern, name)) 
[15:32:17.354]                               next
[15:32:17.354]                             invokeRestart(restart)
[15:32:17.354]                             muffled <- TRUE
[15:32:17.354]                             break
[15:32:17.354]                           }
[15:32:17.354]                         }
[15:32:17.354]                       }
[15:32:17.354]                       invisible(muffled)
[15:32:17.354]                     }
[15:32:17.354]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.354]                   }
[15:32:17.354]                 }
[15:32:17.354]             }
[15:32:17.354]         }))
[15:32:17.354]     }, error = function(ex) {
[15:32:17.354]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.354]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.354]                 ...future.rng), started = ...future.startTime, 
[15:32:17.354]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.354]             version = "1.8"), class = "FutureResult")
[15:32:17.354]     }, finally = {
[15:32:17.354]         if (!identical(...future.workdir, getwd())) 
[15:32:17.354]             setwd(...future.workdir)
[15:32:17.354]         {
[15:32:17.354]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.354]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.354]             }
[15:32:17.354]             base::options(...future.oldOptions)
[15:32:17.354]             if (.Platform$OS.type == "windows") {
[15:32:17.354]                 old_names <- names(...future.oldEnvVars)
[15:32:17.354]                 envs <- base::Sys.getenv()
[15:32:17.354]                 names <- names(envs)
[15:32:17.354]                 common <- intersect(names, old_names)
[15:32:17.354]                 added <- setdiff(names, old_names)
[15:32:17.354]                 removed <- setdiff(old_names, names)
[15:32:17.354]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.354]                   envs[common]]
[15:32:17.354]                 NAMES <- toupper(changed)
[15:32:17.354]                 args <- list()
[15:32:17.354]                 for (kk in seq_along(NAMES)) {
[15:32:17.354]                   name <- changed[[kk]]
[15:32:17.354]                   NAME <- NAMES[[kk]]
[15:32:17.354]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.354]                     next
[15:32:17.354]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.354]                 }
[15:32:17.354]                 NAMES <- toupper(added)
[15:32:17.354]                 for (kk in seq_along(NAMES)) {
[15:32:17.354]                   name <- added[[kk]]
[15:32:17.354]                   NAME <- NAMES[[kk]]
[15:32:17.354]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.354]                     next
[15:32:17.354]                   args[[name]] <- ""
[15:32:17.354]                 }
[15:32:17.354]                 NAMES <- toupper(removed)
[15:32:17.354]                 for (kk in seq_along(NAMES)) {
[15:32:17.354]                   name <- removed[[kk]]
[15:32:17.354]                   NAME <- NAMES[[kk]]
[15:32:17.354]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.354]                     next
[15:32:17.354]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.354]                 }
[15:32:17.354]                 if (length(args) > 0) 
[15:32:17.354]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.354]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.354]             }
[15:32:17.354]             else {
[15:32:17.354]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.354]             }
[15:32:17.354]             {
[15:32:17.354]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.354]                   0L) {
[15:32:17.354]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.354]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.354]                   base::options(opts)
[15:32:17.354]                 }
[15:32:17.354]                 {
[15:32:17.354]                   {
[15:32:17.354]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.354]                     NULL
[15:32:17.354]                   }
[15:32:17.354]                   options(future.plan = NULL)
[15:32:17.354]                   if (is.na(NA_character_)) 
[15:32:17.354]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.354]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.354]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.354]                     .init = FALSE)
[15:32:17.354]                 }
[15:32:17.354]             }
[15:32:17.354]         }
[15:32:17.354]     })
[15:32:17.354]     if (TRUE) {
[15:32:17.354]         base::sink(type = "output", split = FALSE)
[15:32:17.354]         if (TRUE) {
[15:32:17.354]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.354]         }
[15:32:17.354]         else {
[15:32:17.354]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.354]         }
[15:32:17.354]         base::close(...future.stdout)
[15:32:17.354]         ...future.stdout <- NULL
[15:32:17.354]     }
[15:32:17.354]     ...future.result$conditions <- ...future.conditions
[15:32:17.354]     ...future.result$finished <- base::Sys.time()
[15:32:17.354]     ...future.result
[15:32:17.354] }
[15:32:17.362] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.365] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.366] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.366] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.367] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.367] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:17.368] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:17.368] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:17.368] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:17.369] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.369] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.369] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.370] MultisessionFuture started
[15:32:17.370] - Launch lazy future ... done
[15:32:17.371] run() for 'MultisessionFuture' ... done
[15:32:17.371] Created future:
[15:32:17.394] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.395] - Validating connection of MultisessionFuture
[15:32:17.395] - received message: FutureResult
[15:32:17.395] - Received FutureResult
[15:32:17.395] - Erased future from FutureRegistry
[15:32:17.396] result() for ClusterFuture ...
[15:32:17.396] - result already collected: FutureResult
[15:32:17.396] result() for ClusterFuture ... done
[15:32:17.396] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.371] MultisessionFuture:
[15:32:17.371] Label: 'future_replicate-2'
[15:32:17.371] Expression:
[15:32:17.371] {
[15:32:17.371]     do.call(function(...) {
[15:32:17.371]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.371]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.371]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.371]             on.exit(options(oopts), add = TRUE)
[15:32:17.371]         }
[15:32:17.371]         {
[15:32:17.371]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.371]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.371]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.371]                   envir = globalenv(), inherits = FALSE)
[15:32:17.371]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.371]             })
[15:32:17.371]         }
[15:32:17.371]     }, args = future.call.arguments)
[15:32:17.371] }
[15:32:17.371] Lazy evaluation: FALSE
[15:32:17.371] Asynchronous evaluation: TRUE
[15:32:17.371] Local evaluation: TRUE
[15:32:17.371] Environment: R_GlobalEnv
[15:32:17.371] Capture standard output: TRUE
[15:32:17.371] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.371] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.371] Packages: <none>
[15:32:17.371] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.371] Resolved: TRUE
[15:32:17.371] Value: <not collected>
[15:32:17.371] Conditions captured: <none>
[15:32:17.371] Early signaling: FALSE
[15:32:17.371] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.371] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.397] Chunk #2 of 2 ... DONE
[15:32:17.397] Launching 2 futures (chunks) ... DONE
[15:32:17.397] Resolving 2 futures (chunks) ...
[15:32:17.398] resolve() on list ...
[15:32:17.398]  recursive: 0
[15:32:17.398]  length: 2
[15:32:17.398] 
[15:32:17.399] Future #1
[15:32:17.399] result() for ClusterFuture ...
[15:32:17.399] - result already collected: FutureResult
[15:32:17.399] result() for ClusterFuture ... done
[15:32:17.399] result() for ClusterFuture ...
[15:32:17.400] - result already collected: FutureResult
[15:32:17.400] result() for ClusterFuture ... done
[15:32:17.400] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:17.400] - nx: 2
[15:32:17.400] - relay: TRUE
[15:32:17.401] - stdout: TRUE
[15:32:17.401] - signal: TRUE
[15:32:17.401] - resignal: FALSE
[15:32:17.401] - force: TRUE
[15:32:17.401] - relayed: [n=2] FALSE, FALSE
[15:32:17.402] - queued futures: [n=2] FALSE, FALSE
[15:32:17.402]  - until=1
[15:32:17.402]  - relaying element #1
[15:32:17.402] result() for ClusterFuture ...
[15:32:17.402] - result already collected: FutureResult
[15:32:17.403] result() for ClusterFuture ... done
[15:32:17.403] result() for ClusterFuture ...
[15:32:17.403] - result already collected: FutureResult
[15:32:17.403] result() for ClusterFuture ... done
[15:32:17.404] result() for ClusterFuture ...
[15:32:17.404] - result already collected: FutureResult
[15:32:17.404] result() for ClusterFuture ... done
[15:32:17.404] result() for ClusterFuture ...
[15:32:17.404] - result already collected: FutureResult
[15:32:17.405] result() for ClusterFuture ... done
[15:32:17.405] - relayed: [n=2] TRUE, FALSE
[15:32:17.405] - queued futures: [n=2] TRUE, FALSE
[15:32:17.405] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:17.406]  length: 1 (resolved future 1)
[15:32:17.406] Future #2
[15:32:17.406] result() for ClusterFuture ...
[15:32:17.406] - result already collected: FutureResult
[15:32:17.406] result() for ClusterFuture ... done
[15:32:17.407] result() for ClusterFuture ...
[15:32:17.407] - result already collected: FutureResult
[15:32:17.407] result() for ClusterFuture ... done
[15:32:17.407] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:17.407] - nx: 2
[15:32:17.408] - relay: TRUE
[15:32:17.408] - stdout: TRUE
[15:32:17.408] - signal: TRUE
[15:32:17.408] - resignal: FALSE
[15:32:17.408] - force: TRUE
[15:32:17.409] - relayed: [n=2] TRUE, FALSE
[15:32:17.409] - queued futures: [n=2] TRUE, FALSE
[15:32:17.409]  - until=2
[15:32:17.409]  - relaying element #2
[15:32:17.410] result() for ClusterFuture ...
[15:32:17.410] - result already collected: FutureResult
[15:32:17.410] result() for ClusterFuture ... done
[15:32:17.410] result() for ClusterFuture ...
[15:32:17.410] - result already collected: FutureResult
[15:32:17.411] result() for ClusterFuture ... done
[15:32:17.411] result() for ClusterFuture ...
[15:32:17.411] - result already collected: FutureResult
[15:32:17.411] result() for ClusterFuture ... done
[15:32:17.411] result() for ClusterFuture ...
[15:32:17.412] - result already collected: FutureResult
[15:32:17.412] result() for ClusterFuture ... done
[15:32:17.412] - relayed: [n=2] TRUE, TRUE
[15:32:17.412] - queued futures: [n=2] TRUE, TRUE
[15:32:17.413] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:17.413]  length: 0 (resolved future 2)
[15:32:17.413] Relaying remaining futures
[15:32:17.413] signalConditionsASAP(NULL, pos=0) ...
[15:32:17.413] - nx: 2
[15:32:17.414] - relay: TRUE
[15:32:17.414] - stdout: TRUE
[15:32:17.414] - signal: TRUE
[15:32:17.414] - resignal: FALSE
[15:32:17.414] - force: TRUE
[15:32:17.415] - relayed: [n=2] TRUE, TRUE
[15:32:17.415] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:17.415] - relayed: [n=2] TRUE, TRUE
[15:32:17.415] - queued futures: [n=2] TRUE, TRUE
[15:32:17.416] signalConditionsASAP(NULL, pos=0) ... done
[15:32:17.416] resolve() on list ... DONE
[15:32:17.416] result() for ClusterFuture ...
[15:32:17.416] - result already collected: FutureResult
[15:32:17.416] result() for ClusterFuture ... done
[15:32:17.417] result() for ClusterFuture ...
[15:32:17.417] - result already collected: FutureResult
[15:32:17.417] result() for ClusterFuture ... done
[15:32:17.417] result() for ClusterFuture ...
[15:32:17.417] - result already collected: FutureResult
[15:32:17.418] result() for ClusterFuture ... done
[15:32:17.418] result() for ClusterFuture ...
[15:32:17.418] - result already collected: FutureResult
[15:32:17.418] result() for ClusterFuture ... done
[15:32:17.419]  - Number of value chunks collected: 2
[15:32:17.419] Resolving 2 futures (chunks) ... DONE
[15:32:17.419] Reducing values from 2 chunks ...
[15:32:17.419]  - Number of values collected after concatenation: 5
[15:32:17.419]  - Number of values expected: 5
[15:32:17.420] Reducing values from 2 chunks ... DONE
[15:32:17.420] future_lapply() ... DONE
[15:32:17.420] future_lapply() ...
[15:32:17.421] Generating random seeds ...
[15:32:17.421] Generating random seed streams for 5 elements ...
[15:32:17.421] Generating random seed streams for 5 elements ... DONE
[15:32:17.421] Generating random seeds ... DONE
[15:32:17.421] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:17.426] Number of chunks: 2
[15:32:17.426] getGlobalsAndPackagesXApply() ...
[15:32:17.426]  - future.globals: TRUE
[15:32:17.427] getGlobalsAndPackages() ...
[15:32:17.427] Searching for globals...
[15:32:17.429] - globals found: [2] 'FUN', 'sample'
[15:32:17.429] Searching for globals ... DONE
[15:32:17.429] Resolving globals: FALSE
[15:32:17.430] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:17.431] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:17.431] - globals: [1] 'FUN'
[15:32:17.431] 
[15:32:17.431] getGlobalsAndPackages() ... DONE
[15:32:17.432]  - globals found/used: [n=1] 'FUN'
[15:32:17.432]  - needed namespaces: [n=0] 
[15:32:17.432] Finding globals ... DONE
[15:32:17.432]  - use_args: TRUE
[15:32:17.433]  - Getting '...' globals ...
[15:32:17.433] resolve() on list ...
[15:32:17.433]  recursive: 0
[15:32:17.434]  length: 1
[15:32:17.434]  elements: '...'
[15:32:17.434]  length: 0 (resolved future 1)
[15:32:17.434] resolve() on list ... DONE
[15:32:17.435]    - '...' content: [n=0] 
[15:32:17.435] List of 1
[15:32:17.435]  $ ...: list()
[15:32:17.435]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.435]  - attr(*, "where")=List of 1
[15:32:17.435]   ..$ ...:<environment: 0x000002abb377c1e8> 
[15:32:17.435]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.435]  - attr(*, "resolved")= logi TRUE
[15:32:17.435]  - attr(*, "total_size")= num NA
[15:32:17.439]  - Getting '...' globals ... DONE
[15:32:17.439] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:17.440] List of 2
[15:32:17.440]  $ ...future.FUN:function (...)  
[15:32:17.440]  $ ...          : list()
[15:32:17.440]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.440]  - attr(*, "where")=List of 2
[15:32:17.440]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:17.440]   ..$ ...          :<environment: 0x000002abb377c1e8> 
[15:32:17.440]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.440]  - attr(*, "resolved")= logi FALSE
[15:32:17.440]  - attr(*, "total_size")= num 616
[15:32:17.444] Packages to be attached in all futures: [n=0] 
[15:32:17.445] getGlobalsAndPackagesXApply() ... DONE
[15:32:17.445] Number of futures (= number of chunks): 2
[15:32:17.445] Launching 2 futures (chunks) ...
[15:32:17.445] Chunk #1 of 2 ...
[15:32:17.446]  - Finding globals in 'X' for chunk #1 ...
[15:32:17.446] getGlobalsAndPackages() ...
[15:32:17.446] Searching for globals...
[15:32:17.447] 
[15:32:17.447] Searching for globals ... DONE
[15:32:17.447] - globals: [0] <none>
[15:32:17.447] getGlobalsAndPackages() ... DONE
[15:32:17.448]    + additional globals found: [n=0] 
[15:32:17.448]    + additional namespaces needed: [n=0] 
[15:32:17.448]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:17.448]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.449]  - seeds: [2] <seeds>
[15:32:17.449]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.449] getGlobalsAndPackages() ...
[15:32:17.449] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.450] Resolving globals: FALSE
[15:32:17.450] Tweak future expression to call with '...' arguments ...
[15:32:17.450] {
[15:32:17.450]     do.call(function(...) {
[15:32:17.450]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.450]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.450]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.450]             on.exit(options(oopts), add = TRUE)
[15:32:17.450]         }
[15:32:17.450]         {
[15:32:17.450]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.450]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.450]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.450]                   envir = globalenv(), inherits = FALSE)
[15:32:17.450]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.450]             })
[15:32:17.450]         }
[15:32:17.450]     }, args = future.call.arguments)
[15:32:17.450] }
[15:32:17.451] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.452] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.452] 
[15:32:17.452] getGlobalsAndPackages() ... DONE
[15:32:17.453] run() for 'Future' ...
[15:32:17.453] - state: 'created'
[15:32:17.453] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.469] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.469] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.470]   - Field: 'node'
[15:32:17.470]   - Field: 'label'
[15:32:17.470]   - Field: 'local'
[15:32:17.470]   - Field: 'owner'
[15:32:17.471]   - Field: 'envir'
[15:32:17.471]   - Field: 'workers'
[15:32:17.471]   - Field: 'packages'
[15:32:17.471]   - Field: 'gc'
[15:32:17.472]   - Field: 'conditions'
[15:32:17.472]   - Field: 'persistent'
[15:32:17.472]   - Field: 'expr'
[15:32:17.472]   - Field: 'uuid'
[15:32:17.473]   - Field: 'seed'
[15:32:17.473]   - Field: 'version'
[15:32:17.473]   - Field: 'result'
[15:32:17.473]   - Field: 'asynchronous'
[15:32:17.474]   - Field: 'calls'
[15:32:17.474]   - Field: 'globals'
[15:32:17.474]   - Field: 'stdout'
[15:32:17.474]   - Field: 'earlySignal'
[15:32:17.475]   - Field: 'lazy'
[15:32:17.475]   - Field: 'state'
[15:32:17.475] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.475] - Launch lazy future ...
[15:32:17.476] Packages needed by the future expression (n = 0): <none>
[15:32:17.476] Packages needed by future strategies (n = 0): <none>
[15:32:17.477] {
[15:32:17.477]     {
[15:32:17.477]         {
[15:32:17.477]             ...future.startTime <- base::Sys.time()
[15:32:17.477]             {
[15:32:17.477]                 {
[15:32:17.477]                   {
[15:32:17.477]                     {
[15:32:17.477]                       base::local({
[15:32:17.477]                         has_future <- base::requireNamespace("future", 
[15:32:17.477]                           quietly = TRUE)
[15:32:17.477]                         if (has_future) {
[15:32:17.477]                           ns <- base::getNamespace("future")
[15:32:17.477]                           version <- ns[[".package"]][["version"]]
[15:32:17.477]                           if (is.null(version)) 
[15:32:17.477]                             version <- utils::packageVersion("future")
[15:32:17.477]                         }
[15:32:17.477]                         else {
[15:32:17.477]                           version <- NULL
[15:32:17.477]                         }
[15:32:17.477]                         if (!has_future || version < "1.8.0") {
[15:32:17.477]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.477]                             "", base::R.version$version.string), 
[15:32:17.477]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.477]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.477]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.477]                               "release", "version")], collapse = " "), 
[15:32:17.477]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.477]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.477]                             info)
[15:32:17.477]                           info <- base::paste(info, collapse = "; ")
[15:32:17.477]                           if (!has_future) {
[15:32:17.477]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.477]                               info)
[15:32:17.477]                           }
[15:32:17.477]                           else {
[15:32:17.477]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.477]                               info, version)
[15:32:17.477]                           }
[15:32:17.477]                           base::stop(msg)
[15:32:17.477]                         }
[15:32:17.477]                       })
[15:32:17.477]                     }
[15:32:17.477]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.477]                     base::options(mc.cores = 1L)
[15:32:17.477]                   }
[15:32:17.477]                   ...future.strategy.old <- future::plan("list")
[15:32:17.477]                   options(future.plan = NULL)
[15:32:17.477]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.477]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.477]                 }
[15:32:17.477]                 ...future.workdir <- getwd()
[15:32:17.477]             }
[15:32:17.477]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.477]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.477]         }
[15:32:17.477]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.477]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.477]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.477]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.477]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.477]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.477]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.477]             base::names(...future.oldOptions))
[15:32:17.477]     }
[15:32:17.477]     if (FALSE) {
[15:32:17.477]     }
[15:32:17.477]     else {
[15:32:17.477]         if (TRUE) {
[15:32:17.477]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.477]                 open = "w")
[15:32:17.477]         }
[15:32:17.477]         else {
[15:32:17.477]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.477]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.477]         }
[15:32:17.477]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.477]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.477]             base::sink(type = "output", split = FALSE)
[15:32:17.477]             base::close(...future.stdout)
[15:32:17.477]         }, add = TRUE)
[15:32:17.477]     }
[15:32:17.477]     ...future.frame <- base::sys.nframe()
[15:32:17.477]     ...future.conditions <- base::list()
[15:32:17.477]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.477]     if (FALSE) {
[15:32:17.477]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.477]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.477]     }
[15:32:17.477]     ...future.result <- base::tryCatch({
[15:32:17.477]         base::withCallingHandlers({
[15:32:17.477]             ...future.value <- base::withVisible(base::local({
[15:32:17.477]                 ...future.makeSendCondition <- base::local({
[15:32:17.477]                   sendCondition <- NULL
[15:32:17.477]                   function(frame = 1L) {
[15:32:17.477]                     if (is.function(sendCondition)) 
[15:32:17.477]                       return(sendCondition)
[15:32:17.477]                     ns <- getNamespace("parallel")
[15:32:17.477]                     if (exists("sendData", mode = "function", 
[15:32:17.477]                       envir = ns)) {
[15:32:17.477]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.477]                         envir = ns)
[15:32:17.477]                       envir <- sys.frame(frame)
[15:32:17.477]                       master <- NULL
[15:32:17.477]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.477]                         !identical(envir, emptyenv())) {
[15:32:17.477]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.477]                           inherits = FALSE)) {
[15:32:17.477]                           master <- get("master", mode = "list", 
[15:32:17.477]                             envir = envir, inherits = FALSE)
[15:32:17.477]                           if (inherits(master, c("SOCKnode", 
[15:32:17.477]                             "SOCK0node"))) {
[15:32:17.477]                             sendCondition <<- function(cond) {
[15:32:17.477]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.477]                                 success = TRUE)
[15:32:17.477]                               parallel_sendData(master, data)
[15:32:17.477]                             }
[15:32:17.477]                             return(sendCondition)
[15:32:17.477]                           }
[15:32:17.477]                         }
[15:32:17.477]                         frame <- frame + 1L
[15:32:17.477]                         envir <- sys.frame(frame)
[15:32:17.477]                       }
[15:32:17.477]                     }
[15:32:17.477]                     sendCondition <<- function(cond) NULL
[15:32:17.477]                   }
[15:32:17.477]                 })
[15:32:17.477]                 withCallingHandlers({
[15:32:17.477]                   {
[15:32:17.477]                     do.call(function(...) {
[15:32:17.477]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.477]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.477]                         ...future.globals.maxSize)) {
[15:32:17.477]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.477]                         on.exit(options(oopts), add = TRUE)
[15:32:17.477]                       }
[15:32:17.477]                       {
[15:32:17.477]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.477]                           FUN = function(jj) {
[15:32:17.477]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.477]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.477]                               envir = globalenv(), inherits = FALSE)
[15:32:17.477]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.477]                           })
[15:32:17.477]                       }
[15:32:17.477]                     }, args = future.call.arguments)
[15:32:17.477]                   }
[15:32:17.477]                 }, immediateCondition = function(cond) {
[15:32:17.477]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.477]                   sendCondition(cond)
[15:32:17.477]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.477]                   {
[15:32:17.477]                     inherits <- base::inherits
[15:32:17.477]                     invokeRestart <- base::invokeRestart
[15:32:17.477]                     is.null <- base::is.null
[15:32:17.477]                     muffled <- FALSE
[15:32:17.477]                     if (inherits(cond, "message")) {
[15:32:17.477]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.477]                       if (muffled) 
[15:32:17.477]                         invokeRestart("muffleMessage")
[15:32:17.477]                     }
[15:32:17.477]                     else if (inherits(cond, "warning")) {
[15:32:17.477]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.477]                       if (muffled) 
[15:32:17.477]                         invokeRestart("muffleWarning")
[15:32:17.477]                     }
[15:32:17.477]                     else if (inherits(cond, "condition")) {
[15:32:17.477]                       if (!is.null(pattern)) {
[15:32:17.477]                         computeRestarts <- base::computeRestarts
[15:32:17.477]                         grepl <- base::grepl
[15:32:17.477]                         restarts <- computeRestarts(cond)
[15:32:17.477]                         for (restart in restarts) {
[15:32:17.477]                           name <- restart$name
[15:32:17.477]                           if (is.null(name)) 
[15:32:17.477]                             next
[15:32:17.477]                           if (!grepl(pattern, name)) 
[15:32:17.477]                             next
[15:32:17.477]                           invokeRestart(restart)
[15:32:17.477]                           muffled <- TRUE
[15:32:17.477]                           break
[15:32:17.477]                         }
[15:32:17.477]                       }
[15:32:17.477]                     }
[15:32:17.477]                     invisible(muffled)
[15:32:17.477]                   }
[15:32:17.477]                   muffleCondition(cond)
[15:32:17.477]                 })
[15:32:17.477]             }))
[15:32:17.477]             future::FutureResult(value = ...future.value$value, 
[15:32:17.477]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.477]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.477]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.477]                     ...future.globalenv.names))
[15:32:17.477]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.477]         }, condition = base::local({
[15:32:17.477]             c <- base::c
[15:32:17.477]             inherits <- base::inherits
[15:32:17.477]             invokeRestart <- base::invokeRestart
[15:32:17.477]             length <- base::length
[15:32:17.477]             list <- base::list
[15:32:17.477]             seq.int <- base::seq.int
[15:32:17.477]             signalCondition <- base::signalCondition
[15:32:17.477]             sys.calls <- base::sys.calls
[15:32:17.477]             `[[` <- base::`[[`
[15:32:17.477]             `+` <- base::`+`
[15:32:17.477]             `<<-` <- base::`<<-`
[15:32:17.477]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.477]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.477]                   3L)]
[15:32:17.477]             }
[15:32:17.477]             function(cond) {
[15:32:17.477]                 is_error <- inherits(cond, "error")
[15:32:17.477]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.477]                   NULL)
[15:32:17.477]                 if (is_error) {
[15:32:17.477]                   sessionInformation <- function() {
[15:32:17.477]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.477]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.477]                       search = base::search(), system = base::Sys.info())
[15:32:17.477]                   }
[15:32:17.477]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.477]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.477]                     cond$call), session = sessionInformation(), 
[15:32:17.477]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.477]                   signalCondition(cond)
[15:32:17.477]                 }
[15:32:17.477]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.477]                 "immediateCondition"))) {
[15:32:17.477]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.477]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.477]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.477]                   if (TRUE && !signal) {
[15:32:17.477]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.477]                     {
[15:32:17.477]                       inherits <- base::inherits
[15:32:17.477]                       invokeRestart <- base::invokeRestart
[15:32:17.477]                       is.null <- base::is.null
[15:32:17.477]                       muffled <- FALSE
[15:32:17.477]                       if (inherits(cond, "message")) {
[15:32:17.477]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.477]                         if (muffled) 
[15:32:17.477]                           invokeRestart("muffleMessage")
[15:32:17.477]                       }
[15:32:17.477]                       else if (inherits(cond, "warning")) {
[15:32:17.477]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.477]                         if (muffled) 
[15:32:17.477]                           invokeRestart("muffleWarning")
[15:32:17.477]                       }
[15:32:17.477]                       else if (inherits(cond, "condition")) {
[15:32:17.477]                         if (!is.null(pattern)) {
[15:32:17.477]                           computeRestarts <- base::computeRestarts
[15:32:17.477]                           grepl <- base::grepl
[15:32:17.477]                           restarts <- computeRestarts(cond)
[15:32:17.477]                           for (restart in restarts) {
[15:32:17.477]                             name <- restart$name
[15:32:17.477]                             if (is.null(name)) 
[15:32:17.477]                               next
[15:32:17.477]                             if (!grepl(pattern, name)) 
[15:32:17.477]                               next
[15:32:17.477]                             invokeRestart(restart)
[15:32:17.477]                             muffled <- TRUE
[15:32:17.477]                             break
[15:32:17.477]                           }
[15:32:17.477]                         }
[15:32:17.477]                       }
[15:32:17.477]                       invisible(muffled)
[15:32:17.477]                     }
[15:32:17.477]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.477]                   }
[15:32:17.477]                 }
[15:32:17.477]                 else {
[15:32:17.477]                   if (TRUE) {
[15:32:17.477]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.477]                     {
[15:32:17.477]                       inherits <- base::inherits
[15:32:17.477]                       invokeRestart <- base::invokeRestart
[15:32:17.477]                       is.null <- base::is.null
[15:32:17.477]                       muffled <- FALSE
[15:32:17.477]                       if (inherits(cond, "message")) {
[15:32:17.477]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.477]                         if (muffled) 
[15:32:17.477]                           invokeRestart("muffleMessage")
[15:32:17.477]                       }
[15:32:17.477]                       else if (inherits(cond, "warning")) {
[15:32:17.477]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.477]                         if (muffled) 
[15:32:17.477]                           invokeRestart("muffleWarning")
[15:32:17.477]                       }
[15:32:17.477]                       else if (inherits(cond, "condition")) {
[15:32:17.477]                         if (!is.null(pattern)) {
[15:32:17.477]                           computeRestarts <- base::computeRestarts
[15:32:17.477]                           grepl <- base::grepl
[15:32:17.477]                           restarts <- computeRestarts(cond)
[15:32:17.477]                           for (restart in restarts) {
[15:32:17.477]                             name <- restart$name
[15:32:17.477]                             if (is.null(name)) 
[15:32:17.477]                               next
[15:32:17.477]                             if (!grepl(pattern, name)) 
[15:32:17.477]                               next
[15:32:17.477]                             invokeRestart(restart)
[15:32:17.477]                             muffled <- TRUE
[15:32:17.477]                             break
[15:32:17.477]                           }
[15:32:17.477]                         }
[15:32:17.477]                       }
[15:32:17.477]                       invisible(muffled)
[15:32:17.477]                     }
[15:32:17.477]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.477]                   }
[15:32:17.477]                 }
[15:32:17.477]             }
[15:32:17.477]         }))
[15:32:17.477]     }, error = function(ex) {
[15:32:17.477]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.477]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.477]                 ...future.rng), started = ...future.startTime, 
[15:32:17.477]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.477]             version = "1.8"), class = "FutureResult")
[15:32:17.477]     }, finally = {
[15:32:17.477]         if (!identical(...future.workdir, getwd())) 
[15:32:17.477]             setwd(...future.workdir)
[15:32:17.477]         {
[15:32:17.477]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.477]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.477]             }
[15:32:17.477]             base::options(...future.oldOptions)
[15:32:17.477]             if (.Platform$OS.type == "windows") {
[15:32:17.477]                 old_names <- names(...future.oldEnvVars)
[15:32:17.477]                 envs <- base::Sys.getenv()
[15:32:17.477]                 names <- names(envs)
[15:32:17.477]                 common <- intersect(names, old_names)
[15:32:17.477]                 added <- setdiff(names, old_names)
[15:32:17.477]                 removed <- setdiff(old_names, names)
[15:32:17.477]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.477]                   envs[common]]
[15:32:17.477]                 NAMES <- toupper(changed)
[15:32:17.477]                 args <- list()
[15:32:17.477]                 for (kk in seq_along(NAMES)) {
[15:32:17.477]                   name <- changed[[kk]]
[15:32:17.477]                   NAME <- NAMES[[kk]]
[15:32:17.477]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.477]                     next
[15:32:17.477]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.477]                 }
[15:32:17.477]                 NAMES <- toupper(added)
[15:32:17.477]                 for (kk in seq_along(NAMES)) {
[15:32:17.477]                   name <- added[[kk]]
[15:32:17.477]                   NAME <- NAMES[[kk]]
[15:32:17.477]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.477]                     next
[15:32:17.477]                   args[[name]] <- ""
[15:32:17.477]                 }
[15:32:17.477]                 NAMES <- toupper(removed)
[15:32:17.477]                 for (kk in seq_along(NAMES)) {
[15:32:17.477]                   name <- removed[[kk]]
[15:32:17.477]                   NAME <- NAMES[[kk]]
[15:32:17.477]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.477]                     next
[15:32:17.477]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.477]                 }
[15:32:17.477]                 if (length(args) > 0) 
[15:32:17.477]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.477]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.477]             }
[15:32:17.477]             else {
[15:32:17.477]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.477]             }
[15:32:17.477]             {
[15:32:17.477]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.477]                   0L) {
[15:32:17.477]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.477]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.477]                   base::options(opts)
[15:32:17.477]                 }
[15:32:17.477]                 {
[15:32:17.477]                   {
[15:32:17.477]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.477]                     NULL
[15:32:17.477]                   }
[15:32:17.477]                   options(future.plan = NULL)
[15:32:17.477]                   if (is.na(NA_character_)) 
[15:32:17.477]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.477]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.477]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.477]                     .init = FALSE)
[15:32:17.477]                 }
[15:32:17.477]             }
[15:32:17.477]         }
[15:32:17.477]     })
[15:32:17.477]     if (TRUE) {
[15:32:17.477]         base::sink(type = "output", split = FALSE)
[15:32:17.477]         if (TRUE) {
[15:32:17.477]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.477]         }
[15:32:17.477]         else {
[15:32:17.477]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.477]         }
[15:32:17.477]         base::close(...future.stdout)
[15:32:17.477]         ...future.stdout <- NULL
[15:32:17.477]     }
[15:32:17.477]     ...future.result$conditions <- ...future.conditions
[15:32:17.477]     ...future.result$finished <- base::Sys.time()
[15:32:17.477]     ...future.result
[15:32:17.477] }
[15:32:17.485] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.485] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.486] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.486] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.487] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.487] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:17.488] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:17.488] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:17.489] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:17.489] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.489] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.490] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.490] MultisessionFuture started
[15:32:17.491] - Launch lazy future ... done
[15:32:17.491] run() for 'MultisessionFuture' ... done
[15:32:17.491] Created future:
[15:32:17.511] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.511] - Validating connection of MultisessionFuture
[15:32:17.512] - received message: FutureResult
[15:32:17.512] - Received FutureResult
[15:32:17.512] - Erased future from FutureRegistry
[15:32:17.512] result() for ClusterFuture ...
[15:32:17.513] - result already collected: FutureResult
[15:32:17.513] result() for ClusterFuture ... done
[15:32:17.513] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.491] MultisessionFuture:
[15:32:17.491] Label: 'future_replicate-1'
[15:32:17.491] Expression:
[15:32:17.491] {
[15:32:17.491]     do.call(function(...) {
[15:32:17.491]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.491]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.491]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.491]             on.exit(options(oopts), add = TRUE)
[15:32:17.491]         }
[15:32:17.491]         {
[15:32:17.491]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.491]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.491]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.491]                   envir = globalenv(), inherits = FALSE)
[15:32:17.491]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.491]             })
[15:32:17.491]         }
[15:32:17.491]     }, args = future.call.arguments)
[15:32:17.491] }
[15:32:17.491] Lazy evaluation: FALSE
[15:32:17.491] Asynchronous evaluation: TRUE
[15:32:17.491] Local evaluation: TRUE
[15:32:17.491] Environment: R_GlobalEnv
[15:32:17.491] Capture standard output: TRUE
[15:32:17.491] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.491] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.491] Packages: <none>
[15:32:17.491] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.491] Resolved: TRUE
[15:32:17.491] Value: <not collected>
[15:32:17.491] Conditions captured: <none>
[15:32:17.491] Early signaling: FALSE
[15:32:17.491] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.491] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.514] Chunk #1 of 2 ... DONE
[15:32:17.514] Chunk #2 of 2 ...
[15:32:17.514]  - Finding globals in 'X' for chunk #2 ...
[15:32:17.514] getGlobalsAndPackages() ...
[15:32:17.515] Searching for globals...
[15:32:17.515] 
[15:32:17.515] Searching for globals ... DONE
[15:32:17.516] - globals: [0] <none>
[15:32:17.516] getGlobalsAndPackages() ... DONE
[15:32:17.516]    + additional globals found: [n=0] 
[15:32:17.516]    + additional namespaces needed: [n=0] 
[15:32:17.516]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:17.517]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.517]  - seeds: [3] <seeds>
[15:32:17.517]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.517] getGlobalsAndPackages() ...
[15:32:17.518] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.518] Resolving globals: FALSE
[15:32:17.518] Tweak future expression to call with '...' arguments ...
[15:32:17.518] {
[15:32:17.518]     do.call(function(...) {
[15:32:17.518]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.518]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.518]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.518]             on.exit(options(oopts), add = TRUE)
[15:32:17.518]         }
[15:32:17.518]         {
[15:32:17.518]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.518]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.518]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.518]                   envir = globalenv(), inherits = FALSE)
[15:32:17.518]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.518]             })
[15:32:17.518]         }
[15:32:17.518]     }, args = future.call.arguments)
[15:32:17.518] }
[15:32:17.519] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.520] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.520] 
[15:32:17.520] getGlobalsAndPackages() ... DONE
[15:32:17.521] run() for 'Future' ...
[15:32:17.521] - state: 'created'
[15:32:17.521] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.537] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.537] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.538]   - Field: 'node'
[15:32:17.538]   - Field: 'label'
[15:32:17.538]   - Field: 'local'
[15:32:17.538]   - Field: 'owner'
[15:32:17.539]   - Field: 'envir'
[15:32:17.539]   - Field: 'workers'
[15:32:17.539]   - Field: 'packages'
[15:32:17.539]   - Field: 'gc'
[15:32:17.540]   - Field: 'conditions'
[15:32:17.540]   - Field: 'persistent'
[15:32:17.540]   - Field: 'expr'
[15:32:17.541]   - Field: 'uuid'
[15:32:17.541]   - Field: 'seed'
[15:32:17.541]   - Field: 'version'
[15:32:17.541]   - Field: 'result'
[15:32:17.542]   - Field: 'asynchronous'
[15:32:17.542]   - Field: 'calls'
[15:32:17.542]   - Field: 'globals'
[15:32:17.542]   - Field: 'stdout'
[15:32:17.543]   - Field: 'earlySignal'
[15:32:17.543]   - Field: 'lazy'
[15:32:17.543]   - Field: 'state'
[15:32:17.543] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.544] - Launch lazy future ...
[15:32:17.544] Packages needed by the future expression (n = 0): <none>
[15:32:17.545] Packages needed by future strategies (n = 0): <none>
[15:32:17.545] {
[15:32:17.545]     {
[15:32:17.545]         {
[15:32:17.545]             ...future.startTime <- base::Sys.time()
[15:32:17.545]             {
[15:32:17.545]                 {
[15:32:17.545]                   {
[15:32:17.545]                     {
[15:32:17.545]                       base::local({
[15:32:17.545]                         has_future <- base::requireNamespace("future", 
[15:32:17.545]                           quietly = TRUE)
[15:32:17.545]                         if (has_future) {
[15:32:17.545]                           ns <- base::getNamespace("future")
[15:32:17.545]                           version <- ns[[".package"]][["version"]]
[15:32:17.545]                           if (is.null(version)) 
[15:32:17.545]                             version <- utils::packageVersion("future")
[15:32:17.545]                         }
[15:32:17.545]                         else {
[15:32:17.545]                           version <- NULL
[15:32:17.545]                         }
[15:32:17.545]                         if (!has_future || version < "1.8.0") {
[15:32:17.545]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.545]                             "", base::R.version$version.string), 
[15:32:17.545]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.545]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.545]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.545]                               "release", "version")], collapse = " "), 
[15:32:17.545]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.545]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.545]                             info)
[15:32:17.545]                           info <- base::paste(info, collapse = "; ")
[15:32:17.545]                           if (!has_future) {
[15:32:17.545]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.545]                               info)
[15:32:17.545]                           }
[15:32:17.545]                           else {
[15:32:17.545]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.545]                               info, version)
[15:32:17.545]                           }
[15:32:17.545]                           base::stop(msg)
[15:32:17.545]                         }
[15:32:17.545]                       })
[15:32:17.545]                     }
[15:32:17.545]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.545]                     base::options(mc.cores = 1L)
[15:32:17.545]                   }
[15:32:17.545]                   ...future.strategy.old <- future::plan("list")
[15:32:17.545]                   options(future.plan = NULL)
[15:32:17.545]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.545]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.545]                 }
[15:32:17.545]                 ...future.workdir <- getwd()
[15:32:17.545]             }
[15:32:17.545]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.545]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.545]         }
[15:32:17.545]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.545]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.545]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.545]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.545]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.545]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.545]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.545]             base::names(...future.oldOptions))
[15:32:17.545]     }
[15:32:17.545]     if (FALSE) {
[15:32:17.545]     }
[15:32:17.545]     else {
[15:32:17.545]         if (TRUE) {
[15:32:17.545]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.545]                 open = "w")
[15:32:17.545]         }
[15:32:17.545]         else {
[15:32:17.545]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.545]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.545]         }
[15:32:17.545]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.545]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.545]             base::sink(type = "output", split = FALSE)
[15:32:17.545]             base::close(...future.stdout)
[15:32:17.545]         }, add = TRUE)
[15:32:17.545]     }
[15:32:17.545]     ...future.frame <- base::sys.nframe()
[15:32:17.545]     ...future.conditions <- base::list()
[15:32:17.545]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.545]     if (FALSE) {
[15:32:17.545]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.545]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.545]     }
[15:32:17.545]     ...future.result <- base::tryCatch({
[15:32:17.545]         base::withCallingHandlers({
[15:32:17.545]             ...future.value <- base::withVisible(base::local({
[15:32:17.545]                 ...future.makeSendCondition <- base::local({
[15:32:17.545]                   sendCondition <- NULL
[15:32:17.545]                   function(frame = 1L) {
[15:32:17.545]                     if (is.function(sendCondition)) 
[15:32:17.545]                       return(sendCondition)
[15:32:17.545]                     ns <- getNamespace("parallel")
[15:32:17.545]                     if (exists("sendData", mode = "function", 
[15:32:17.545]                       envir = ns)) {
[15:32:17.545]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.545]                         envir = ns)
[15:32:17.545]                       envir <- sys.frame(frame)
[15:32:17.545]                       master <- NULL
[15:32:17.545]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.545]                         !identical(envir, emptyenv())) {
[15:32:17.545]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.545]                           inherits = FALSE)) {
[15:32:17.545]                           master <- get("master", mode = "list", 
[15:32:17.545]                             envir = envir, inherits = FALSE)
[15:32:17.545]                           if (inherits(master, c("SOCKnode", 
[15:32:17.545]                             "SOCK0node"))) {
[15:32:17.545]                             sendCondition <<- function(cond) {
[15:32:17.545]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.545]                                 success = TRUE)
[15:32:17.545]                               parallel_sendData(master, data)
[15:32:17.545]                             }
[15:32:17.545]                             return(sendCondition)
[15:32:17.545]                           }
[15:32:17.545]                         }
[15:32:17.545]                         frame <- frame + 1L
[15:32:17.545]                         envir <- sys.frame(frame)
[15:32:17.545]                       }
[15:32:17.545]                     }
[15:32:17.545]                     sendCondition <<- function(cond) NULL
[15:32:17.545]                   }
[15:32:17.545]                 })
[15:32:17.545]                 withCallingHandlers({
[15:32:17.545]                   {
[15:32:17.545]                     do.call(function(...) {
[15:32:17.545]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.545]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.545]                         ...future.globals.maxSize)) {
[15:32:17.545]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.545]                         on.exit(options(oopts), add = TRUE)
[15:32:17.545]                       }
[15:32:17.545]                       {
[15:32:17.545]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.545]                           FUN = function(jj) {
[15:32:17.545]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.545]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.545]                               envir = globalenv(), inherits = FALSE)
[15:32:17.545]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.545]                           })
[15:32:17.545]                       }
[15:32:17.545]                     }, args = future.call.arguments)
[15:32:17.545]                   }
[15:32:17.545]                 }, immediateCondition = function(cond) {
[15:32:17.545]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.545]                   sendCondition(cond)
[15:32:17.545]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.545]                   {
[15:32:17.545]                     inherits <- base::inherits
[15:32:17.545]                     invokeRestart <- base::invokeRestart
[15:32:17.545]                     is.null <- base::is.null
[15:32:17.545]                     muffled <- FALSE
[15:32:17.545]                     if (inherits(cond, "message")) {
[15:32:17.545]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.545]                       if (muffled) 
[15:32:17.545]                         invokeRestart("muffleMessage")
[15:32:17.545]                     }
[15:32:17.545]                     else if (inherits(cond, "warning")) {
[15:32:17.545]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.545]                       if (muffled) 
[15:32:17.545]                         invokeRestart("muffleWarning")
[15:32:17.545]                     }
[15:32:17.545]                     else if (inherits(cond, "condition")) {
[15:32:17.545]                       if (!is.null(pattern)) {
[15:32:17.545]                         computeRestarts <- base::computeRestarts
[15:32:17.545]                         grepl <- base::grepl
[15:32:17.545]                         restarts <- computeRestarts(cond)
[15:32:17.545]                         for (restart in restarts) {
[15:32:17.545]                           name <- restart$name
[15:32:17.545]                           if (is.null(name)) 
[15:32:17.545]                             next
[15:32:17.545]                           if (!grepl(pattern, name)) 
[15:32:17.545]                             next
[15:32:17.545]                           invokeRestart(restart)
[15:32:17.545]                           muffled <- TRUE
[15:32:17.545]                           break
[15:32:17.545]                         }
[15:32:17.545]                       }
[15:32:17.545]                     }
[15:32:17.545]                     invisible(muffled)
[15:32:17.545]                   }
[15:32:17.545]                   muffleCondition(cond)
[15:32:17.545]                 })
[15:32:17.545]             }))
[15:32:17.545]             future::FutureResult(value = ...future.value$value, 
[15:32:17.545]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.545]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.545]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.545]                     ...future.globalenv.names))
[15:32:17.545]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.545]         }, condition = base::local({
[15:32:17.545]             c <- base::c
[15:32:17.545]             inherits <- base::inherits
[15:32:17.545]             invokeRestart <- base::invokeRestart
[15:32:17.545]             length <- base::length
[15:32:17.545]             list <- base::list
[15:32:17.545]             seq.int <- base::seq.int
[15:32:17.545]             signalCondition <- base::signalCondition
[15:32:17.545]             sys.calls <- base::sys.calls
[15:32:17.545]             `[[` <- base::`[[`
[15:32:17.545]             `+` <- base::`+`
[15:32:17.545]             `<<-` <- base::`<<-`
[15:32:17.545]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.545]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.545]                   3L)]
[15:32:17.545]             }
[15:32:17.545]             function(cond) {
[15:32:17.545]                 is_error <- inherits(cond, "error")
[15:32:17.545]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.545]                   NULL)
[15:32:17.545]                 if (is_error) {
[15:32:17.545]                   sessionInformation <- function() {
[15:32:17.545]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.545]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.545]                       search = base::search(), system = base::Sys.info())
[15:32:17.545]                   }
[15:32:17.545]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.545]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.545]                     cond$call), session = sessionInformation(), 
[15:32:17.545]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.545]                   signalCondition(cond)
[15:32:17.545]                 }
[15:32:17.545]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.545]                 "immediateCondition"))) {
[15:32:17.545]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.545]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.545]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.545]                   if (TRUE && !signal) {
[15:32:17.545]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.545]                     {
[15:32:17.545]                       inherits <- base::inherits
[15:32:17.545]                       invokeRestart <- base::invokeRestart
[15:32:17.545]                       is.null <- base::is.null
[15:32:17.545]                       muffled <- FALSE
[15:32:17.545]                       if (inherits(cond, "message")) {
[15:32:17.545]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.545]                         if (muffled) 
[15:32:17.545]                           invokeRestart("muffleMessage")
[15:32:17.545]                       }
[15:32:17.545]                       else if (inherits(cond, "warning")) {
[15:32:17.545]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.545]                         if (muffled) 
[15:32:17.545]                           invokeRestart("muffleWarning")
[15:32:17.545]                       }
[15:32:17.545]                       else if (inherits(cond, "condition")) {
[15:32:17.545]                         if (!is.null(pattern)) {
[15:32:17.545]                           computeRestarts <- base::computeRestarts
[15:32:17.545]                           grepl <- base::grepl
[15:32:17.545]                           restarts <- computeRestarts(cond)
[15:32:17.545]                           for (restart in restarts) {
[15:32:17.545]                             name <- restart$name
[15:32:17.545]                             if (is.null(name)) 
[15:32:17.545]                               next
[15:32:17.545]                             if (!grepl(pattern, name)) 
[15:32:17.545]                               next
[15:32:17.545]                             invokeRestart(restart)
[15:32:17.545]                             muffled <- TRUE
[15:32:17.545]                             break
[15:32:17.545]                           }
[15:32:17.545]                         }
[15:32:17.545]                       }
[15:32:17.545]                       invisible(muffled)
[15:32:17.545]                     }
[15:32:17.545]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.545]                   }
[15:32:17.545]                 }
[15:32:17.545]                 else {
[15:32:17.545]                   if (TRUE) {
[15:32:17.545]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.545]                     {
[15:32:17.545]                       inherits <- base::inherits
[15:32:17.545]                       invokeRestart <- base::invokeRestart
[15:32:17.545]                       is.null <- base::is.null
[15:32:17.545]                       muffled <- FALSE
[15:32:17.545]                       if (inherits(cond, "message")) {
[15:32:17.545]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.545]                         if (muffled) 
[15:32:17.545]                           invokeRestart("muffleMessage")
[15:32:17.545]                       }
[15:32:17.545]                       else if (inherits(cond, "warning")) {
[15:32:17.545]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.545]                         if (muffled) 
[15:32:17.545]                           invokeRestart("muffleWarning")
[15:32:17.545]                       }
[15:32:17.545]                       else if (inherits(cond, "condition")) {
[15:32:17.545]                         if (!is.null(pattern)) {
[15:32:17.545]                           computeRestarts <- base::computeRestarts
[15:32:17.545]                           grepl <- base::grepl
[15:32:17.545]                           restarts <- computeRestarts(cond)
[15:32:17.545]                           for (restart in restarts) {
[15:32:17.545]                             name <- restart$name
[15:32:17.545]                             if (is.null(name)) 
[15:32:17.545]                               next
[15:32:17.545]                             if (!grepl(pattern, name)) 
[15:32:17.545]                               next
[15:32:17.545]                             invokeRestart(restart)
[15:32:17.545]                             muffled <- TRUE
[15:32:17.545]                             break
[15:32:17.545]                           }
[15:32:17.545]                         }
[15:32:17.545]                       }
[15:32:17.545]                       invisible(muffled)
[15:32:17.545]                     }
[15:32:17.545]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.545]                   }
[15:32:17.545]                 }
[15:32:17.545]             }
[15:32:17.545]         }))
[15:32:17.545]     }, error = function(ex) {
[15:32:17.545]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.545]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.545]                 ...future.rng), started = ...future.startTime, 
[15:32:17.545]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.545]             version = "1.8"), class = "FutureResult")
[15:32:17.545]     }, finally = {
[15:32:17.545]         if (!identical(...future.workdir, getwd())) 
[15:32:17.545]             setwd(...future.workdir)
[15:32:17.545]         {
[15:32:17.545]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.545]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.545]             }
[15:32:17.545]             base::options(...future.oldOptions)
[15:32:17.545]             if (.Platform$OS.type == "windows") {
[15:32:17.545]                 old_names <- names(...future.oldEnvVars)
[15:32:17.545]                 envs <- base::Sys.getenv()
[15:32:17.545]                 names <- names(envs)
[15:32:17.545]                 common <- intersect(names, old_names)
[15:32:17.545]                 added <- setdiff(names, old_names)
[15:32:17.545]                 removed <- setdiff(old_names, names)
[15:32:17.545]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.545]                   envs[common]]
[15:32:17.545]                 NAMES <- toupper(changed)
[15:32:17.545]                 args <- list()
[15:32:17.545]                 for (kk in seq_along(NAMES)) {
[15:32:17.545]                   name <- changed[[kk]]
[15:32:17.545]                   NAME <- NAMES[[kk]]
[15:32:17.545]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.545]                     next
[15:32:17.545]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.545]                 }
[15:32:17.545]                 NAMES <- toupper(added)
[15:32:17.545]                 for (kk in seq_along(NAMES)) {
[15:32:17.545]                   name <- added[[kk]]
[15:32:17.545]                   NAME <- NAMES[[kk]]
[15:32:17.545]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.545]                     next
[15:32:17.545]                   args[[name]] <- ""
[15:32:17.545]                 }
[15:32:17.545]                 NAMES <- toupper(removed)
[15:32:17.545]                 for (kk in seq_along(NAMES)) {
[15:32:17.545]                   name <- removed[[kk]]
[15:32:17.545]                   NAME <- NAMES[[kk]]
[15:32:17.545]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.545]                     next
[15:32:17.545]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.545]                 }
[15:32:17.545]                 if (length(args) > 0) 
[15:32:17.545]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.545]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.545]             }
[15:32:17.545]             else {
[15:32:17.545]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.545]             }
[15:32:17.545]             {
[15:32:17.545]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.545]                   0L) {
[15:32:17.545]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.545]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.545]                   base::options(opts)
[15:32:17.545]                 }
[15:32:17.545]                 {
[15:32:17.545]                   {
[15:32:17.545]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.545]                     NULL
[15:32:17.545]                   }
[15:32:17.545]                   options(future.plan = NULL)
[15:32:17.545]                   if (is.na(NA_character_)) 
[15:32:17.545]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.545]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.545]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.545]                     .init = FALSE)
[15:32:17.545]                 }
[15:32:17.545]             }
[15:32:17.545]         }
[15:32:17.545]     })
[15:32:17.545]     if (TRUE) {
[15:32:17.545]         base::sink(type = "output", split = FALSE)
[15:32:17.545]         if (TRUE) {
[15:32:17.545]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.545]         }
[15:32:17.545]         else {
[15:32:17.545]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.545]         }
[15:32:17.545]         base::close(...future.stdout)
[15:32:17.545]         ...future.stdout <- NULL
[15:32:17.545]     }
[15:32:17.545]     ...future.result$conditions <- ...future.conditions
[15:32:17.545]     ...future.result$finished <- base::Sys.time()
[15:32:17.545]     ...future.result
[15:32:17.545] }
[15:32:17.553] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.554] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.554] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.555] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.555] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.556] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:17.557] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:17.557] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:17.558] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:17.558] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.559] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.559] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.560] MultisessionFuture started
[15:32:17.560] - Launch lazy future ... done
[15:32:17.561] run() for 'MultisessionFuture' ... done
[15:32:17.561] Created future:
[15:32:17.598] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.598] - Validating connection of MultisessionFuture
[15:32:17.598] - received message: FutureResult
[15:32:17.599] - Received FutureResult
[15:32:17.599] - Erased future from FutureRegistry
[15:32:17.599] result() for ClusterFuture ...
[15:32:17.600] - result already collected: FutureResult
[15:32:17.600] result() for ClusterFuture ... done
[15:32:17.600] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.561] MultisessionFuture:
[15:32:17.561] Label: 'future_replicate-2'
[15:32:17.561] Expression:
[15:32:17.561] {
[15:32:17.561]     do.call(function(...) {
[15:32:17.561]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.561]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.561]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.561]             on.exit(options(oopts), add = TRUE)
[15:32:17.561]         }
[15:32:17.561]         {
[15:32:17.561]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.561]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.561]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.561]                   envir = globalenv(), inherits = FALSE)
[15:32:17.561]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.561]             })
[15:32:17.561]         }
[15:32:17.561]     }, args = future.call.arguments)
[15:32:17.561] }
[15:32:17.561] Lazy evaluation: FALSE
[15:32:17.561] Asynchronous evaluation: TRUE
[15:32:17.561] Local evaluation: TRUE
[15:32:17.561] Environment: R_GlobalEnv
[15:32:17.561] Capture standard output: TRUE
[15:32:17.561] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.561] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.561] Packages: <none>
[15:32:17.561] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.561] Resolved: TRUE
[15:32:17.561] Value: <not collected>
[15:32:17.561] Conditions captured: <none>
[15:32:17.561] Early signaling: FALSE
[15:32:17.561] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.561] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.601] Chunk #2 of 2 ... DONE
[15:32:17.601] Launching 2 futures (chunks) ... DONE
[15:32:17.601] Resolving 2 futures (chunks) ...
[15:32:17.602] resolve() on list ...
[15:32:17.602]  recursive: 0
[15:32:17.602]  length: 2
[15:32:17.602] 
[15:32:17.603] Future #1
[15:32:17.603] result() for ClusterFuture ...
[15:32:17.603] - result already collected: FutureResult
[15:32:17.603] result() for ClusterFuture ... done
[15:32:17.604] result() for ClusterFuture ...
[15:32:17.604] - result already collected: FutureResult
[15:32:17.604] result() for ClusterFuture ... done
[15:32:17.604] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:17.605] - nx: 2
[15:32:17.605] - relay: TRUE
[15:32:17.605] - stdout: TRUE
[15:32:17.605] - signal: TRUE
[15:32:17.606] - resignal: FALSE
[15:32:17.606] - force: TRUE
[15:32:17.606] - relayed: [n=2] FALSE, FALSE
[15:32:17.606] - queued futures: [n=2] FALSE, FALSE
[15:32:17.606]  - until=1
[15:32:17.607]  - relaying element #1
[15:32:17.607] result() for ClusterFuture ...
[15:32:17.607] - result already collected: FutureResult
[15:32:17.607] result() for ClusterFuture ... done
[15:32:17.608] result() for ClusterFuture ...
[15:32:17.608] - result already collected: FutureResult
[15:32:17.608] result() for ClusterFuture ... done
[15:32:17.609] result() for ClusterFuture ...
[15:32:17.609] - result already collected: FutureResult
[15:32:17.609] result() for ClusterFuture ... done
[15:32:17.609] result() for ClusterFuture ...
[15:32:17.610] - result already collected: FutureResult
[15:32:17.610] result() for ClusterFuture ... done
[15:32:17.610] - relayed: [n=2] TRUE, FALSE
[15:32:17.610] - queued futures: [n=2] TRUE, FALSE
[15:32:17.611] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:17.611]  length: 1 (resolved future 1)
[15:32:17.611] Future #2
[15:32:17.611] result() for ClusterFuture ...
[15:32:17.612] - result already collected: FutureResult
[15:32:17.612] result() for ClusterFuture ... done
[15:32:17.612] result() for ClusterFuture ...
[15:32:17.612] - result already collected: FutureResult
[15:32:17.613] result() for ClusterFuture ... done
[15:32:17.613] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:17.613] - nx: 2
[15:32:17.613] - relay: TRUE
[15:32:17.614] - stdout: TRUE
[15:32:17.614] - signal: TRUE
[15:32:17.614] - resignal: FALSE
[15:32:17.614] - force: TRUE
[15:32:17.614] - relayed: [n=2] TRUE, FALSE
[15:32:17.615] - queued futures: [n=2] TRUE, FALSE
[15:32:17.615]  - until=2
[15:32:17.615]  - relaying element #2
[15:32:17.615] result() for ClusterFuture ...
[15:32:17.616] - result already collected: FutureResult
[15:32:17.616] result() for ClusterFuture ... done
[15:32:17.616] result() for ClusterFuture ...
[15:32:17.616] - result already collected: FutureResult
[15:32:17.617] result() for ClusterFuture ... done
[15:32:17.617] result() for ClusterFuture ...
[15:32:17.617] - result already collected: FutureResult
[15:32:17.617] result() for ClusterFuture ... done
[15:32:17.618] result() for ClusterFuture ...
[15:32:17.618] - result already collected: FutureResult
[15:32:17.618] result() for ClusterFuture ... done
[15:32:17.618] - relayed: [n=2] TRUE, TRUE
[15:32:17.619] - queued futures: [n=2] TRUE, TRUE
[15:32:17.619] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:17.619]  length: 0 (resolved future 2)
[15:32:17.619] Relaying remaining futures
[15:32:17.620] signalConditionsASAP(NULL, pos=0) ...
[15:32:17.620] - nx: 2
[15:32:17.620] - relay: TRUE
[15:32:17.620] - stdout: TRUE
[15:32:17.620] - signal: TRUE
[15:32:17.621] - resignal: FALSE
[15:32:17.621] - force: TRUE
[15:32:17.621] - relayed: [n=2] TRUE, TRUE
[15:32:17.621] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:17.621] - relayed: [n=2] TRUE, TRUE
[15:32:17.621] - queued futures: [n=2] TRUE, TRUE
[15:32:17.622] signalConditionsASAP(NULL, pos=0) ... done
[15:32:17.622] resolve() on list ... DONE
[15:32:17.622] result() for ClusterFuture ...
[15:32:17.623] - result already collected: FutureResult
[15:32:17.623] result() for ClusterFuture ... done
[15:32:17.623] result() for ClusterFuture ...
[15:32:17.623] - result already collected: FutureResult
[15:32:17.623] result() for ClusterFuture ... done
[15:32:17.623] result() for ClusterFuture ...
[15:32:17.623] - result already collected: FutureResult
[15:32:17.624] result() for ClusterFuture ... done
[15:32:17.624] result() for ClusterFuture ...
[15:32:17.624] - result already collected: FutureResult
[15:32:17.624] result() for ClusterFuture ... done
[15:32:17.624]  - Number of value chunks collected: 2
[15:32:17.625] Resolving 2 futures (chunks) ... DONE
[15:32:17.625] Reducing values from 2 chunks ...
[15:32:17.625]  - Number of values collected after concatenation: 5
[15:32:17.625]  - Number of values expected: 5
[15:32:17.625] Reducing values from 2 chunks ... DONE
[15:32:17.626] future_lapply() ... DONE
[15:32:17.626] future_lapply() ...
[15:32:17.627] Generating random seeds ...
[15:32:17.627] Generating random seed streams for 5 elements ...
[15:32:17.627] Generating random seed streams for 5 elements ... DONE
[15:32:17.628] Generating random seeds ... DONE
[15:32:17.628] Will set RNG state on exit: 10403, 2, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:17.631] Number of chunks: 2
[15:32:17.631] getGlobalsAndPackagesXApply() ...
[15:32:17.631]  - future.globals: TRUE
[15:32:17.632] getGlobalsAndPackages() ...
[15:32:17.632] Searching for globals...
[15:32:17.633] - globals found: [2] 'FUN', 'sample'
[15:32:17.633] Searching for globals ... DONE
[15:32:17.633] Resolving globals: FALSE
[15:32:17.634] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:17.634] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:17.634] - globals: [1] 'FUN'
[15:32:17.635] 
[15:32:17.635] getGlobalsAndPackages() ... DONE
[15:32:17.635]  - globals found/used: [n=1] 'FUN'
[15:32:17.635]  - needed namespaces: [n=0] 
[15:32:17.636] Finding globals ... DONE
[15:32:17.636]  - use_args: TRUE
[15:32:17.636]  - Getting '...' globals ...
[15:32:17.637] resolve() on list ...
[15:32:17.637]  recursive: 0
[15:32:17.637]  length: 1
[15:32:17.640]  elements: '...'
[15:32:17.640]  length: 0 (resolved future 1)
[15:32:17.641] resolve() on list ... DONE
[15:32:17.641]    - '...' content: [n=0] 
[15:32:17.641] List of 1
[15:32:17.641]  $ ...: list()
[15:32:17.641]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.641]  - attr(*, "where")=List of 1
[15:32:17.641]   ..$ ...:<environment: 0x000002abb7c328d0> 
[15:32:17.641]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.641]  - attr(*, "resolved")= logi TRUE
[15:32:17.641]  - attr(*, "total_size")= num NA
[15:32:17.644]  - Getting '...' globals ... DONE
[15:32:17.644] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:17.644] List of 2
[15:32:17.644]  $ ...future.FUN:function (...)  
[15:32:17.644]  $ ...          : list()
[15:32:17.644]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.644]  - attr(*, "where")=List of 2
[15:32:17.644]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:17.644]   ..$ ...          :<environment: 0x000002abb7c328d0> 
[15:32:17.644]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.644]  - attr(*, "resolved")= logi FALSE
[15:32:17.644]  - attr(*, "total_size")= num 616
[15:32:17.647] Packages to be attached in all futures: [n=0] 
[15:32:17.647] getGlobalsAndPackagesXApply() ... DONE
[15:32:17.648] Number of futures (= number of chunks): 2
[15:32:17.648] Launching 2 futures (chunks) ...
[15:32:17.648] Chunk #1 of 2 ...
[15:32:17.648]  - Finding globals in 'X' for chunk #1 ...
[15:32:17.648] getGlobalsAndPackages() ...
[15:32:17.648] Searching for globals...
[15:32:17.649] 
[15:32:17.649] Searching for globals ... DONE
[15:32:17.649] - globals: [0] <none>
[15:32:17.649] getGlobalsAndPackages() ... DONE
[15:32:17.649]    + additional globals found: [n=0] 
[15:32:17.650]    + additional namespaces needed: [n=0] 
[15:32:17.650]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:17.650]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.650]  - seeds: [2] <seeds>
[15:32:17.650]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.650] getGlobalsAndPackages() ...
[15:32:17.650] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.651] Resolving globals: FALSE
[15:32:17.651] Tweak future expression to call with '...' arguments ...
[15:32:17.651] {
[15:32:17.651]     do.call(function(...) {
[15:32:17.651]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.651]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.651]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.651]             on.exit(options(oopts), add = TRUE)
[15:32:17.651]         }
[15:32:17.651]         {
[15:32:17.651]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.651]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.651]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.651]                   envir = globalenv(), inherits = FALSE)
[15:32:17.651]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.651]             })
[15:32:17.651]         }
[15:32:17.651]     }, args = future.call.arguments)
[15:32:17.651] }
[15:32:17.652] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.652] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.652] 
[15:32:17.652] getGlobalsAndPackages() ... DONE
[15:32:17.653] run() for 'Future' ...
[15:32:17.653] - state: 'created'
[15:32:17.653] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.668] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.668] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.668]   - Field: 'node'
[15:32:17.668]   - Field: 'label'
[15:32:17.669]   - Field: 'local'
[15:32:17.669]   - Field: 'owner'
[15:32:17.669]   - Field: 'envir'
[15:32:17.669]   - Field: 'workers'
[15:32:17.669]   - Field: 'packages'
[15:32:17.670]   - Field: 'gc'
[15:32:17.670]   - Field: 'conditions'
[15:32:17.670]   - Field: 'persistent'
[15:32:17.670]   - Field: 'expr'
[15:32:17.670]   - Field: 'uuid'
[15:32:17.670]   - Field: 'seed'
[15:32:17.671]   - Field: 'version'
[15:32:17.671]   - Field: 'result'
[15:32:17.671]   - Field: 'asynchronous'
[15:32:17.671]   - Field: 'calls'
[15:32:17.672]   - Field: 'globals'
[15:32:17.672]   - Field: 'stdout'
[15:32:17.672]   - Field: 'earlySignal'
[15:32:17.672]   - Field: 'lazy'
[15:32:17.673]   - Field: 'state'
[15:32:17.673] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.673] - Launch lazy future ...
[15:32:17.674] Packages needed by the future expression (n = 0): <none>
[15:32:17.674] Packages needed by future strategies (n = 0): <none>
[15:32:17.675] {
[15:32:17.675]     {
[15:32:17.675]         {
[15:32:17.675]             ...future.startTime <- base::Sys.time()
[15:32:17.675]             {
[15:32:17.675]                 {
[15:32:17.675]                   {
[15:32:17.675]                     {
[15:32:17.675]                       base::local({
[15:32:17.675]                         has_future <- base::requireNamespace("future", 
[15:32:17.675]                           quietly = TRUE)
[15:32:17.675]                         if (has_future) {
[15:32:17.675]                           ns <- base::getNamespace("future")
[15:32:17.675]                           version <- ns[[".package"]][["version"]]
[15:32:17.675]                           if (is.null(version)) 
[15:32:17.675]                             version <- utils::packageVersion("future")
[15:32:17.675]                         }
[15:32:17.675]                         else {
[15:32:17.675]                           version <- NULL
[15:32:17.675]                         }
[15:32:17.675]                         if (!has_future || version < "1.8.0") {
[15:32:17.675]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.675]                             "", base::R.version$version.string), 
[15:32:17.675]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.675]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.675]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.675]                               "release", "version")], collapse = " "), 
[15:32:17.675]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.675]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.675]                             info)
[15:32:17.675]                           info <- base::paste(info, collapse = "; ")
[15:32:17.675]                           if (!has_future) {
[15:32:17.675]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.675]                               info)
[15:32:17.675]                           }
[15:32:17.675]                           else {
[15:32:17.675]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.675]                               info, version)
[15:32:17.675]                           }
[15:32:17.675]                           base::stop(msg)
[15:32:17.675]                         }
[15:32:17.675]                       })
[15:32:17.675]                     }
[15:32:17.675]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.675]                     base::options(mc.cores = 1L)
[15:32:17.675]                   }
[15:32:17.675]                   ...future.strategy.old <- future::plan("list")
[15:32:17.675]                   options(future.plan = NULL)
[15:32:17.675]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.675]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.675]                 }
[15:32:17.675]                 ...future.workdir <- getwd()
[15:32:17.675]             }
[15:32:17.675]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.675]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.675]         }
[15:32:17.675]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.675]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.675]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.675]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.675]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.675]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.675]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.675]             base::names(...future.oldOptions))
[15:32:17.675]     }
[15:32:17.675]     if (FALSE) {
[15:32:17.675]     }
[15:32:17.675]     else {
[15:32:17.675]         if (TRUE) {
[15:32:17.675]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.675]                 open = "w")
[15:32:17.675]         }
[15:32:17.675]         else {
[15:32:17.675]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.675]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.675]         }
[15:32:17.675]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.675]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.675]             base::sink(type = "output", split = FALSE)
[15:32:17.675]             base::close(...future.stdout)
[15:32:17.675]         }, add = TRUE)
[15:32:17.675]     }
[15:32:17.675]     ...future.frame <- base::sys.nframe()
[15:32:17.675]     ...future.conditions <- base::list()
[15:32:17.675]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.675]     if (FALSE) {
[15:32:17.675]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.675]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.675]     }
[15:32:17.675]     ...future.result <- base::tryCatch({
[15:32:17.675]         base::withCallingHandlers({
[15:32:17.675]             ...future.value <- base::withVisible(base::local({
[15:32:17.675]                 ...future.makeSendCondition <- base::local({
[15:32:17.675]                   sendCondition <- NULL
[15:32:17.675]                   function(frame = 1L) {
[15:32:17.675]                     if (is.function(sendCondition)) 
[15:32:17.675]                       return(sendCondition)
[15:32:17.675]                     ns <- getNamespace("parallel")
[15:32:17.675]                     if (exists("sendData", mode = "function", 
[15:32:17.675]                       envir = ns)) {
[15:32:17.675]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.675]                         envir = ns)
[15:32:17.675]                       envir <- sys.frame(frame)
[15:32:17.675]                       master <- NULL
[15:32:17.675]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.675]                         !identical(envir, emptyenv())) {
[15:32:17.675]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.675]                           inherits = FALSE)) {
[15:32:17.675]                           master <- get("master", mode = "list", 
[15:32:17.675]                             envir = envir, inherits = FALSE)
[15:32:17.675]                           if (inherits(master, c("SOCKnode", 
[15:32:17.675]                             "SOCK0node"))) {
[15:32:17.675]                             sendCondition <<- function(cond) {
[15:32:17.675]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.675]                                 success = TRUE)
[15:32:17.675]                               parallel_sendData(master, data)
[15:32:17.675]                             }
[15:32:17.675]                             return(sendCondition)
[15:32:17.675]                           }
[15:32:17.675]                         }
[15:32:17.675]                         frame <- frame + 1L
[15:32:17.675]                         envir <- sys.frame(frame)
[15:32:17.675]                       }
[15:32:17.675]                     }
[15:32:17.675]                     sendCondition <<- function(cond) NULL
[15:32:17.675]                   }
[15:32:17.675]                 })
[15:32:17.675]                 withCallingHandlers({
[15:32:17.675]                   {
[15:32:17.675]                     do.call(function(...) {
[15:32:17.675]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.675]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.675]                         ...future.globals.maxSize)) {
[15:32:17.675]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.675]                         on.exit(options(oopts), add = TRUE)
[15:32:17.675]                       }
[15:32:17.675]                       {
[15:32:17.675]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.675]                           FUN = function(jj) {
[15:32:17.675]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.675]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.675]                               envir = globalenv(), inherits = FALSE)
[15:32:17.675]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.675]                           })
[15:32:17.675]                       }
[15:32:17.675]                     }, args = future.call.arguments)
[15:32:17.675]                   }
[15:32:17.675]                 }, immediateCondition = function(cond) {
[15:32:17.675]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.675]                   sendCondition(cond)
[15:32:17.675]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.675]                   {
[15:32:17.675]                     inherits <- base::inherits
[15:32:17.675]                     invokeRestart <- base::invokeRestart
[15:32:17.675]                     is.null <- base::is.null
[15:32:17.675]                     muffled <- FALSE
[15:32:17.675]                     if (inherits(cond, "message")) {
[15:32:17.675]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.675]                       if (muffled) 
[15:32:17.675]                         invokeRestart("muffleMessage")
[15:32:17.675]                     }
[15:32:17.675]                     else if (inherits(cond, "warning")) {
[15:32:17.675]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.675]                       if (muffled) 
[15:32:17.675]                         invokeRestart("muffleWarning")
[15:32:17.675]                     }
[15:32:17.675]                     else if (inherits(cond, "condition")) {
[15:32:17.675]                       if (!is.null(pattern)) {
[15:32:17.675]                         computeRestarts <- base::computeRestarts
[15:32:17.675]                         grepl <- base::grepl
[15:32:17.675]                         restarts <- computeRestarts(cond)
[15:32:17.675]                         for (restart in restarts) {
[15:32:17.675]                           name <- restart$name
[15:32:17.675]                           if (is.null(name)) 
[15:32:17.675]                             next
[15:32:17.675]                           if (!grepl(pattern, name)) 
[15:32:17.675]                             next
[15:32:17.675]                           invokeRestart(restart)
[15:32:17.675]                           muffled <- TRUE
[15:32:17.675]                           break
[15:32:17.675]                         }
[15:32:17.675]                       }
[15:32:17.675]                     }
[15:32:17.675]                     invisible(muffled)
[15:32:17.675]                   }
[15:32:17.675]                   muffleCondition(cond)
[15:32:17.675]                 })
[15:32:17.675]             }))
[15:32:17.675]             future::FutureResult(value = ...future.value$value, 
[15:32:17.675]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.675]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.675]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.675]                     ...future.globalenv.names))
[15:32:17.675]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.675]         }, condition = base::local({
[15:32:17.675]             c <- base::c
[15:32:17.675]             inherits <- base::inherits
[15:32:17.675]             invokeRestart <- base::invokeRestart
[15:32:17.675]             length <- base::length
[15:32:17.675]             list <- base::list
[15:32:17.675]             seq.int <- base::seq.int
[15:32:17.675]             signalCondition <- base::signalCondition
[15:32:17.675]             sys.calls <- base::sys.calls
[15:32:17.675]             `[[` <- base::`[[`
[15:32:17.675]             `+` <- base::`+`
[15:32:17.675]             `<<-` <- base::`<<-`
[15:32:17.675]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.675]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.675]                   3L)]
[15:32:17.675]             }
[15:32:17.675]             function(cond) {
[15:32:17.675]                 is_error <- inherits(cond, "error")
[15:32:17.675]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.675]                   NULL)
[15:32:17.675]                 if (is_error) {
[15:32:17.675]                   sessionInformation <- function() {
[15:32:17.675]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.675]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.675]                       search = base::search(), system = base::Sys.info())
[15:32:17.675]                   }
[15:32:17.675]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.675]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.675]                     cond$call), session = sessionInformation(), 
[15:32:17.675]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.675]                   signalCondition(cond)
[15:32:17.675]                 }
[15:32:17.675]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.675]                 "immediateCondition"))) {
[15:32:17.675]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.675]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.675]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.675]                   if (TRUE && !signal) {
[15:32:17.675]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.675]                     {
[15:32:17.675]                       inherits <- base::inherits
[15:32:17.675]                       invokeRestart <- base::invokeRestart
[15:32:17.675]                       is.null <- base::is.null
[15:32:17.675]                       muffled <- FALSE
[15:32:17.675]                       if (inherits(cond, "message")) {
[15:32:17.675]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.675]                         if (muffled) 
[15:32:17.675]                           invokeRestart("muffleMessage")
[15:32:17.675]                       }
[15:32:17.675]                       else if (inherits(cond, "warning")) {
[15:32:17.675]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.675]                         if (muffled) 
[15:32:17.675]                           invokeRestart("muffleWarning")
[15:32:17.675]                       }
[15:32:17.675]                       else if (inherits(cond, "condition")) {
[15:32:17.675]                         if (!is.null(pattern)) {
[15:32:17.675]                           computeRestarts <- base::computeRestarts
[15:32:17.675]                           grepl <- base::grepl
[15:32:17.675]                           restarts <- computeRestarts(cond)
[15:32:17.675]                           for (restart in restarts) {
[15:32:17.675]                             name <- restart$name
[15:32:17.675]                             if (is.null(name)) 
[15:32:17.675]                               next
[15:32:17.675]                             if (!grepl(pattern, name)) 
[15:32:17.675]                               next
[15:32:17.675]                             invokeRestart(restart)
[15:32:17.675]                             muffled <- TRUE
[15:32:17.675]                             break
[15:32:17.675]                           }
[15:32:17.675]                         }
[15:32:17.675]                       }
[15:32:17.675]                       invisible(muffled)
[15:32:17.675]                     }
[15:32:17.675]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.675]                   }
[15:32:17.675]                 }
[15:32:17.675]                 else {
[15:32:17.675]                   if (TRUE) {
[15:32:17.675]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.675]                     {
[15:32:17.675]                       inherits <- base::inherits
[15:32:17.675]                       invokeRestart <- base::invokeRestart
[15:32:17.675]                       is.null <- base::is.null
[15:32:17.675]                       muffled <- FALSE
[15:32:17.675]                       if (inherits(cond, "message")) {
[15:32:17.675]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.675]                         if (muffled) 
[15:32:17.675]                           invokeRestart("muffleMessage")
[15:32:17.675]                       }
[15:32:17.675]                       else if (inherits(cond, "warning")) {
[15:32:17.675]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.675]                         if (muffled) 
[15:32:17.675]                           invokeRestart("muffleWarning")
[15:32:17.675]                       }
[15:32:17.675]                       else if (inherits(cond, "condition")) {
[15:32:17.675]                         if (!is.null(pattern)) {
[15:32:17.675]                           computeRestarts <- base::computeRestarts
[15:32:17.675]                           grepl <- base::grepl
[15:32:17.675]                           restarts <- computeRestarts(cond)
[15:32:17.675]                           for (restart in restarts) {
[15:32:17.675]                             name <- restart$name
[15:32:17.675]                             if (is.null(name)) 
[15:32:17.675]                               next
[15:32:17.675]                             if (!grepl(pattern, name)) 
[15:32:17.675]                               next
[15:32:17.675]                             invokeRestart(restart)
[15:32:17.675]                             muffled <- TRUE
[15:32:17.675]                             break
[15:32:17.675]                           }
[15:32:17.675]                         }
[15:32:17.675]                       }
[15:32:17.675]                       invisible(muffled)
[15:32:17.675]                     }
[15:32:17.675]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.675]                   }
[15:32:17.675]                 }
[15:32:17.675]             }
[15:32:17.675]         }))
[15:32:17.675]     }, error = function(ex) {
[15:32:17.675]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.675]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.675]                 ...future.rng), started = ...future.startTime, 
[15:32:17.675]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.675]             version = "1.8"), class = "FutureResult")
[15:32:17.675]     }, finally = {
[15:32:17.675]         if (!identical(...future.workdir, getwd())) 
[15:32:17.675]             setwd(...future.workdir)
[15:32:17.675]         {
[15:32:17.675]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.675]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.675]             }
[15:32:17.675]             base::options(...future.oldOptions)
[15:32:17.675]             if (.Platform$OS.type == "windows") {
[15:32:17.675]                 old_names <- names(...future.oldEnvVars)
[15:32:17.675]                 envs <- base::Sys.getenv()
[15:32:17.675]                 names <- names(envs)
[15:32:17.675]                 common <- intersect(names, old_names)
[15:32:17.675]                 added <- setdiff(names, old_names)
[15:32:17.675]                 removed <- setdiff(old_names, names)
[15:32:17.675]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.675]                   envs[common]]
[15:32:17.675]                 NAMES <- toupper(changed)
[15:32:17.675]                 args <- list()
[15:32:17.675]                 for (kk in seq_along(NAMES)) {
[15:32:17.675]                   name <- changed[[kk]]
[15:32:17.675]                   NAME <- NAMES[[kk]]
[15:32:17.675]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.675]                     next
[15:32:17.675]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.675]                 }
[15:32:17.675]                 NAMES <- toupper(added)
[15:32:17.675]                 for (kk in seq_along(NAMES)) {
[15:32:17.675]                   name <- added[[kk]]
[15:32:17.675]                   NAME <- NAMES[[kk]]
[15:32:17.675]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.675]                     next
[15:32:17.675]                   args[[name]] <- ""
[15:32:17.675]                 }
[15:32:17.675]                 NAMES <- toupper(removed)
[15:32:17.675]                 for (kk in seq_along(NAMES)) {
[15:32:17.675]                   name <- removed[[kk]]
[15:32:17.675]                   NAME <- NAMES[[kk]]
[15:32:17.675]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.675]                     next
[15:32:17.675]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.675]                 }
[15:32:17.675]                 if (length(args) > 0) 
[15:32:17.675]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.675]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.675]             }
[15:32:17.675]             else {
[15:32:17.675]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.675]             }
[15:32:17.675]             {
[15:32:17.675]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.675]                   0L) {
[15:32:17.675]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.675]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.675]                   base::options(opts)
[15:32:17.675]                 }
[15:32:17.675]                 {
[15:32:17.675]                   {
[15:32:17.675]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.675]                     NULL
[15:32:17.675]                   }
[15:32:17.675]                   options(future.plan = NULL)
[15:32:17.675]                   if (is.na(NA_character_)) 
[15:32:17.675]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.675]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.675]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.675]                     .init = FALSE)
[15:32:17.675]                 }
[15:32:17.675]             }
[15:32:17.675]         }
[15:32:17.675]     })
[15:32:17.675]     if (TRUE) {
[15:32:17.675]         base::sink(type = "output", split = FALSE)
[15:32:17.675]         if (TRUE) {
[15:32:17.675]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.675]         }
[15:32:17.675]         else {
[15:32:17.675]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.675]         }
[15:32:17.675]         base::close(...future.stdout)
[15:32:17.675]         ...future.stdout <- NULL
[15:32:17.675]     }
[15:32:17.675]     ...future.result$conditions <- ...future.conditions
[15:32:17.675]     ...future.result$finished <- base::Sys.time()
[15:32:17.675]     ...future.result
[15:32:17.675] }
[15:32:17.682] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.683] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.683] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.684] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.684] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.685] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:17.685] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:17.685] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:17.686] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:17.686] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.687] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.687] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.688] MultisessionFuture started
[15:32:17.688] - Launch lazy future ... done
[15:32:17.689] run() for 'MultisessionFuture' ... done
[15:32:17.689] Created future:
[15:32:17.707] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.708] - Validating connection of MultisessionFuture
[15:32:17.708] - received message: FutureResult
[15:32:17.709] - Received FutureResult
[15:32:17.709] - Erased future from FutureRegistry
[15:32:17.709] result() for ClusterFuture ...
[15:32:17.709] - result already collected: FutureResult
[15:32:17.709] result() for ClusterFuture ... done
[15:32:17.710] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.689] MultisessionFuture:
[15:32:17.689] Label: 'future_replicate-1'
[15:32:17.689] Expression:
[15:32:17.689] {
[15:32:17.689]     do.call(function(...) {
[15:32:17.689]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.689]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.689]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.689]             on.exit(options(oopts), add = TRUE)
[15:32:17.689]         }
[15:32:17.689]         {
[15:32:17.689]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.689]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.689]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.689]                   envir = globalenv(), inherits = FALSE)
[15:32:17.689]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.689]             })
[15:32:17.689]         }
[15:32:17.689]     }, args = future.call.arguments)
[15:32:17.689] }
[15:32:17.689] Lazy evaluation: FALSE
[15:32:17.689] Asynchronous evaluation: TRUE
[15:32:17.689] Local evaluation: TRUE
[15:32:17.689] Environment: R_GlobalEnv
[15:32:17.689] Capture standard output: TRUE
[15:32:17.689] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.689] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.689] Packages: <none>
[15:32:17.689] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.689] Resolved: TRUE
[15:32:17.689] Value: <not collected>
[15:32:17.689] Conditions captured: <none>
[15:32:17.689] Early signaling: FALSE
[15:32:17.689] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.689] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.710] Chunk #1 of 2 ... DONE
[15:32:17.710] Chunk #2 of 2 ...
[15:32:17.711]  - Finding globals in 'X' for chunk #2 ...
[15:32:17.711] getGlobalsAndPackages() ...
[15:32:17.711] Searching for globals...
[15:32:17.712] 
[15:32:17.712] Searching for globals ... DONE
[15:32:17.712] - globals: [0] <none>
[15:32:17.712] getGlobalsAndPackages() ... DONE
[15:32:17.712]    + additional globals found: [n=0] 
[15:32:17.713]    + additional namespaces needed: [n=0] 
[15:32:17.713]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:17.713]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.713]  - seeds: [3] <seeds>
[15:32:17.713]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.714] getGlobalsAndPackages() ...
[15:32:17.714] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.714] Resolving globals: FALSE
[15:32:17.714] Tweak future expression to call with '...' arguments ...
[15:32:17.715] {
[15:32:17.715]     do.call(function(...) {
[15:32:17.715]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.715]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.715]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.715]             on.exit(options(oopts), add = TRUE)
[15:32:17.715]         }
[15:32:17.715]         {
[15:32:17.715]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.715]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.715]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.715]                   envir = globalenv(), inherits = FALSE)
[15:32:17.715]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.715]             })
[15:32:17.715]         }
[15:32:17.715]     }, args = future.call.arguments)
[15:32:17.715] }
[15:32:17.716] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.716] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.717] 
[15:32:17.717] getGlobalsAndPackages() ... DONE
[15:32:17.718] run() for 'Future' ...
[15:32:17.718] - state: 'created'
[15:32:17.718] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.738] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.738] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.739]   - Field: 'node'
[15:32:17.739]   - Field: 'label'
[15:32:17.740]   - Field: 'local'
[15:32:17.740]   - Field: 'owner'
[15:32:17.740]   - Field: 'envir'
[15:32:17.741]   - Field: 'workers'
[15:32:17.741]   - Field: 'packages'
[15:32:17.741]   - Field: 'gc'
[15:32:17.742]   - Field: 'conditions'
[15:32:17.742]   - Field: 'persistent'
[15:32:17.742]   - Field: 'expr'
[15:32:17.743]   - Field: 'uuid'
[15:32:17.743]   - Field: 'seed'
[15:32:17.743]   - Field: 'version'
[15:32:17.743]   - Field: 'result'
[15:32:17.744]   - Field: 'asynchronous'
[15:32:17.744]   - Field: 'calls'
[15:32:17.744]   - Field: 'globals'
[15:32:17.745]   - Field: 'stdout'
[15:32:17.745]   - Field: 'earlySignal'
[15:32:17.745]   - Field: 'lazy'
[15:32:17.746]   - Field: 'state'
[15:32:17.746] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.746] - Launch lazy future ...
[15:32:17.747] Packages needed by the future expression (n = 0): <none>
[15:32:17.747] Packages needed by future strategies (n = 0): <none>
[15:32:17.748] {
[15:32:17.748]     {
[15:32:17.748]         {
[15:32:17.748]             ...future.startTime <- base::Sys.time()
[15:32:17.748]             {
[15:32:17.748]                 {
[15:32:17.748]                   {
[15:32:17.748]                     {
[15:32:17.748]                       base::local({
[15:32:17.748]                         has_future <- base::requireNamespace("future", 
[15:32:17.748]                           quietly = TRUE)
[15:32:17.748]                         if (has_future) {
[15:32:17.748]                           ns <- base::getNamespace("future")
[15:32:17.748]                           version <- ns[[".package"]][["version"]]
[15:32:17.748]                           if (is.null(version)) 
[15:32:17.748]                             version <- utils::packageVersion("future")
[15:32:17.748]                         }
[15:32:17.748]                         else {
[15:32:17.748]                           version <- NULL
[15:32:17.748]                         }
[15:32:17.748]                         if (!has_future || version < "1.8.0") {
[15:32:17.748]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.748]                             "", base::R.version$version.string), 
[15:32:17.748]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.748]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.748]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.748]                               "release", "version")], collapse = " "), 
[15:32:17.748]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.748]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.748]                             info)
[15:32:17.748]                           info <- base::paste(info, collapse = "; ")
[15:32:17.748]                           if (!has_future) {
[15:32:17.748]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.748]                               info)
[15:32:17.748]                           }
[15:32:17.748]                           else {
[15:32:17.748]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.748]                               info, version)
[15:32:17.748]                           }
[15:32:17.748]                           base::stop(msg)
[15:32:17.748]                         }
[15:32:17.748]                       })
[15:32:17.748]                     }
[15:32:17.748]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.748]                     base::options(mc.cores = 1L)
[15:32:17.748]                   }
[15:32:17.748]                   ...future.strategy.old <- future::plan("list")
[15:32:17.748]                   options(future.plan = NULL)
[15:32:17.748]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.748]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.748]                 }
[15:32:17.748]                 ...future.workdir <- getwd()
[15:32:17.748]             }
[15:32:17.748]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.748]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.748]         }
[15:32:17.748]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.748]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.748]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.748]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.748]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.748]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.748]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.748]             base::names(...future.oldOptions))
[15:32:17.748]     }
[15:32:17.748]     if (FALSE) {
[15:32:17.748]     }
[15:32:17.748]     else {
[15:32:17.748]         if (TRUE) {
[15:32:17.748]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.748]                 open = "w")
[15:32:17.748]         }
[15:32:17.748]         else {
[15:32:17.748]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.748]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.748]         }
[15:32:17.748]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.748]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.748]             base::sink(type = "output", split = FALSE)
[15:32:17.748]             base::close(...future.stdout)
[15:32:17.748]         }, add = TRUE)
[15:32:17.748]     }
[15:32:17.748]     ...future.frame <- base::sys.nframe()
[15:32:17.748]     ...future.conditions <- base::list()
[15:32:17.748]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.748]     if (FALSE) {
[15:32:17.748]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.748]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.748]     }
[15:32:17.748]     ...future.result <- base::tryCatch({
[15:32:17.748]         base::withCallingHandlers({
[15:32:17.748]             ...future.value <- base::withVisible(base::local({
[15:32:17.748]                 ...future.makeSendCondition <- base::local({
[15:32:17.748]                   sendCondition <- NULL
[15:32:17.748]                   function(frame = 1L) {
[15:32:17.748]                     if (is.function(sendCondition)) 
[15:32:17.748]                       return(sendCondition)
[15:32:17.748]                     ns <- getNamespace("parallel")
[15:32:17.748]                     if (exists("sendData", mode = "function", 
[15:32:17.748]                       envir = ns)) {
[15:32:17.748]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.748]                         envir = ns)
[15:32:17.748]                       envir <- sys.frame(frame)
[15:32:17.748]                       master <- NULL
[15:32:17.748]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.748]                         !identical(envir, emptyenv())) {
[15:32:17.748]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.748]                           inherits = FALSE)) {
[15:32:17.748]                           master <- get("master", mode = "list", 
[15:32:17.748]                             envir = envir, inherits = FALSE)
[15:32:17.748]                           if (inherits(master, c("SOCKnode", 
[15:32:17.748]                             "SOCK0node"))) {
[15:32:17.748]                             sendCondition <<- function(cond) {
[15:32:17.748]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.748]                                 success = TRUE)
[15:32:17.748]                               parallel_sendData(master, data)
[15:32:17.748]                             }
[15:32:17.748]                             return(sendCondition)
[15:32:17.748]                           }
[15:32:17.748]                         }
[15:32:17.748]                         frame <- frame + 1L
[15:32:17.748]                         envir <- sys.frame(frame)
[15:32:17.748]                       }
[15:32:17.748]                     }
[15:32:17.748]                     sendCondition <<- function(cond) NULL
[15:32:17.748]                   }
[15:32:17.748]                 })
[15:32:17.748]                 withCallingHandlers({
[15:32:17.748]                   {
[15:32:17.748]                     do.call(function(...) {
[15:32:17.748]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.748]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.748]                         ...future.globals.maxSize)) {
[15:32:17.748]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.748]                         on.exit(options(oopts), add = TRUE)
[15:32:17.748]                       }
[15:32:17.748]                       {
[15:32:17.748]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.748]                           FUN = function(jj) {
[15:32:17.748]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.748]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.748]                               envir = globalenv(), inherits = FALSE)
[15:32:17.748]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.748]                           })
[15:32:17.748]                       }
[15:32:17.748]                     }, args = future.call.arguments)
[15:32:17.748]                   }
[15:32:17.748]                 }, immediateCondition = function(cond) {
[15:32:17.748]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.748]                   sendCondition(cond)
[15:32:17.748]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.748]                   {
[15:32:17.748]                     inherits <- base::inherits
[15:32:17.748]                     invokeRestart <- base::invokeRestart
[15:32:17.748]                     is.null <- base::is.null
[15:32:17.748]                     muffled <- FALSE
[15:32:17.748]                     if (inherits(cond, "message")) {
[15:32:17.748]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.748]                       if (muffled) 
[15:32:17.748]                         invokeRestart("muffleMessage")
[15:32:17.748]                     }
[15:32:17.748]                     else if (inherits(cond, "warning")) {
[15:32:17.748]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.748]                       if (muffled) 
[15:32:17.748]                         invokeRestart("muffleWarning")
[15:32:17.748]                     }
[15:32:17.748]                     else if (inherits(cond, "condition")) {
[15:32:17.748]                       if (!is.null(pattern)) {
[15:32:17.748]                         computeRestarts <- base::computeRestarts
[15:32:17.748]                         grepl <- base::grepl
[15:32:17.748]                         restarts <- computeRestarts(cond)
[15:32:17.748]                         for (restart in restarts) {
[15:32:17.748]                           name <- restart$name
[15:32:17.748]                           if (is.null(name)) 
[15:32:17.748]                             next
[15:32:17.748]                           if (!grepl(pattern, name)) 
[15:32:17.748]                             next
[15:32:17.748]                           invokeRestart(restart)
[15:32:17.748]                           muffled <- TRUE
[15:32:17.748]                           break
[15:32:17.748]                         }
[15:32:17.748]                       }
[15:32:17.748]                     }
[15:32:17.748]                     invisible(muffled)
[15:32:17.748]                   }
[15:32:17.748]                   muffleCondition(cond)
[15:32:17.748]                 })
[15:32:17.748]             }))
[15:32:17.748]             future::FutureResult(value = ...future.value$value, 
[15:32:17.748]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.748]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.748]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.748]                     ...future.globalenv.names))
[15:32:17.748]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.748]         }, condition = base::local({
[15:32:17.748]             c <- base::c
[15:32:17.748]             inherits <- base::inherits
[15:32:17.748]             invokeRestart <- base::invokeRestart
[15:32:17.748]             length <- base::length
[15:32:17.748]             list <- base::list
[15:32:17.748]             seq.int <- base::seq.int
[15:32:17.748]             signalCondition <- base::signalCondition
[15:32:17.748]             sys.calls <- base::sys.calls
[15:32:17.748]             `[[` <- base::`[[`
[15:32:17.748]             `+` <- base::`+`
[15:32:17.748]             `<<-` <- base::`<<-`
[15:32:17.748]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.748]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.748]                   3L)]
[15:32:17.748]             }
[15:32:17.748]             function(cond) {
[15:32:17.748]                 is_error <- inherits(cond, "error")
[15:32:17.748]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.748]                   NULL)
[15:32:17.748]                 if (is_error) {
[15:32:17.748]                   sessionInformation <- function() {
[15:32:17.748]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.748]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.748]                       search = base::search(), system = base::Sys.info())
[15:32:17.748]                   }
[15:32:17.748]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.748]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.748]                     cond$call), session = sessionInformation(), 
[15:32:17.748]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.748]                   signalCondition(cond)
[15:32:17.748]                 }
[15:32:17.748]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.748]                 "immediateCondition"))) {
[15:32:17.748]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.748]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.748]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.748]                   if (TRUE && !signal) {
[15:32:17.748]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.748]                     {
[15:32:17.748]                       inherits <- base::inherits
[15:32:17.748]                       invokeRestart <- base::invokeRestart
[15:32:17.748]                       is.null <- base::is.null
[15:32:17.748]                       muffled <- FALSE
[15:32:17.748]                       if (inherits(cond, "message")) {
[15:32:17.748]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.748]                         if (muffled) 
[15:32:17.748]                           invokeRestart("muffleMessage")
[15:32:17.748]                       }
[15:32:17.748]                       else if (inherits(cond, "warning")) {
[15:32:17.748]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.748]                         if (muffled) 
[15:32:17.748]                           invokeRestart("muffleWarning")
[15:32:17.748]                       }
[15:32:17.748]                       else if (inherits(cond, "condition")) {
[15:32:17.748]                         if (!is.null(pattern)) {
[15:32:17.748]                           computeRestarts <- base::computeRestarts
[15:32:17.748]                           grepl <- base::grepl
[15:32:17.748]                           restarts <- computeRestarts(cond)
[15:32:17.748]                           for (restart in restarts) {
[15:32:17.748]                             name <- restart$name
[15:32:17.748]                             if (is.null(name)) 
[15:32:17.748]                               next
[15:32:17.748]                             if (!grepl(pattern, name)) 
[15:32:17.748]                               next
[15:32:17.748]                             invokeRestart(restart)
[15:32:17.748]                             muffled <- TRUE
[15:32:17.748]                             break
[15:32:17.748]                           }
[15:32:17.748]                         }
[15:32:17.748]                       }
[15:32:17.748]                       invisible(muffled)
[15:32:17.748]                     }
[15:32:17.748]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.748]                   }
[15:32:17.748]                 }
[15:32:17.748]                 else {
[15:32:17.748]                   if (TRUE) {
[15:32:17.748]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.748]                     {
[15:32:17.748]                       inherits <- base::inherits
[15:32:17.748]                       invokeRestart <- base::invokeRestart
[15:32:17.748]                       is.null <- base::is.null
[15:32:17.748]                       muffled <- FALSE
[15:32:17.748]                       if (inherits(cond, "message")) {
[15:32:17.748]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.748]                         if (muffled) 
[15:32:17.748]                           invokeRestart("muffleMessage")
[15:32:17.748]                       }
[15:32:17.748]                       else if (inherits(cond, "warning")) {
[15:32:17.748]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.748]                         if (muffled) 
[15:32:17.748]                           invokeRestart("muffleWarning")
[15:32:17.748]                       }
[15:32:17.748]                       else if (inherits(cond, "condition")) {
[15:32:17.748]                         if (!is.null(pattern)) {
[15:32:17.748]                           computeRestarts <- base::computeRestarts
[15:32:17.748]                           grepl <- base::grepl
[15:32:17.748]                           restarts <- computeRestarts(cond)
[15:32:17.748]                           for (restart in restarts) {
[15:32:17.748]                             name <- restart$name
[15:32:17.748]                             if (is.null(name)) 
[15:32:17.748]                               next
[15:32:17.748]                             if (!grepl(pattern, name)) 
[15:32:17.748]                               next
[15:32:17.748]                             invokeRestart(restart)
[15:32:17.748]                             muffled <- TRUE
[15:32:17.748]                             break
[15:32:17.748]                           }
[15:32:17.748]                         }
[15:32:17.748]                       }
[15:32:17.748]                       invisible(muffled)
[15:32:17.748]                     }
[15:32:17.748]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.748]                   }
[15:32:17.748]                 }
[15:32:17.748]             }
[15:32:17.748]         }))
[15:32:17.748]     }, error = function(ex) {
[15:32:17.748]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.748]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.748]                 ...future.rng), started = ...future.startTime, 
[15:32:17.748]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.748]             version = "1.8"), class = "FutureResult")
[15:32:17.748]     }, finally = {
[15:32:17.748]         if (!identical(...future.workdir, getwd())) 
[15:32:17.748]             setwd(...future.workdir)
[15:32:17.748]         {
[15:32:17.748]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.748]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.748]             }
[15:32:17.748]             base::options(...future.oldOptions)
[15:32:17.748]             if (.Platform$OS.type == "windows") {
[15:32:17.748]                 old_names <- names(...future.oldEnvVars)
[15:32:17.748]                 envs <- base::Sys.getenv()
[15:32:17.748]                 names <- names(envs)
[15:32:17.748]                 common <- intersect(names, old_names)
[15:32:17.748]                 added <- setdiff(names, old_names)
[15:32:17.748]                 removed <- setdiff(old_names, names)
[15:32:17.748]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.748]                   envs[common]]
[15:32:17.748]                 NAMES <- toupper(changed)
[15:32:17.748]                 args <- list()
[15:32:17.748]                 for (kk in seq_along(NAMES)) {
[15:32:17.748]                   name <- changed[[kk]]
[15:32:17.748]                   NAME <- NAMES[[kk]]
[15:32:17.748]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.748]                     next
[15:32:17.748]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.748]                 }
[15:32:17.748]                 NAMES <- toupper(added)
[15:32:17.748]                 for (kk in seq_along(NAMES)) {
[15:32:17.748]                   name <- added[[kk]]
[15:32:17.748]                   NAME <- NAMES[[kk]]
[15:32:17.748]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.748]                     next
[15:32:17.748]                   args[[name]] <- ""
[15:32:17.748]                 }
[15:32:17.748]                 NAMES <- toupper(removed)
[15:32:17.748]                 for (kk in seq_along(NAMES)) {
[15:32:17.748]                   name <- removed[[kk]]
[15:32:17.748]                   NAME <- NAMES[[kk]]
[15:32:17.748]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.748]                     next
[15:32:17.748]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.748]                 }
[15:32:17.748]                 if (length(args) > 0) 
[15:32:17.748]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.748]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.748]             }
[15:32:17.748]             else {
[15:32:17.748]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.748]             }
[15:32:17.748]             {
[15:32:17.748]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.748]                   0L) {
[15:32:17.748]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.748]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.748]                   base::options(opts)
[15:32:17.748]                 }
[15:32:17.748]                 {
[15:32:17.748]                   {
[15:32:17.748]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.748]                     NULL
[15:32:17.748]                   }
[15:32:17.748]                   options(future.plan = NULL)
[15:32:17.748]                   if (is.na(NA_character_)) 
[15:32:17.748]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.748]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.748]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.748]                     .init = FALSE)
[15:32:17.748]                 }
[15:32:17.748]             }
[15:32:17.748]         }
[15:32:17.748]     })
[15:32:17.748]     if (TRUE) {
[15:32:17.748]         base::sink(type = "output", split = FALSE)
[15:32:17.748]         if (TRUE) {
[15:32:17.748]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.748]         }
[15:32:17.748]         else {
[15:32:17.748]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.748]         }
[15:32:17.748]         base::close(...future.stdout)
[15:32:17.748]         ...future.stdout <- NULL
[15:32:17.748]     }
[15:32:17.748]     ...future.result$conditions <- ...future.conditions
[15:32:17.748]     ...future.result$finished <- base::Sys.time()
[15:32:17.748]     ...future.result
[15:32:17.748] }
[15:32:17.757] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.757] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.758] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.758] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.759] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.759] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:17.760] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:17.760] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:17.761] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:17.761] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.762] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.762] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.763] MultisessionFuture started
[15:32:17.763] - Launch lazy future ... done
[15:32:17.764] run() for 'MultisessionFuture' ... done
[15:32:17.764] Created future:
[15:32:17.790] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.790] - Validating connection of MultisessionFuture
[15:32:17.791] - received message: FutureResult
[15:32:17.791] - Received FutureResult
[15:32:17.791] - Erased future from FutureRegistry
[15:32:17.792] result() for ClusterFuture ...
[15:32:17.792] - result already collected: FutureResult
[15:32:17.792] result() for ClusterFuture ... done
[15:32:17.793] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.764] MultisessionFuture:
[15:32:17.764] Label: 'future_replicate-2'
[15:32:17.764] Expression:
[15:32:17.764] {
[15:32:17.764]     do.call(function(...) {
[15:32:17.764]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.764]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.764]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.764]             on.exit(options(oopts), add = TRUE)
[15:32:17.764]         }
[15:32:17.764]         {
[15:32:17.764]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.764]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.764]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.764]                   envir = globalenv(), inherits = FALSE)
[15:32:17.764]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.764]             })
[15:32:17.764]         }
[15:32:17.764]     }, args = future.call.arguments)
[15:32:17.764] }
[15:32:17.764] Lazy evaluation: FALSE
[15:32:17.764] Asynchronous evaluation: TRUE
[15:32:17.764] Local evaluation: TRUE
[15:32:17.764] Environment: R_GlobalEnv
[15:32:17.764] Capture standard output: TRUE
[15:32:17.764] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.764] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.764] Packages: <none>
[15:32:17.764] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.764] Resolved: TRUE
[15:32:17.764] Value: <not collected>
[15:32:17.764] Conditions captured: <none>
[15:32:17.764] Early signaling: FALSE
[15:32:17.764] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.764] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.793] Chunk #2 of 2 ... DONE
[15:32:17.794] Launching 2 futures (chunks) ... DONE
[15:32:17.794] Resolving 2 futures (chunks) ...
[15:32:17.794] resolve() on list ...
[15:32:17.794]  recursive: 0
[15:32:17.795]  length: 2
[15:32:17.795] 
[15:32:17.795] Future #1
[15:32:17.796] result() for ClusterFuture ...
[15:32:17.796] - result already collected: FutureResult
[15:32:17.796] result() for ClusterFuture ... done
[15:32:17.796] result() for ClusterFuture ...
[15:32:17.797] - result already collected: FutureResult
[15:32:17.797] result() for ClusterFuture ... done
[15:32:17.797] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:17.797] - nx: 2
[15:32:17.798] - relay: TRUE
[15:32:17.798] - stdout: TRUE
[15:32:17.798] - signal: TRUE
[15:32:17.798] - resignal: FALSE
[15:32:17.799] - force: TRUE
[15:32:17.799] - relayed: [n=2] FALSE, FALSE
[15:32:17.799] - queued futures: [n=2] FALSE, FALSE
[15:32:17.799]  - until=1
[15:32:17.800]  - relaying element #1
[15:32:17.800] result() for ClusterFuture ...
[15:32:17.800] - result already collected: FutureResult
[15:32:17.800] result() for ClusterFuture ... done
[15:32:17.801] result() for ClusterFuture ...
[15:32:17.801] - result already collected: FutureResult
[15:32:17.801] result() for ClusterFuture ... done
[15:32:17.801] result() for ClusterFuture ...
[15:32:17.802] - result already collected: FutureResult
[15:32:17.802] result() for ClusterFuture ... done
[15:32:17.802] result() for ClusterFuture ...
[15:32:17.802] - result already collected: FutureResult
[15:32:17.803] result() for ClusterFuture ... done
[15:32:17.803] - relayed: [n=2] TRUE, FALSE
[15:32:17.803] - queued futures: [n=2] TRUE, FALSE
[15:32:17.803] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:17.804]  length: 1 (resolved future 1)
[15:32:17.804] Future #2
[15:32:17.804] result() for ClusterFuture ...
[15:32:17.805] - result already collected: FutureResult
[15:32:17.805] result() for ClusterFuture ... done
[15:32:17.805] result() for ClusterFuture ...
[15:32:17.805] - result already collected: FutureResult
[15:32:17.806] result() for ClusterFuture ... done
[15:32:17.806] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:17.806] - nx: 2
[15:32:17.806] - relay: TRUE
[15:32:17.807] - stdout: TRUE
[15:32:17.807] - signal: TRUE
[15:32:17.807] - resignal: FALSE
[15:32:17.807] - force: TRUE
[15:32:17.808] - relayed: [n=2] TRUE, FALSE
[15:32:17.808] - queued futures: [n=2] TRUE, FALSE
[15:32:17.808]  - until=2
[15:32:17.808]  - relaying element #2
[15:32:17.809] result() for ClusterFuture ...
[15:32:17.809] - result already collected: FutureResult
[15:32:17.809] result() for ClusterFuture ... done
[15:32:17.809] result() for ClusterFuture ...
[15:32:17.810] - result already collected: FutureResult
[15:32:17.810] result() for ClusterFuture ... done
[15:32:17.810] result() for ClusterFuture ...
[15:32:17.810] - result already collected: FutureResult
[15:32:17.811] result() for ClusterFuture ... done
[15:32:17.811] result() for ClusterFuture ...
[15:32:17.811] - result already collected: FutureResult
[15:32:17.811] result() for ClusterFuture ... done
[15:32:17.812] - relayed: [n=2] TRUE, TRUE
[15:32:17.812] - queued futures: [n=2] TRUE, TRUE
[15:32:17.812] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:17.813]  length: 0 (resolved future 2)
[15:32:17.813] Relaying remaining futures
[15:32:17.813] signalConditionsASAP(NULL, pos=0) ...
[15:32:17.813] - nx: 2
[15:32:17.814] - relay: TRUE
[15:32:17.814] - stdout: TRUE
[15:32:17.814] - signal: TRUE
[15:32:17.814] - resignal: FALSE
[15:32:17.815] - force: TRUE
[15:32:17.815] - relayed: [n=2] TRUE, TRUE
[15:32:17.815] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:17.815] - relayed: [n=2] TRUE, TRUE
[15:32:17.816] - queued futures: [n=2] TRUE, TRUE
[15:32:17.816] signalConditionsASAP(NULL, pos=0) ... done
[15:32:17.816] resolve() on list ... DONE
[15:32:17.816] result() for ClusterFuture ...
[15:32:17.817] - result already collected: FutureResult
[15:32:17.817] result() for ClusterFuture ... done
[15:32:17.817] result() for ClusterFuture ...
[15:32:17.818] - result already collected: FutureResult
[15:32:17.818] result() for ClusterFuture ... done
[15:32:17.818] result() for ClusterFuture ...
[15:32:17.818] - result already collected: FutureResult
[15:32:17.819] result() for ClusterFuture ... done
[15:32:17.819] result() for ClusterFuture ...
[15:32:17.819] - result already collected: FutureResult
[15:32:17.819] result() for ClusterFuture ... done
[15:32:17.820]  - Number of value chunks collected: 2
[15:32:17.820] Resolving 2 futures (chunks) ... DONE
[15:32:17.820] Reducing values from 2 chunks ...
[15:32:17.821]  - Number of values collected after concatenation: 5
[15:32:17.821]  - Number of values expected: 5
[15:32:17.821] Reducing values from 2 chunks ... DONE
[15:32:17.821] future_lapply() ... DONE
[15:32:17.822] future_lapply() ...
[15:32:17.823] Generating random seeds ...
[15:32:17.823] Generating random seed streams for 5 elements ...
[15:32:17.823] Generating random seed streams for 5 elements ... DONE
[15:32:17.824] Generating random seeds ... DONE
[15:32:17.824] Will set RNG state on exit: 10403, 4, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:17.829] Number of chunks: 2
[15:32:17.829] getGlobalsAndPackagesXApply() ...
[15:32:17.829]  - future.globals: TRUE
[15:32:17.830] getGlobalsAndPackages() ...
[15:32:17.830] Searching for globals...
[15:32:17.832] - globals found: [2] 'FUN', 'sample'
[15:32:17.832] Searching for globals ... DONE
[15:32:17.832] Resolving globals: FALSE
[15:32:17.833] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:17.834] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:17.834] - globals: [1] 'FUN'
[15:32:17.834] 
[15:32:17.835] getGlobalsAndPackages() ... DONE
[15:32:17.835]  - globals found/used: [n=1] 'FUN'
[15:32:17.835]  - needed namespaces: [n=0] 
[15:32:17.835] Finding globals ... DONE
[15:32:17.836]  - use_args: TRUE
[15:32:17.836]  - Getting '...' globals ...
[15:32:17.837] resolve() on list ...
[15:32:17.837]  recursive: 0
[15:32:17.837]  length: 1
[15:32:17.837]  elements: '...'
[15:32:17.838]  length: 0 (resolved future 1)
[15:32:17.838] resolve() on list ... DONE
[15:32:17.838]    - '...' content: [n=0] 
[15:32:17.839] List of 1
[15:32:17.839]  $ ...: list()
[15:32:17.839]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.839]  - attr(*, "where")=List of 1
[15:32:17.839]   ..$ ...:<environment: 0x000002abb6f02240> 
[15:32:17.839]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.839]  - attr(*, "resolved")= logi TRUE
[15:32:17.839]  - attr(*, "total_size")= num NA
[15:32:17.843]  - Getting '...' globals ... DONE
[15:32:17.844] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:17.844] List of 2
[15:32:17.844]  $ ...future.FUN:function (...)  
[15:32:17.844]  $ ...          : list()
[15:32:17.844]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:17.844]  - attr(*, "where")=List of 2
[15:32:17.844]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:17.844]   ..$ ...          :<environment: 0x000002abb6f02240> 
[15:32:17.844]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:17.844]  - attr(*, "resolved")= logi FALSE
[15:32:17.844]  - attr(*, "total_size")= num 616
[15:32:17.849] Packages to be attached in all futures: [n=0] 
[15:32:17.849] getGlobalsAndPackagesXApply() ... DONE
[15:32:17.850] Number of futures (= number of chunks): 2
[15:32:17.850] Launching 2 futures (chunks) ...
[15:32:17.850] Chunk #1 of 2 ...
[15:32:17.851]  - Finding globals in 'X' for chunk #1 ...
[15:32:17.851] getGlobalsAndPackages() ...
[15:32:17.851] Searching for globals...
[15:32:17.852] 
[15:32:17.852] Searching for globals ... DONE
[15:32:17.852] - globals: [0] <none>
[15:32:17.852] getGlobalsAndPackages() ... DONE
[15:32:17.853]    + additional globals found: [n=0] 
[15:32:17.853]    + additional namespaces needed: [n=0] 
[15:32:17.853]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:17.854]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.854]  - seeds: [2] <seeds>
[15:32:17.854]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.855] getGlobalsAndPackages() ...
[15:32:17.855] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.855] Resolving globals: FALSE
[15:32:17.855] Tweak future expression to call with '...' arguments ...
[15:32:17.856] {
[15:32:17.856]     do.call(function(...) {
[15:32:17.856]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.856]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.856]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.856]             on.exit(options(oopts), add = TRUE)
[15:32:17.856]         }
[15:32:17.856]         {
[15:32:17.856]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.856]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.856]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.856]                   envir = globalenv(), inherits = FALSE)
[15:32:17.856]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.856]             })
[15:32:17.856]         }
[15:32:17.856]     }, args = future.call.arguments)
[15:32:17.856] }
[15:32:17.856] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.857] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.858] 
[15:32:17.858] getGlobalsAndPackages() ... DONE
[15:32:17.858] run() for 'Future' ...
[15:32:17.859] - state: 'created'
[15:32:17.859] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.877] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.878] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.878]   - Field: 'node'
[15:32:17.878]   - Field: 'label'
[15:32:17.879]   - Field: 'local'
[15:32:17.879]   - Field: 'owner'
[15:32:17.879]   - Field: 'envir'
[15:32:17.879]   - Field: 'workers'
[15:32:17.880]   - Field: 'packages'
[15:32:17.880]   - Field: 'gc'
[15:32:17.880]   - Field: 'conditions'
[15:32:17.881]   - Field: 'persistent'
[15:32:17.881]   - Field: 'expr'
[15:32:17.881]   - Field: 'uuid'
[15:32:17.881]   - Field: 'seed'
[15:32:17.882]   - Field: 'version'
[15:32:17.882]   - Field: 'result'
[15:32:17.882]   - Field: 'asynchronous'
[15:32:17.882]   - Field: 'calls'
[15:32:17.883]   - Field: 'globals'
[15:32:17.883]   - Field: 'stdout'
[15:32:17.883]   - Field: 'earlySignal'
[15:32:17.883]   - Field: 'lazy'
[15:32:17.883]   - Field: 'state'
[15:32:17.884] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.884] - Launch lazy future ...
[15:32:17.884] Packages needed by the future expression (n = 0): <none>
[15:32:17.884] Packages needed by future strategies (n = 0): <none>
[15:32:17.885] {
[15:32:17.885]     {
[15:32:17.885]         {
[15:32:17.885]             ...future.startTime <- base::Sys.time()
[15:32:17.885]             {
[15:32:17.885]                 {
[15:32:17.885]                   {
[15:32:17.885]                     {
[15:32:17.885]                       base::local({
[15:32:17.885]                         has_future <- base::requireNamespace("future", 
[15:32:17.885]                           quietly = TRUE)
[15:32:17.885]                         if (has_future) {
[15:32:17.885]                           ns <- base::getNamespace("future")
[15:32:17.885]                           version <- ns[[".package"]][["version"]]
[15:32:17.885]                           if (is.null(version)) 
[15:32:17.885]                             version <- utils::packageVersion("future")
[15:32:17.885]                         }
[15:32:17.885]                         else {
[15:32:17.885]                           version <- NULL
[15:32:17.885]                         }
[15:32:17.885]                         if (!has_future || version < "1.8.0") {
[15:32:17.885]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.885]                             "", base::R.version$version.string), 
[15:32:17.885]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.885]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.885]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.885]                               "release", "version")], collapse = " "), 
[15:32:17.885]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.885]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.885]                             info)
[15:32:17.885]                           info <- base::paste(info, collapse = "; ")
[15:32:17.885]                           if (!has_future) {
[15:32:17.885]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.885]                               info)
[15:32:17.885]                           }
[15:32:17.885]                           else {
[15:32:17.885]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.885]                               info, version)
[15:32:17.885]                           }
[15:32:17.885]                           base::stop(msg)
[15:32:17.885]                         }
[15:32:17.885]                       })
[15:32:17.885]                     }
[15:32:17.885]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.885]                     base::options(mc.cores = 1L)
[15:32:17.885]                   }
[15:32:17.885]                   ...future.strategy.old <- future::plan("list")
[15:32:17.885]                   options(future.plan = NULL)
[15:32:17.885]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.885]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.885]                 }
[15:32:17.885]                 ...future.workdir <- getwd()
[15:32:17.885]             }
[15:32:17.885]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.885]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.885]         }
[15:32:17.885]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.885]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.885]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.885]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.885]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.885]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.885]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.885]             base::names(...future.oldOptions))
[15:32:17.885]     }
[15:32:17.885]     if (FALSE) {
[15:32:17.885]     }
[15:32:17.885]     else {
[15:32:17.885]         if (TRUE) {
[15:32:17.885]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.885]                 open = "w")
[15:32:17.885]         }
[15:32:17.885]         else {
[15:32:17.885]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.885]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.885]         }
[15:32:17.885]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.885]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.885]             base::sink(type = "output", split = FALSE)
[15:32:17.885]             base::close(...future.stdout)
[15:32:17.885]         }, add = TRUE)
[15:32:17.885]     }
[15:32:17.885]     ...future.frame <- base::sys.nframe()
[15:32:17.885]     ...future.conditions <- base::list()
[15:32:17.885]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.885]     if (FALSE) {
[15:32:17.885]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.885]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.885]     }
[15:32:17.885]     ...future.result <- base::tryCatch({
[15:32:17.885]         base::withCallingHandlers({
[15:32:17.885]             ...future.value <- base::withVisible(base::local({
[15:32:17.885]                 ...future.makeSendCondition <- base::local({
[15:32:17.885]                   sendCondition <- NULL
[15:32:17.885]                   function(frame = 1L) {
[15:32:17.885]                     if (is.function(sendCondition)) 
[15:32:17.885]                       return(sendCondition)
[15:32:17.885]                     ns <- getNamespace("parallel")
[15:32:17.885]                     if (exists("sendData", mode = "function", 
[15:32:17.885]                       envir = ns)) {
[15:32:17.885]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.885]                         envir = ns)
[15:32:17.885]                       envir <- sys.frame(frame)
[15:32:17.885]                       master <- NULL
[15:32:17.885]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.885]                         !identical(envir, emptyenv())) {
[15:32:17.885]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.885]                           inherits = FALSE)) {
[15:32:17.885]                           master <- get("master", mode = "list", 
[15:32:17.885]                             envir = envir, inherits = FALSE)
[15:32:17.885]                           if (inherits(master, c("SOCKnode", 
[15:32:17.885]                             "SOCK0node"))) {
[15:32:17.885]                             sendCondition <<- function(cond) {
[15:32:17.885]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.885]                                 success = TRUE)
[15:32:17.885]                               parallel_sendData(master, data)
[15:32:17.885]                             }
[15:32:17.885]                             return(sendCondition)
[15:32:17.885]                           }
[15:32:17.885]                         }
[15:32:17.885]                         frame <- frame + 1L
[15:32:17.885]                         envir <- sys.frame(frame)
[15:32:17.885]                       }
[15:32:17.885]                     }
[15:32:17.885]                     sendCondition <<- function(cond) NULL
[15:32:17.885]                   }
[15:32:17.885]                 })
[15:32:17.885]                 withCallingHandlers({
[15:32:17.885]                   {
[15:32:17.885]                     do.call(function(...) {
[15:32:17.885]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.885]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.885]                         ...future.globals.maxSize)) {
[15:32:17.885]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.885]                         on.exit(options(oopts), add = TRUE)
[15:32:17.885]                       }
[15:32:17.885]                       {
[15:32:17.885]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.885]                           FUN = function(jj) {
[15:32:17.885]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.885]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.885]                               envir = globalenv(), inherits = FALSE)
[15:32:17.885]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.885]                           })
[15:32:17.885]                       }
[15:32:17.885]                     }, args = future.call.arguments)
[15:32:17.885]                   }
[15:32:17.885]                 }, immediateCondition = function(cond) {
[15:32:17.885]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.885]                   sendCondition(cond)
[15:32:17.885]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.885]                   {
[15:32:17.885]                     inherits <- base::inherits
[15:32:17.885]                     invokeRestart <- base::invokeRestart
[15:32:17.885]                     is.null <- base::is.null
[15:32:17.885]                     muffled <- FALSE
[15:32:17.885]                     if (inherits(cond, "message")) {
[15:32:17.885]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.885]                       if (muffled) 
[15:32:17.885]                         invokeRestart("muffleMessage")
[15:32:17.885]                     }
[15:32:17.885]                     else if (inherits(cond, "warning")) {
[15:32:17.885]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.885]                       if (muffled) 
[15:32:17.885]                         invokeRestart("muffleWarning")
[15:32:17.885]                     }
[15:32:17.885]                     else if (inherits(cond, "condition")) {
[15:32:17.885]                       if (!is.null(pattern)) {
[15:32:17.885]                         computeRestarts <- base::computeRestarts
[15:32:17.885]                         grepl <- base::grepl
[15:32:17.885]                         restarts <- computeRestarts(cond)
[15:32:17.885]                         for (restart in restarts) {
[15:32:17.885]                           name <- restart$name
[15:32:17.885]                           if (is.null(name)) 
[15:32:17.885]                             next
[15:32:17.885]                           if (!grepl(pattern, name)) 
[15:32:17.885]                             next
[15:32:17.885]                           invokeRestart(restart)
[15:32:17.885]                           muffled <- TRUE
[15:32:17.885]                           break
[15:32:17.885]                         }
[15:32:17.885]                       }
[15:32:17.885]                     }
[15:32:17.885]                     invisible(muffled)
[15:32:17.885]                   }
[15:32:17.885]                   muffleCondition(cond)
[15:32:17.885]                 })
[15:32:17.885]             }))
[15:32:17.885]             future::FutureResult(value = ...future.value$value, 
[15:32:17.885]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.885]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.885]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.885]                     ...future.globalenv.names))
[15:32:17.885]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.885]         }, condition = base::local({
[15:32:17.885]             c <- base::c
[15:32:17.885]             inherits <- base::inherits
[15:32:17.885]             invokeRestart <- base::invokeRestart
[15:32:17.885]             length <- base::length
[15:32:17.885]             list <- base::list
[15:32:17.885]             seq.int <- base::seq.int
[15:32:17.885]             signalCondition <- base::signalCondition
[15:32:17.885]             sys.calls <- base::sys.calls
[15:32:17.885]             `[[` <- base::`[[`
[15:32:17.885]             `+` <- base::`+`
[15:32:17.885]             `<<-` <- base::`<<-`
[15:32:17.885]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.885]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.885]                   3L)]
[15:32:17.885]             }
[15:32:17.885]             function(cond) {
[15:32:17.885]                 is_error <- inherits(cond, "error")
[15:32:17.885]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.885]                   NULL)
[15:32:17.885]                 if (is_error) {
[15:32:17.885]                   sessionInformation <- function() {
[15:32:17.885]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.885]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.885]                       search = base::search(), system = base::Sys.info())
[15:32:17.885]                   }
[15:32:17.885]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.885]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.885]                     cond$call), session = sessionInformation(), 
[15:32:17.885]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.885]                   signalCondition(cond)
[15:32:17.885]                 }
[15:32:17.885]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.885]                 "immediateCondition"))) {
[15:32:17.885]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.885]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.885]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.885]                   if (TRUE && !signal) {
[15:32:17.885]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.885]                     {
[15:32:17.885]                       inherits <- base::inherits
[15:32:17.885]                       invokeRestart <- base::invokeRestart
[15:32:17.885]                       is.null <- base::is.null
[15:32:17.885]                       muffled <- FALSE
[15:32:17.885]                       if (inherits(cond, "message")) {
[15:32:17.885]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.885]                         if (muffled) 
[15:32:17.885]                           invokeRestart("muffleMessage")
[15:32:17.885]                       }
[15:32:17.885]                       else if (inherits(cond, "warning")) {
[15:32:17.885]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.885]                         if (muffled) 
[15:32:17.885]                           invokeRestart("muffleWarning")
[15:32:17.885]                       }
[15:32:17.885]                       else if (inherits(cond, "condition")) {
[15:32:17.885]                         if (!is.null(pattern)) {
[15:32:17.885]                           computeRestarts <- base::computeRestarts
[15:32:17.885]                           grepl <- base::grepl
[15:32:17.885]                           restarts <- computeRestarts(cond)
[15:32:17.885]                           for (restart in restarts) {
[15:32:17.885]                             name <- restart$name
[15:32:17.885]                             if (is.null(name)) 
[15:32:17.885]                               next
[15:32:17.885]                             if (!grepl(pattern, name)) 
[15:32:17.885]                               next
[15:32:17.885]                             invokeRestart(restart)
[15:32:17.885]                             muffled <- TRUE
[15:32:17.885]                             break
[15:32:17.885]                           }
[15:32:17.885]                         }
[15:32:17.885]                       }
[15:32:17.885]                       invisible(muffled)
[15:32:17.885]                     }
[15:32:17.885]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.885]                   }
[15:32:17.885]                 }
[15:32:17.885]                 else {
[15:32:17.885]                   if (TRUE) {
[15:32:17.885]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.885]                     {
[15:32:17.885]                       inherits <- base::inherits
[15:32:17.885]                       invokeRestart <- base::invokeRestart
[15:32:17.885]                       is.null <- base::is.null
[15:32:17.885]                       muffled <- FALSE
[15:32:17.885]                       if (inherits(cond, "message")) {
[15:32:17.885]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.885]                         if (muffled) 
[15:32:17.885]                           invokeRestart("muffleMessage")
[15:32:17.885]                       }
[15:32:17.885]                       else if (inherits(cond, "warning")) {
[15:32:17.885]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.885]                         if (muffled) 
[15:32:17.885]                           invokeRestart("muffleWarning")
[15:32:17.885]                       }
[15:32:17.885]                       else if (inherits(cond, "condition")) {
[15:32:17.885]                         if (!is.null(pattern)) {
[15:32:17.885]                           computeRestarts <- base::computeRestarts
[15:32:17.885]                           grepl <- base::grepl
[15:32:17.885]                           restarts <- computeRestarts(cond)
[15:32:17.885]                           for (restart in restarts) {
[15:32:17.885]                             name <- restart$name
[15:32:17.885]                             if (is.null(name)) 
[15:32:17.885]                               next
[15:32:17.885]                             if (!grepl(pattern, name)) 
[15:32:17.885]                               next
[15:32:17.885]                             invokeRestart(restart)
[15:32:17.885]                             muffled <- TRUE
[15:32:17.885]                             break
[15:32:17.885]                           }
[15:32:17.885]                         }
[15:32:17.885]                       }
[15:32:17.885]                       invisible(muffled)
[15:32:17.885]                     }
[15:32:17.885]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.885]                   }
[15:32:17.885]                 }
[15:32:17.885]             }
[15:32:17.885]         }))
[15:32:17.885]     }, error = function(ex) {
[15:32:17.885]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.885]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.885]                 ...future.rng), started = ...future.startTime, 
[15:32:17.885]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.885]             version = "1.8"), class = "FutureResult")
[15:32:17.885]     }, finally = {
[15:32:17.885]         if (!identical(...future.workdir, getwd())) 
[15:32:17.885]             setwd(...future.workdir)
[15:32:17.885]         {
[15:32:17.885]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.885]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.885]             }
[15:32:17.885]             base::options(...future.oldOptions)
[15:32:17.885]             if (.Platform$OS.type == "windows") {
[15:32:17.885]                 old_names <- names(...future.oldEnvVars)
[15:32:17.885]                 envs <- base::Sys.getenv()
[15:32:17.885]                 names <- names(envs)
[15:32:17.885]                 common <- intersect(names, old_names)
[15:32:17.885]                 added <- setdiff(names, old_names)
[15:32:17.885]                 removed <- setdiff(old_names, names)
[15:32:17.885]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.885]                   envs[common]]
[15:32:17.885]                 NAMES <- toupper(changed)
[15:32:17.885]                 args <- list()
[15:32:17.885]                 for (kk in seq_along(NAMES)) {
[15:32:17.885]                   name <- changed[[kk]]
[15:32:17.885]                   NAME <- NAMES[[kk]]
[15:32:17.885]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.885]                     next
[15:32:17.885]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.885]                 }
[15:32:17.885]                 NAMES <- toupper(added)
[15:32:17.885]                 for (kk in seq_along(NAMES)) {
[15:32:17.885]                   name <- added[[kk]]
[15:32:17.885]                   NAME <- NAMES[[kk]]
[15:32:17.885]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.885]                     next
[15:32:17.885]                   args[[name]] <- ""
[15:32:17.885]                 }
[15:32:17.885]                 NAMES <- toupper(removed)
[15:32:17.885]                 for (kk in seq_along(NAMES)) {
[15:32:17.885]                   name <- removed[[kk]]
[15:32:17.885]                   NAME <- NAMES[[kk]]
[15:32:17.885]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.885]                     next
[15:32:17.885]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.885]                 }
[15:32:17.885]                 if (length(args) > 0) 
[15:32:17.885]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.885]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.885]             }
[15:32:17.885]             else {
[15:32:17.885]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.885]             }
[15:32:17.885]             {
[15:32:17.885]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.885]                   0L) {
[15:32:17.885]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.885]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.885]                   base::options(opts)
[15:32:17.885]                 }
[15:32:17.885]                 {
[15:32:17.885]                   {
[15:32:17.885]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.885]                     NULL
[15:32:17.885]                   }
[15:32:17.885]                   options(future.plan = NULL)
[15:32:17.885]                   if (is.na(NA_character_)) 
[15:32:17.885]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.885]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.885]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.885]                     .init = FALSE)
[15:32:17.885]                 }
[15:32:17.885]             }
[15:32:17.885]         }
[15:32:17.885]     })
[15:32:17.885]     if (TRUE) {
[15:32:17.885]         base::sink(type = "output", split = FALSE)
[15:32:17.885]         if (TRUE) {
[15:32:17.885]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.885]         }
[15:32:17.885]         else {
[15:32:17.885]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.885]         }
[15:32:17.885]         base::close(...future.stdout)
[15:32:17.885]         ...future.stdout <- NULL
[15:32:17.885]     }
[15:32:17.885]     ...future.result$conditions <- ...future.conditions
[15:32:17.885]     ...future.result$finished <- base::Sys.time()
[15:32:17.885]     ...future.result
[15:32:17.885] }
[15:32:17.891] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.891] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.892] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.893] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.893] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.894] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:17.894] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:17.895] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:17.895] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:17.896] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.896] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.897] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.898] MultisessionFuture started
[15:32:17.898] - Launch lazy future ... done
[15:32:17.898] run() for 'MultisessionFuture' ... done
[15:32:17.899] Created future:
[15:32:17.915] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.915] - Validating connection of MultisessionFuture
[15:32:17.915] - received message: FutureResult
[15:32:17.915] - Received FutureResult
[15:32:17.916] - Erased future from FutureRegistry
[15:32:17.916] result() for ClusterFuture ...
[15:32:17.918] - result already collected: FutureResult
[15:32:17.918] result() for ClusterFuture ... done
[15:32:17.918] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.899] MultisessionFuture:
[15:32:17.899] Label: 'future_replicate-1'
[15:32:17.899] Expression:
[15:32:17.899] {
[15:32:17.899]     do.call(function(...) {
[15:32:17.899]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.899]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.899]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.899]             on.exit(options(oopts), add = TRUE)
[15:32:17.899]         }
[15:32:17.899]         {
[15:32:17.899]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.899]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.899]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.899]                   envir = globalenv(), inherits = FALSE)
[15:32:17.899]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.899]             })
[15:32:17.899]         }
[15:32:17.899]     }, args = future.call.arguments)
[15:32:17.899] }
[15:32:17.899] Lazy evaluation: FALSE
[15:32:17.899] Asynchronous evaluation: TRUE
[15:32:17.899] Local evaluation: TRUE
[15:32:17.899] Environment: R_GlobalEnv
[15:32:17.899] Capture standard output: TRUE
[15:32:17.899] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.899] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.899] Packages: <none>
[15:32:17.899] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.899] Resolved: TRUE
[15:32:17.899] Value: <not collected>
[15:32:17.899] Conditions captured: <none>
[15:32:17.899] Early signaling: FALSE
[15:32:17.899] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.899] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.919] Chunk #1 of 2 ... DONE
[15:32:17.919] Chunk #2 of 2 ...
[15:32:17.919]  - Finding globals in 'X' for chunk #2 ...
[15:32:17.920] getGlobalsAndPackages() ...
[15:32:17.920] Searching for globals...
[15:32:17.920] 
[15:32:17.920] Searching for globals ... DONE
[15:32:17.920] - globals: [0] <none>
[15:32:17.921] getGlobalsAndPackages() ... DONE
[15:32:17.921]    + additional globals found: [n=0] 
[15:32:17.921]    + additional namespaces needed: [n=0] 
[15:32:17.921]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:17.921]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:17.921]  - seeds: [3] <seeds>
[15:32:17.922]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.922] getGlobalsAndPackages() ...
[15:32:17.922] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.922] Resolving globals: FALSE
[15:32:17.922] Tweak future expression to call with '...' arguments ...
[15:32:17.923] {
[15:32:17.923]     do.call(function(...) {
[15:32:17.923]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.923]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.923]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.923]             on.exit(options(oopts), add = TRUE)
[15:32:17.923]         }
[15:32:17.923]         {
[15:32:17.923]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.923]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.923]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.923]                   envir = globalenv(), inherits = FALSE)
[15:32:17.923]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.923]             })
[15:32:17.923]         }
[15:32:17.923]     }, args = future.call.arguments)
[15:32:17.923] }
[15:32:17.923] Tweak future expression to call with '...' arguments ... DONE
[15:32:17.924] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:17.924] 
[15:32:17.924] getGlobalsAndPackages() ... DONE
[15:32:17.924] run() for 'Future' ...
[15:32:17.925] - state: 'created'
[15:32:17.925] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:17.939] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.940] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:17.940]   - Field: 'node'
[15:32:17.940]   - Field: 'label'
[15:32:17.940]   - Field: 'local'
[15:32:17.941]   - Field: 'owner'
[15:32:17.941]   - Field: 'envir'
[15:32:17.941]   - Field: 'workers'
[15:32:17.941]   - Field: 'packages'
[15:32:17.941]   - Field: 'gc'
[15:32:17.941]   - Field: 'conditions'
[15:32:17.942]   - Field: 'persistent'
[15:32:17.942]   - Field: 'expr'
[15:32:17.942]   - Field: 'uuid'
[15:32:17.942]   - Field: 'seed'
[15:32:17.942]   - Field: 'version'
[15:32:17.943]   - Field: 'result'
[15:32:17.943]   - Field: 'asynchronous'
[15:32:17.943]   - Field: 'calls'
[15:32:17.943]   - Field: 'globals'
[15:32:17.943]   - Field: 'stdout'
[15:32:17.944]   - Field: 'earlySignal'
[15:32:17.944]   - Field: 'lazy'
[15:32:17.944]   - Field: 'state'
[15:32:17.944] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:17.944] - Launch lazy future ...
[15:32:17.945] Packages needed by the future expression (n = 0): <none>
[15:32:17.945] Packages needed by future strategies (n = 0): <none>
[15:32:17.945] {
[15:32:17.945]     {
[15:32:17.945]         {
[15:32:17.945]             ...future.startTime <- base::Sys.time()
[15:32:17.945]             {
[15:32:17.945]                 {
[15:32:17.945]                   {
[15:32:17.945]                     {
[15:32:17.945]                       base::local({
[15:32:17.945]                         has_future <- base::requireNamespace("future", 
[15:32:17.945]                           quietly = TRUE)
[15:32:17.945]                         if (has_future) {
[15:32:17.945]                           ns <- base::getNamespace("future")
[15:32:17.945]                           version <- ns[[".package"]][["version"]]
[15:32:17.945]                           if (is.null(version)) 
[15:32:17.945]                             version <- utils::packageVersion("future")
[15:32:17.945]                         }
[15:32:17.945]                         else {
[15:32:17.945]                           version <- NULL
[15:32:17.945]                         }
[15:32:17.945]                         if (!has_future || version < "1.8.0") {
[15:32:17.945]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:17.945]                             "", base::R.version$version.string), 
[15:32:17.945]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:17.945]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:17.945]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:17.945]                               "release", "version")], collapse = " "), 
[15:32:17.945]                             hostname = base::Sys.info()[["nodename"]])
[15:32:17.945]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:17.945]                             info)
[15:32:17.945]                           info <- base::paste(info, collapse = "; ")
[15:32:17.945]                           if (!has_future) {
[15:32:17.945]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:17.945]                               info)
[15:32:17.945]                           }
[15:32:17.945]                           else {
[15:32:17.945]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:17.945]                               info, version)
[15:32:17.945]                           }
[15:32:17.945]                           base::stop(msg)
[15:32:17.945]                         }
[15:32:17.945]                       })
[15:32:17.945]                     }
[15:32:17.945]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:17.945]                     base::options(mc.cores = 1L)
[15:32:17.945]                   }
[15:32:17.945]                   ...future.strategy.old <- future::plan("list")
[15:32:17.945]                   options(future.plan = NULL)
[15:32:17.945]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.945]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:17.945]                 }
[15:32:17.945]                 ...future.workdir <- getwd()
[15:32:17.945]             }
[15:32:17.945]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:17.945]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:17.945]         }
[15:32:17.945]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:17.945]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:17.945]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:17.945]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:17.945]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:17.945]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:17.945]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:17.945]             base::names(...future.oldOptions))
[15:32:17.945]     }
[15:32:17.945]     if (FALSE) {
[15:32:17.945]     }
[15:32:17.945]     else {
[15:32:17.945]         if (TRUE) {
[15:32:17.945]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:17.945]                 open = "w")
[15:32:17.945]         }
[15:32:17.945]         else {
[15:32:17.945]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:17.945]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:17.945]         }
[15:32:17.945]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:17.945]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:17.945]             base::sink(type = "output", split = FALSE)
[15:32:17.945]             base::close(...future.stdout)
[15:32:17.945]         }, add = TRUE)
[15:32:17.945]     }
[15:32:17.945]     ...future.frame <- base::sys.nframe()
[15:32:17.945]     ...future.conditions <- base::list()
[15:32:17.945]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:17.945]     if (FALSE) {
[15:32:17.945]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:17.945]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:17.945]     }
[15:32:17.945]     ...future.result <- base::tryCatch({
[15:32:17.945]         base::withCallingHandlers({
[15:32:17.945]             ...future.value <- base::withVisible(base::local({
[15:32:17.945]                 ...future.makeSendCondition <- base::local({
[15:32:17.945]                   sendCondition <- NULL
[15:32:17.945]                   function(frame = 1L) {
[15:32:17.945]                     if (is.function(sendCondition)) 
[15:32:17.945]                       return(sendCondition)
[15:32:17.945]                     ns <- getNamespace("parallel")
[15:32:17.945]                     if (exists("sendData", mode = "function", 
[15:32:17.945]                       envir = ns)) {
[15:32:17.945]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:17.945]                         envir = ns)
[15:32:17.945]                       envir <- sys.frame(frame)
[15:32:17.945]                       master <- NULL
[15:32:17.945]                       while (!identical(envir, .GlobalEnv) && 
[15:32:17.945]                         !identical(envir, emptyenv())) {
[15:32:17.945]                         if (exists("master", mode = "list", envir = envir, 
[15:32:17.945]                           inherits = FALSE)) {
[15:32:17.945]                           master <- get("master", mode = "list", 
[15:32:17.945]                             envir = envir, inherits = FALSE)
[15:32:17.945]                           if (inherits(master, c("SOCKnode", 
[15:32:17.945]                             "SOCK0node"))) {
[15:32:17.945]                             sendCondition <<- function(cond) {
[15:32:17.945]                               data <- list(type = "VALUE", value = cond, 
[15:32:17.945]                                 success = TRUE)
[15:32:17.945]                               parallel_sendData(master, data)
[15:32:17.945]                             }
[15:32:17.945]                             return(sendCondition)
[15:32:17.945]                           }
[15:32:17.945]                         }
[15:32:17.945]                         frame <- frame + 1L
[15:32:17.945]                         envir <- sys.frame(frame)
[15:32:17.945]                       }
[15:32:17.945]                     }
[15:32:17.945]                     sendCondition <<- function(cond) NULL
[15:32:17.945]                   }
[15:32:17.945]                 })
[15:32:17.945]                 withCallingHandlers({
[15:32:17.945]                   {
[15:32:17.945]                     do.call(function(...) {
[15:32:17.945]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.945]                       if (!identical(...future.globals.maxSize.org, 
[15:32:17.945]                         ...future.globals.maxSize)) {
[15:32:17.945]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.945]                         on.exit(options(oopts), add = TRUE)
[15:32:17.945]                       }
[15:32:17.945]                       {
[15:32:17.945]                         lapply(seq_along(...future.elements_ii), 
[15:32:17.945]                           FUN = function(jj) {
[15:32:17.945]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.945]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.945]                               envir = globalenv(), inherits = FALSE)
[15:32:17.945]                             ...future.FUN(...future.X_jj, ...)
[15:32:17.945]                           })
[15:32:17.945]                       }
[15:32:17.945]                     }, args = future.call.arguments)
[15:32:17.945]                   }
[15:32:17.945]                 }, immediateCondition = function(cond) {
[15:32:17.945]                   sendCondition <- ...future.makeSendCondition()
[15:32:17.945]                   sendCondition(cond)
[15:32:17.945]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.945]                   {
[15:32:17.945]                     inherits <- base::inherits
[15:32:17.945]                     invokeRestart <- base::invokeRestart
[15:32:17.945]                     is.null <- base::is.null
[15:32:17.945]                     muffled <- FALSE
[15:32:17.945]                     if (inherits(cond, "message")) {
[15:32:17.945]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:17.945]                       if (muffled) 
[15:32:17.945]                         invokeRestart("muffleMessage")
[15:32:17.945]                     }
[15:32:17.945]                     else if (inherits(cond, "warning")) {
[15:32:17.945]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:17.945]                       if (muffled) 
[15:32:17.945]                         invokeRestart("muffleWarning")
[15:32:17.945]                     }
[15:32:17.945]                     else if (inherits(cond, "condition")) {
[15:32:17.945]                       if (!is.null(pattern)) {
[15:32:17.945]                         computeRestarts <- base::computeRestarts
[15:32:17.945]                         grepl <- base::grepl
[15:32:17.945]                         restarts <- computeRestarts(cond)
[15:32:17.945]                         for (restart in restarts) {
[15:32:17.945]                           name <- restart$name
[15:32:17.945]                           if (is.null(name)) 
[15:32:17.945]                             next
[15:32:17.945]                           if (!grepl(pattern, name)) 
[15:32:17.945]                             next
[15:32:17.945]                           invokeRestart(restart)
[15:32:17.945]                           muffled <- TRUE
[15:32:17.945]                           break
[15:32:17.945]                         }
[15:32:17.945]                       }
[15:32:17.945]                     }
[15:32:17.945]                     invisible(muffled)
[15:32:17.945]                   }
[15:32:17.945]                   muffleCondition(cond)
[15:32:17.945]                 })
[15:32:17.945]             }))
[15:32:17.945]             future::FutureResult(value = ...future.value$value, 
[15:32:17.945]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.945]                   ...future.rng), globalenv = if (FALSE) 
[15:32:17.945]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:17.945]                     ...future.globalenv.names))
[15:32:17.945]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:17.945]         }, condition = base::local({
[15:32:17.945]             c <- base::c
[15:32:17.945]             inherits <- base::inherits
[15:32:17.945]             invokeRestart <- base::invokeRestart
[15:32:17.945]             length <- base::length
[15:32:17.945]             list <- base::list
[15:32:17.945]             seq.int <- base::seq.int
[15:32:17.945]             signalCondition <- base::signalCondition
[15:32:17.945]             sys.calls <- base::sys.calls
[15:32:17.945]             `[[` <- base::`[[`
[15:32:17.945]             `+` <- base::`+`
[15:32:17.945]             `<<-` <- base::`<<-`
[15:32:17.945]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:17.945]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:17.945]                   3L)]
[15:32:17.945]             }
[15:32:17.945]             function(cond) {
[15:32:17.945]                 is_error <- inherits(cond, "error")
[15:32:17.945]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:17.945]                   NULL)
[15:32:17.945]                 if (is_error) {
[15:32:17.945]                   sessionInformation <- function() {
[15:32:17.945]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:17.945]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:17.945]                       search = base::search(), system = base::Sys.info())
[15:32:17.945]                   }
[15:32:17.945]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.945]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:17.945]                     cond$call), session = sessionInformation(), 
[15:32:17.945]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:17.945]                   signalCondition(cond)
[15:32:17.945]                 }
[15:32:17.945]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:17.945]                 "immediateCondition"))) {
[15:32:17.945]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:17.945]                   ...future.conditions[[length(...future.conditions) + 
[15:32:17.945]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:17.945]                   if (TRUE && !signal) {
[15:32:17.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.945]                     {
[15:32:17.945]                       inherits <- base::inherits
[15:32:17.945]                       invokeRestart <- base::invokeRestart
[15:32:17.945]                       is.null <- base::is.null
[15:32:17.945]                       muffled <- FALSE
[15:32:17.945]                       if (inherits(cond, "message")) {
[15:32:17.945]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.945]                         if (muffled) 
[15:32:17.945]                           invokeRestart("muffleMessage")
[15:32:17.945]                       }
[15:32:17.945]                       else if (inherits(cond, "warning")) {
[15:32:17.945]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.945]                         if (muffled) 
[15:32:17.945]                           invokeRestart("muffleWarning")
[15:32:17.945]                       }
[15:32:17.945]                       else if (inherits(cond, "condition")) {
[15:32:17.945]                         if (!is.null(pattern)) {
[15:32:17.945]                           computeRestarts <- base::computeRestarts
[15:32:17.945]                           grepl <- base::grepl
[15:32:17.945]                           restarts <- computeRestarts(cond)
[15:32:17.945]                           for (restart in restarts) {
[15:32:17.945]                             name <- restart$name
[15:32:17.945]                             if (is.null(name)) 
[15:32:17.945]                               next
[15:32:17.945]                             if (!grepl(pattern, name)) 
[15:32:17.945]                               next
[15:32:17.945]                             invokeRestart(restart)
[15:32:17.945]                             muffled <- TRUE
[15:32:17.945]                             break
[15:32:17.945]                           }
[15:32:17.945]                         }
[15:32:17.945]                       }
[15:32:17.945]                       invisible(muffled)
[15:32:17.945]                     }
[15:32:17.945]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.945]                   }
[15:32:17.945]                 }
[15:32:17.945]                 else {
[15:32:17.945]                   if (TRUE) {
[15:32:17.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:17.945]                     {
[15:32:17.945]                       inherits <- base::inherits
[15:32:17.945]                       invokeRestart <- base::invokeRestart
[15:32:17.945]                       is.null <- base::is.null
[15:32:17.945]                       muffled <- FALSE
[15:32:17.945]                       if (inherits(cond, "message")) {
[15:32:17.945]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:17.945]                         if (muffled) 
[15:32:17.945]                           invokeRestart("muffleMessage")
[15:32:17.945]                       }
[15:32:17.945]                       else if (inherits(cond, "warning")) {
[15:32:17.945]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:17.945]                         if (muffled) 
[15:32:17.945]                           invokeRestart("muffleWarning")
[15:32:17.945]                       }
[15:32:17.945]                       else if (inherits(cond, "condition")) {
[15:32:17.945]                         if (!is.null(pattern)) {
[15:32:17.945]                           computeRestarts <- base::computeRestarts
[15:32:17.945]                           grepl <- base::grepl
[15:32:17.945]                           restarts <- computeRestarts(cond)
[15:32:17.945]                           for (restart in restarts) {
[15:32:17.945]                             name <- restart$name
[15:32:17.945]                             if (is.null(name)) 
[15:32:17.945]                               next
[15:32:17.945]                             if (!grepl(pattern, name)) 
[15:32:17.945]                               next
[15:32:17.945]                             invokeRestart(restart)
[15:32:17.945]                             muffled <- TRUE
[15:32:17.945]                             break
[15:32:17.945]                           }
[15:32:17.945]                         }
[15:32:17.945]                       }
[15:32:17.945]                       invisible(muffled)
[15:32:17.945]                     }
[15:32:17.945]                     muffleCondition(cond, pattern = "^muffle")
[15:32:17.945]                   }
[15:32:17.945]                 }
[15:32:17.945]             }
[15:32:17.945]         }))
[15:32:17.945]     }, error = function(ex) {
[15:32:17.945]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:17.945]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:17.945]                 ...future.rng), started = ...future.startTime, 
[15:32:17.945]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:17.945]             version = "1.8"), class = "FutureResult")
[15:32:17.945]     }, finally = {
[15:32:17.945]         if (!identical(...future.workdir, getwd())) 
[15:32:17.945]             setwd(...future.workdir)
[15:32:17.945]         {
[15:32:17.945]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:17.945]                 ...future.oldOptions$nwarnings <- NULL
[15:32:17.945]             }
[15:32:17.945]             base::options(...future.oldOptions)
[15:32:17.945]             if (.Platform$OS.type == "windows") {
[15:32:17.945]                 old_names <- names(...future.oldEnvVars)
[15:32:17.945]                 envs <- base::Sys.getenv()
[15:32:17.945]                 names <- names(envs)
[15:32:17.945]                 common <- intersect(names, old_names)
[15:32:17.945]                 added <- setdiff(names, old_names)
[15:32:17.945]                 removed <- setdiff(old_names, names)
[15:32:17.945]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:17.945]                   envs[common]]
[15:32:17.945]                 NAMES <- toupper(changed)
[15:32:17.945]                 args <- list()
[15:32:17.945]                 for (kk in seq_along(NAMES)) {
[15:32:17.945]                   name <- changed[[kk]]
[15:32:17.945]                   NAME <- NAMES[[kk]]
[15:32:17.945]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.945]                     next
[15:32:17.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.945]                 }
[15:32:17.945]                 NAMES <- toupper(added)
[15:32:17.945]                 for (kk in seq_along(NAMES)) {
[15:32:17.945]                   name <- added[[kk]]
[15:32:17.945]                   NAME <- NAMES[[kk]]
[15:32:17.945]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.945]                     next
[15:32:17.945]                   args[[name]] <- ""
[15:32:17.945]                 }
[15:32:17.945]                 NAMES <- toupper(removed)
[15:32:17.945]                 for (kk in seq_along(NAMES)) {
[15:32:17.945]                   name <- removed[[kk]]
[15:32:17.945]                   NAME <- NAMES[[kk]]
[15:32:17.945]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:17.945]                     next
[15:32:17.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:17.945]                 }
[15:32:17.945]                 if (length(args) > 0) 
[15:32:17.945]                   base::do.call(base::Sys.setenv, args = args)
[15:32:17.945]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:17.945]             }
[15:32:17.945]             else {
[15:32:17.945]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:17.945]             }
[15:32:17.945]             {
[15:32:17.945]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:17.945]                   0L) {
[15:32:17.945]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:17.945]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:17.945]                   base::options(opts)
[15:32:17.945]                 }
[15:32:17.945]                 {
[15:32:17.945]                   {
[15:32:17.945]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:17.945]                     NULL
[15:32:17.945]                   }
[15:32:17.945]                   options(future.plan = NULL)
[15:32:17.945]                   if (is.na(NA_character_)) 
[15:32:17.945]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:17.945]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:17.945]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:17.945]                     .init = FALSE)
[15:32:17.945]                 }
[15:32:17.945]             }
[15:32:17.945]         }
[15:32:17.945]     })
[15:32:17.945]     if (TRUE) {
[15:32:17.945]         base::sink(type = "output", split = FALSE)
[15:32:17.945]         if (TRUE) {
[15:32:17.945]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:17.945]         }
[15:32:17.945]         else {
[15:32:17.945]             ...future.result["stdout"] <- base::list(NULL)
[15:32:17.945]         }
[15:32:17.945]         base::close(...future.stdout)
[15:32:17.945]         ...future.stdout <- NULL
[15:32:17.945]     }
[15:32:17.945]     ...future.result$conditions <- ...future.conditions
[15:32:17.945]     ...future.result$finished <- base::Sys.time()
[15:32:17.945]     ...future.result
[15:32:17.945] }
[15:32:17.951] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:17.951] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:17.952] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:17.952] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:17.953] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:17.953] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:17.953] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:17.954] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:17.954] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:17.954] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:17.955] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:17.955] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:17.956] MultisessionFuture started
[15:32:17.956] - Launch lazy future ... done
[15:32:17.956] run() for 'MultisessionFuture' ... done
[15:32:17.956] Created future:
[15:32:17.978] receiveMessageFromWorker() for ClusterFuture ...
[15:32:17.979] - Validating connection of MultisessionFuture
[15:32:17.979] - received message: FutureResult
[15:32:17.979] - Received FutureResult
[15:32:17.980] - Erased future from FutureRegistry
[15:32:17.980] result() for ClusterFuture ...
[15:32:17.980] - result already collected: FutureResult
[15:32:17.980] result() for ClusterFuture ... done
[15:32:17.981] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:17.956] MultisessionFuture:
[15:32:17.956] Label: 'future_replicate-2'
[15:32:17.956] Expression:
[15:32:17.956] {
[15:32:17.956]     do.call(function(...) {
[15:32:17.956]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:17.956]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:17.956]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:17.956]             on.exit(options(oopts), add = TRUE)
[15:32:17.956]         }
[15:32:17.956]         {
[15:32:17.956]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:17.956]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:17.956]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:17.956]                   envir = globalenv(), inherits = FALSE)
[15:32:17.956]                 ...future.FUN(...future.X_jj, ...)
[15:32:17.956]             })
[15:32:17.956]         }
[15:32:17.956]     }, args = future.call.arguments)
[15:32:17.956] }
[15:32:17.956] Lazy evaluation: FALSE
[15:32:17.956] Asynchronous evaluation: TRUE
[15:32:17.956] Local evaluation: TRUE
[15:32:17.956] Environment: R_GlobalEnv
[15:32:17.956] Capture standard output: TRUE
[15:32:17.956] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:17.956] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:17.956] Packages: <none>
[15:32:17.956] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:17.956] Resolved: TRUE
[15:32:17.956] Value: <not collected>
[15:32:17.956] Conditions captured: <none>
[15:32:17.956] Early signaling: FALSE
[15:32:17.956] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:17.956] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:17.981] Chunk #2 of 2 ... DONE
[15:32:17.982] Launching 2 futures (chunks) ... DONE
[15:32:17.982] Resolving 2 futures (chunks) ...
[15:32:17.982] resolve() on list ...
[15:32:17.982]  recursive: 0
[15:32:17.983]  length: 2
[15:32:17.983] 
[15:32:17.983] Future #1
[15:32:17.983] result() for ClusterFuture ...
[15:32:17.984] - result already collected: FutureResult
[15:32:17.984] result() for ClusterFuture ... done
[15:32:17.984] result() for ClusterFuture ...
[15:32:17.984] - result already collected: FutureResult
[15:32:17.985] result() for ClusterFuture ... done
[15:32:17.985] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:17.985] - nx: 2
[15:32:17.985] - relay: TRUE
[15:32:17.986] - stdout: TRUE
[15:32:17.986] - signal: TRUE
[15:32:17.986] - resignal: FALSE
[15:32:17.986] - force: TRUE
[15:32:17.987] - relayed: [n=2] FALSE, FALSE
[15:32:17.987] - queued futures: [n=2] FALSE, FALSE
[15:32:17.987]  - until=1
[15:32:17.987]  - relaying element #1
[15:32:17.988] result() for ClusterFuture ...
[15:32:17.988] - result already collected: FutureResult
[15:32:17.988] result() for ClusterFuture ... done
[15:32:17.988] result() for ClusterFuture ...
[15:32:17.988] - result already collected: FutureResult
[15:32:17.989] result() for ClusterFuture ... done
[15:32:17.989] result() for ClusterFuture ...
[15:32:17.989] - result already collected: FutureResult
[15:32:17.990] result() for ClusterFuture ... done
[15:32:17.990] result() for ClusterFuture ...
[15:32:17.990] - result already collected: FutureResult
[15:32:17.990] result() for ClusterFuture ... done
[15:32:17.990] - relayed: [n=2] TRUE, FALSE
[15:32:17.991] - queued futures: [n=2] TRUE, FALSE
[15:32:17.991] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:17.991]  length: 1 (resolved future 1)
[15:32:17.992] Future #2
[15:32:17.992] result() for ClusterFuture ...
[15:32:17.992] - result already collected: FutureResult
[15:32:17.992] result() for ClusterFuture ... done
[15:32:17.993] result() for ClusterFuture ...
[15:32:17.993] - result already collected: FutureResult
[15:32:17.993] result() for ClusterFuture ... done
[15:32:17.993] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:17.994] - nx: 2
[15:32:17.994] - relay: TRUE
[15:32:17.994] - stdout: TRUE
[15:32:17.994] - signal: TRUE
[15:32:17.995] - resignal: FALSE
[15:32:17.995] - force: TRUE
[15:32:17.995] - relayed: [n=2] TRUE, FALSE
[15:32:17.995] - queued futures: [n=2] TRUE, FALSE
[15:32:17.996]  - until=2
[15:32:17.996]  - relaying element #2
[15:32:17.996] result() for ClusterFuture ...
[15:32:17.996] - result already collected: FutureResult
[15:32:17.996] result() for ClusterFuture ... done
[15:32:17.997] result() for ClusterFuture ...
[15:32:17.997] - result already collected: FutureResult
[15:32:17.997] result() for ClusterFuture ... done
[15:32:17.998] result() for ClusterFuture ...
[15:32:17.998] - result already collected: FutureResult
[15:32:17.998] result() for ClusterFuture ... done
[15:32:17.998] result() for ClusterFuture ...
[15:32:17.999] - result already collected: FutureResult
[15:32:17.999] result() for ClusterFuture ... done
[15:32:17.999] - relayed: [n=2] TRUE, TRUE
[15:32:17.999] - queued futures: [n=2] TRUE, TRUE
[15:32:18.000] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:18.000]  length: 0 (resolved future 2)
[15:32:18.000] Relaying remaining futures
[15:32:18.000] signalConditionsASAP(NULL, pos=0) ...
[15:32:18.001] - nx: 2
[15:32:18.001] - relay: TRUE
[15:32:18.001] - stdout: TRUE
[15:32:18.001] - signal: TRUE
[15:32:18.002] - resignal: FALSE
[15:32:18.002] - force: TRUE
[15:32:18.002] - relayed: [n=2] TRUE, TRUE
[15:32:18.002] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:18.003] - relayed: [n=2] TRUE, TRUE
[15:32:18.003] - queued futures: [n=2] TRUE, TRUE
[15:32:18.003] signalConditionsASAP(NULL, pos=0) ... done
[15:32:18.004] resolve() on list ... DONE
[15:32:18.004] result() for ClusterFuture ...
[15:32:18.004] - result already collected: FutureResult
[15:32:18.004] result() for ClusterFuture ... done
[15:32:18.005] result() for ClusterFuture ...
[15:32:18.005] - result already collected: FutureResult
[15:32:18.005] result() for ClusterFuture ... done
[15:32:18.006] result() for ClusterFuture ...
[15:32:18.006] - result already collected: FutureResult
[15:32:18.006] result() for ClusterFuture ... done
[15:32:18.006] result() for ClusterFuture ...
[15:32:18.007] - result already collected: FutureResult
[15:32:18.007] result() for ClusterFuture ... done
[15:32:18.007]  - Number of value chunks collected: 2
[15:32:18.007] Resolving 2 futures (chunks) ... DONE
[15:32:18.008] Reducing values from 2 chunks ...
[15:32:18.008]  - Number of values collected after concatenation: 5
[15:32:18.008]  - Number of values expected: 5
[15:32:18.008] Reducing values from 2 chunks ... DONE
[15:32:18.009] future_lapply() ... DONE
[15:32:18.009] future_lapply() ...
[15:32:18.010] Generating random seeds ...
[15:32:18.010] Generating random seed streams for 5 elements ...
[15:32:18.011] Generating random seed streams for 5 elements ... DONE
[15:32:18.011] Generating random seeds ... DONE
[15:32:18.011] Will set RNG state on exit: 10403, 6, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:18.016] Number of chunks: 2
[15:32:18.016] getGlobalsAndPackagesXApply() ...
[15:32:18.017]  - future.globals: TRUE
[15:32:18.017] getGlobalsAndPackages() ...
[15:32:18.017] Searching for globals...
[15:32:18.019] - globals found: [2] 'FUN', 'sample'
[15:32:18.019] Searching for globals ... DONE
[15:32:18.020] Resolving globals: FALSE
[15:32:18.020] The total size of the 1 globals is 616 bytes (616 bytes)
[15:32:18.021] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[15:32:18.021] - globals: [1] 'FUN'
[15:32:18.021] 
[15:32:18.021] getGlobalsAndPackages() ... DONE
[15:32:18.021]  - globals found/used: [n=1] 'FUN'
[15:32:18.022]  - needed namespaces: [n=0] 
[15:32:18.022] Finding globals ... DONE
[15:32:18.022]  - use_args: TRUE
[15:32:18.022]  - Getting '...' globals ...
[15:32:18.023] resolve() on list ...
[15:32:18.023]  recursive: 0
[15:32:18.023]  length: 1
[15:32:18.023]  elements: '...'
[15:32:18.023]  length: 0 (resolved future 1)
[15:32:18.023] resolve() on list ... DONE
[15:32:18.024]    - '...' content: [n=0] 
[15:32:18.024] List of 1
[15:32:18.024]  $ ...: list()
[15:32:18.024]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:18.024]  - attr(*, "where")=List of 1
[15:32:18.024]   ..$ ...:<environment: 0x000002abb6137178> 
[15:32:18.024]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:18.024]  - attr(*, "resolved")= logi TRUE
[15:32:18.024]  - attr(*, "total_size")= num NA
[15:32:18.027]  - Getting '...' globals ... DONE
[15:32:18.027] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[15:32:18.027] List of 2
[15:32:18.027]  $ ...future.FUN:function (...)  
[15:32:18.027]  $ ...          : list()
[15:32:18.027]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:18.027]  - attr(*, "where")=List of 2
[15:32:18.027]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:18.027]   ..$ ...          :<environment: 0x000002abb6137178> 
[15:32:18.027]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:18.027]  - attr(*, "resolved")= logi FALSE
[15:32:18.027]  - attr(*, "total_size")= num 616
[15:32:18.031] Packages to be attached in all futures: [n=0] 
[15:32:18.032] getGlobalsAndPackagesXApply() ... DONE
[15:32:18.032] Number of futures (= number of chunks): 2
[15:32:18.032] Launching 2 futures (chunks) ...
[15:32:18.032] Chunk #1 of 2 ...
[15:32:18.033]  - Finding globals in 'X' for chunk #1 ...
[15:32:18.033] getGlobalsAndPackages() ...
[15:32:18.033] Searching for globals...
[15:32:18.034] 
[15:32:18.034] Searching for globals ... DONE
[15:32:18.034] - globals: [0] <none>
[15:32:18.034] getGlobalsAndPackages() ... DONE
[15:32:18.034]    + additional globals found: [n=0] 
[15:32:18.035]    + additional namespaces needed: [n=0] 
[15:32:18.035]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:18.035]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:18.035]  - seeds: [2] <seeds>
[15:32:18.036]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.036] getGlobalsAndPackages() ...
[15:32:18.036] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.036] Resolving globals: FALSE
[15:32:18.036] Tweak future expression to call with '...' arguments ...
[15:32:18.037] {
[15:32:18.037]     do.call(function(...) {
[15:32:18.037]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.037]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.037]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.037]             on.exit(options(oopts), add = TRUE)
[15:32:18.037]         }
[15:32:18.037]         {
[15:32:18.037]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.037]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.037]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.037]                   envir = globalenv(), inherits = FALSE)
[15:32:18.037]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.037]             })
[15:32:18.037]         }
[15:32:18.037]     }, args = future.call.arguments)
[15:32:18.037] }
[15:32:18.037] Tweak future expression to call with '...' arguments ... DONE
[15:32:18.038] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.038] 
[15:32:18.038] getGlobalsAndPackages() ... DONE
[15:32:18.039] run() for 'Future' ...
[15:32:18.039] - state: 'created'
[15:32:18.040] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:18.055] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.056] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:18.056]   - Field: 'node'
[15:32:18.056]   - Field: 'label'
[15:32:18.057]   - Field: 'local'
[15:32:18.057]   - Field: 'owner'
[15:32:18.057]   - Field: 'envir'
[15:32:18.058]   - Field: 'workers'
[15:32:18.058]   - Field: 'packages'
[15:32:18.058]   - Field: 'gc'
[15:32:18.059]   - Field: 'conditions'
[15:32:18.059]   - Field: 'persistent'
[15:32:18.059]   - Field: 'expr'
[15:32:18.060]   - Field: 'uuid'
[15:32:18.060]   - Field: 'seed'
[15:32:18.060]   - Field: 'version'
[15:32:18.061]   - Field: 'result'
[15:32:18.061]   - Field: 'asynchronous'
[15:32:18.061]   - Field: 'calls'
[15:32:18.062]   - Field: 'globals'
[15:32:18.062]   - Field: 'stdout'
[15:32:18.062]   - Field: 'earlySignal'
[15:32:18.063]   - Field: 'lazy'
[15:32:18.063]   - Field: 'state'
[15:32:18.063] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:18.064] - Launch lazy future ...
[15:32:18.064] Packages needed by the future expression (n = 0): <none>
[15:32:18.065] Packages needed by future strategies (n = 0): <none>
[15:32:18.065] {
[15:32:18.065]     {
[15:32:18.065]         {
[15:32:18.065]             ...future.startTime <- base::Sys.time()
[15:32:18.065]             {
[15:32:18.065]                 {
[15:32:18.065]                   {
[15:32:18.065]                     {
[15:32:18.065]                       base::local({
[15:32:18.065]                         has_future <- base::requireNamespace("future", 
[15:32:18.065]                           quietly = TRUE)
[15:32:18.065]                         if (has_future) {
[15:32:18.065]                           ns <- base::getNamespace("future")
[15:32:18.065]                           version <- ns[[".package"]][["version"]]
[15:32:18.065]                           if (is.null(version)) 
[15:32:18.065]                             version <- utils::packageVersion("future")
[15:32:18.065]                         }
[15:32:18.065]                         else {
[15:32:18.065]                           version <- NULL
[15:32:18.065]                         }
[15:32:18.065]                         if (!has_future || version < "1.8.0") {
[15:32:18.065]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:18.065]                             "", base::R.version$version.string), 
[15:32:18.065]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:18.065]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:18.065]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:18.065]                               "release", "version")], collapse = " "), 
[15:32:18.065]                             hostname = base::Sys.info()[["nodename"]])
[15:32:18.065]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:18.065]                             info)
[15:32:18.065]                           info <- base::paste(info, collapse = "; ")
[15:32:18.065]                           if (!has_future) {
[15:32:18.065]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:18.065]                               info)
[15:32:18.065]                           }
[15:32:18.065]                           else {
[15:32:18.065]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:18.065]                               info, version)
[15:32:18.065]                           }
[15:32:18.065]                           base::stop(msg)
[15:32:18.065]                         }
[15:32:18.065]                       })
[15:32:18.065]                     }
[15:32:18.065]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:18.065]                     base::options(mc.cores = 1L)
[15:32:18.065]                   }
[15:32:18.065]                   ...future.strategy.old <- future::plan("list")
[15:32:18.065]                   options(future.plan = NULL)
[15:32:18.065]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.065]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:18.065]                 }
[15:32:18.065]                 ...future.workdir <- getwd()
[15:32:18.065]             }
[15:32:18.065]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:18.065]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:18.065]         }
[15:32:18.065]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:18.065]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:18.065]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:18.065]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:18.065]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:18.065]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:18.065]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:18.065]             base::names(...future.oldOptions))
[15:32:18.065]     }
[15:32:18.065]     if (FALSE) {
[15:32:18.065]     }
[15:32:18.065]     else {
[15:32:18.065]         if (TRUE) {
[15:32:18.065]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:18.065]                 open = "w")
[15:32:18.065]         }
[15:32:18.065]         else {
[15:32:18.065]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:18.065]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:18.065]         }
[15:32:18.065]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:18.065]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:18.065]             base::sink(type = "output", split = FALSE)
[15:32:18.065]             base::close(...future.stdout)
[15:32:18.065]         }, add = TRUE)
[15:32:18.065]     }
[15:32:18.065]     ...future.frame <- base::sys.nframe()
[15:32:18.065]     ...future.conditions <- base::list()
[15:32:18.065]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:18.065]     if (FALSE) {
[15:32:18.065]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:18.065]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:18.065]     }
[15:32:18.065]     ...future.result <- base::tryCatch({
[15:32:18.065]         base::withCallingHandlers({
[15:32:18.065]             ...future.value <- base::withVisible(base::local({
[15:32:18.065]                 ...future.makeSendCondition <- base::local({
[15:32:18.065]                   sendCondition <- NULL
[15:32:18.065]                   function(frame = 1L) {
[15:32:18.065]                     if (is.function(sendCondition)) 
[15:32:18.065]                       return(sendCondition)
[15:32:18.065]                     ns <- getNamespace("parallel")
[15:32:18.065]                     if (exists("sendData", mode = "function", 
[15:32:18.065]                       envir = ns)) {
[15:32:18.065]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:18.065]                         envir = ns)
[15:32:18.065]                       envir <- sys.frame(frame)
[15:32:18.065]                       master <- NULL
[15:32:18.065]                       while (!identical(envir, .GlobalEnv) && 
[15:32:18.065]                         !identical(envir, emptyenv())) {
[15:32:18.065]                         if (exists("master", mode = "list", envir = envir, 
[15:32:18.065]                           inherits = FALSE)) {
[15:32:18.065]                           master <- get("master", mode = "list", 
[15:32:18.065]                             envir = envir, inherits = FALSE)
[15:32:18.065]                           if (inherits(master, c("SOCKnode", 
[15:32:18.065]                             "SOCK0node"))) {
[15:32:18.065]                             sendCondition <<- function(cond) {
[15:32:18.065]                               data <- list(type = "VALUE", value = cond, 
[15:32:18.065]                                 success = TRUE)
[15:32:18.065]                               parallel_sendData(master, data)
[15:32:18.065]                             }
[15:32:18.065]                             return(sendCondition)
[15:32:18.065]                           }
[15:32:18.065]                         }
[15:32:18.065]                         frame <- frame + 1L
[15:32:18.065]                         envir <- sys.frame(frame)
[15:32:18.065]                       }
[15:32:18.065]                     }
[15:32:18.065]                     sendCondition <<- function(cond) NULL
[15:32:18.065]                   }
[15:32:18.065]                 })
[15:32:18.065]                 withCallingHandlers({
[15:32:18.065]                   {
[15:32:18.065]                     do.call(function(...) {
[15:32:18.065]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.065]                       if (!identical(...future.globals.maxSize.org, 
[15:32:18.065]                         ...future.globals.maxSize)) {
[15:32:18.065]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.065]                         on.exit(options(oopts), add = TRUE)
[15:32:18.065]                       }
[15:32:18.065]                       {
[15:32:18.065]                         lapply(seq_along(...future.elements_ii), 
[15:32:18.065]                           FUN = function(jj) {
[15:32:18.065]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.065]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.065]                               envir = globalenv(), inherits = FALSE)
[15:32:18.065]                             ...future.FUN(...future.X_jj, ...)
[15:32:18.065]                           })
[15:32:18.065]                       }
[15:32:18.065]                     }, args = future.call.arguments)
[15:32:18.065]                   }
[15:32:18.065]                 }, immediateCondition = function(cond) {
[15:32:18.065]                   sendCondition <- ...future.makeSendCondition()
[15:32:18.065]                   sendCondition(cond)
[15:32:18.065]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.065]                   {
[15:32:18.065]                     inherits <- base::inherits
[15:32:18.065]                     invokeRestart <- base::invokeRestart
[15:32:18.065]                     is.null <- base::is.null
[15:32:18.065]                     muffled <- FALSE
[15:32:18.065]                     if (inherits(cond, "message")) {
[15:32:18.065]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:18.065]                       if (muffled) 
[15:32:18.065]                         invokeRestart("muffleMessage")
[15:32:18.065]                     }
[15:32:18.065]                     else if (inherits(cond, "warning")) {
[15:32:18.065]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:18.065]                       if (muffled) 
[15:32:18.065]                         invokeRestart("muffleWarning")
[15:32:18.065]                     }
[15:32:18.065]                     else if (inherits(cond, "condition")) {
[15:32:18.065]                       if (!is.null(pattern)) {
[15:32:18.065]                         computeRestarts <- base::computeRestarts
[15:32:18.065]                         grepl <- base::grepl
[15:32:18.065]                         restarts <- computeRestarts(cond)
[15:32:18.065]                         for (restart in restarts) {
[15:32:18.065]                           name <- restart$name
[15:32:18.065]                           if (is.null(name)) 
[15:32:18.065]                             next
[15:32:18.065]                           if (!grepl(pattern, name)) 
[15:32:18.065]                             next
[15:32:18.065]                           invokeRestart(restart)
[15:32:18.065]                           muffled <- TRUE
[15:32:18.065]                           break
[15:32:18.065]                         }
[15:32:18.065]                       }
[15:32:18.065]                     }
[15:32:18.065]                     invisible(muffled)
[15:32:18.065]                   }
[15:32:18.065]                   muffleCondition(cond)
[15:32:18.065]                 })
[15:32:18.065]             }))
[15:32:18.065]             future::FutureResult(value = ...future.value$value, 
[15:32:18.065]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.065]                   ...future.rng), globalenv = if (FALSE) 
[15:32:18.065]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:18.065]                     ...future.globalenv.names))
[15:32:18.065]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:18.065]         }, condition = base::local({
[15:32:18.065]             c <- base::c
[15:32:18.065]             inherits <- base::inherits
[15:32:18.065]             invokeRestart <- base::invokeRestart
[15:32:18.065]             length <- base::length
[15:32:18.065]             list <- base::list
[15:32:18.065]             seq.int <- base::seq.int
[15:32:18.065]             signalCondition <- base::signalCondition
[15:32:18.065]             sys.calls <- base::sys.calls
[15:32:18.065]             `[[` <- base::`[[`
[15:32:18.065]             `+` <- base::`+`
[15:32:18.065]             `<<-` <- base::`<<-`
[15:32:18.065]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:18.065]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:18.065]                   3L)]
[15:32:18.065]             }
[15:32:18.065]             function(cond) {
[15:32:18.065]                 is_error <- inherits(cond, "error")
[15:32:18.065]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:18.065]                   NULL)
[15:32:18.065]                 if (is_error) {
[15:32:18.065]                   sessionInformation <- function() {
[15:32:18.065]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:18.065]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:18.065]                       search = base::search(), system = base::Sys.info())
[15:32:18.065]                   }
[15:32:18.065]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.065]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:18.065]                     cond$call), session = sessionInformation(), 
[15:32:18.065]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:18.065]                   signalCondition(cond)
[15:32:18.065]                 }
[15:32:18.065]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:18.065]                 "immediateCondition"))) {
[15:32:18.065]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:18.065]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.065]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:18.065]                   if (TRUE && !signal) {
[15:32:18.065]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.065]                     {
[15:32:18.065]                       inherits <- base::inherits
[15:32:18.065]                       invokeRestart <- base::invokeRestart
[15:32:18.065]                       is.null <- base::is.null
[15:32:18.065]                       muffled <- FALSE
[15:32:18.065]                       if (inherits(cond, "message")) {
[15:32:18.065]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.065]                         if (muffled) 
[15:32:18.065]                           invokeRestart("muffleMessage")
[15:32:18.065]                       }
[15:32:18.065]                       else if (inherits(cond, "warning")) {
[15:32:18.065]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.065]                         if (muffled) 
[15:32:18.065]                           invokeRestart("muffleWarning")
[15:32:18.065]                       }
[15:32:18.065]                       else if (inherits(cond, "condition")) {
[15:32:18.065]                         if (!is.null(pattern)) {
[15:32:18.065]                           computeRestarts <- base::computeRestarts
[15:32:18.065]                           grepl <- base::grepl
[15:32:18.065]                           restarts <- computeRestarts(cond)
[15:32:18.065]                           for (restart in restarts) {
[15:32:18.065]                             name <- restart$name
[15:32:18.065]                             if (is.null(name)) 
[15:32:18.065]                               next
[15:32:18.065]                             if (!grepl(pattern, name)) 
[15:32:18.065]                               next
[15:32:18.065]                             invokeRestart(restart)
[15:32:18.065]                             muffled <- TRUE
[15:32:18.065]                             break
[15:32:18.065]                           }
[15:32:18.065]                         }
[15:32:18.065]                       }
[15:32:18.065]                       invisible(muffled)
[15:32:18.065]                     }
[15:32:18.065]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.065]                   }
[15:32:18.065]                 }
[15:32:18.065]                 else {
[15:32:18.065]                   if (TRUE) {
[15:32:18.065]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.065]                     {
[15:32:18.065]                       inherits <- base::inherits
[15:32:18.065]                       invokeRestart <- base::invokeRestart
[15:32:18.065]                       is.null <- base::is.null
[15:32:18.065]                       muffled <- FALSE
[15:32:18.065]                       if (inherits(cond, "message")) {
[15:32:18.065]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.065]                         if (muffled) 
[15:32:18.065]                           invokeRestart("muffleMessage")
[15:32:18.065]                       }
[15:32:18.065]                       else if (inherits(cond, "warning")) {
[15:32:18.065]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.065]                         if (muffled) 
[15:32:18.065]                           invokeRestart("muffleWarning")
[15:32:18.065]                       }
[15:32:18.065]                       else if (inherits(cond, "condition")) {
[15:32:18.065]                         if (!is.null(pattern)) {
[15:32:18.065]                           computeRestarts <- base::computeRestarts
[15:32:18.065]                           grepl <- base::grepl
[15:32:18.065]                           restarts <- computeRestarts(cond)
[15:32:18.065]                           for (restart in restarts) {
[15:32:18.065]                             name <- restart$name
[15:32:18.065]                             if (is.null(name)) 
[15:32:18.065]                               next
[15:32:18.065]                             if (!grepl(pattern, name)) 
[15:32:18.065]                               next
[15:32:18.065]                             invokeRestart(restart)
[15:32:18.065]                             muffled <- TRUE
[15:32:18.065]                             break
[15:32:18.065]                           }
[15:32:18.065]                         }
[15:32:18.065]                       }
[15:32:18.065]                       invisible(muffled)
[15:32:18.065]                     }
[15:32:18.065]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.065]                   }
[15:32:18.065]                 }
[15:32:18.065]             }
[15:32:18.065]         }))
[15:32:18.065]     }, error = function(ex) {
[15:32:18.065]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:18.065]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.065]                 ...future.rng), started = ...future.startTime, 
[15:32:18.065]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:18.065]             version = "1.8"), class = "FutureResult")
[15:32:18.065]     }, finally = {
[15:32:18.065]         if (!identical(...future.workdir, getwd())) 
[15:32:18.065]             setwd(...future.workdir)
[15:32:18.065]         {
[15:32:18.065]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:18.065]                 ...future.oldOptions$nwarnings <- NULL
[15:32:18.065]             }
[15:32:18.065]             base::options(...future.oldOptions)
[15:32:18.065]             if (.Platform$OS.type == "windows") {
[15:32:18.065]                 old_names <- names(...future.oldEnvVars)
[15:32:18.065]                 envs <- base::Sys.getenv()
[15:32:18.065]                 names <- names(envs)
[15:32:18.065]                 common <- intersect(names, old_names)
[15:32:18.065]                 added <- setdiff(names, old_names)
[15:32:18.065]                 removed <- setdiff(old_names, names)
[15:32:18.065]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:18.065]                   envs[common]]
[15:32:18.065]                 NAMES <- toupper(changed)
[15:32:18.065]                 args <- list()
[15:32:18.065]                 for (kk in seq_along(NAMES)) {
[15:32:18.065]                   name <- changed[[kk]]
[15:32:18.065]                   NAME <- NAMES[[kk]]
[15:32:18.065]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.065]                     next
[15:32:18.065]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.065]                 }
[15:32:18.065]                 NAMES <- toupper(added)
[15:32:18.065]                 for (kk in seq_along(NAMES)) {
[15:32:18.065]                   name <- added[[kk]]
[15:32:18.065]                   NAME <- NAMES[[kk]]
[15:32:18.065]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.065]                     next
[15:32:18.065]                   args[[name]] <- ""
[15:32:18.065]                 }
[15:32:18.065]                 NAMES <- toupper(removed)
[15:32:18.065]                 for (kk in seq_along(NAMES)) {
[15:32:18.065]                   name <- removed[[kk]]
[15:32:18.065]                   NAME <- NAMES[[kk]]
[15:32:18.065]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.065]                     next
[15:32:18.065]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.065]                 }
[15:32:18.065]                 if (length(args) > 0) 
[15:32:18.065]                   base::do.call(base::Sys.setenv, args = args)
[15:32:18.065]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:18.065]             }
[15:32:18.065]             else {
[15:32:18.065]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:18.065]             }
[15:32:18.065]             {
[15:32:18.065]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:18.065]                   0L) {
[15:32:18.065]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:18.065]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:18.065]                   base::options(opts)
[15:32:18.065]                 }
[15:32:18.065]                 {
[15:32:18.065]                   {
[15:32:18.065]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:18.065]                     NULL
[15:32:18.065]                   }
[15:32:18.065]                   options(future.plan = NULL)
[15:32:18.065]                   if (is.na(NA_character_)) 
[15:32:18.065]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.065]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:18.065]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:18.065]                     .init = FALSE)
[15:32:18.065]                 }
[15:32:18.065]             }
[15:32:18.065]         }
[15:32:18.065]     })
[15:32:18.065]     if (TRUE) {
[15:32:18.065]         base::sink(type = "output", split = FALSE)
[15:32:18.065]         if (TRUE) {
[15:32:18.065]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:18.065]         }
[15:32:18.065]         else {
[15:32:18.065]             ...future.result["stdout"] <- base::list(NULL)
[15:32:18.065]         }
[15:32:18.065]         base::close(...future.stdout)
[15:32:18.065]         ...future.stdout <- NULL
[15:32:18.065]     }
[15:32:18.065]     ...future.result$conditions <- ...future.conditions
[15:32:18.065]     ...future.result$finished <- base::Sys.time()
[15:32:18.065]     ...future.result
[15:32:18.065] }
[15:32:18.075] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:18.076] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:18.077] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:18.078] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:18.079] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:18.080] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:18.082] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:18.082] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:18.084] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:18.084] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:18.085] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:18.085] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:18.086] MultisessionFuture started
[15:32:18.087] - Launch lazy future ... done
[15:32:18.087] run() for 'MultisessionFuture' ... done
[15:32:18.087] Created future:
[15:32:18.122] receiveMessageFromWorker() for ClusterFuture ...
[15:32:18.123] - Validating connection of MultisessionFuture
[15:32:18.123] - received message: FutureResult
[15:32:18.123] - Received FutureResult
[15:32:18.124] - Erased future from FutureRegistry
[15:32:18.124] result() for ClusterFuture ...
[15:32:18.124] - result already collected: FutureResult
[15:32:18.125] result() for ClusterFuture ... done
[15:32:18.125] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:18.088] MultisessionFuture:
[15:32:18.088] Label: 'future_replicate-1'
[15:32:18.088] Expression:
[15:32:18.088] {
[15:32:18.088]     do.call(function(...) {
[15:32:18.088]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.088]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.088]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.088]             on.exit(options(oopts), add = TRUE)
[15:32:18.088]         }
[15:32:18.088]         {
[15:32:18.088]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.088]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.088]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.088]                   envir = globalenv(), inherits = FALSE)
[15:32:18.088]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.088]             })
[15:32:18.088]         }
[15:32:18.088]     }, args = future.call.arguments)
[15:32:18.088] }
[15:32:18.088] Lazy evaluation: FALSE
[15:32:18.088] Asynchronous evaluation: TRUE
[15:32:18.088] Local evaluation: TRUE
[15:32:18.088] Environment: R_GlobalEnv
[15:32:18.088] Capture standard output: TRUE
[15:32:18.088] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:18.088] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:18.088] Packages: <none>
[15:32:18.088] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:18.088] Resolved: TRUE
[15:32:18.088] Value: <not collected>
[15:32:18.088] Conditions captured: <none>
[15:32:18.088] Early signaling: FALSE
[15:32:18.088] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:18.088] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.126] Chunk #1 of 2 ... DONE
[15:32:18.126] Chunk #2 of 2 ...
[15:32:18.126]  - Finding globals in 'X' for chunk #2 ...
[15:32:18.126] getGlobalsAndPackages() ...
[15:32:18.127] Searching for globals...
[15:32:18.127] 
[15:32:18.127] Searching for globals ... DONE
[15:32:18.128] - globals: [0] <none>
[15:32:18.128] getGlobalsAndPackages() ... DONE
[15:32:18.128]    + additional globals found: [n=0] 
[15:32:18.128]    + additional namespaces needed: [n=0] 
[15:32:18.129]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:18.129]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:18.129]  - seeds: [3] <seeds>
[15:32:18.129]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.130] getGlobalsAndPackages() ...
[15:32:18.130] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.130] Resolving globals: FALSE
[15:32:18.131] Tweak future expression to call with '...' arguments ...
[15:32:18.131] {
[15:32:18.131]     do.call(function(...) {
[15:32:18.131]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.131]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.131]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.131]             on.exit(options(oopts), add = TRUE)
[15:32:18.131]         }
[15:32:18.131]         {
[15:32:18.131]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.131]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.131]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.131]                   envir = globalenv(), inherits = FALSE)
[15:32:18.131]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.131]             })
[15:32:18.131]         }
[15:32:18.131]     }, args = future.call.arguments)
[15:32:18.131] }
[15:32:18.132] Tweak future expression to call with '...' arguments ... DONE
[15:32:18.132] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.133] 
[15:32:18.133] getGlobalsAndPackages() ... DONE
[15:32:18.133] run() for 'Future' ...
[15:32:18.134] - state: 'created'
[15:32:18.134] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:18.151] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.152] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:18.152]   - Field: 'node'
[15:32:18.152]   - Field: 'label'
[15:32:18.153]   - Field: 'local'
[15:32:18.153]   - Field: 'owner'
[15:32:18.153]   - Field: 'envir'
[15:32:18.153]   - Field: 'workers'
[15:32:18.154]   - Field: 'packages'
[15:32:18.154]   - Field: 'gc'
[15:32:18.154]   - Field: 'conditions'
[15:32:18.154]   - Field: 'persistent'
[15:32:18.155]   - Field: 'expr'
[15:32:18.155]   - Field: 'uuid'
[15:32:18.155]   - Field: 'seed'
[15:32:18.156]   - Field: 'version'
[15:32:18.156]   - Field: 'result'
[15:32:18.156]   - Field: 'asynchronous'
[15:32:18.156]   - Field: 'calls'
[15:32:18.157]   - Field: 'globals'
[15:32:18.157]   - Field: 'stdout'
[15:32:18.157]   - Field: 'earlySignal'
[15:32:18.158]   - Field: 'lazy'
[15:32:18.158]   - Field: 'state'
[15:32:18.158] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:18.159] - Launch lazy future ...
[15:32:18.159] Packages needed by the future expression (n = 0): <none>
[15:32:18.160] Packages needed by future strategies (n = 0): <none>
[15:32:18.161] {
[15:32:18.161]     {
[15:32:18.161]         {
[15:32:18.161]             ...future.startTime <- base::Sys.time()
[15:32:18.161]             {
[15:32:18.161]                 {
[15:32:18.161]                   {
[15:32:18.161]                     {
[15:32:18.161]                       base::local({
[15:32:18.161]                         has_future <- base::requireNamespace("future", 
[15:32:18.161]                           quietly = TRUE)
[15:32:18.161]                         if (has_future) {
[15:32:18.161]                           ns <- base::getNamespace("future")
[15:32:18.161]                           version <- ns[[".package"]][["version"]]
[15:32:18.161]                           if (is.null(version)) 
[15:32:18.161]                             version <- utils::packageVersion("future")
[15:32:18.161]                         }
[15:32:18.161]                         else {
[15:32:18.161]                           version <- NULL
[15:32:18.161]                         }
[15:32:18.161]                         if (!has_future || version < "1.8.0") {
[15:32:18.161]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:18.161]                             "", base::R.version$version.string), 
[15:32:18.161]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:18.161]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:18.161]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:18.161]                               "release", "version")], collapse = " "), 
[15:32:18.161]                             hostname = base::Sys.info()[["nodename"]])
[15:32:18.161]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:18.161]                             info)
[15:32:18.161]                           info <- base::paste(info, collapse = "; ")
[15:32:18.161]                           if (!has_future) {
[15:32:18.161]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:18.161]                               info)
[15:32:18.161]                           }
[15:32:18.161]                           else {
[15:32:18.161]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:18.161]                               info, version)
[15:32:18.161]                           }
[15:32:18.161]                           base::stop(msg)
[15:32:18.161]                         }
[15:32:18.161]                       })
[15:32:18.161]                     }
[15:32:18.161]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:18.161]                     base::options(mc.cores = 1L)
[15:32:18.161]                   }
[15:32:18.161]                   ...future.strategy.old <- future::plan("list")
[15:32:18.161]                   options(future.plan = NULL)
[15:32:18.161]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.161]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:18.161]                 }
[15:32:18.161]                 ...future.workdir <- getwd()
[15:32:18.161]             }
[15:32:18.161]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:18.161]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:18.161]         }
[15:32:18.161]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:18.161]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:18.161]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:18.161]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:18.161]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:18.161]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:18.161]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:18.161]             base::names(...future.oldOptions))
[15:32:18.161]     }
[15:32:18.161]     if (FALSE) {
[15:32:18.161]     }
[15:32:18.161]     else {
[15:32:18.161]         if (TRUE) {
[15:32:18.161]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:18.161]                 open = "w")
[15:32:18.161]         }
[15:32:18.161]         else {
[15:32:18.161]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:18.161]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:18.161]         }
[15:32:18.161]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:18.161]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:18.161]             base::sink(type = "output", split = FALSE)
[15:32:18.161]             base::close(...future.stdout)
[15:32:18.161]         }, add = TRUE)
[15:32:18.161]     }
[15:32:18.161]     ...future.frame <- base::sys.nframe()
[15:32:18.161]     ...future.conditions <- base::list()
[15:32:18.161]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:18.161]     if (FALSE) {
[15:32:18.161]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:18.161]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:18.161]     }
[15:32:18.161]     ...future.result <- base::tryCatch({
[15:32:18.161]         base::withCallingHandlers({
[15:32:18.161]             ...future.value <- base::withVisible(base::local({
[15:32:18.161]                 ...future.makeSendCondition <- base::local({
[15:32:18.161]                   sendCondition <- NULL
[15:32:18.161]                   function(frame = 1L) {
[15:32:18.161]                     if (is.function(sendCondition)) 
[15:32:18.161]                       return(sendCondition)
[15:32:18.161]                     ns <- getNamespace("parallel")
[15:32:18.161]                     if (exists("sendData", mode = "function", 
[15:32:18.161]                       envir = ns)) {
[15:32:18.161]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:18.161]                         envir = ns)
[15:32:18.161]                       envir <- sys.frame(frame)
[15:32:18.161]                       master <- NULL
[15:32:18.161]                       while (!identical(envir, .GlobalEnv) && 
[15:32:18.161]                         !identical(envir, emptyenv())) {
[15:32:18.161]                         if (exists("master", mode = "list", envir = envir, 
[15:32:18.161]                           inherits = FALSE)) {
[15:32:18.161]                           master <- get("master", mode = "list", 
[15:32:18.161]                             envir = envir, inherits = FALSE)
[15:32:18.161]                           if (inherits(master, c("SOCKnode", 
[15:32:18.161]                             "SOCK0node"))) {
[15:32:18.161]                             sendCondition <<- function(cond) {
[15:32:18.161]                               data <- list(type = "VALUE", value = cond, 
[15:32:18.161]                                 success = TRUE)
[15:32:18.161]                               parallel_sendData(master, data)
[15:32:18.161]                             }
[15:32:18.161]                             return(sendCondition)
[15:32:18.161]                           }
[15:32:18.161]                         }
[15:32:18.161]                         frame <- frame + 1L
[15:32:18.161]                         envir <- sys.frame(frame)
[15:32:18.161]                       }
[15:32:18.161]                     }
[15:32:18.161]                     sendCondition <<- function(cond) NULL
[15:32:18.161]                   }
[15:32:18.161]                 })
[15:32:18.161]                 withCallingHandlers({
[15:32:18.161]                   {
[15:32:18.161]                     do.call(function(...) {
[15:32:18.161]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.161]                       if (!identical(...future.globals.maxSize.org, 
[15:32:18.161]                         ...future.globals.maxSize)) {
[15:32:18.161]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.161]                         on.exit(options(oopts), add = TRUE)
[15:32:18.161]                       }
[15:32:18.161]                       {
[15:32:18.161]                         lapply(seq_along(...future.elements_ii), 
[15:32:18.161]                           FUN = function(jj) {
[15:32:18.161]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.161]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.161]                               envir = globalenv(), inherits = FALSE)
[15:32:18.161]                             ...future.FUN(...future.X_jj, ...)
[15:32:18.161]                           })
[15:32:18.161]                       }
[15:32:18.161]                     }, args = future.call.arguments)
[15:32:18.161]                   }
[15:32:18.161]                 }, immediateCondition = function(cond) {
[15:32:18.161]                   sendCondition <- ...future.makeSendCondition()
[15:32:18.161]                   sendCondition(cond)
[15:32:18.161]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.161]                   {
[15:32:18.161]                     inherits <- base::inherits
[15:32:18.161]                     invokeRestart <- base::invokeRestart
[15:32:18.161]                     is.null <- base::is.null
[15:32:18.161]                     muffled <- FALSE
[15:32:18.161]                     if (inherits(cond, "message")) {
[15:32:18.161]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:18.161]                       if (muffled) 
[15:32:18.161]                         invokeRestart("muffleMessage")
[15:32:18.161]                     }
[15:32:18.161]                     else if (inherits(cond, "warning")) {
[15:32:18.161]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:18.161]                       if (muffled) 
[15:32:18.161]                         invokeRestart("muffleWarning")
[15:32:18.161]                     }
[15:32:18.161]                     else if (inherits(cond, "condition")) {
[15:32:18.161]                       if (!is.null(pattern)) {
[15:32:18.161]                         computeRestarts <- base::computeRestarts
[15:32:18.161]                         grepl <- base::grepl
[15:32:18.161]                         restarts <- computeRestarts(cond)
[15:32:18.161]                         for (restart in restarts) {
[15:32:18.161]                           name <- restart$name
[15:32:18.161]                           if (is.null(name)) 
[15:32:18.161]                             next
[15:32:18.161]                           if (!grepl(pattern, name)) 
[15:32:18.161]                             next
[15:32:18.161]                           invokeRestart(restart)
[15:32:18.161]                           muffled <- TRUE
[15:32:18.161]                           break
[15:32:18.161]                         }
[15:32:18.161]                       }
[15:32:18.161]                     }
[15:32:18.161]                     invisible(muffled)
[15:32:18.161]                   }
[15:32:18.161]                   muffleCondition(cond)
[15:32:18.161]                 })
[15:32:18.161]             }))
[15:32:18.161]             future::FutureResult(value = ...future.value$value, 
[15:32:18.161]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.161]                   ...future.rng), globalenv = if (FALSE) 
[15:32:18.161]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:18.161]                     ...future.globalenv.names))
[15:32:18.161]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:18.161]         }, condition = base::local({
[15:32:18.161]             c <- base::c
[15:32:18.161]             inherits <- base::inherits
[15:32:18.161]             invokeRestart <- base::invokeRestart
[15:32:18.161]             length <- base::length
[15:32:18.161]             list <- base::list
[15:32:18.161]             seq.int <- base::seq.int
[15:32:18.161]             signalCondition <- base::signalCondition
[15:32:18.161]             sys.calls <- base::sys.calls
[15:32:18.161]             `[[` <- base::`[[`
[15:32:18.161]             `+` <- base::`+`
[15:32:18.161]             `<<-` <- base::`<<-`
[15:32:18.161]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:18.161]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:18.161]                   3L)]
[15:32:18.161]             }
[15:32:18.161]             function(cond) {
[15:32:18.161]                 is_error <- inherits(cond, "error")
[15:32:18.161]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:18.161]                   NULL)
[15:32:18.161]                 if (is_error) {
[15:32:18.161]                   sessionInformation <- function() {
[15:32:18.161]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:18.161]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:18.161]                       search = base::search(), system = base::Sys.info())
[15:32:18.161]                   }
[15:32:18.161]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.161]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:18.161]                     cond$call), session = sessionInformation(), 
[15:32:18.161]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:18.161]                   signalCondition(cond)
[15:32:18.161]                 }
[15:32:18.161]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:18.161]                 "immediateCondition"))) {
[15:32:18.161]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:18.161]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.161]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:18.161]                   if (TRUE && !signal) {
[15:32:18.161]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.161]                     {
[15:32:18.161]                       inherits <- base::inherits
[15:32:18.161]                       invokeRestart <- base::invokeRestart
[15:32:18.161]                       is.null <- base::is.null
[15:32:18.161]                       muffled <- FALSE
[15:32:18.161]                       if (inherits(cond, "message")) {
[15:32:18.161]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.161]                         if (muffled) 
[15:32:18.161]                           invokeRestart("muffleMessage")
[15:32:18.161]                       }
[15:32:18.161]                       else if (inherits(cond, "warning")) {
[15:32:18.161]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.161]                         if (muffled) 
[15:32:18.161]                           invokeRestart("muffleWarning")
[15:32:18.161]                       }
[15:32:18.161]                       else if (inherits(cond, "condition")) {
[15:32:18.161]                         if (!is.null(pattern)) {
[15:32:18.161]                           computeRestarts <- base::computeRestarts
[15:32:18.161]                           grepl <- base::grepl
[15:32:18.161]                           restarts <- computeRestarts(cond)
[15:32:18.161]                           for (restart in restarts) {
[15:32:18.161]                             name <- restart$name
[15:32:18.161]                             if (is.null(name)) 
[15:32:18.161]                               next
[15:32:18.161]                             if (!grepl(pattern, name)) 
[15:32:18.161]                               next
[15:32:18.161]                             invokeRestart(restart)
[15:32:18.161]                             muffled <- TRUE
[15:32:18.161]                             break
[15:32:18.161]                           }
[15:32:18.161]                         }
[15:32:18.161]                       }
[15:32:18.161]                       invisible(muffled)
[15:32:18.161]                     }
[15:32:18.161]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.161]                   }
[15:32:18.161]                 }
[15:32:18.161]                 else {
[15:32:18.161]                   if (TRUE) {
[15:32:18.161]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.161]                     {
[15:32:18.161]                       inherits <- base::inherits
[15:32:18.161]                       invokeRestart <- base::invokeRestart
[15:32:18.161]                       is.null <- base::is.null
[15:32:18.161]                       muffled <- FALSE
[15:32:18.161]                       if (inherits(cond, "message")) {
[15:32:18.161]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.161]                         if (muffled) 
[15:32:18.161]                           invokeRestart("muffleMessage")
[15:32:18.161]                       }
[15:32:18.161]                       else if (inherits(cond, "warning")) {
[15:32:18.161]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.161]                         if (muffled) 
[15:32:18.161]                           invokeRestart("muffleWarning")
[15:32:18.161]                       }
[15:32:18.161]                       else if (inherits(cond, "condition")) {
[15:32:18.161]                         if (!is.null(pattern)) {
[15:32:18.161]                           computeRestarts <- base::computeRestarts
[15:32:18.161]                           grepl <- base::grepl
[15:32:18.161]                           restarts <- computeRestarts(cond)
[15:32:18.161]                           for (restart in restarts) {
[15:32:18.161]                             name <- restart$name
[15:32:18.161]                             if (is.null(name)) 
[15:32:18.161]                               next
[15:32:18.161]                             if (!grepl(pattern, name)) 
[15:32:18.161]                               next
[15:32:18.161]                             invokeRestart(restart)
[15:32:18.161]                             muffled <- TRUE
[15:32:18.161]                             break
[15:32:18.161]                           }
[15:32:18.161]                         }
[15:32:18.161]                       }
[15:32:18.161]                       invisible(muffled)
[15:32:18.161]                     }
[15:32:18.161]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.161]                   }
[15:32:18.161]                 }
[15:32:18.161]             }
[15:32:18.161]         }))
[15:32:18.161]     }, error = function(ex) {
[15:32:18.161]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:18.161]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.161]                 ...future.rng), started = ...future.startTime, 
[15:32:18.161]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:18.161]             version = "1.8"), class = "FutureResult")
[15:32:18.161]     }, finally = {
[15:32:18.161]         if (!identical(...future.workdir, getwd())) 
[15:32:18.161]             setwd(...future.workdir)
[15:32:18.161]         {
[15:32:18.161]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:18.161]                 ...future.oldOptions$nwarnings <- NULL
[15:32:18.161]             }
[15:32:18.161]             base::options(...future.oldOptions)
[15:32:18.161]             if (.Platform$OS.type == "windows") {
[15:32:18.161]                 old_names <- names(...future.oldEnvVars)
[15:32:18.161]                 envs <- base::Sys.getenv()
[15:32:18.161]                 names <- names(envs)
[15:32:18.161]                 common <- intersect(names, old_names)
[15:32:18.161]                 added <- setdiff(names, old_names)
[15:32:18.161]                 removed <- setdiff(old_names, names)
[15:32:18.161]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:18.161]                   envs[common]]
[15:32:18.161]                 NAMES <- toupper(changed)
[15:32:18.161]                 args <- list()
[15:32:18.161]                 for (kk in seq_along(NAMES)) {
[15:32:18.161]                   name <- changed[[kk]]
[15:32:18.161]                   NAME <- NAMES[[kk]]
[15:32:18.161]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.161]                     next
[15:32:18.161]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.161]                 }
[15:32:18.161]                 NAMES <- toupper(added)
[15:32:18.161]                 for (kk in seq_along(NAMES)) {
[15:32:18.161]                   name <- added[[kk]]
[15:32:18.161]                   NAME <- NAMES[[kk]]
[15:32:18.161]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.161]                     next
[15:32:18.161]                   args[[name]] <- ""
[15:32:18.161]                 }
[15:32:18.161]                 NAMES <- toupper(removed)
[15:32:18.161]                 for (kk in seq_along(NAMES)) {
[15:32:18.161]                   name <- removed[[kk]]
[15:32:18.161]                   NAME <- NAMES[[kk]]
[15:32:18.161]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.161]                     next
[15:32:18.161]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.161]                 }
[15:32:18.161]                 if (length(args) > 0) 
[15:32:18.161]                   base::do.call(base::Sys.setenv, args = args)
[15:32:18.161]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:18.161]             }
[15:32:18.161]             else {
[15:32:18.161]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:18.161]             }
[15:32:18.161]             {
[15:32:18.161]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:18.161]                   0L) {
[15:32:18.161]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:18.161]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:18.161]                   base::options(opts)
[15:32:18.161]                 }
[15:32:18.161]                 {
[15:32:18.161]                   {
[15:32:18.161]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:18.161]                     NULL
[15:32:18.161]                   }
[15:32:18.161]                   options(future.plan = NULL)
[15:32:18.161]                   if (is.na(NA_character_)) 
[15:32:18.161]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.161]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:18.161]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:18.161]                     .init = FALSE)
[15:32:18.161]                 }
[15:32:18.161]             }
[15:32:18.161]         }
[15:32:18.161]     })
[15:32:18.161]     if (TRUE) {
[15:32:18.161]         base::sink(type = "output", split = FALSE)
[15:32:18.161]         if (TRUE) {
[15:32:18.161]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:18.161]         }
[15:32:18.161]         else {
[15:32:18.161]             ...future.result["stdout"] <- base::list(NULL)
[15:32:18.161]         }
[15:32:18.161]         base::close(...future.stdout)
[15:32:18.161]         ...future.stdout <- NULL
[15:32:18.161]     }
[15:32:18.161]     ...future.result$conditions <- ...future.conditions
[15:32:18.161]     ...future.result$finished <- base::Sys.time()
[15:32:18.161]     ...future.result
[15:32:18.161] }
[15:32:18.171] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[15:32:18.171] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[15:32:18.172] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[15:32:18.172] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:18.173] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:18.173] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:18.174] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:18.174] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:18.175] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:18.175] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:18.176] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:18.176] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[15:32:18.177] MultisessionFuture started
[15:32:18.178] - Launch lazy future ... done
[15:32:18.178] run() for 'MultisessionFuture' ... done
[15:32:18.178] Created future:
[15:32:18.200] receiveMessageFromWorker() for ClusterFuture ...
[15:32:18.201] - Validating connection of MultisessionFuture
[15:32:18.202] - received message: FutureResult
[15:32:18.202] - Received FutureResult
[15:32:18.203] - Erased future from FutureRegistry
[15:32:18.203] result() for ClusterFuture ...
[15:32:18.203] - result already collected: FutureResult
[15:32:18.204] result() for ClusterFuture ... done
[15:32:18.204] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:18.179] MultisessionFuture:
[15:32:18.179] Label: 'future_replicate-2'
[15:32:18.179] Expression:
[15:32:18.179] {
[15:32:18.179]     do.call(function(...) {
[15:32:18.179]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.179]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.179]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.179]             on.exit(options(oopts), add = TRUE)
[15:32:18.179]         }
[15:32:18.179]         {
[15:32:18.179]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.179]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.179]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.179]                   envir = globalenv(), inherits = FALSE)
[15:32:18.179]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.179]             })
[15:32:18.179]         }
[15:32:18.179]     }, args = future.call.arguments)
[15:32:18.179] }
[15:32:18.179] Lazy evaluation: FALSE
[15:32:18.179] Asynchronous evaluation: TRUE
[15:32:18.179] Local evaluation: TRUE
[15:32:18.179] Environment: R_GlobalEnv
[15:32:18.179] Capture standard output: TRUE
[15:32:18.179] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:18.179] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[15:32:18.179] Packages: <none>
[15:32:18.179] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:18.179] Resolved: TRUE
[15:32:18.179] Value: <not collected>
[15:32:18.179] Conditions captured: <none>
[15:32:18.179] Early signaling: FALSE
[15:32:18.179] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:18.179] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.205] Chunk #2 of 2 ... DONE
[15:32:18.205] Launching 2 futures (chunks) ... DONE
[15:32:18.206] Resolving 2 futures (chunks) ...
[15:32:18.206] resolve() on list ...
[15:32:18.206]  recursive: 0
[15:32:18.207]  length: 2
[15:32:18.207] 
[15:32:18.207] Future #1
[15:32:18.207] result() for ClusterFuture ...
[15:32:18.208] - result already collected: FutureResult
[15:32:18.208] result() for ClusterFuture ... done
[15:32:18.208] result() for ClusterFuture ...
[15:32:18.208] - result already collected: FutureResult
[15:32:18.209] result() for ClusterFuture ... done
[15:32:18.209] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:18.209] - nx: 2
[15:32:18.209] - relay: TRUE
[15:32:18.209] - stdout: TRUE
[15:32:18.209] - signal: TRUE
[15:32:18.210] - resignal: FALSE
[15:32:18.210] - force: TRUE
[15:32:18.210] - relayed: [n=2] FALSE, FALSE
[15:32:18.210] - queued futures: [n=2] FALSE, FALSE
[15:32:18.210]  - until=1
[15:32:18.211]  - relaying element #1
[15:32:18.211] result() for ClusterFuture ...
[15:32:18.211] - result already collected: FutureResult
[15:32:18.211] result() for ClusterFuture ... done
[15:32:18.211] result() for ClusterFuture ...
[15:32:18.211] - result already collected: FutureResult
[15:32:18.212] result() for ClusterFuture ... done
[15:32:18.212] result() for ClusterFuture ...
[15:32:18.212] - result already collected: FutureResult
[15:32:18.212] result() for ClusterFuture ... done
[15:32:18.212] result() for ClusterFuture ...
[15:32:18.213] - result already collected: FutureResult
[15:32:18.213] result() for ClusterFuture ... done
[15:32:18.213] - relayed: [n=2] TRUE, FALSE
[15:32:18.213] - queued futures: [n=2] TRUE, FALSE
[15:32:18.213] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:18.214]  length: 1 (resolved future 1)
[15:32:18.214] Future #2
[15:32:18.214] result() for ClusterFuture ...
[15:32:18.214] - result already collected: FutureResult
[15:32:18.214] result() for ClusterFuture ... done
[15:32:18.215] result() for ClusterFuture ...
[15:32:18.215] - result already collected: FutureResult
[15:32:18.215] result() for ClusterFuture ... done
[15:32:18.215] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:18.215] - nx: 2
[15:32:18.216] - relay: TRUE
[15:32:18.216] - stdout: TRUE
[15:32:18.216] - signal: TRUE
[15:32:18.216] - resignal: FALSE
[15:32:18.216] - force: TRUE
[15:32:18.216] - relayed: [n=2] TRUE, FALSE
[15:32:18.217] - queued futures: [n=2] TRUE, FALSE
[15:32:18.220]  - until=2
[15:32:18.220]  - relaying element #2
[15:32:18.220] result() for ClusterFuture ...
[15:32:18.221] - result already collected: FutureResult
[15:32:18.221] result() for ClusterFuture ... done
[15:32:18.221] result() for ClusterFuture ...
[15:32:18.222] - result already collected: FutureResult
[15:32:18.222] result() for ClusterFuture ... done
[15:32:18.222] result() for ClusterFuture ...
[15:32:18.222] - result already collected: FutureResult
[15:32:18.223] result() for ClusterFuture ... done
[15:32:18.223] result() for ClusterFuture ...
[15:32:18.223] - result already collected: FutureResult
[15:32:18.223] result() for ClusterFuture ... done
[15:32:18.224] - relayed: [n=2] TRUE, TRUE
[15:32:18.224] - queued futures: [n=2] TRUE, TRUE
[15:32:18.224] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:18.224]  length: 0 (resolved future 2)
[15:32:18.225] Relaying remaining futures
[15:32:18.225] signalConditionsASAP(NULL, pos=0) ...
[15:32:18.225] - nx: 2
[15:32:18.225] - relay: TRUE
[15:32:18.226] - stdout: TRUE
[15:32:18.226] - signal: TRUE
[15:32:18.226] - resignal: FALSE
[15:32:18.226] - force: TRUE
[15:32:18.227] - relayed: [n=2] TRUE, TRUE
[15:32:18.227] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:18.227] - relayed: [n=2] TRUE, TRUE
[15:32:18.228] - queued futures: [n=2] TRUE, TRUE
[15:32:18.228] signalConditionsASAP(NULL, pos=0) ... done
[15:32:18.228] resolve() on list ... DONE
[15:32:18.228] result() for ClusterFuture ...
[15:32:18.229] - result already collected: FutureResult
[15:32:18.229] result() for ClusterFuture ... done
[15:32:18.229] result() for ClusterFuture ...
[15:32:18.229] - result already collected: FutureResult
[15:32:18.230] result() for ClusterFuture ... done
[15:32:18.230] result() for ClusterFuture ...
[15:32:18.230] - result already collected: FutureResult
[15:32:18.230] result() for ClusterFuture ... done
[15:32:18.231] result() for ClusterFuture ...
[15:32:18.231] - result already collected: FutureResult
[15:32:18.231] result() for ClusterFuture ... done
[15:32:18.232]  - Number of value chunks collected: 2
[15:32:18.232] Resolving 2 futures (chunks) ... DONE
[15:32:18.232] Reducing values from 2 chunks ...
[15:32:18.232]  - Number of values collected after concatenation: 5
[15:32:18.233]  - Number of values expected: 5
[15:32:18.233] Reducing values from 2 chunks ... DONE
[15:32:18.233] future_lapply() ... DONE
- example(replicate) ...
[15:32:18.234] future_lapply() ...
[15:32:18.235] Generating random seeds ...
[15:32:18.235] Generating random seed streams for 5 elements ...
[15:32:18.235] Generating random seed streams for 5 elements ... DONE
[15:32:18.235] Generating random seeds ... DONE
[15:32:18.235] Will set RNG state on exit: 10403, 8, 133210212, 1945833034, 115858357, -364452081, -390319082, 926195392, 2057013379, -803887967, -1078998384, 705296750, -1682614503, 830917547, -331376230, 1352842588, 1960957023, 1997081653, 374446028, 1510359842, 1146109309, -1295266185, -1545472098, 1268700760, 1627111355, -855092903, -215790872, -1958931690, 1906054289, -782874301, -399096750, -1740777756, 1763676455, -832683651, 1369376884, 430697050, 1699587749, -1503628097, 856180550, -242424368, -2127251469, 505777937, 257347392, -856180962, 886024169, -1464480485, -1512233174, -1985955764, -425390065, -589669563, 381897980, -790840494, 1136483533, -1535370105, -607934610, 1641470280, -1050403509, 1965932713, 362996216, 1596838182, -1829498303, -1824465965, 1872669058, -417374796, -1713346249, 1818328109, -1284085436, -1981489558, 1940543701, 1673049711, -1514495114, 467096736, 943410531, -1431020031, 1115626864, 965475598, -1718567047, -793788661, -1133789126, -80588996, 2018258047, 1866186709, 42791404, -1823521982, -1345991523, -1672661737, -180777858, -452713416, 1448313627, -1459492743, -600706872, -909649674, -2081822415, -1697455773, 1517613874, -820020092, 188336327, -1149897827, -475203820, -368005702, 204442629, 437854687, 1163191398, -760699920, 104455443, 819708593, 1129180512, 48636670, 1066049161, 398150075, -852036726, -906028436, -1265740817, -1824646107, -2126068516, 1815435954, -146408019, -860012185, -682500466, 1443186536, 1789394795, -1078204151, 809467800, 1514112710, -1097673695, 919601331, -331916766, 795008020, 1042337943, -371219827, 1558967204, 1563528586, -2133607947, -1904454577, -264006826, 770017792, 153477955, 1189667553, -363253680, 1882362030, 967246937, -793119637, -1401964070, 2129232540, -542810977, -1277899019, -377097332, -406748574, -1722157507, -1577740105, -455170210, 372239000, -1535936005, -1332632679, -1623884760, -359633706, 935827793, 1357445123, 997040018, -1506538204, -147930137, -166569923, -2103753036, 1366641946, 30482021, 1876964095, 2008557446, 657856784, -103814733, 774877777, -486350336, -555057442, -1821756119, -963495717, 853311466, 1671241612, -942337841, 409538693, 1992831804, 489867794, 357105933, -1611412921, -1119334354, -1521015416, -2041922421, 2048874089, -700216776, 1651628774, -10471807, 736942611, 380607938, -1742088588, 1124231287, 1232111981, -1801753084, -1608606422, -1172096363, 1420874031, -1210473418, -18317216, -571709789, 1107403201, 1952554416, 1991660750, -442973639, 581522507, -430787078, 1105375484, -1481218753, -748152299, -641535700, 679371266, -591318819, -104578089, -172818754, -1321694984, -98191653, 1709083961, -344680312, -159571914, 581309553, -63938909, 76420082, 951019332, -1797740537, 1291470301, -2079866156, -332493318, -1978392251, -1691039632, 388791868, -1101109484, -1365177662, 321737440, 1812890748, -133313328, -1252731998, 2044530216, 1263927564, 325388220, 520794418, 1449646272, 87560756, -87565624, 426345146, -699970416, 240322284, -1074080172, -1536268654, 1338615584, 478476236, -1933154080, -192786750, 1559942184, -1178330196, -687617348, -1701912078, 352314928, -999229532, -2052800072, -1913644198, -1345416048, 1816730492, -1570431212, -269427390, -2122969344, -520963140, 1398087504, 264692002, -1682658744, -1422452724, -1601893284, -66383406, 1443075584, -456249004, 943694056, -1493184262, -1943836976, -590788308, -405505804, -1796837998, 1991543136, 1170376716, 1707420384, 1899700834, -1643595096, 47299148, 1274857340, -1205842638, -1938479504, -1773978812, 532695000, 1306451834, 258403888, -284747844, -1780705708, 1621936194, 1129070752, 540946108, -294270512, -1426480286, -356302104, 349847756, 1849803260, -1299125774, 511654528, -1259964940, -1879857528, 535666490, -2020097200, -1460751252, 1201879444, -1459788718, 447195616, -730891060, -1875530592, -2146183806, 193274088, -1224605972, 1616153916, -1896973198, -420945808, -1997735900, -1838404552, -413698278, 1984019664, -1760209092, -1288743020, 392579970, -1382567488, -1295004100, -33348208, 1536615970, -428761848, 643368588, -1596336356, 1797431442, 352422272, -1043800556, 60591912, -1115663814, 1043682768, 521144684, 4793268, -1924265966, 978890208, 370048972, -1607474976, -1443637214, -632405720, 691912204, 166321980, 942193650, 751741680, 689743428, -18455976, -1946329286, -1619184144, 239341244, 371382548, -2069808446, 154176608, 385987452, -385611824, 1967391010, 2140654248, 1720087436, -1591007044, -1612486862, 1295747648, 1726784692, 597326408, -973152838, 628505104, -1089631508, 3230036, -593837806, 244006304, 1357912780, 1839234656, -1357570110, 1896595240, -2066952276, -1724304580, 986188146, -1200604368, -279100124, 131128120, -1088465190, 596533136, 170602236, -1051262060, 215660610, -686217984, 444449852, 769655120, 236357794, 181393736, -13334772, 644690652, -1969263278, -2107982720, 1429553236, 794236904, 1997299962, -458224816, 904978220, -537093772, -842839150, 1828989024, -679303796, 1396292448, 76319202, 1896098728, 418430156, 2005956604, 1370351026, -1178923536, -1154073660, -1218863784, 89928058, 816597936, -1141767748, 1579714644, 1343385538, 371259424, -245180228, 365724240, 1606388706, -823678872, 1281309772, 1395210492, 1217887218, 1420531968, 1349501300, 271647752, -69959750, 360452560, 1565334508, 1956526484, -930709038, 1961808224, -1745916084, 443656480, 1990137730, 694374120, -1050566420, -1365842884, -438961294, -1851472272, 614534180, 1401930552, 3652762, 1928284880, -1637703492, 26107540, -132725907, -371944998, -1311388776, 8516097, 741008307, -1149566252, -1802640414, 2019636855, 1587818433, -151040698, 1598381188, -205462987, 1911327, -1382519432, -594809770, -2146766621, -2013964635, -965534910, -2077626064, 1964788057, 1821395659, -1953549508, -719348886, 1442511263, 1969287209, 1754221246, -442299476, 1981692157, 113456199, 1587794736, -1811033010, 1149417595, -1760887843, -1426021878, -1285634264, 1507547537, -1114120317, 1897370756, 1142575794, -375814649, -1661041071, 881081814, -548925260, 2073840837, 1156484623, 2011334280, 1107815334, 969024339, -55972683, 2006780434, -1486403616, 1698650697, 1813794939, -1717763764, 1268815066, -1200630577, -773717863, -12215122, 1354639804, 1213207085, -978295337, 340143136, 485429630, -568148149, 1257440589, 930106234, -883274312, -1632538783, 894748435, -1592959180, -596177598, 120963415, -1174532959, -561474202, 1438545764, 1429911189, 1075965887, 367866712, -892333706, -485158013, -682634811, 963344098, 2110199632, 1990767225, 1348335019, 269581084, -2040640438, 1453561919, 853952649, 1195494558, 1614051660, 2040242461, -1604604761, 1421229008, -1268333714, 174113307, 2044969853, 190112106, -998776824, -2070476623, -2099222749, 1141171236, -146426158, -1797385433, -1129376399, -1496589386, -419561644, -613549595, 1243456495, 451212072, 1923543942, 1146113971, 93579029, -397504142, 597218752, 459048489, 1447221915, -272948372, -373834886, 934888623, -2099351623, -1672042034, 193924380, -704518003, 781993207, -258875392, -1853783458, 1315003691, -41214419, -59447654, 1203745368, 426003905, 452670067, -1092079724, -1765622238, -1882554057, 1278087169, -1994822394, -124954300, 1994460277, 1816829407, -1568282312, 1563616022, 1255996195, 1702121701, 1784032514, 1842995056, 748060441, 1432229643, -1905232900, 2016890922, 1403944031, 351712233, 1338932478, -1359366932, -803018691, -1551885305, 248629232, 1839395726, 1411789243, 840085405, -1849000630, -669518488, -1453417647, -1527179197, -377159356, 1674525170, -313742393, 865377681, -1127426242
[15:32:18.240] Number of chunks: 2
[15:32:18.241] getGlobalsAndPackagesXApply() ...
[15:32:18.241]  - future.globals: TRUE
[15:32:18.241] getGlobalsAndPackages() ...
[15:32:18.242] Searching for globals...
[15:32:18.245] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[15:32:18.246] Searching for globals ... DONE
[15:32:18.246] Resolving globals: FALSE
[15:32:18.247] The total size of the 3 globals is 2.15 KiB (2200 bytes)
[15:32:18.248] The total size of the 3 globals exported for future expression ('FUN()') is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (1.60 KiB of class 'function'), 'FUN' (504 bytes of class 'function') and 'x' (56 bytes of class 'numeric')
[15:32:18.248] - globals: [3] 'FUN', 'foo', 'x'
[15:32:18.248] 
[15:32:18.249] getGlobalsAndPackages() ... DONE
[15:32:18.249]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[15:32:18.249]  - needed namespaces: [n=0] 
[15:32:18.250] Finding globals ... DONE
[15:32:18.250]  - use_args: TRUE
[15:32:18.250]  - Getting '...' globals ...
[15:32:18.251] resolve() on list ...
[15:32:18.251]  recursive: 0
[15:32:18.251]  length: 1
[15:32:18.252]  elements: '...'
[15:32:18.252]  length: 0 (resolved future 1)
[15:32:18.252] resolve() on list ... DONE
[15:32:18.253]    - '...' content: [n=0] 
[15:32:18.253] List of 1
[15:32:18.253]  $ ...: list()
[15:32:18.253]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:18.253]  - attr(*, "where")=List of 1
[15:32:18.253]   ..$ ...:<environment: 0x000002abb4477340> 
[15:32:18.253]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:18.253]  - attr(*, "resolved")= logi TRUE
[15:32:18.253]  - attr(*, "total_size")= num NA
[15:32:18.258]  - Getting '...' globals ... DONE
[15:32:18.258] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[15:32:18.259] List of 4
[15:32:18.259]  $ ...future.FUN:function (...)  
[15:32:18.259]  $ foo          :function (x = 1, y = 2)  
[15:32:18.259]  $ x            : num 3
[15:32:18.259]  $ ...          : list()
[15:32:18.259]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[15:32:18.259]  - attr(*, "where")=List of 4
[15:32:18.259]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[15:32:18.259]   ..$ foo          :<environment: R_EmptyEnv> 
[15:32:18.259]   ..$ x            :<environment: R_EmptyEnv> 
[15:32:18.259]   ..$ ...          :<environment: 0x000002abb4477340> 
[15:32:18.259]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[15:32:18.259]  - attr(*, "resolved")= logi FALSE
[15:32:18.259]  - attr(*, "total_size")= num 2200
[15:32:18.266] Packages to be attached in all futures: [n=0] 
[15:32:18.266] getGlobalsAndPackagesXApply() ... DONE
[15:32:18.267] Number of futures (= number of chunks): 2
[15:32:18.267] Launching 2 futures (chunks) ...
[15:32:18.267] Chunk #1 of 2 ...
[15:32:18.268]  - Finding globals in 'X' for chunk #1 ...
[15:32:18.268] getGlobalsAndPackages() ...
[15:32:18.268] Searching for globals...
[15:32:18.269] 
[15:32:18.269] Searching for globals ... DONE
[15:32:18.269] - globals: [0] <none>
[15:32:18.270] getGlobalsAndPackages() ... DONE
[15:32:18.270]    + additional globals found: [n=0] 
[15:32:18.270]    + additional namespaces needed: [n=0] 
[15:32:18.270]  - Finding globals in 'X' for chunk #1 ... DONE
[15:32:18.271]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:18.271]  - seeds: [2] <seeds>
[15:32:18.271]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.272] getGlobalsAndPackages() ...
[15:32:18.272] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.272] Resolving globals: FALSE
[15:32:18.273] Tweak future expression to call with '...' arguments ...
[15:32:18.273] {
[15:32:18.273]     do.call(function(...) {
[15:32:18.273]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.273]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.273]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.273]             on.exit(options(oopts), add = TRUE)
[15:32:18.273]         }
[15:32:18.273]         {
[15:32:18.273]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.273]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.273]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.273]                   envir = globalenv(), inherits = FALSE)
[15:32:18.273]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.273]             })
[15:32:18.273]         }
[15:32:18.273]     }, args = future.call.arguments)
[15:32:18.273] }
[15:32:18.274] Tweak future expression to call with '...' arguments ... DONE
[15:32:18.275] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.275] 
[15:32:18.275] getGlobalsAndPackages() ... DONE
[15:32:18.276] run() for 'Future' ...
[15:32:18.276] - state: 'created'
[15:32:18.277] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:18.295] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.295] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:18.296]   - Field: 'node'
[15:32:18.296]   - Field: 'label'
[15:32:18.296]   - Field: 'local'
[15:32:18.297]   - Field: 'owner'
[15:32:18.297]   - Field: 'envir'
[15:32:18.297]   - Field: 'workers'
[15:32:18.298]   - Field: 'packages'
[15:32:18.298]   - Field: 'gc'
[15:32:18.299]   - Field: 'conditions'
[15:32:18.299]   - Field: 'persistent'
[15:32:18.299]   - Field: 'expr'
[15:32:18.300]   - Field: 'uuid'
[15:32:18.300]   - Field: 'seed'
[15:32:18.300]   - Field: 'version'
[15:32:18.301]   - Field: 'result'
[15:32:18.301]   - Field: 'asynchronous'
[15:32:18.301]   - Field: 'calls'
[15:32:18.301]   - Field: 'globals'
[15:32:18.302]   - Field: 'stdout'
[15:32:18.302]   - Field: 'earlySignal'
[15:32:18.302]   - Field: 'lazy'
[15:32:18.303]   - Field: 'state'
[15:32:18.303] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:18.303] - Launch lazy future ...
[15:32:18.304] Packages needed by the future expression (n = 0): <none>
[15:32:18.304] Packages needed by future strategies (n = 0): <none>
[15:32:18.305] {
[15:32:18.305]     {
[15:32:18.305]         {
[15:32:18.305]             ...future.startTime <- base::Sys.time()
[15:32:18.305]             {
[15:32:18.305]                 {
[15:32:18.305]                   {
[15:32:18.305]                     {
[15:32:18.305]                       base::local({
[15:32:18.305]                         has_future <- base::requireNamespace("future", 
[15:32:18.305]                           quietly = TRUE)
[15:32:18.305]                         if (has_future) {
[15:32:18.305]                           ns <- base::getNamespace("future")
[15:32:18.305]                           version <- ns[[".package"]][["version"]]
[15:32:18.305]                           if (is.null(version)) 
[15:32:18.305]                             version <- utils::packageVersion("future")
[15:32:18.305]                         }
[15:32:18.305]                         else {
[15:32:18.305]                           version <- NULL
[15:32:18.305]                         }
[15:32:18.305]                         if (!has_future || version < "1.8.0") {
[15:32:18.305]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:18.305]                             "", base::R.version$version.string), 
[15:32:18.305]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:18.305]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:18.305]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:18.305]                               "release", "version")], collapse = " "), 
[15:32:18.305]                             hostname = base::Sys.info()[["nodename"]])
[15:32:18.305]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:18.305]                             info)
[15:32:18.305]                           info <- base::paste(info, collapse = "; ")
[15:32:18.305]                           if (!has_future) {
[15:32:18.305]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:18.305]                               info)
[15:32:18.305]                           }
[15:32:18.305]                           else {
[15:32:18.305]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:18.305]                               info, version)
[15:32:18.305]                           }
[15:32:18.305]                           base::stop(msg)
[15:32:18.305]                         }
[15:32:18.305]                       })
[15:32:18.305]                     }
[15:32:18.305]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:18.305]                     base::options(mc.cores = 1L)
[15:32:18.305]                   }
[15:32:18.305]                   ...future.strategy.old <- future::plan("list")
[15:32:18.305]                   options(future.plan = NULL)
[15:32:18.305]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.305]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:18.305]                 }
[15:32:18.305]                 ...future.workdir <- getwd()
[15:32:18.305]             }
[15:32:18.305]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:18.305]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:18.305]         }
[15:32:18.305]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:18.305]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:18.305]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:18.305]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:18.305]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:18.305]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:18.305]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:18.305]             base::names(...future.oldOptions))
[15:32:18.305]     }
[15:32:18.305]     if (FALSE) {
[15:32:18.305]     }
[15:32:18.305]     else {
[15:32:18.305]         if (TRUE) {
[15:32:18.305]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:18.305]                 open = "w")
[15:32:18.305]         }
[15:32:18.305]         else {
[15:32:18.305]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:18.305]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:18.305]         }
[15:32:18.305]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:18.305]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:18.305]             base::sink(type = "output", split = FALSE)
[15:32:18.305]             base::close(...future.stdout)
[15:32:18.305]         }, add = TRUE)
[15:32:18.305]     }
[15:32:18.305]     ...future.frame <- base::sys.nframe()
[15:32:18.305]     ...future.conditions <- base::list()
[15:32:18.305]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:18.305]     if (FALSE) {
[15:32:18.305]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:18.305]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:18.305]     }
[15:32:18.305]     ...future.result <- base::tryCatch({
[15:32:18.305]         base::withCallingHandlers({
[15:32:18.305]             ...future.value <- base::withVisible(base::local({
[15:32:18.305]                 ...future.makeSendCondition <- base::local({
[15:32:18.305]                   sendCondition <- NULL
[15:32:18.305]                   function(frame = 1L) {
[15:32:18.305]                     if (is.function(sendCondition)) 
[15:32:18.305]                       return(sendCondition)
[15:32:18.305]                     ns <- getNamespace("parallel")
[15:32:18.305]                     if (exists("sendData", mode = "function", 
[15:32:18.305]                       envir = ns)) {
[15:32:18.305]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:18.305]                         envir = ns)
[15:32:18.305]                       envir <- sys.frame(frame)
[15:32:18.305]                       master <- NULL
[15:32:18.305]                       while (!identical(envir, .GlobalEnv) && 
[15:32:18.305]                         !identical(envir, emptyenv())) {
[15:32:18.305]                         if (exists("master", mode = "list", envir = envir, 
[15:32:18.305]                           inherits = FALSE)) {
[15:32:18.305]                           master <- get("master", mode = "list", 
[15:32:18.305]                             envir = envir, inherits = FALSE)
[15:32:18.305]                           if (inherits(master, c("SOCKnode", 
[15:32:18.305]                             "SOCK0node"))) {
[15:32:18.305]                             sendCondition <<- function(cond) {
[15:32:18.305]                               data <- list(type = "VALUE", value = cond, 
[15:32:18.305]                                 success = TRUE)
[15:32:18.305]                               parallel_sendData(master, data)
[15:32:18.305]                             }
[15:32:18.305]                             return(sendCondition)
[15:32:18.305]                           }
[15:32:18.305]                         }
[15:32:18.305]                         frame <- frame + 1L
[15:32:18.305]                         envir <- sys.frame(frame)
[15:32:18.305]                       }
[15:32:18.305]                     }
[15:32:18.305]                     sendCondition <<- function(cond) NULL
[15:32:18.305]                   }
[15:32:18.305]                 })
[15:32:18.305]                 withCallingHandlers({
[15:32:18.305]                   {
[15:32:18.305]                     do.call(function(...) {
[15:32:18.305]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.305]                       if (!identical(...future.globals.maxSize.org, 
[15:32:18.305]                         ...future.globals.maxSize)) {
[15:32:18.305]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.305]                         on.exit(options(oopts), add = TRUE)
[15:32:18.305]                       }
[15:32:18.305]                       {
[15:32:18.305]                         lapply(seq_along(...future.elements_ii), 
[15:32:18.305]                           FUN = function(jj) {
[15:32:18.305]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.305]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.305]                               envir = globalenv(), inherits = FALSE)
[15:32:18.305]                             ...future.FUN(...future.X_jj, ...)
[15:32:18.305]                           })
[15:32:18.305]                       }
[15:32:18.305]                     }, args = future.call.arguments)
[15:32:18.305]                   }
[15:32:18.305]                 }, immediateCondition = function(cond) {
[15:32:18.305]                   sendCondition <- ...future.makeSendCondition()
[15:32:18.305]                   sendCondition(cond)
[15:32:18.305]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.305]                   {
[15:32:18.305]                     inherits <- base::inherits
[15:32:18.305]                     invokeRestart <- base::invokeRestart
[15:32:18.305]                     is.null <- base::is.null
[15:32:18.305]                     muffled <- FALSE
[15:32:18.305]                     if (inherits(cond, "message")) {
[15:32:18.305]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:18.305]                       if (muffled) 
[15:32:18.305]                         invokeRestart("muffleMessage")
[15:32:18.305]                     }
[15:32:18.305]                     else if (inherits(cond, "warning")) {
[15:32:18.305]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:18.305]                       if (muffled) 
[15:32:18.305]                         invokeRestart("muffleWarning")
[15:32:18.305]                     }
[15:32:18.305]                     else if (inherits(cond, "condition")) {
[15:32:18.305]                       if (!is.null(pattern)) {
[15:32:18.305]                         computeRestarts <- base::computeRestarts
[15:32:18.305]                         grepl <- base::grepl
[15:32:18.305]                         restarts <- computeRestarts(cond)
[15:32:18.305]                         for (restart in restarts) {
[15:32:18.305]                           name <- restart$name
[15:32:18.305]                           if (is.null(name)) 
[15:32:18.305]                             next
[15:32:18.305]                           if (!grepl(pattern, name)) 
[15:32:18.305]                             next
[15:32:18.305]                           invokeRestart(restart)
[15:32:18.305]                           muffled <- TRUE
[15:32:18.305]                           break
[15:32:18.305]                         }
[15:32:18.305]                       }
[15:32:18.305]                     }
[15:32:18.305]                     invisible(muffled)
[15:32:18.305]                   }
[15:32:18.305]                   muffleCondition(cond)
[15:32:18.305]                 })
[15:32:18.305]             }))
[15:32:18.305]             future::FutureResult(value = ...future.value$value, 
[15:32:18.305]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.305]                   ...future.rng), globalenv = if (FALSE) 
[15:32:18.305]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:18.305]                     ...future.globalenv.names))
[15:32:18.305]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:18.305]         }, condition = base::local({
[15:32:18.305]             c <- base::c
[15:32:18.305]             inherits <- base::inherits
[15:32:18.305]             invokeRestart <- base::invokeRestart
[15:32:18.305]             length <- base::length
[15:32:18.305]             list <- base::list
[15:32:18.305]             seq.int <- base::seq.int
[15:32:18.305]             signalCondition <- base::signalCondition
[15:32:18.305]             sys.calls <- base::sys.calls
[15:32:18.305]             `[[` <- base::`[[`
[15:32:18.305]             `+` <- base::`+`
[15:32:18.305]             `<<-` <- base::`<<-`
[15:32:18.305]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:18.305]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:18.305]                   3L)]
[15:32:18.305]             }
[15:32:18.305]             function(cond) {
[15:32:18.305]                 is_error <- inherits(cond, "error")
[15:32:18.305]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:18.305]                   NULL)
[15:32:18.305]                 if (is_error) {
[15:32:18.305]                   sessionInformation <- function() {
[15:32:18.305]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:18.305]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:18.305]                       search = base::search(), system = base::Sys.info())
[15:32:18.305]                   }
[15:32:18.305]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.305]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:18.305]                     cond$call), session = sessionInformation(), 
[15:32:18.305]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:18.305]                   signalCondition(cond)
[15:32:18.305]                 }
[15:32:18.305]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:18.305]                 "immediateCondition"))) {
[15:32:18.305]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:18.305]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.305]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:18.305]                   if (TRUE && !signal) {
[15:32:18.305]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.305]                     {
[15:32:18.305]                       inherits <- base::inherits
[15:32:18.305]                       invokeRestart <- base::invokeRestart
[15:32:18.305]                       is.null <- base::is.null
[15:32:18.305]                       muffled <- FALSE
[15:32:18.305]                       if (inherits(cond, "message")) {
[15:32:18.305]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.305]                         if (muffled) 
[15:32:18.305]                           invokeRestart("muffleMessage")
[15:32:18.305]                       }
[15:32:18.305]                       else if (inherits(cond, "warning")) {
[15:32:18.305]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.305]                         if (muffled) 
[15:32:18.305]                           invokeRestart("muffleWarning")
[15:32:18.305]                       }
[15:32:18.305]                       else if (inherits(cond, "condition")) {
[15:32:18.305]                         if (!is.null(pattern)) {
[15:32:18.305]                           computeRestarts <- base::computeRestarts
[15:32:18.305]                           grepl <- base::grepl
[15:32:18.305]                           restarts <- computeRestarts(cond)
[15:32:18.305]                           for (restart in restarts) {
[15:32:18.305]                             name <- restart$name
[15:32:18.305]                             if (is.null(name)) 
[15:32:18.305]                               next
[15:32:18.305]                             if (!grepl(pattern, name)) 
[15:32:18.305]                               next
[15:32:18.305]                             invokeRestart(restart)
[15:32:18.305]                             muffled <- TRUE
[15:32:18.305]                             break
[15:32:18.305]                           }
[15:32:18.305]                         }
[15:32:18.305]                       }
[15:32:18.305]                       invisible(muffled)
[15:32:18.305]                     }
[15:32:18.305]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.305]                   }
[15:32:18.305]                 }
[15:32:18.305]                 else {
[15:32:18.305]                   if (TRUE) {
[15:32:18.305]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.305]                     {
[15:32:18.305]                       inherits <- base::inherits
[15:32:18.305]                       invokeRestart <- base::invokeRestart
[15:32:18.305]                       is.null <- base::is.null
[15:32:18.305]                       muffled <- FALSE
[15:32:18.305]                       if (inherits(cond, "message")) {
[15:32:18.305]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.305]                         if (muffled) 
[15:32:18.305]                           invokeRestart("muffleMessage")
[15:32:18.305]                       }
[15:32:18.305]                       else if (inherits(cond, "warning")) {
[15:32:18.305]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.305]                         if (muffled) 
[15:32:18.305]                           invokeRestart("muffleWarning")
[15:32:18.305]                       }
[15:32:18.305]                       else if (inherits(cond, "condition")) {
[15:32:18.305]                         if (!is.null(pattern)) {
[15:32:18.305]                           computeRestarts <- base::computeRestarts
[15:32:18.305]                           grepl <- base::grepl
[15:32:18.305]                           restarts <- computeRestarts(cond)
[15:32:18.305]                           for (restart in restarts) {
[15:32:18.305]                             name <- restart$name
[15:32:18.305]                             if (is.null(name)) 
[15:32:18.305]                               next
[15:32:18.305]                             if (!grepl(pattern, name)) 
[15:32:18.305]                               next
[15:32:18.305]                             invokeRestart(restart)
[15:32:18.305]                             muffled <- TRUE
[15:32:18.305]                             break
[15:32:18.305]                           }
[15:32:18.305]                         }
[15:32:18.305]                       }
[15:32:18.305]                       invisible(muffled)
[15:32:18.305]                     }
[15:32:18.305]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.305]                   }
[15:32:18.305]                 }
[15:32:18.305]             }
[15:32:18.305]         }))
[15:32:18.305]     }, error = function(ex) {
[15:32:18.305]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:18.305]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.305]                 ...future.rng), started = ...future.startTime, 
[15:32:18.305]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:18.305]             version = "1.8"), class = "FutureResult")
[15:32:18.305]     }, finally = {
[15:32:18.305]         if (!identical(...future.workdir, getwd())) 
[15:32:18.305]             setwd(...future.workdir)
[15:32:18.305]         {
[15:32:18.305]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:18.305]                 ...future.oldOptions$nwarnings <- NULL
[15:32:18.305]             }
[15:32:18.305]             base::options(...future.oldOptions)
[15:32:18.305]             if (.Platform$OS.type == "windows") {
[15:32:18.305]                 old_names <- names(...future.oldEnvVars)
[15:32:18.305]                 envs <- base::Sys.getenv()
[15:32:18.305]                 names <- names(envs)
[15:32:18.305]                 common <- intersect(names, old_names)
[15:32:18.305]                 added <- setdiff(names, old_names)
[15:32:18.305]                 removed <- setdiff(old_names, names)
[15:32:18.305]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:18.305]                   envs[common]]
[15:32:18.305]                 NAMES <- toupper(changed)
[15:32:18.305]                 args <- list()
[15:32:18.305]                 for (kk in seq_along(NAMES)) {
[15:32:18.305]                   name <- changed[[kk]]
[15:32:18.305]                   NAME <- NAMES[[kk]]
[15:32:18.305]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.305]                     next
[15:32:18.305]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.305]                 }
[15:32:18.305]                 NAMES <- toupper(added)
[15:32:18.305]                 for (kk in seq_along(NAMES)) {
[15:32:18.305]                   name <- added[[kk]]
[15:32:18.305]                   NAME <- NAMES[[kk]]
[15:32:18.305]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.305]                     next
[15:32:18.305]                   args[[name]] <- ""
[15:32:18.305]                 }
[15:32:18.305]                 NAMES <- toupper(removed)
[15:32:18.305]                 for (kk in seq_along(NAMES)) {
[15:32:18.305]                   name <- removed[[kk]]
[15:32:18.305]                   NAME <- NAMES[[kk]]
[15:32:18.305]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.305]                     next
[15:32:18.305]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.305]                 }
[15:32:18.305]                 if (length(args) > 0) 
[15:32:18.305]                   base::do.call(base::Sys.setenv, args = args)
[15:32:18.305]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:18.305]             }
[15:32:18.305]             else {
[15:32:18.305]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:18.305]             }
[15:32:18.305]             {
[15:32:18.305]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:18.305]                   0L) {
[15:32:18.305]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:18.305]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:18.305]                   base::options(opts)
[15:32:18.305]                 }
[15:32:18.305]                 {
[15:32:18.305]                   {
[15:32:18.305]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:18.305]                     NULL
[15:32:18.305]                   }
[15:32:18.305]                   options(future.plan = NULL)
[15:32:18.305]                   if (is.na(NA_character_)) 
[15:32:18.305]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.305]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:18.305]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:18.305]                     .init = FALSE)
[15:32:18.305]                 }
[15:32:18.305]             }
[15:32:18.305]         }
[15:32:18.305]     })
[15:32:18.305]     if (TRUE) {
[15:32:18.305]         base::sink(type = "output", split = FALSE)
[15:32:18.305]         if (TRUE) {
[15:32:18.305]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:18.305]         }
[15:32:18.305]         else {
[15:32:18.305]             ...future.result["stdout"] <- base::list(NULL)
[15:32:18.305]         }
[15:32:18.305]         base::close(...future.stdout)
[15:32:18.305]         ...future.stdout <- NULL
[15:32:18.305]     }
[15:32:18.305]     ...future.result$conditions <- ...future.conditions
[15:32:18.305]     ...future.result$finished <- base::Sys.time()
[15:32:18.305]     ...future.result
[15:32:18.305] }
[15:32:18.315] Exporting 7 global objects (2.15 KiB) to cluster node #1 ...
[15:32:18.315] Exporting '...future.FUN' (504 bytes) to cluster node #1 ...
[15:32:18.316] Exporting '...future.FUN' (504 bytes) to cluster node #1 ... DONE
[15:32:18.316] Exporting 'foo' (1.60 KiB) to cluster node #1 ...
[15:32:18.317] Exporting 'foo' (1.60 KiB) to cluster node #1 ... DONE
[15:32:18.317] Exporting 'x' (56 bytes) to cluster node #1 ...
[15:32:18.318] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
[15:32:18.318] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:18.319] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:18.319] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[15:32:18.320] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[15:32:18.320] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[15:32:18.321] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[15:32:18.321] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:18.322] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:18.322] Exporting 7 global objects (2.15 KiB) to cluster node #1 ... DONE
[15:32:18.323] MultisessionFuture started
[15:32:18.323] - Launch lazy future ... done
[15:32:18.324] run() for 'MultisessionFuture' ... done
[15:32:18.324] Created future:
[15:32:18.350] receiveMessageFromWorker() for ClusterFuture ...
[15:32:18.350] - Validating connection of MultisessionFuture
[15:32:18.351] - received message: FutureResult
[15:32:18.351] - Received FutureResult
[15:32:18.352] - Erased future from FutureRegistry
[15:32:18.352] result() for ClusterFuture ...
[15:32:18.352] - result already collected: FutureResult
[15:32:18.352] result() for ClusterFuture ... done
[15:32:18.353] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:18.324] MultisessionFuture:
[15:32:18.324] Label: 'future_replicate-1'
[15:32:18.324] Expression:
[15:32:18.324] {
[15:32:18.324]     do.call(function(...) {
[15:32:18.324]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.324]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.324]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.324]             on.exit(options(oopts), add = TRUE)
[15:32:18.324]         }
[15:32:18.324]         {
[15:32:18.324]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.324]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.324]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.324]                   envir = globalenv(), inherits = FALSE)
[15:32:18.324]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.324]             })
[15:32:18.324]         }
[15:32:18.324]     }, args = future.call.arguments)
[15:32:18.324] }
[15:32:18.324] Lazy evaluation: FALSE
[15:32:18.324] Asynchronous evaluation: TRUE
[15:32:18.324] Local evaluation: TRUE
[15:32:18.324] Environment: 0x000002abb447d998
[15:32:18.324] Capture standard output: TRUE
[15:32:18.324] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:18.324] Globals: 7 objects totaling 2.41 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, ...)
[15:32:18.324] Packages: <none>
[15:32:18.324] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:18.324] Resolved: TRUE
[15:32:18.324] Value: <not collected>
[15:32:18.324] Conditions captured: <none>
[15:32:18.324] Early signaling: FALSE
[15:32:18.324] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:18.324] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.353] Chunk #1 of 2 ... DONE
[15:32:18.354] Chunk #2 of 2 ...
[15:32:18.354]  - Finding globals in 'X' for chunk #2 ...
[15:32:18.354] getGlobalsAndPackages() ...
[15:32:18.355] Searching for globals...
[15:32:18.355] 
[15:32:18.355] Searching for globals ... DONE
[15:32:18.356] - globals: [0] <none>
[15:32:18.356] getGlobalsAndPackages() ... DONE
[15:32:18.356]    + additional globals found: [n=0] 
[15:32:18.356]    + additional namespaces needed: [n=0] 
[15:32:18.357]  - Finding globals in 'X' for chunk #2 ... DONE
[15:32:18.357]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[15:32:18.357]  - seeds: [3] <seeds>
[15:32:18.358]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.358] getGlobalsAndPackages() ...
[15:32:18.358] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.359] Resolving globals: FALSE
[15:32:18.359] Tweak future expression to call with '...' arguments ...
[15:32:18.359] {
[15:32:18.359]     do.call(function(...) {
[15:32:18.359]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.359]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.359]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.359]             on.exit(options(oopts), add = TRUE)
[15:32:18.359]         }
[15:32:18.359]         {
[15:32:18.359]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.359]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.359]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.359]                   envir = globalenv(), inherits = FALSE)
[15:32:18.359]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.359]             })
[15:32:18.359]         }
[15:32:18.359]     }, args = future.call.arguments)
[15:32:18.359] }
[15:32:18.360] Tweak future expression to call with '...' arguments ... DONE
[15:32:18.361] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[15:32:18.361] 
[15:32:18.361] getGlobalsAndPackages() ... DONE
[15:32:18.362] run() for 'Future' ...
[15:32:18.362] - state: 'created'
[15:32:18.363] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[15:32:18.381] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.382] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[15:32:18.382]   - Field: 'node'
[15:32:18.382]   - Field: 'label'
[15:32:18.383]   - Field: 'local'
[15:32:18.383]   - Field: 'owner'
[15:32:18.383]   - Field: 'envir'
[15:32:18.383]   - Field: 'workers'
[15:32:18.384]   - Field: 'packages'
[15:32:18.384]   - Field: 'gc'
[15:32:18.384]   - Field: 'conditions'
[15:32:18.385]   - Field: 'persistent'
[15:32:18.385]   - Field: 'expr'
[15:32:18.385]   - Field: 'uuid'
[15:32:18.385]   - Field: 'seed'
[15:32:18.386]   - Field: 'version'
[15:32:18.386]   - Field: 'result'
[15:32:18.386]   - Field: 'asynchronous'
[15:32:18.387]   - Field: 'calls'
[15:32:18.387]   - Field: 'globals'
[15:32:18.387]   - Field: 'stdout'
[15:32:18.387]   - Field: 'earlySignal'
[15:32:18.388]   - Field: 'lazy'
[15:32:18.388]   - Field: 'state'
[15:32:18.388] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[15:32:18.389] - Launch lazy future ...
[15:32:18.389] Packages needed by the future expression (n = 0): <none>
[15:32:18.390] Packages needed by future strategies (n = 0): <none>
[15:32:18.390] {
[15:32:18.390]     {
[15:32:18.390]         {
[15:32:18.390]             ...future.startTime <- base::Sys.time()
[15:32:18.390]             {
[15:32:18.390]                 {
[15:32:18.390]                   {
[15:32:18.390]                     {
[15:32:18.390]                       base::local({
[15:32:18.390]                         has_future <- base::requireNamespace("future", 
[15:32:18.390]                           quietly = TRUE)
[15:32:18.390]                         if (has_future) {
[15:32:18.390]                           ns <- base::getNamespace("future")
[15:32:18.390]                           version <- ns[[".package"]][["version"]]
[15:32:18.390]                           if (is.null(version)) 
[15:32:18.390]                             version <- utils::packageVersion("future")
[15:32:18.390]                         }
[15:32:18.390]                         else {
[15:32:18.390]                           version <- NULL
[15:32:18.390]                         }
[15:32:18.390]                         if (!has_future || version < "1.8.0") {
[15:32:18.390]                           info <- base::c(r_version = base::gsub("R version ", 
[15:32:18.390]                             "", base::R.version$version.string), 
[15:32:18.390]                             platform = base::sprintf("%s (%s-bit)", 
[15:32:18.390]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[15:32:18.390]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[15:32:18.390]                               "release", "version")], collapse = " "), 
[15:32:18.390]                             hostname = base::Sys.info()[["nodename"]])
[15:32:18.390]                           info <- base::sprintf("%s: %s", base::names(info), 
[15:32:18.390]                             info)
[15:32:18.390]                           info <- base::paste(info, collapse = "; ")
[15:32:18.390]                           if (!has_future) {
[15:32:18.390]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[15:32:18.390]                               info)
[15:32:18.390]                           }
[15:32:18.390]                           else {
[15:32:18.390]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[15:32:18.390]                               info, version)
[15:32:18.390]                           }
[15:32:18.390]                           base::stop(msg)
[15:32:18.390]                         }
[15:32:18.390]                       })
[15:32:18.390]                     }
[15:32:18.390]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[15:32:18.390]                     base::options(mc.cores = 1L)
[15:32:18.390]                   }
[15:32:18.390]                   ...future.strategy.old <- future::plan("list")
[15:32:18.390]                   options(future.plan = NULL)
[15:32:18.390]                   Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.390]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[15:32:18.390]                 }
[15:32:18.390]                 ...future.workdir <- getwd()
[15:32:18.390]             }
[15:32:18.390]             ...future.oldOptions <- base::as.list(base::.Options)
[15:32:18.390]             ...future.oldEnvVars <- base::Sys.getenv()
[15:32:18.390]         }
[15:32:18.390]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[15:32:18.390]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[15:32:18.390]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[15:32:18.390]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[15:32:18.390]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[15:32:18.390]             future.stdout.windows.reencode = NULL, width = 80L)
[15:32:18.390]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[15:32:18.390]             base::names(...future.oldOptions))
[15:32:18.390]     }
[15:32:18.390]     if (FALSE) {
[15:32:18.390]     }
[15:32:18.390]     else {
[15:32:18.390]         if (TRUE) {
[15:32:18.390]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[15:32:18.390]                 open = "w")
[15:32:18.390]         }
[15:32:18.390]         else {
[15:32:18.390]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[15:32:18.390]                 windows = "NUL", "/dev/null"), open = "w")
[15:32:18.390]         }
[15:32:18.390]         base::sink(...future.stdout, type = "output", split = FALSE)
[15:32:18.390]         base::on.exit(if (!base::is.null(...future.stdout)) {
[15:32:18.390]             base::sink(type = "output", split = FALSE)
[15:32:18.390]             base::close(...future.stdout)
[15:32:18.390]         }, add = TRUE)
[15:32:18.390]     }
[15:32:18.390]     ...future.frame <- base::sys.nframe()
[15:32:18.390]     ...future.conditions <- base::list()
[15:32:18.390]     ...future.rng <- base::globalenv()$.Random.seed
[15:32:18.390]     if (FALSE) {
[15:32:18.390]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[15:32:18.390]             "...future.value", "...future.globalenv.names", ".Random.seed")
[15:32:18.390]     }
[15:32:18.390]     ...future.result <- base::tryCatch({
[15:32:18.390]         base::withCallingHandlers({
[15:32:18.390]             ...future.value <- base::withVisible(base::local({
[15:32:18.390]                 ...future.makeSendCondition <- base::local({
[15:32:18.390]                   sendCondition <- NULL
[15:32:18.390]                   function(frame = 1L) {
[15:32:18.390]                     if (is.function(sendCondition)) 
[15:32:18.390]                       return(sendCondition)
[15:32:18.390]                     ns <- getNamespace("parallel")
[15:32:18.390]                     if (exists("sendData", mode = "function", 
[15:32:18.390]                       envir = ns)) {
[15:32:18.390]                       parallel_sendData <- get("sendData", mode = "function", 
[15:32:18.390]                         envir = ns)
[15:32:18.390]                       envir <- sys.frame(frame)
[15:32:18.390]                       master <- NULL
[15:32:18.390]                       while (!identical(envir, .GlobalEnv) && 
[15:32:18.390]                         !identical(envir, emptyenv())) {
[15:32:18.390]                         if (exists("master", mode = "list", envir = envir, 
[15:32:18.390]                           inherits = FALSE)) {
[15:32:18.390]                           master <- get("master", mode = "list", 
[15:32:18.390]                             envir = envir, inherits = FALSE)
[15:32:18.390]                           if (inherits(master, c("SOCKnode", 
[15:32:18.390]                             "SOCK0node"))) {
[15:32:18.390]                             sendCondition <<- function(cond) {
[15:32:18.390]                               data <- list(type = "VALUE", value = cond, 
[15:32:18.390]                                 success = TRUE)
[15:32:18.390]                               parallel_sendData(master, data)
[15:32:18.390]                             }
[15:32:18.390]                             return(sendCondition)
[15:32:18.390]                           }
[15:32:18.390]                         }
[15:32:18.390]                         frame <- frame + 1L
[15:32:18.390]                         envir <- sys.frame(frame)
[15:32:18.390]                       }
[15:32:18.390]                     }
[15:32:18.390]                     sendCondition <<- function(cond) NULL
[15:32:18.390]                   }
[15:32:18.390]                 })
[15:32:18.390]                 withCallingHandlers({
[15:32:18.390]                   {
[15:32:18.390]                     do.call(function(...) {
[15:32:18.390]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.390]                       if (!identical(...future.globals.maxSize.org, 
[15:32:18.390]                         ...future.globals.maxSize)) {
[15:32:18.390]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.390]                         on.exit(options(oopts), add = TRUE)
[15:32:18.390]                       }
[15:32:18.390]                       {
[15:32:18.390]                         lapply(seq_along(...future.elements_ii), 
[15:32:18.390]                           FUN = function(jj) {
[15:32:18.390]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.390]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.390]                               envir = globalenv(), inherits = FALSE)
[15:32:18.390]                             ...future.FUN(...future.X_jj, ...)
[15:32:18.390]                           })
[15:32:18.390]                       }
[15:32:18.390]                     }, args = future.call.arguments)
[15:32:18.390]                   }
[15:32:18.390]                 }, immediateCondition = function(cond) {
[15:32:18.390]                   sendCondition <- ...future.makeSendCondition()
[15:32:18.390]                   sendCondition(cond)
[15:32:18.390]                   muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.390]                   {
[15:32:18.390]                     inherits <- base::inherits
[15:32:18.390]                     invokeRestart <- base::invokeRestart
[15:32:18.390]                     is.null <- base::is.null
[15:32:18.390]                     muffled <- FALSE
[15:32:18.390]                     if (inherits(cond, "message")) {
[15:32:18.390]                       muffled <- grepl(pattern, "muffleMessage")
[15:32:18.390]                       if (muffled) 
[15:32:18.390]                         invokeRestart("muffleMessage")
[15:32:18.390]                     }
[15:32:18.390]                     else if (inherits(cond, "warning")) {
[15:32:18.390]                       muffled <- grepl(pattern, "muffleWarning")
[15:32:18.390]                       if (muffled) 
[15:32:18.390]                         invokeRestart("muffleWarning")
[15:32:18.390]                     }
[15:32:18.390]                     else if (inherits(cond, "condition")) {
[15:32:18.390]                       if (!is.null(pattern)) {
[15:32:18.390]                         computeRestarts <- base::computeRestarts
[15:32:18.390]                         grepl <- base::grepl
[15:32:18.390]                         restarts <- computeRestarts(cond)
[15:32:18.390]                         for (restart in restarts) {
[15:32:18.390]                           name <- restart$name
[15:32:18.390]                           if (is.null(name)) 
[15:32:18.390]                             next
[15:32:18.390]                           if (!grepl(pattern, name)) 
[15:32:18.390]                             next
[15:32:18.390]                           invokeRestart(restart)
[15:32:18.390]                           muffled <- TRUE
[15:32:18.390]                           break
[15:32:18.390]                         }
[15:32:18.390]                       }
[15:32:18.390]                     }
[15:32:18.390]                     invisible(muffled)
[15:32:18.390]                   }
[15:32:18.390]                   muffleCondition(cond)
[15:32:18.390]                 })
[15:32:18.390]             }))
[15:32:18.390]             future::FutureResult(value = ...future.value$value, 
[15:32:18.390]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.390]                   ...future.rng), globalenv = if (FALSE) 
[15:32:18.390]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[15:32:18.390]                     ...future.globalenv.names))
[15:32:18.390]                 else NULL, started = ...future.startTime, version = "1.8")
[15:32:18.390]         }, condition = base::local({
[15:32:18.390]             c <- base::c
[15:32:18.390]             inherits <- base::inherits
[15:32:18.390]             invokeRestart <- base::invokeRestart
[15:32:18.390]             length <- base::length
[15:32:18.390]             list <- base::list
[15:32:18.390]             seq.int <- base::seq.int
[15:32:18.390]             signalCondition <- base::signalCondition
[15:32:18.390]             sys.calls <- base::sys.calls
[15:32:18.390]             `[[` <- base::`[[`
[15:32:18.390]             `+` <- base::`+`
[15:32:18.390]             `<<-` <- base::`<<-`
[15:32:18.390]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[15:32:18.390]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[15:32:18.390]                   3L)]
[15:32:18.390]             }
[15:32:18.390]             function(cond) {
[15:32:18.390]                 is_error <- inherits(cond, "error")
[15:32:18.390]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[15:32:18.390]                   NULL)
[15:32:18.390]                 if (is_error) {
[15:32:18.390]                   sessionInformation <- function() {
[15:32:18.390]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[15:32:18.390]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[15:32:18.390]                       search = base::search(), system = base::Sys.info())
[15:32:18.390]                   }
[15:32:18.390]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.390]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[15:32:18.390]                     cond$call), session = sessionInformation(), 
[15:32:18.390]                     timestamp = base::Sys.time(), signaled = 0L)
[15:32:18.390]                   signalCondition(cond)
[15:32:18.390]                 }
[15:32:18.390]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[15:32:18.390]                 "immediateCondition"))) {
[15:32:18.390]                   signal <- TRUE && inherits(cond, "immediateCondition")
[15:32:18.390]                   ...future.conditions[[length(...future.conditions) + 
[15:32:18.390]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[15:32:18.390]                   if (TRUE && !signal) {
[15:32:18.390]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.390]                     {
[15:32:18.390]                       inherits <- base::inherits
[15:32:18.390]                       invokeRestart <- base::invokeRestart
[15:32:18.390]                       is.null <- base::is.null
[15:32:18.390]                       muffled <- FALSE
[15:32:18.390]                       if (inherits(cond, "message")) {
[15:32:18.390]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.390]                         if (muffled) 
[15:32:18.390]                           invokeRestart("muffleMessage")
[15:32:18.390]                       }
[15:32:18.390]                       else if (inherits(cond, "warning")) {
[15:32:18.390]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.390]                         if (muffled) 
[15:32:18.390]                           invokeRestart("muffleWarning")
[15:32:18.390]                       }
[15:32:18.390]                       else if (inherits(cond, "condition")) {
[15:32:18.390]                         if (!is.null(pattern)) {
[15:32:18.390]                           computeRestarts <- base::computeRestarts
[15:32:18.390]                           grepl <- base::grepl
[15:32:18.390]                           restarts <- computeRestarts(cond)
[15:32:18.390]                           for (restart in restarts) {
[15:32:18.390]                             name <- restart$name
[15:32:18.390]                             if (is.null(name)) 
[15:32:18.390]                               next
[15:32:18.390]                             if (!grepl(pattern, name)) 
[15:32:18.390]                               next
[15:32:18.390]                             invokeRestart(restart)
[15:32:18.390]                             muffled <- TRUE
[15:32:18.390]                             break
[15:32:18.390]                           }
[15:32:18.390]                         }
[15:32:18.390]                       }
[15:32:18.390]                       invisible(muffled)
[15:32:18.390]                     }
[15:32:18.390]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.390]                   }
[15:32:18.390]                 }
[15:32:18.390]                 else {
[15:32:18.390]                   if (TRUE) {
[15:32:18.390]                     muffleCondition <- function (cond, pattern = "^muffle") 
[15:32:18.390]                     {
[15:32:18.390]                       inherits <- base::inherits
[15:32:18.390]                       invokeRestart <- base::invokeRestart
[15:32:18.390]                       is.null <- base::is.null
[15:32:18.390]                       muffled <- FALSE
[15:32:18.390]                       if (inherits(cond, "message")) {
[15:32:18.390]                         muffled <- grepl(pattern, "muffleMessage")
[15:32:18.390]                         if (muffled) 
[15:32:18.390]                           invokeRestart("muffleMessage")
[15:32:18.390]                       }
[15:32:18.390]                       else if (inherits(cond, "warning")) {
[15:32:18.390]                         muffled <- grepl(pattern, "muffleWarning")
[15:32:18.390]                         if (muffled) 
[15:32:18.390]                           invokeRestart("muffleWarning")
[15:32:18.390]                       }
[15:32:18.390]                       else if (inherits(cond, "condition")) {
[15:32:18.390]                         if (!is.null(pattern)) {
[15:32:18.390]                           computeRestarts <- base::computeRestarts
[15:32:18.390]                           grepl <- base::grepl
[15:32:18.390]                           restarts <- computeRestarts(cond)
[15:32:18.390]                           for (restart in restarts) {
[15:32:18.390]                             name <- restart$name
[15:32:18.390]                             if (is.null(name)) 
[15:32:18.390]                               next
[15:32:18.390]                             if (!grepl(pattern, name)) 
[15:32:18.390]                               next
[15:32:18.390]                             invokeRestart(restart)
[15:32:18.390]                             muffled <- TRUE
[15:32:18.390]                             break
[15:32:18.390]                           }
[15:32:18.390]                         }
[15:32:18.390]                       }
[15:32:18.390]                       invisible(muffled)
[15:32:18.390]                     }
[15:32:18.390]                     muffleCondition(cond, pattern = "^muffle")
[15:32:18.390]                   }
[15:32:18.390]                 }
[15:32:18.390]             }
[15:32:18.390]         }))
[15:32:18.390]     }, error = function(ex) {
[15:32:18.390]         base::structure(base::list(value = NULL, visible = NULL, 
[15:32:18.390]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[15:32:18.390]                 ...future.rng), started = ...future.startTime, 
[15:32:18.390]             finished = Sys.time(), session_uuid = NA_character_, 
[15:32:18.390]             version = "1.8"), class = "FutureResult")
[15:32:18.390]     }, finally = {
[15:32:18.390]         if (!identical(...future.workdir, getwd())) 
[15:32:18.390]             setwd(...future.workdir)
[15:32:18.390]         {
[15:32:18.390]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[15:32:18.390]                 ...future.oldOptions$nwarnings <- NULL
[15:32:18.390]             }
[15:32:18.390]             base::options(...future.oldOptions)
[15:32:18.390]             if (.Platform$OS.type == "windows") {
[15:32:18.390]                 old_names <- names(...future.oldEnvVars)
[15:32:18.390]                 envs <- base::Sys.getenv()
[15:32:18.390]                 names <- names(envs)
[15:32:18.390]                 common <- intersect(names, old_names)
[15:32:18.390]                 added <- setdiff(names, old_names)
[15:32:18.390]                 removed <- setdiff(old_names, names)
[15:32:18.390]                 changed <- common[...future.oldEnvVars[common] != 
[15:32:18.390]                   envs[common]]
[15:32:18.390]                 NAMES <- toupper(changed)
[15:32:18.390]                 args <- list()
[15:32:18.390]                 for (kk in seq_along(NAMES)) {
[15:32:18.390]                   name <- changed[[kk]]
[15:32:18.390]                   NAME <- NAMES[[kk]]
[15:32:18.390]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.390]                     next
[15:32:18.390]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.390]                 }
[15:32:18.390]                 NAMES <- toupper(added)
[15:32:18.390]                 for (kk in seq_along(NAMES)) {
[15:32:18.390]                   name <- added[[kk]]
[15:32:18.390]                   NAME <- NAMES[[kk]]
[15:32:18.390]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.390]                     next
[15:32:18.390]                   args[[name]] <- ""
[15:32:18.390]                 }
[15:32:18.390]                 NAMES <- toupper(removed)
[15:32:18.390]                 for (kk in seq_along(NAMES)) {
[15:32:18.390]                   name <- removed[[kk]]
[15:32:18.390]                   NAME <- NAMES[[kk]]
[15:32:18.390]                   if (name != NAME && is.element(NAME, old_names)) 
[15:32:18.390]                     next
[15:32:18.390]                   args[[name]] <- ...future.oldEnvVars[[name]]
[15:32:18.390]                 }
[15:32:18.390]                 if (length(args) > 0) 
[15:32:18.390]                   base::do.call(base::Sys.setenv, args = args)
[15:32:18.390]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[15:32:18.390]             }
[15:32:18.390]             else {
[15:32:18.390]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[15:32:18.390]             }
[15:32:18.390]             {
[15:32:18.390]                 if (base::length(...future.futureOptionsAdded) > 
[15:32:18.390]                   0L) {
[15:32:18.390]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[15:32:18.390]                   base::names(opts) <- ...future.futureOptionsAdded
[15:32:18.390]                   base::options(opts)
[15:32:18.390]                 }
[15:32:18.390]                 {
[15:32:18.390]                   {
[15:32:18.390]                     base::options(mc.cores = ...future.mc.cores.old)
[15:32:18.390]                     NULL
[15:32:18.390]                   }
[15:32:18.390]                   options(future.plan = NULL)
[15:32:18.390]                   if (is.na(NA_character_)) 
[15:32:18.390]                     Sys.unsetenv("R_FUTURE_PLAN")
[15:32:18.390]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[15:32:18.390]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[15:32:18.390]                     .init = FALSE)
[15:32:18.390]                 }
[15:32:18.390]             }
[15:32:18.390]         }
[15:32:18.390]     })
[15:32:18.390]     if (TRUE) {
[15:32:18.390]         base::sink(type = "output", split = FALSE)
[15:32:18.390]         if (TRUE) {
[15:32:18.390]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[15:32:18.390]         }
[15:32:18.390]         else {
[15:32:18.390]             ...future.result["stdout"] <- base::list(NULL)
[15:32:18.390]         }
[15:32:18.390]         base::close(...future.stdout)
[15:32:18.390]         ...future.stdout <- NULL
[15:32:18.390]     }
[15:32:18.390]     ...future.result$conditions <- ...future.conditions
[15:32:18.390]     ...future.result$finished <- base::Sys.time()
[15:32:18.390]     ...future.result
[15:32:18.390] }
[15:32:18.398] Exporting 7 global objects (2.15 KiB) to cluster node #1 ...
[15:32:18.399] Exporting '...future.FUN' (504 bytes) to cluster node #1 ...
[15:32:18.399] Exporting '...future.FUN' (504 bytes) to cluster node #1 ... DONE
[15:32:18.400] Exporting 'foo' (1.60 KiB) to cluster node #1 ...
[15:32:18.400] Exporting 'foo' (1.60 KiB) to cluster node #1 ... DONE
[15:32:18.401] Exporting 'x' (56 bytes) to cluster node #1 ...
[15:32:18.401] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
[15:32:18.402] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[15:32:18.403] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[15:32:18.403] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[15:32:18.404] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[15:32:18.404] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[15:32:18.405] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[15:32:18.405] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[15:32:18.406] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[15:32:18.407] Exporting 7 global objects (2.15 KiB) to cluster node #1 ... DONE
[15:32:18.408] MultisessionFuture started
[15:32:18.408] - Launch lazy future ... done
[15:32:18.408] run() for 'MultisessionFuture' ... done
[15:32:18.409] Created future:
[15:32:18.431] receiveMessageFromWorker() for ClusterFuture ...
[15:32:18.432] - Validating connection of MultisessionFuture
[15:32:18.432] - received message: FutureResult
[15:32:18.433] - Received FutureResult
[15:32:18.433] - Erased future from FutureRegistry
[15:32:18.433] result() for ClusterFuture ...
[15:32:18.433] - result already collected: FutureResult
[15:32:18.434] result() for ClusterFuture ... done
[15:32:18.434] receiveMessageFromWorker() for ClusterFuture ... done
[15:32:18.409] MultisessionFuture:
[15:32:18.409] Label: 'future_replicate-2'
[15:32:18.409] Expression:
[15:32:18.409] {
[15:32:18.409]     do.call(function(...) {
[15:32:18.409]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[15:32:18.409]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[15:32:18.409]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[15:32:18.409]             on.exit(options(oopts), add = TRUE)
[15:32:18.409]         }
[15:32:18.409]         {
[15:32:18.409]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[15:32:18.409]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[15:32:18.409]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[15:32:18.409]                   envir = globalenv(), inherits = FALSE)
[15:32:18.409]                 ...future.FUN(...future.X_jj, ...)
[15:32:18.409]             })
[15:32:18.409]         }
[15:32:18.409]     }, args = future.call.arguments)
[15:32:18.409] }
[15:32:18.409] Lazy evaluation: FALSE
[15:32:18.409] Asynchronous evaluation: TRUE
[15:32:18.409] Local evaluation: TRUE
[15:32:18.409] Environment: 0x000002abb447d998
[15:32:18.409] Capture standard output: TRUE
[15:32:18.409] Capture condition classes: 'condition' (excluding 'nothing')
[15:32:18.409] Globals: 7 objects totaling 2.55 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, ...)
[15:32:18.409] Packages: <none>
[15:32:18.409] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[15:32:18.409] Resolved: TRUE
[15:32:18.409] Value: <not collected>
[15:32:18.409] Conditions captured: <none>
[15:32:18.409] Early signaling: FALSE
[15:32:18.409] Owner process: 42073c40-61f9-c699-6277-e9c5e6a61e78
[15:32:18.409] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[15:32:18.435] Chunk #2 of 2 ... DONE
[15:32:18.435] Launching 2 futures (chunks) ... DONE
[15:32:18.436] Resolving 2 futures (chunks) ...
[15:32:18.436] resolve() on list ...
[15:32:18.436]  recursive: 0
[15:32:18.437]  length: 2
[15:32:18.437] 
[15:32:18.437] Future #1
[15:32:18.437] result() for ClusterFuture ...
[15:32:18.438] - result already collected: FutureResult
[15:32:18.438] result() for ClusterFuture ... done
[15:32:18.438] result() for ClusterFuture ...
[15:32:18.439] - result already collected: FutureResult
[15:32:18.439] result() for ClusterFuture ... done
[15:32:18.439] signalConditionsASAP(MultisessionFuture, pos=1) ...
[15:32:18.440] - nx: 2
[15:32:18.440] - relay: TRUE
[15:32:18.440] - stdout: TRUE
[15:32:18.440] - signal: TRUE
[15:32:18.441] - resignal: FALSE
[15:32:18.441] - force: TRUE
[15:32:18.441] - relayed: [n=2] FALSE, FALSE
[15:32:18.441] - queued futures: [n=2] FALSE, FALSE
[15:32:18.442]  - until=1
[15:32:18.442]  - relaying element #1
[15:32:18.442] result() for ClusterFuture ...
[15:32:18.443] - result already collected: FutureResult
[15:32:18.443] result() for ClusterFuture ... done
[15:32:18.443] result() for ClusterFuture ...
[15:32:18.443] - result already collected: FutureResult
[15:32:18.444] result() for ClusterFuture ... done
[15:32:18.444] result() for ClusterFuture ...
[15:32:18.444] - result already collected: FutureResult
[15:32:18.445] result() for ClusterFuture ... done
[15:32:18.445] result() for ClusterFuture ...
[15:32:18.445] - result already collected: FutureResult
[15:32:18.446] result() for ClusterFuture ... done
[15:32:18.446] - relayed: [n=2] TRUE, FALSE
[15:32:18.446] - queued futures: [n=2] TRUE, FALSE
[15:32:18.446] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[15:32:18.447]  length: 1 (resolved future 1)
[15:32:18.447] Future #2
[15:32:18.447] result() for ClusterFuture ...
[15:32:18.448] - result already collected: FutureResult
[15:32:18.448] result() for ClusterFuture ... done
[15:32:18.448] result() for ClusterFuture ...
[15:32:18.448] - result already collected: FutureResult
[15:32:18.449] result() for ClusterFuture ... done
[15:32:18.449] signalConditionsASAP(MultisessionFuture, pos=2) ...
[15:32:18.449] - nx: 2
[15:32:18.450] - relay: TRUE
[15:32:18.450] - stdout: TRUE
[15:32:18.450] - signal: TRUE
[15:32:18.450] - resignal: FALSE
[15:32:18.451] - force: TRUE
[15:32:18.451] - relayed: [n=2] TRUE, FALSE
[15:32:18.451] - queued futures: [n=2] TRUE, FALSE
[15:32:18.451]  - until=2
[15:32:18.452]  - relaying element #2
[15:32:18.452] result() for ClusterFuture ...
[15:32:18.452] - result already collected: FutureResult
[15:32:18.453] result() for ClusterFuture ... done
[15:32:18.453] result() for ClusterFuture ...
[15:32:18.453] - result already collected: FutureResult
[15:32:18.453] result() for ClusterFuture ... done
[15:32:18.454] result() for ClusterFuture ...
[15:32:18.454] - result already collected: FutureResult
[15:32:18.454] result() for ClusterFuture ... done
[15:32:18.455] result() for ClusterFuture ...
[15:32:18.455] - result already collected: FutureResult
[15:32:18.455] result() for ClusterFuture ... done
[15:32:18.455] - relayed: [n=2] TRUE, TRUE
[15:32:18.456] - queued futures: [n=2] TRUE, TRUE
[15:32:18.456] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[15:32:18.456]  length: 0 (resolved future 2)
[15:32:18.457] Relaying remaining futures
[15:32:18.457] signalConditionsASAP(NULL, pos=0) ...
[15:32:18.457] - nx: 2
[15:32:18.457] - relay: TRUE
[15:32:18.457] - stdout: TRUE
[15:32:18.458] - signal: TRUE
[15:32:18.458] - resignal: FALSE
[15:32:18.458] - force: TRUE
[15:32:18.458] - relayed: [n=2] TRUE, TRUE
[15:32:18.459] - queued futures: [n=2] TRUE, TRUE
 - flush all
[15:32:18.459] - relayed: [n=2] TRUE, TRUE
[15:32:18.459] - queued futures: [n=2] TRUE, TRUE
[15:32:18.460] signalConditionsASAP(NULL, pos=0) ... done
[15:32:18.460] resolve() on list ... DONE
[15:32:18.460] result() for ClusterFuture ...
[15:32:18.460] - result already collected: FutureResult
[15:32:18.461] result() for ClusterFuture ... done
[15:32:18.461] result() for ClusterFuture ...
[15:32:18.461] - result already collected: FutureResult
[15:32:18.461] result() for ClusterFuture ... done
[15:32:18.462] result() for ClusterFuture ...
[15:32:18.462] - result already collected: FutureResult
[15:32:18.462] result() for ClusterFuture ... done
[15:32:18.463] result() for ClusterFuture ...
[15:32:18.463] - result already collected: FutureResult
[15:32:18.463] result() for ClusterFuture ... done
[15:32:18.463]  - Number of value chunks collected: 2
[15:32:18.464] Resolving 2 futures (chunks) ... DONE
[15:32:18.464] Reducing values from 2 chunks ...
[15:32:18.464]  - Number of values collected after concatenation: 5
[15:32:18.464]  - Number of values expected: 5
[15:32:18.465] Reducing values from 2 chunks ... DONE
[15:32:18.465] future_lapply() ... DONE
[15:32:18.466] plan(): Setting new future strategy stack:
[15:32:18.466] List of future strategies:
[15:32:18.466] 1. sequential:
[15:32:18.466]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:18.466]    - tweaked: FALSE
[15:32:18.466]    - call: plan(sequential)
[15:32:18.468] plan(): nbrOfWorkers() = 1
*** strategy = 'multisession' ... done
> 
> message("*** future_replicate() ... DONE")
*** future_replicate() ... DONE
> 
> source("incl/end.R")
[15:32:18.469] plan(): Setting new future strategy stack:
[15:32:18.469] List of future strategies:
[15:32:18.469] 1. FutureStrategy:
[15:32:18.469]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[15:32:18.469]    - tweaked: FALSE
[15:32:18.469]    - call: future::plan(oplan)
[15:32:18.470] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   2.04    0.15    3.51