R Under development (unstable) (2024-10-26 r87273 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> source("incl/start.R")
Loading required package: future
[18:41:37.587] plan(): Setting new future strategy stack:
[18:41:37.588] List of future strategies:
[18:41:37.588] 1. sequential:
[18:41:37.588]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.588]    - tweaked: FALSE
[18:41:37.588]    - call: future::plan("sequential")
[18:41:37.601] 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' ...
[18:41:37.632] plan(): Setting new future strategy stack:
[18:41:37.632] List of future strategies:
[18:41:37.632] 1. sequential:
[18:41:37.632]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.632]    - tweaked: FALSE
[18:41:37.632]    - call: plan(strategy)
[18:41:37.648] plan(): nbrOfWorkers() = 1
[18:41:37.649] future_lapply() ...
[18:41:37.654] Generating random seeds ...
[18:41:37.654] Generating random seed streams for 5 elements ...
[18:41:37.655] Generating random seed streams for 5 elements ... DONE
[18:41:37.655] Generating random seeds ... DONE
[18:41:37.655] Will set RNG state on exit: 10403, 12, -881841645, 700105649, 1272573536, 1190403070, -1877138551, -827079493, -1389682550, 988980076, -1223694097, -153754843, 1348120028, 735656882, 11117229, 663231079, 1451305358, 2005106280, -1821341077, 1044440073, 93567640, -725320250, -1591845599, 994004403, 1006618914, -412687596, 458849175, 1567613837, -160784732, 1731432586, -416098571, 1478715727, -820296106, 176717056, 1701152835, 1672752097, 1530901328, 1014834606, -140891303, -1922121365, 490268890, -1093844580, 1732210079, 1321320437, 562949772, 752372578, -1660001475, -369421385, -314877858, 2039059864, -310779653, 619830425, 761150760, -1633874986, -829845423, 1956487939, 1278939794, 849485860, -244576537, 1709466429, -1126507596, -1819555814, 1926036325, -509106689, 680945798, -1844112368, -700528973, -117115567, 1739844864, 348583902, 1931654185, 1626477531, -177043222, -1436989812, 1774565839, -787141243, 1045419580, -1816249582, -1843357683, 1795304263, 1847214382, -920377208, -1276039797, -1862593175, 256390968, -317539866, -1793688191, -562155245, 1471188674, 1332783476, 262459767, -5225875, -1791079164, -662575062, -1534417515, -741422545, -1039558858, 1087539040, 1005063587, -431495487, 1757765296, 145643982, -951980743, -1200144053, 2055422714, 2146620412, -1976347585, -240063211, 98555436, -1492600062, 680847325, 2025345751, 170094014, -210515976, 339231707, -769409479, -1929672824, -1560340682, 1426834801, -487555165, 820831986, 35507780, -1656516345, -1287952163, 301170132, -2143350534, -1063655355, 1392619679, 582433318, -562205008, -744680621, -1294287247, -690764896, 345031486, -98342327, -217465093, -1826267446, 1108475948, -1653000145, 1917602021, 631562652, -1965609998, -1942210963, 902661031, -1407443506, 619174696, 380268843, 1868344137, -2027622312, -1933023994, 900428001, -270497677, 795256034, -1631562668, -866723497, -1436354227, -742400796, -1675525942, -1176064715, -299826289, -1308018538, -725178304, -14544637, -591348447, 1900506640, 1603780078, 957493657, 71335467, 763741978, 2109144540, 1577083871, 1969750965, 134634828, -80438366, 1008177917, 649120759, 346985758, -1777117224, -1793898181, 1490468569, -1200336280, 587035542, 97883921, -197644093, 2074955986, -1114024604, -1672394585, -1823851011, 88555508, 916859098, -454219227, 1542481727, -1998863162, 719550800, -125367949, 2116187025, 2090419648, 543080350, -1763892887, 1845498267, 1874822314, -1136581940, -1840764017, 914165701, -1242287236, -1912443950, 1903840077, 2072336903, 1585285614, -176347960, 1084681163, -239436247, -770722696, 1545138598, -1576381503, 472678483, -977410302, -642018764, 191743927, 418330541, -82910012, -1416107798, -1100288171, 2004672751, -2075777290, 153137696, -1367615517, 2056461441, 695327472, 646381968, 1867864098, -2037885688, 1516906636, 1873309468, -1500605294, 1383585152, 1143988244, 2031306536, -384022982, -542584368, 1539930476, -1964391500, 305498642, -1239545888, 128575948, 420149472, 1465420834, -761556184, -2089715188, 221287228, 943370226, -1199373584, -202024380, -1235894696, 1274804026, 20631536, 622830268, 270308628, 988421314, 1573633120, 140715388, -1642258480, 246346018, -732490072, 1565939596, 1479181500, -2026915022, -942791104, -474520396, -1913842616, 1706120634, -685377008, 484850924, 1101209940, -870960366, 1040412064, 490166988, 416684640, 804368322, -1127976152, -853804628, 2019261756, 852245362, -642355920, 1351362340, 340927800, 1031653082, 1133510544, -570991876, -1411834988, -2061650878, -1673718528, -119052228, 1066523984, -1674165086, -1339061432, 1181482764, -1392591140, 1594208082, 638047872, -789211052, -1839569944, -1615664390, -1346611888, -1245561044, 720151412, 2049172370, -821603744, -283641972, 840521568, -1333787678, -1895720024, -1896772404, 2010151420, -970238030, -142449168, 1764001220, -1292838568, -215708294, 1022623152, -1749834820, 2033266772, -1833234494, 927506464, 2051207356, -1857906096, -633026590, -375472536, 1298181708, 1049006332, -660908046, -1822071552, 1544790900, 1308483592, -2046111302, -852419120, -1543744532, -1585656940, 819977170, -691460256, -2079981236, -433344224, -1149767806, 1737869032, -359999252, -1648560580, -1855114382, -1219856784, 191882276, 45739832, -2132084582, -1148129584, -2126099268, 766847636, 503915138, -891621184, -238279364, 2010003600, -696084958, 1932325384, 833486092, 256803484, -1180486126, 1984010624, 512875028, 630398504, 146276666, -611177520, -1727918484, 251831092, 1460134546, 824190304, 899112268, -1141869600, 1678020514, 1783381928, -635263092, -1530197316, -145374350, -23918352, -1221307324, 1764406616, -537325510, 144479088, -1537457092, 1145252628, -815827518, 1603415264, -1434034308, 1006282448, -1438811486, -611142616, 1848926476, -1890853956, 1694461234, -1264654400, 1672930868, -463342648, 1741286586, -1026433136, -1971576340, -2044853164, 1541839506, -603952352, -1258075700, 1335419872, 176434882, 1291134504, 403930796, -2007257412, -1173270030, -253316816, -505612124, 503782072, -864688294, -1028907632, 1808641404, 2003626260, 1158878530, 1789096704, 2059928508, 1131729744, 1285393698, -940508856, 1643146252, 1117406300, 582329554, -1438067712, -343730348, 1402288616, 1769087994, 1012409040, -545665748, -972069644, 9569170, -1650363296, -465721076, -66706720, -1045041822, 1362740904, 708009548, 869671804, 2091454258, 1042934384, -211246780, -364275752, 2095469690, 460032560, -990284100, 278361940, 1547658818, 1155020704, 1283220668, 799711696, 117035362, -341372952, 1686971346, -1103028185, -1198376335, -1053822794, 1084115028, 170014949, 1962923247, -1722968024, 1200270470, 1844668083, -1699633131, -660911502, -66840896, -293344471, -1975178853, -1166397844, 960844410, -664841297, -254916935, 1784457422, 1530397212, -2073507443, -1513650185, 89852672, -1243172514, -807464405, 865107245, -860593766, 601726808, -1434077503, 50432371, -1327832428, -1417881822, -388861385, -30517503, -1454977530, 1743615044, 1970767221, -1835644705, 2125626424, -1792893930, -859628509, -1655878683, -583369214, 1688261744, 1507631641, 1258425355, -511439108, 1070851882, -1140094625, -1864220439, 1793751038, 738900972, -1734324419, -745843961, -991032592, 288813710, -333476677, 1688930461, 1959629898, -1935864216, 545940049, -694738621, 47814724, 200284914, 875356871, -1116626799, -1222676970, -165860236, -279189755, 466330959, 462690120, -2079187226, 1170833427, -273852555, 1075124050, 142757792, -2105197943, -1295417669, 354635020, 2145644698, 1035109903, -1820118439, 1993174766, 634039676, 803556845, -1480725865, -54975136, -950066882, 264317451, 1011723917, 459592634, 1491126776, 869078433, 564030291, -1635614092, -1124826110, 1006503575, -1043623839, -1711453018, 963878052, 480296277, -1957333505, -1522361192, 1322068406, 218911299, -1406175355, 31626274, -848922864, -2136423751, -1237010581, 213472860, -1997399158, 517804927, 1885535945, 1165031262, -327988212, 563678173, -1914892569, -949653744, 1769578030, 1712121051, -971888195, 889833258, 920887240, -2046724879, -893318557, 335572580, 1371862418, 1604018791, 835107377, -337971338, 1260838036, 1388982949, 881778607, -886834072, 1680306246, -1539918349, -1257324203, 1981756210, 2079442688, -381766679, 1009495643, -15429460, -1027639622, -1846877073, 1665393145, 1836725390, -283673252, 1205808589, -1006374601, 313719744, 2112418974, 945428843, 1776468205, 1833965914, 100491800, 242605953, 1993862451, 705168212, 1139897698, 2111784439, -247738815, -2006218042, -857580540, -1347822667, -177671009, -1630142216, -1382115114, -612808340
[18:41:37.656] Number of chunks: 1
[18:41:37.656] getGlobalsAndPackagesXApply() ...
[18:41:37.657]  - future.globals: TRUE
[18:41:37.657] getGlobalsAndPackages() ...
[18:41:37.658] Searching for globals...
[18:41:37.660] - globals found: [2] 'FUN', 'sample'
[18:41:37.661] Searching for globals ... DONE
[18:41:37.661] Resolving globals: FALSE
[18:41:37.662] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:37.663] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:37.663] - globals: [1] 'FUN'
[18:41:37.664] 
[18:41:37.664] getGlobalsAndPackages() ... DONE
[18:41:37.664]  - globals found/used: [n=1] 'FUN'
[18:41:37.664]  - needed namespaces: [n=0] 
[18:41:37.664] Finding globals ... DONE
[18:41:37.665]  - use_args: TRUE
[18:41:37.665]  - Getting '...' globals ...
[18:41:37.666] resolve() on list ...
[18:41:37.666]  recursive: 0
[18:41:37.666]  length: 1
[18:41:37.667]  elements: '...'
[18:41:37.667]  length: 0 (resolved future 1)
[18:41:37.667] resolve() on list ... DONE
[18:41:37.667]    - '...' content: [n=0] 
[18:41:37.668] List of 1
[18:41:37.668]  $ ...: list()
[18:41:37.668]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.668]  - attr(*, "where")=List of 1
[18:41:37.668]   ..$ ...:<environment: 0x0000028bfa70c5e0> 
[18:41:37.668]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.668]  - attr(*, "resolved")= logi TRUE
[18:41:37.668]  - attr(*, "total_size")= num NA
[18:41:37.674]  - Getting '...' globals ... DONE
[18:41:37.674] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:37.674] List of 2
[18:41:37.674]  $ ...future.FUN:function (...)  
[18:41:37.674]  $ ...          : list()
[18:41:37.674]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.674]  - attr(*, "where")=List of 2
[18:41:37.674]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.674]   ..$ ...          :<environment: 0x0000028bfa70c5e0> 
[18:41:37.674]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.674]  - attr(*, "resolved")= logi FALSE
[18:41:37.674]  - attr(*, "total_size")= int 7184
[18:41:37.678] Packages to be attached in all futures: [n=0] 
[18:41:37.679] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.679] Number of futures (= number of chunks): 1
[18:41:37.679] Launching 1 futures (chunks) ...
[18:41:37.680] Chunk #1 of 1 ...
[18:41:37.680]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.680] getGlobalsAndPackages() ...
[18:41:37.680] Searching for globals...
[18:41:37.683] 
[18:41:37.683] Searching for globals ... DONE
[18:41:37.683] - globals: [0] <none>
[18:41:37.683] getGlobalsAndPackages() ... DONE
[18:41:37.684]    + additional globals found: [n=0] 
[18:41:37.684]    + additional namespaces needed: [n=0] 
[18:41:37.684]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.684]  - seeds: [5] <seeds>
[18:41:37.684]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.685] getGlobalsAndPackages() ...
[18:41:37.685] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.685] Resolving globals: FALSE
[18:41:37.685] Tweak future expression to call with '...' arguments ...
[18:41:37.686] {
[18:41:37.686]     do.call(function(...) {
[18:41:37.686]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.686]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.686]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.686]             on.exit(options(oopts), add = TRUE)
[18:41:37.686]         }
[18:41:37.686]         {
[18:41:37.686]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.686]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.686]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.686]                   envir = globalenv(), inherits = FALSE)
[18:41:37.686]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.686]             })
[18:41:37.686]         }
[18:41:37.686]     }, args = future.call.arguments)
[18:41:37.686] }
[18:41:37.686] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.687] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.687] 
[18:41:37.687] getGlobalsAndPackages() ... DONE
[18:41:37.688] run() for 'Future' ...
[18:41:37.688] - state: 'created'
[18:41:37.689] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.689] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.689] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.689]   - Field: 'label'
[18:41:37.690]   - Field: 'local'
[18:41:37.690]   - Field: 'owner'
[18:41:37.690]   - Field: 'envir'
[18:41:37.690]   - Field: 'packages'
[18:41:37.691]   - Field: 'gc'
[18:41:37.691]   - Field: 'conditions'
[18:41:37.691]   - Field: 'expr'
[18:41:37.691]   - Field: 'uuid'
[18:41:37.691]   - Field: 'seed'
[18:41:37.691]   - Field: 'version'
[18:41:37.692]   - Field: 'result'
[18:41:37.692]   - Field: 'asynchronous'
[18:41:37.692]   - Field: 'calls'
[18:41:37.692]   - Field: 'globals'
[18:41:37.692]   - Field: 'stdout'
[18:41:37.693]   - Field: 'earlySignal'
[18:41:37.693]   - Field: 'lazy'
[18:41:37.693]   - Field: 'state'
[18:41:37.693] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:37.693] - Launch lazy future ...
[18:41:37.694] Packages needed by the future expression (n = 0): <none>
[18:41:37.694] Packages needed by future strategies (n = 0): <none>
[18:41:37.695] {
[18:41:37.695]     {
[18:41:37.695]         {
[18:41:37.695]             ...future.startTime <- base::Sys.time()
[18:41:37.695]             {
[18:41:37.695]                 {
[18:41:37.695]                   {
[18:41:37.695]                     base::local({
[18:41:37.695]                       has_future <- base::requireNamespace("future", 
[18:41:37.695]                         quietly = TRUE)
[18:41:37.695]                       if (has_future) {
[18:41:37.695]                         ns <- base::getNamespace("future")
[18:41:37.695]                         version <- ns[[".package"]][["version"]]
[18:41:37.695]                         if (is.null(version)) 
[18:41:37.695]                           version <- utils::packageVersion("future")
[18:41:37.695]                       }
[18:41:37.695]                       else {
[18:41:37.695]                         version <- NULL
[18:41:37.695]                       }
[18:41:37.695]                       if (!has_future || version < "1.8.0") {
[18:41:37.695]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.695]                           "", base::R.version$version.string), 
[18:41:37.695]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:37.695]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.695]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.695]                             "release", "version")], collapse = " "), 
[18:41:37.695]                           hostname = base::Sys.info()[["nodename"]])
[18:41:37.695]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.695]                           info)
[18:41:37.695]                         info <- base::paste(info, collapse = "; ")
[18:41:37.695]                         if (!has_future) {
[18:41:37.695]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.695]                             info)
[18:41:37.695]                         }
[18:41:37.695]                         else {
[18:41:37.695]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.695]                             info, version)
[18:41:37.695]                         }
[18:41:37.695]                         base::stop(msg)
[18:41:37.695]                       }
[18:41:37.695]                     })
[18:41:37.695]                   }
[18:41:37.695]                   ...future.strategy.old <- future::plan("list")
[18:41:37.695]                   options(future.plan = NULL)
[18:41:37.695]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.695]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.695]                 }
[18:41:37.695]                 ...future.workdir <- getwd()
[18:41:37.695]             }
[18:41:37.695]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.695]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.695]         }
[18:41:37.695]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.695]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:37.695]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.695]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.695]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.695]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.695]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.695]             base::names(...future.oldOptions))
[18:41:37.695]     }
[18:41:37.695]     if (FALSE) {
[18:41:37.695]     }
[18:41:37.695]     else {
[18:41:37.695]         if (TRUE) {
[18:41:37.695]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.695]                 open = "w")
[18:41:37.695]         }
[18:41:37.695]         else {
[18:41:37.695]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.695]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.695]         }
[18:41:37.695]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.695]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.695]             base::sink(type = "output", split = FALSE)
[18:41:37.695]             base::close(...future.stdout)
[18:41:37.695]         }, add = TRUE)
[18:41:37.695]     }
[18:41:37.695]     ...future.frame <- base::sys.nframe()
[18:41:37.695]     ...future.conditions <- base::list()
[18:41:37.695]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.695]     if (FALSE) {
[18:41:37.695]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.695]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.695]     }
[18:41:37.695]     ...future.result <- base::tryCatch({
[18:41:37.695]         base::withCallingHandlers({
[18:41:37.695]             ...future.value <- base::withVisible(base::local({
[18:41:37.695]                 do.call(function(...) {
[18:41:37.695]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.695]                   if (!identical(...future.globals.maxSize.org, 
[18:41:37.695]                     ...future.globals.maxSize)) {
[18:41:37.695]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.695]                     on.exit(options(oopts), add = TRUE)
[18:41:37.695]                   }
[18:41:37.695]                   {
[18:41:37.695]                     lapply(seq_along(...future.elements_ii), 
[18:41:37.695]                       FUN = function(jj) {
[18:41:37.695]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.695]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.695]                           envir = globalenv(), inherits = FALSE)
[18:41:37.695]                         ...future.FUN(...future.X_jj, ...)
[18:41:37.695]                       })
[18:41:37.695]                   }
[18:41:37.695]                 }, args = future.call.arguments)
[18:41:37.695]             }))
[18:41:37.695]             future::FutureResult(value = ...future.value$value, 
[18:41:37.695]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.695]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.695]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.695]                     ...future.globalenv.names))
[18:41:37.695]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.695]         }, condition = base::local({
[18:41:37.695]             c <- base::c
[18:41:37.695]             inherits <- base::inherits
[18:41:37.695]             invokeRestart <- base::invokeRestart
[18:41:37.695]             length <- base::length
[18:41:37.695]             list <- base::list
[18:41:37.695]             seq.int <- base::seq.int
[18:41:37.695]             signalCondition <- base::signalCondition
[18:41:37.695]             sys.calls <- base::sys.calls
[18:41:37.695]             `[[` <- base::`[[`
[18:41:37.695]             `+` <- base::`+`
[18:41:37.695]             `<<-` <- base::`<<-`
[18:41:37.695]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.695]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.695]                   3L)]
[18:41:37.695]             }
[18:41:37.695]             function(cond) {
[18:41:37.695]                 is_error <- inherits(cond, "error")
[18:41:37.695]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.695]                   NULL)
[18:41:37.695]                 if (is_error) {
[18:41:37.695]                   sessionInformation <- function() {
[18:41:37.695]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.695]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.695]                       search = base::search(), system = base::Sys.info())
[18:41:37.695]                   }
[18:41:37.695]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.695]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.695]                     cond$call), session = sessionInformation(), 
[18:41:37.695]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.695]                   signalCondition(cond)
[18:41:37.695]                 }
[18:41:37.695]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.695]                 "immediateCondition"))) {
[18:41:37.695]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.695]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.695]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.695]                   if (TRUE && !signal) {
[18:41:37.695]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.695]                     {
[18:41:37.695]                       inherits <- base::inherits
[18:41:37.695]                       invokeRestart <- base::invokeRestart
[18:41:37.695]                       is.null <- base::is.null
[18:41:37.695]                       muffled <- FALSE
[18:41:37.695]                       if (inherits(cond, "message")) {
[18:41:37.695]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.695]                         if (muffled) 
[18:41:37.695]                           invokeRestart("muffleMessage")
[18:41:37.695]                       }
[18:41:37.695]                       else if (inherits(cond, "warning")) {
[18:41:37.695]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.695]                         if (muffled) 
[18:41:37.695]                           invokeRestart("muffleWarning")
[18:41:37.695]                       }
[18:41:37.695]                       else if (inherits(cond, "condition")) {
[18:41:37.695]                         if (!is.null(pattern)) {
[18:41:37.695]                           computeRestarts <- base::computeRestarts
[18:41:37.695]                           grepl <- base::grepl
[18:41:37.695]                           restarts <- computeRestarts(cond)
[18:41:37.695]                           for (restart in restarts) {
[18:41:37.695]                             name <- restart$name
[18:41:37.695]                             if (is.null(name)) 
[18:41:37.695]                               next
[18:41:37.695]                             if (!grepl(pattern, name)) 
[18:41:37.695]                               next
[18:41:37.695]                             invokeRestart(restart)
[18:41:37.695]                             muffled <- TRUE
[18:41:37.695]                             break
[18:41:37.695]                           }
[18:41:37.695]                         }
[18:41:37.695]                       }
[18:41:37.695]                       invisible(muffled)
[18:41:37.695]                     }
[18:41:37.695]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.695]                   }
[18:41:37.695]                 }
[18:41:37.695]                 else {
[18:41:37.695]                   if (TRUE) {
[18:41:37.695]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.695]                     {
[18:41:37.695]                       inherits <- base::inherits
[18:41:37.695]                       invokeRestart <- base::invokeRestart
[18:41:37.695]                       is.null <- base::is.null
[18:41:37.695]                       muffled <- FALSE
[18:41:37.695]                       if (inherits(cond, "message")) {
[18:41:37.695]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.695]                         if (muffled) 
[18:41:37.695]                           invokeRestart("muffleMessage")
[18:41:37.695]                       }
[18:41:37.695]                       else if (inherits(cond, "warning")) {
[18:41:37.695]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.695]                         if (muffled) 
[18:41:37.695]                           invokeRestart("muffleWarning")
[18:41:37.695]                       }
[18:41:37.695]                       else if (inherits(cond, "condition")) {
[18:41:37.695]                         if (!is.null(pattern)) {
[18:41:37.695]                           computeRestarts <- base::computeRestarts
[18:41:37.695]                           grepl <- base::grepl
[18:41:37.695]                           restarts <- computeRestarts(cond)
[18:41:37.695]                           for (restart in restarts) {
[18:41:37.695]                             name <- restart$name
[18:41:37.695]                             if (is.null(name)) 
[18:41:37.695]                               next
[18:41:37.695]                             if (!grepl(pattern, name)) 
[18:41:37.695]                               next
[18:41:37.695]                             invokeRestart(restart)
[18:41:37.695]                             muffled <- TRUE
[18:41:37.695]                             break
[18:41:37.695]                           }
[18:41:37.695]                         }
[18:41:37.695]                       }
[18:41:37.695]                       invisible(muffled)
[18:41:37.695]                     }
[18:41:37.695]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.695]                   }
[18:41:37.695]                 }
[18:41:37.695]             }
[18:41:37.695]         }))
[18:41:37.695]     }, error = function(ex) {
[18:41:37.695]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.695]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.695]                 ...future.rng), started = ...future.startTime, 
[18:41:37.695]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.695]             version = "1.8"), class = "FutureResult")
[18:41:37.695]     }, finally = {
[18:41:37.695]         if (!identical(...future.workdir, getwd())) 
[18:41:37.695]             setwd(...future.workdir)
[18:41:37.695]         {
[18:41:37.695]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.695]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.695]             }
[18:41:37.695]             base::options(...future.oldOptions)
[18:41:37.695]             if (.Platform$OS.type == "windows") {
[18:41:37.695]                 old_names <- names(...future.oldEnvVars)
[18:41:37.695]                 envs <- base::Sys.getenv()
[18:41:37.695]                 names <- names(envs)
[18:41:37.695]                 common <- intersect(names, old_names)
[18:41:37.695]                 added <- setdiff(names, old_names)
[18:41:37.695]                 removed <- setdiff(old_names, names)
[18:41:37.695]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.695]                   envs[common]]
[18:41:37.695]                 NAMES <- toupper(changed)
[18:41:37.695]                 args <- list()
[18:41:37.695]                 for (kk in seq_along(NAMES)) {
[18:41:37.695]                   name <- changed[[kk]]
[18:41:37.695]                   NAME <- NAMES[[kk]]
[18:41:37.695]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.695]                     next
[18:41:37.695]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.695]                 }
[18:41:37.695]                 NAMES <- toupper(added)
[18:41:37.695]                 for (kk in seq_along(NAMES)) {
[18:41:37.695]                   name <- added[[kk]]
[18:41:37.695]                   NAME <- NAMES[[kk]]
[18:41:37.695]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.695]                     next
[18:41:37.695]                   args[[name]] <- ""
[18:41:37.695]                 }
[18:41:37.695]                 NAMES <- toupper(removed)
[18:41:37.695]                 for (kk in seq_along(NAMES)) {
[18:41:37.695]                   name <- removed[[kk]]
[18:41:37.695]                   NAME <- NAMES[[kk]]
[18:41:37.695]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.695]                     next
[18:41:37.695]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.695]                 }
[18:41:37.695]                 if (length(args) > 0) 
[18:41:37.695]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.695]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.695]             }
[18:41:37.695]             else {
[18:41:37.695]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.695]             }
[18:41:37.695]             {
[18:41:37.695]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.695]                   0L) {
[18:41:37.695]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.695]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.695]                   base::options(opts)
[18:41:37.695]                 }
[18:41:37.695]                 {
[18:41:37.695]                   {
[18:41:37.695]                     base::assign(".Random.seed", c(10403L, 12L, 
[18:41:37.695]                     -881841645L, 700105649L, 1272573536L, 1190403070L, 
[18:41:37.695]                     -1877138551L, -827079493L, -1389682550L, 
[18:41:37.695]                     988980076L, -1223694097L, -153754843L, 1348120028L, 
[18:41:37.695]                     735656882L, 11117229L, 663231079L, 1451305358L, 
[18:41:37.695]                     2005106280L, -1821341077L, 1044440073L, 93567640L, 
[18:41:37.695]                     -725320250L, -1591845599L, 994004403L, 1006618914L, 
[18:41:37.695]                     -412687596L, 458849175L, 1567613837L, -160784732L, 
[18:41:37.695]                     1731432586L, -416098571L, 1478715727L, -820296106L, 
[18:41:37.695]                     176717056L, 1701152835L, 1672752097L, 1530901328L, 
[18:41:37.695]                     1014834606L, -140891303L, -1922121365L, 490268890L, 
[18:41:37.695]                     -1093844580L, 1732210079L, 1321320437L, 562949772L, 
[18:41:37.695]                     752372578L, -1660001475L, -369421385L, -314877858L, 
[18:41:37.695]                     2039059864L, -310779653L, 619830425L, 761150760L, 
[18:41:37.695]                     -1633874986L, -829845423L, 1956487939L, 1278939794L, 
[18:41:37.695]                     849485860L, -244576537L, 1709466429L, -1126507596L, 
[18:41:37.695]                     -1819555814L, 1926036325L, -509106689L, 680945798L, 
[18:41:37.695]                     -1844112368L, -700528973L, -117115567L, 1739844864L, 
[18:41:37.695]                     348583902L, 1931654185L, 1626477531L, -177043222L, 
[18:41:37.695]                     -1436989812L, 1774565839L, -787141243L, 1045419580L, 
[18:41:37.695]                     -1816249582L, -1843357683L, 1795304263L, 
[18:41:37.695]                     1847214382L, -920377208L, -1276039797L, -1862593175L, 
[18:41:37.695]                     256390968L, -317539866L, -1793688191L, -562155245L, 
[18:41:37.695]                     1471188674L, 1332783476L, 262459767L, -5225875L, 
[18:41:37.695]                     -1791079164L, -662575062L, -1534417515L, 
[18:41:37.695]                     -741422545L, -1039558858L, 1087539040L, 1005063587L, 
[18:41:37.695]                     -431495487L, 1757765296L, 145643982L, -951980743L, 
[18:41:37.695]                     -1200144053L, 2055422714L, 2146620412L, -1976347585L, 
[18:41:37.695]                     -240063211L, 98555436L, -1492600062L, 680847325L, 
[18:41:37.695]                     2025345751L, 170094014L, -210515976L, 339231707L, 
[18:41:37.695]                     -769409479L, -1929672824L, -1560340682L, 
[18:41:37.695]                     1426834801L, -487555165L, 820831986L, 35507780L, 
[18:41:37.695]                     -1656516345L, -1287952163L, 301170132L, -2143350534L, 
[18:41:37.695]                     -1063655355L, 1392619679L, 582433318L, -562205008L, 
[18:41:37.695]                     -744680621L, -1294287247L, -690764896L, 345031486L, 
[18:41:37.695]                     -98342327L, -217465093L, -1826267446L, 1108475948L, 
[18:41:37.695]                     -1653000145L, 1917602021L, 631562652L, -1965609998L, 
[18:41:37.695]                     -1942210963L, 902661031L, -1407443506L, 619174696L, 
[18:41:37.695]                     380268843L, 1868344137L, -2027622312L, -1933023994L, 
[18:41:37.695]                     900428001L, -270497677L, 795256034L, -1631562668L, 
[18:41:37.695]                     -866723497L, -1436354227L, -742400796L, -1675525942L, 
[18:41:37.695]                     -1176064715L, -299826289L, -1308018538L, 
[18:41:37.695]                     -725178304L, -14544637L, -591348447L, 1900506640L, 
[18:41:37.695]                     1603780078L, 957493657L, 71335467L, 763741978L, 
[18:41:37.695]                     2109144540L, 1577083871L, 1969750965L, 134634828L, 
[18:41:37.695]                     -80438366L, 1008177917L, 649120759L, 346985758L, 
[18:41:37.695]                     -1777117224L, -1793898181L, 1490468569L, 
[18:41:37.695]                     -1200336280L, 587035542L, 97883921L, -197644093L, 
[18:41:37.695]                     2074955986L, -1114024604L, -1672394585L, 
[18:41:37.695]                     -1823851011L, 88555508L, 916859098L, -454219227L, 
[18:41:37.695]                     1542481727L, -1998863162L, 719550800L, -125367949L, 
[18:41:37.695]                     2116187025L, 2090419648L, 543080350L, -1763892887L, 
[18:41:37.695]                     1845498267L, 1874822314L, -1136581940L, -1840764017L, 
[18:41:37.695]                     914165701L, -1242287236L, -1912443950L, 1903840077L, 
[18:41:37.695]                     2072336903L, 1585285614L, -176347960L, 1084681163L, 
[18:41:37.695]                     -239436247L, -770722696L, 1545138598L, -1576381503L, 
[18:41:37.695]                     472678483L, -977410302L, -642018764L, 191743927L, 
[18:41:37.695]                     418330541L, -82910012L, -1416107798L, -1100288171L, 
[18:41:37.695]                     2004672751L, -2075777290L, 153137696L, -1367615517L, 
[18:41:37.695]                     2056461441L, 695327472L, 646381968L, 1867864098L, 
[18:41:37.695]                     -2037885688L, 1516906636L, 1873309468L, -1500605294L, 
[18:41:37.695]                     1383585152L, 1143988244L, 2031306536L, -384022982L, 
[18:41:37.695]                     -542584368L, 1539930476L, -1964391500L, 305498642L, 
[18:41:37.695]                     -1239545888L, 128575948L, 420149472L, 1465420834L, 
[18:41:37.695]                     -761556184L, -2089715188L, 221287228L, 943370226L, 
[18:41:37.695]                     -1199373584L, -202024380L, -1235894696L, 
[18:41:37.695]                     1274804026L, 20631536L, 622830268L, 270308628L, 
[18:41:37.695]                     988421314L, 1573633120L, 140715388L, -1642258480L, 
[18:41:37.695]                     246346018L, -732490072L, 1565939596L, 1479181500L, 
[18:41:37.695]                     -2026915022L, -942791104L, -474520396L, -1913842616L, 
[18:41:37.695]                     1706120634L, -685377008L, 484850924L, 1101209940L, 
[18:41:37.695]                     -870960366L, 1040412064L, 490166988L, 416684640L, 
[18:41:37.695]                     804368322L, -1127976152L, -853804628L, 2019261756L, 
[18:41:37.695]                     852245362L, -642355920L, 1351362340L, 340927800L, 
[18:41:37.695]                     1031653082L, 1133510544L, -570991876L, -1411834988L, 
[18:41:37.695]                     -2061650878L, -1673718528L, -119052228L, 
[18:41:37.695]                     1066523984L, -1674165086L, -1339061432L, 
[18:41:37.695]                     1181482764L, -1392591140L, 1594208082L, 638047872L, 
[18:41:37.695]                     -789211052L, -1839569944L, -1615664390L, 
[18:41:37.695]                     -1346611888L, -1245561044L, 720151412L, 2049172370L, 
[18:41:37.695]                     -821603744L, -283641972L, 840521568L, -1333787678L, 
[18:41:37.695]                     -1895720024L, -1896772404L, 2010151420L, 
[18:41:37.695]                     -970238030L, -142449168L, 1764001220L, -1292838568L, 
[18:41:37.695]                     -215708294L, 1022623152L, -1749834820L, 2033266772L, 
[18:41:37.695]                     -1833234494L, 927506464L, 2051207356L, -1857906096L, 
[18:41:37.695]                     -633026590L, -375472536L, 1298181708L, 1049006332L, 
[18:41:37.695]                     -660908046L, -1822071552L, 1544790900L, 1308483592L, 
[18:41:37.695]                     -2046111302L, -852419120L, -1543744532L, 
[18:41:37.695]                     -1585656940L, 819977170L, -691460256L, -2079981236L, 
[18:41:37.695]                     -433344224L, -1149767806L, 1737869032L, -359999252L, 
[18:41:37.695]                     -1648560580L, -1855114382L, -1219856784L, 
[18:41:37.695]                     191882276L, 45739832L, -2132084582L, -1148129584L, 
[18:41:37.695]                     -2126099268L, 766847636L, 503915138L, -891621184L, 
[18:41:37.695]                     -238279364L, 2010003600L, -696084958L, 1932325384L, 
[18:41:37.695]                     833486092L, 256803484L, -1180486126L, 1984010624L, 
[18:41:37.695]                     512875028L, 630398504L, 146276666L, -611177520L, 
[18:41:37.695]                     -1727918484L, 251831092L, 1460134546L, 824190304L, 
[18:41:37.695]                     899112268L, -1141869600L, 1678020514L, 1783381928L, 
[18:41:37.695]                     -635263092L, -1530197316L, -145374350L, -23918352L, 
[18:41:37.695]                     -1221307324L, 1764406616L, -537325510L, 144479088L, 
[18:41:37.695]                     -1537457092L, 1145252628L, -815827518L, 1603415264L, 
[18:41:37.695]                     -1434034308L, 1006282448L, -1438811486L, 
[18:41:37.695]                     -611142616L, 1848926476L, -1890853956L, 1694461234L, 
[18:41:37.695]                     -1264654400L, 1672930868L, -463342648L, 1741286586L, 
[18:41:37.695]                     -1026433136L, -1971576340L, -2044853164L, 
[18:41:37.695]                     1541839506L, -603952352L, -1258075700L, 1335419872L, 
[18:41:37.695]                     176434882L, 1291134504L, 403930796L, -2007257412L, 
[18:41:37.695]                     -1173270030L, -253316816L, -505612124L, 503782072L, 
[18:41:37.695]                     -864688294L, -1028907632L, 1808641404L, 2003626260L, 
[18:41:37.695]                     1158878530L, 1789096704L, 2059928508L, 1131729744L, 
[18:41:37.695]                     1285393698L, -940508856L, 1643146252L, 1117406300L, 
[18:41:37.695]                     582329554L, -1438067712L, -343730348L, 1402288616L, 
[18:41:37.695]                     1769087994L, 1012409040L, -545665748L, -972069644L, 
[18:41:37.695]                     9569170L, -1650363296L, -465721076L, -66706720L, 
[18:41:37.695]                     -1045041822L, 1362740904L, 708009548L, 869671804L, 
[18:41:37.695]                     2091454258L, 1042934384L, -211246780L, -364275752L, 
[18:41:37.695]                     2095469690L, 460032560L, -990284100L, 278361940L, 
[18:41:37.695]                     1547658818L, 1155020704L, 1283220668L, 799711696L, 
[18:41:37.695]                     117035362L, -341372952L, 1686971346L, -1103028185L, 
[18:41:37.695]                     -1198376335L, -1053822794L, 1084115028L, 
[18:41:37.695]                     170014949L, 1962923247L, -1722968024L, 1200270470L, 
[18:41:37.695]                     1844668083L, -1699633131L, -660911502L, -66840896L, 
[18:41:37.695]                     -293344471L, -1975178853L, -1166397844L, 
[18:41:37.695]                     960844410L, -664841297L, -254916935L, 1784457422L, 
[18:41:37.695]                     1530397212L, -2073507443L, -1513650185L, 
[18:41:37.695]                     89852672L, -1243172514L, -807464405L, 865107245L, 
[18:41:37.695]                     -860593766L, 601726808L, -1434077503L, 50432371L, 
[18:41:37.695]                     -1327832428L, -1417881822L, -388861385L, 
[18:41:37.695]                     -30517503L, -1454977530L, 1743615044L, 1970767221L, 
[18:41:37.695]                     -1835644705L, 2125626424L, -1792893930L, 
[18:41:37.695]                     -859628509L, -1655878683L, -583369214L, 1688261744L, 
[18:41:37.695]                     1507631641L, 1258425355L, -511439108L, 1070851882L, 
[18:41:37.695]                     -1140094625L, -1864220439L, 1793751038L, 
[18:41:37.695]                     738900972L, -1734324419L, -745843961L, -991032592L, 
[18:41:37.695]                     288813710L, -333476677L, 1688930461L, 1959629898L, 
[18:41:37.695]                     -1935864216L, 545940049L, -694738621L, 47814724L, 
[18:41:37.695]                     200284914L, 875356871L, -1116626799L, -1222676970L, 
[18:41:37.695]                     -165860236L, -279189755L, 466330959L, 462690120L, 
[18:41:37.695]                     -2079187226L, 1170833427L, -273852555L, 1075124050L, 
[18:41:37.695]                     142757792L, -2105197943L, -1295417669L, 354635020L, 
[18:41:37.695]                     2145644698L, 1035109903L, -1820118439L, 1993174766L, 
[18:41:37.695]                     634039676L, 803556845L, -1480725865L, -54975136L, 
[18:41:37.695]                     -950066882L, 264317451L, 1011723917L, 459592634L, 
[18:41:37.695]                     1491126776L, 869078433L, 564030291L, -1635614092L, 
[18:41:37.695]                     -1124826110L, 1006503575L, -1043623839L, 
[18:41:37.695]                     -1711453018L, 963878052L, 480296277L, -1957333505L, 
[18:41:37.695]                     -1522361192L, 1322068406L, 218911299L, -1406175355L, 
[18:41:37.695]                     31626274L, -848922864L, -2136423751L, -1237010581L, 
[18:41:37.695]                     213472860L, -1997399158L, 517804927L, 1885535945L, 
[18:41:37.695]                     1165031262L, -327988212L, 563678173L, -1914892569L, 
[18:41:37.695]                     -949653744L, 1769578030L, 1712121051L, -971888195L, 
[18:41:37.695]                     889833258L, 920887240L, -2046724879L, -893318557L, 
[18:41:37.695]                     335572580L, 1371862418L, 1604018791L, 835107377L, 
[18:41:37.695]                     -337971338L, 1260838036L, 1388982949L, 881778607L, 
[18:41:37.695]                     -886834072L, 1680306246L, -1539918349L, -1257324203L, 
[18:41:37.695]                     1981756210L, 2079442688L, -381766679L, 1009495643L, 
[18:41:37.695]                     -15429460L, -1027639622L, -1846877073L, 1665393145L, 
[18:41:37.695]                     1836725390L, -283673252L, 1205808589L, -1006374601L, 
[18:41:37.695]                     313719744L, 2112418974L, 945428843L, 1776468205L, 
[18:41:37.695]                     1833965914L, 100491800L, 242605953L, 1993862451L, 
[18:41:37.695]                     705168212L, 1139897698L, 2111784439L, -247738815L, 
[18:41:37.695]                     -2006218042L, -857580540L, -1347822667L, 
[18:41:37.695]                     -177671009L, -1630142216L, -1382115114L, 
[18:41:37.695]                     -612808340L), envir = base::globalenv(), 
[18:41:37.695]                       inherits = FALSE)
[18:41:37.695]                     NULL
[18:41:37.695]                   }
[18:41:37.695]                   options(future.plan = NULL)
[18:41:37.695]                   if (is.na(NA_character_)) 
[18:41:37.695]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.695]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.695]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.695]                     .init = FALSE)
[18:41:37.695]                 }
[18:41:37.695]             }
[18:41:37.695]         }
[18:41:37.695]     })
[18:41:37.695]     if (TRUE) {
[18:41:37.695]         base::sink(type = "output", split = FALSE)
[18:41:37.695]         if (TRUE) {
[18:41:37.695]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.695]         }
[18:41:37.695]         else {
[18:41:37.695]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.695]         }
[18:41:37.695]         base::close(...future.stdout)
[18:41:37.695]         ...future.stdout <- NULL
[18:41:37.695]     }
[18:41:37.695]     ...future.result$conditions <- ...future.conditions
[18:41:37.695]     ...future.result$finished <- base::Sys.time()
[18:41:37.695]     ...future.result
[18:41:37.695] }
[18:41:37.701] assign_globals() ...
[18:41:37.701] List of 5
[18:41:37.701]  $ ...future.FUN            :function (...)  
[18:41:37.701]  $ future.call.arguments    : list()
[18:41:37.701]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.701]  $ ...future.elements_ii    :List of 5
[18:41:37.701]   ..$ : int 0
[18:41:37.701]   ..$ : int 0
[18:41:37.701]   ..$ : int 0
[18:41:37.701]   ..$ : int 0
[18:41:37.701]   ..$ : int 0
[18:41:37.701]  $ ...future.seeds_ii       :List of 5
[18:41:37.701]   ..$ : int [1:7] 10407 73044582 743203601 -1270100639 1074660940 -1068696479 1302499213
[18:41:37.701]   ..$ : int [1:7] 10407 -1305101153 1492550063 1525286629 -683829977 2010385824 -1488721766
[18:41:37.701]   ..$ : int [1:7] 10407 -1643664647 -866133669 -1688442212 -1341974383 -587575374 -1585130961
[18:41:37.701]   ..$ : int [1:7] 10407 -1287016128 288663184 298076203 -1038336816 1368192013 -1146958094
[18:41:37.701]   ..$ : int [1:7] 10407 -133125789 -870409 -301301363 -2009213650 -134404398 -1042907209
[18:41:37.701]  $ ...future.globals.maxSize: NULL
[18:41:37.701]  - attr(*, "where")=List of 5
[18:41:37.701]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:37.701]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:37.701]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:37.701]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:37.701]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:37.701]  - attr(*, "resolved")= logi FALSE
[18:41:37.701]  - attr(*, "total_size")= num 7184
[18:41:37.701]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.701]  - attr(*, "already-done")= logi TRUE
[18:41:37.710] - reassign environment for '...future.FUN'
[18:41:37.710] - copied '...future.FUN' to environment
[18:41:37.710] - copied 'future.call.arguments' to environment
[18:41:37.710] - copied '...future.elements_ii' to environment
[18:41:37.710] - copied '...future.seeds_ii' to environment
[18:41:37.711] - copied '...future.globals.maxSize' to environment
[18:41:37.711] assign_globals() ... done
[18:41:37.711] plan(): Setting new future strategy stack:
[18:41:37.711] List of future strategies:
[18:41:37.711] 1. sequential:
[18:41:37.711]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.711]    - tweaked: FALSE
[18:41:37.711]    - call: NULL
[18:41:37.712] plan(): nbrOfWorkers() = 1
[18:41:37.714] plan(): Setting new future strategy stack:
[18:41:37.714] List of future strategies:
[18:41:37.714] 1. sequential:
[18:41:37.714]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.714]    - tweaked: FALSE
[18:41:37.714]    - call: plan(strategy)
[18:41:37.716] plan(): nbrOfWorkers() = 1
[18:41:37.717] SequentialFuture started (and completed)
[18:41:37.717] - Launch lazy future ... done
[18:41:37.717] run() for 'SequentialFuture' ... done
[18:41:37.718] Created future:
[18:41:37.718] SequentialFuture:
[18:41:37.718] Label: 'future_replicate-1'
[18:41:37.718] Expression:
[18:41:37.718] {
[18:41:37.718]     do.call(function(...) {
[18:41:37.718]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.718]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.718]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.718]             on.exit(options(oopts), add = TRUE)
[18:41:37.718]         }
[18:41:37.718]         {
[18:41:37.718]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.718]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.718]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.718]                   envir = globalenv(), inherits = FALSE)
[18:41:37.718]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.718]             })
[18:41:37.718]         }
[18:41:37.718]     }, args = future.call.arguments)
[18:41:37.718] }
[18:41:37.718] Lazy evaluation: FALSE
[18:41:37.718] Asynchronous evaluation: FALSE
[18:41:37.718] Local evaluation: TRUE
[18:41:37.718] Environment: R_GlobalEnv
[18:41:37.718] Capture standard output: TRUE
[18:41:37.718] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.718] Globals: 5 objects totaling 558 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, list '...future.seeds_ii' of 211 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.718] Packages: <none>
[18:41:37.718] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:37.718] Resolved: TRUE
[18:41:37.718] Value: 91 bytes of class 'list'
[18:41:37.718] Early signaling: FALSE
[18:41:37.718] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:37.718] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.719] Chunk #1 of 1 ... DONE
[18:41:37.719] Launching 1 futures (chunks) ... DONE
[18:41:37.720] Resolving 1 futures (chunks) ...
[18:41:37.720] resolve() on list ...
[18:41:37.720]  recursive: 0
[18:41:37.720]  length: 1
[18:41:37.720] 
[18:41:37.721] resolved() for 'SequentialFuture' ...
[18:41:37.721] - state: 'finished'
[18:41:37.721] - run: TRUE
[18:41:37.721] - result: 'FutureResult'
[18:41:37.721] resolved() for 'SequentialFuture' ... done
[18:41:37.721] Future #1
[18:41:37.722] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:37.722] - nx: 1
[18:41:37.722] - relay: TRUE
[18:41:37.722] - stdout: TRUE
[18:41:37.723] - signal: TRUE
[18:41:37.723] - resignal: FALSE
[18:41:37.723] - force: TRUE
[18:41:37.723] - relayed: [n=1] FALSE
[18:41:37.723] - queued futures: [n=1] FALSE
[18:41:37.723]  - until=1
[18:41:37.723]  - relaying element #1
[18:41:37.724] - relayed: [n=1] TRUE
[18:41:37.724] - queued futures: [n=1] TRUE
[18:41:37.724] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:37.724]  length: 0 (resolved future 1)
[18:41:37.725] Relaying remaining futures
[18:41:37.725] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.725] - nx: 1
[18:41:37.725] - relay: TRUE
[18:41:37.725] - stdout: TRUE
[18:41:37.725] - signal: TRUE
[18:41:37.725] - resignal: FALSE
[18:41:37.726] - force: TRUE
[18:41:37.726] - relayed: [n=1] TRUE
[18:41:37.726] - queued futures: [n=1] TRUE
 - flush all
[18:41:37.726] - relayed: [n=1] TRUE
[18:41:37.726] - queued futures: [n=1] TRUE
[18:41:37.726] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.727] resolve() on list ... DONE
[18:41:37.727]  - Number of value chunks collected: 1
[18:41:37.727] Resolving 1 futures (chunks) ... DONE
[18:41:37.727] Reducing values from 1 chunks ...
[18:41:37.727]  - Number of values collected after concatenation: 5
[18:41:37.727]  - Number of values expected: 5
[18:41:37.728] Reducing values from 1 chunks ... DONE
[18:41:37.728] future_lapply() ... DONE
[18:41:37.728] future_lapply() ...
[18:41:37.729] Generating random seeds ...
[18:41:37.729] Generating random seed streams for 5 elements ...
[18:41:37.729] Generating random seed streams for 5 elements ... DONE
[18:41:37.729] Generating random seeds ... DONE
[18:41:37.729] 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
[18:41:37.730] Number of chunks: 1
[18:41:37.730] getGlobalsAndPackagesXApply() ...
[18:41:37.730]  - future.globals: TRUE
[18:41:37.730] getGlobalsAndPackages() ...
[18:41:37.731] Searching for globals...
[18:41:37.732] - globals found: [2] 'FUN', 'sample'
[18:41:37.732] Searching for globals ... DONE
[18:41:37.732] Resolving globals: FALSE
[18:41:37.733] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:37.733] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:37.733] - globals: [1] 'FUN'
[18:41:37.733] 
[18:41:37.734] getGlobalsAndPackages() ... DONE
[18:41:37.734]  - globals found/used: [n=1] 'FUN'
[18:41:37.734]  - needed namespaces: [n=0] 
[18:41:37.734] Finding globals ... DONE
[18:41:37.734]  - use_args: TRUE
[18:41:37.734]  - Getting '...' globals ...
[18:41:37.735] resolve() on list ...
[18:41:37.735]  recursive: 0
[18:41:37.735]  length: 1
[18:41:37.735]  elements: '...'
[18:41:37.735]  length: 0 (resolved future 1)
[18:41:37.736] resolve() on list ... DONE
[18:41:37.736]    - '...' content: [n=0] 
[18:41:37.736] List of 1
[18:41:37.736]  $ ...: list()
[18:41:37.736]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.736]  - attr(*, "where")=List of 1
[18:41:37.736]   ..$ ...:<environment: 0x0000028bfbb265a8> 
[18:41:37.736]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.736]  - attr(*, "resolved")= logi TRUE
[18:41:37.736]  - attr(*, "total_size")= num NA
[18:41:37.739]  - Getting '...' globals ... DONE
[18:41:37.739] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:37.740] List of 2
[18:41:37.740]  $ ...future.FUN:function (...)  
[18:41:37.740]  $ ...          : list()
[18:41:37.740]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.740]  - attr(*, "where")=List of 2
[18:41:37.740]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.740]   ..$ ...          :<environment: 0x0000028bfbb265a8> 
[18:41:37.740]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.740]  - attr(*, "resolved")= logi FALSE
[18:41:37.740]  - attr(*, "total_size")= int 7184
[18:41:37.744] Packages to be attached in all futures: [n=0] 
[18:41:37.744] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.744] Number of futures (= number of chunks): 1
[18:41:37.744] Launching 1 futures (chunks) ...
[18:41:37.745] Chunk #1 of 1 ...
[18:41:37.745]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.745] getGlobalsAndPackages() ...
[18:41:37.745] Searching for globals...
[18:41:37.745] 
[18:41:37.746] Searching for globals ... DONE
[18:41:37.746] - globals: [0] <none>
[18:41:37.746] getGlobalsAndPackages() ... DONE
[18:41:37.746]    + additional globals found: [n=0] 
[18:41:37.746]    + additional namespaces needed: [n=0] 
[18:41:37.746]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.747]  - seeds: [5] <seeds>
[18:41:37.747]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.747] getGlobalsAndPackages() ...
[18:41:37.747] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.747] Resolving globals: FALSE
[18:41:37.747] Tweak future expression to call with '...' arguments ...
[18:41:37.748] {
[18:41:37.748]     do.call(function(...) {
[18:41:37.748]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.748]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.748]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.748]             on.exit(options(oopts), add = TRUE)
[18:41:37.748]         }
[18:41:37.748]         {
[18:41:37.748]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.748]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.748]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.748]                   envir = globalenv(), inherits = FALSE)
[18:41:37.748]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.748]             })
[18:41:37.748]         }
[18:41:37.748]     }, args = future.call.arguments)
[18:41:37.748] }
[18:41:37.748] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.748] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.749] 
[18:41:37.749] getGlobalsAndPackages() ... DONE
[18:41:37.749] run() for 'Future' ...
[18:41:37.749] - state: 'created'
[18:41:37.750] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.750] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.750] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.750]   - Field: 'label'
[18:41:37.750]   - Field: 'local'
[18:41:37.751]   - Field: 'owner'
[18:41:37.751]   - Field: 'envir'
[18:41:37.751]   - Field: 'packages'
[18:41:37.751]   - Field: 'gc'
[18:41:37.751]   - Field: 'conditions'
[18:41:37.751]   - Field: 'expr'
[18:41:37.752]   - Field: 'uuid'
[18:41:37.752]   - Field: 'seed'
[18:41:37.752]   - Field: 'version'
[18:41:37.752]   - Field: 'result'
[18:41:37.752]   - Field: 'asynchronous'
[18:41:37.752]   - Field: 'calls'
[18:41:37.753]   - Field: 'globals'
[18:41:37.753]   - Field: 'stdout'
[18:41:37.753]   - Field: 'earlySignal'
[18:41:37.753]   - Field: 'lazy'
[18:41:37.753]   - Field: 'state'
[18:41:37.753] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:37.754] - Launch lazy future ...
[18:41:37.754] Packages needed by the future expression (n = 0): <none>
[18:41:37.754] Packages needed by future strategies (n = 0): <none>
[18:41:37.755] {
[18:41:37.755]     {
[18:41:37.755]         {
[18:41:37.755]             ...future.startTime <- base::Sys.time()
[18:41:37.755]             {
[18:41:37.755]                 {
[18:41:37.755]                   {
[18:41:37.755]                     base::local({
[18:41:37.755]                       has_future <- base::requireNamespace("future", 
[18:41:37.755]                         quietly = TRUE)
[18:41:37.755]                       if (has_future) {
[18:41:37.755]                         ns <- base::getNamespace("future")
[18:41:37.755]                         version <- ns[[".package"]][["version"]]
[18:41:37.755]                         if (is.null(version)) 
[18:41:37.755]                           version <- utils::packageVersion("future")
[18:41:37.755]                       }
[18:41:37.755]                       else {
[18:41:37.755]                         version <- NULL
[18:41:37.755]                       }
[18:41:37.755]                       if (!has_future || version < "1.8.0") {
[18:41:37.755]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.755]                           "", base::R.version$version.string), 
[18:41:37.755]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:37.755]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.755]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.755]                             "release", "version")], collapse = " "), 
[18:41:37.755]                           hostname = base::Sys.info()[["nodename"]])
[18:41:37.755]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.755]                           info)
[18:41:37.755]                         info <- base::paste(info, collapse = "; ")
[18:41:37.755]                         if (!has_future) {
[18:41:37.755]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.755]                             info)
[18:41:37.755]                         }
[18:41:37.755]                         else {
[18:41:37.755]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.755]                             info, version)
[18:41:37.755]                         }
[18:41:37.755]                         base::stop(msg)
[18:41:37.755]                       }
[18:41:37.755]                     })
[18:41:37.755]                   }
[18:41:37.755]                   ...future.strategy.old <- future::plan("list")
[18:41:37.755]                   options(future.plan = NULL)
[18:41:37.755]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.755]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.755]                 }
[18:41:37.755]                 ...future.workdir <- getwd()
[18:41:37.755]             }
[18:41:37.755]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.755]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.755]         }
[18:41:37.755]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.755]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:37.755]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.755]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.755]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.755]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.755]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.755]             base::names(...future.oldOptions))
[18:41:37.755]     }
[18:41:37.755]     if (FALSE) {
[18:41:37.755]     }
[18:41:37.755]     else {
[18:41:37.755]         if (TRUE) {
[18:41:37.755]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.755]                 open = "w")
[18:41:37.755]         }
[18:41:37.755]         else {
[18:41:37.755]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.755]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.755]         }
[18:41:37.755]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.755]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.755]             base::sink(type = "output", split = FALSE)
[18:41:37.755]             base::close(...future.stdout)
[18:41:37.755]         }, add = TRUE)
[18:41:37.755]     }
[18:41:37.755]     ...future.frame <- base::sys.nframe()
[18:41:37.755]     ...future.conditions <- base::list()
[18:41:37.755]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.755]     if (FALSE) {
[18:41:37.755]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.755]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.755]     }
[18:41:37.755]     ...future.result <- base::tryCatch({
[18:41:37.755]         base::withCallingHandlers({
[18:41:37.755]             ...future.value <- base::withVisible(base::local({
[18:41:37.755]                 do.call(function(...) {
[18:41:37.755]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.755]                   if (!identical(...future.globals.maxSize.org, 
[18:41:37.755]                     ...future.globals.maxSize)) {
[18:41:37.755]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.755]                     on.exit(options(oopts), add = TRUE)
[18:41:37.755]                   }
[18:41:37.755]                   {
[18:41:37.755]                     lapply(seq_along(...future.elements_ii), 
[18:41:37.755]                       FUN = function(jj) {
[18:41:37.755]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.755]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.755]                           envir = globalenv(), inherits = FALSE)
[18:41:37.755]                         ...future.FUN(...future.X_jj, ...)
[18:41:37.755]                       })
[18:41:37.755]                   }
[18:41:37.755]                 }, args = future.call.arguments)
[18:41:37.755]             }))
[18:41:37.755]             future::FutureResult(value = ...future.value$value, 
[18:41:37.755]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.755]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.755]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.755]                     ...future.globalenv.names))
[18:41:37.755]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.755]         }, condition = base::local({
[18:41:37.755]             c <- base::c
[18:41:37.755]             inherits <- base::inherits
[18:41:37.755]             invokeRestart <- base::invokeRestart
[18:41:37.755]             length <- base::length
[18:41:37.755]             list <- base::list
[18:41:37.755]             seq.int <- base::seq.int
[18:41:37.755]             signalCondition <- base::signalCondition
[18:41:37.755]             sys.calls <- base::sys.calls
[18:41:37.755]             `[[` <- base::`[[`
[18:41:37.755]             `+` <- base::`+`
[18:41:37.755]             `<<-` <- base::`<<-`
[18:41:37.755]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.755]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.755]                   3L)]
[18:41:37.755]             }
[18:41:37.755]             function(cond) {
[18:41:37.755]                 is_error <- inherits(cond, "error")
[18:41:37.755]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.755]                   NULL)
[18:41:37.755]                 if (is_error) {
[18:41:37.755]                   sessionInformation <- function() {
[18:41:37.755]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.755]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.755]                       search = base::search(), system = base::Sys.info())
[18:41:37.755]                   }
[18:41:37.755]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.755]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.755]                     cond$call), session = sessionInformation(), 
[18:41:37.755]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.755]                   signalCondition(cond)
[18:41:37.755]                 }
[18:41:37.755]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.755]                 "immediateCondition"))) {
[18:41:37.755]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.755]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.755]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.755]                   if (TRUE && !signal) {
[18:41:37.755]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.755]                     {
[18:41:37.755]                       inherits <- base::inherits
[18:41:37.755]                       invokeRestart <- base::invokeRestart
[18:41:37.755]                       is.null <- base::is.null
[18:41:37.755]                       muffled <- FALSE
[18:41:37.755]                       if (inherits(cond, "message")) {
[18:41:37.755]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.755]                         if (muffled) 
[18:41:37.755]                           invokeRestart("muffleMessage")
[18:41:37.755]                       }
[18:41:37.755]                       else if (inherits(cond, "warning")) {
[18:41:37.755]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.755]                         if (muffled) 
[18:41:37.755]                           invokeRestart("muffleWarning")
[18:41:37.755]                       }
[18:41:37.755]                       else if (inherits(cond, "condition")) {
[18:41:37.755]                         if (!is.null(pattern)) {
[18:41:37.755]                           computeRestarts <- base::computeRestarts
[18:41:37.755]                           grepl <- base::grepl
[18:41:37.755]                           restarts <- computeRestarts(cond)
[18:41:37.755]                           for (restart in restarts) {
[18:41:37.755]                             name <- restart$name
[18:41:37.755]                             if (is.null(name)) 
[18:41:37.755]                               next
[18:41:37.755]                             if (!grepl(pattern, name)) 
[18:41:37.755]                               next
[18:41:37.755]                             invokeRestart(restart)
[18:41:37.755]                             muffled <- TRUE
[18:41:37.755]                             break
[18:41:37.755]                           }
[18:41:37.755]                         }
[18:41:37.755]                       }
[18:41:37.755]                       invisible(muffled)
[18:41:37.755]                     }
[18:41:37.755]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.755]                   }
[18:41:37.755]                 }
[18:41:37.755]                 else {
[18:41:37.755]                   if (TRUE) {
[18:41:37.755]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.755]                     {
[18:41:37.755]                       inherits <- base::inherits
[18:41:37.755]                       invokeRestart <- base::invokeRestart
[18:41:37.755]                       is.null <- base::is.null
[18:41:37.755]                       muffled <- FALSE
[18:41:37.755]                       if (inherits(cond, "message")) {
[18:41:37.755]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.755]                         if (muffled) 
[18:41:37.755]                           invokeRestart("muffleMessage")
[18:41:37.755]                       }
[18:41:37.755]                       else if (inherits(cond, "warning")) {
[18:41:37.755]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.755]                         if (muffled) 
[18:41:37.755]                           invokeRestart("muffleWarning")
[18:41:37.755]                       }
[18:41:37.755]                       else if (inherits(cond, "condition")) {
[18:41:37.755]                         if (!is.null(pattern)) {
[18:41:37.755]                           computeRestarts <- base::computeRestarts
[18:41:37.755]                           grepl <- base::grepl
[18:41:37.755]                           restarts <- computeRestarts(cond)
[18:41:37.755]                           for (restart in restarts) {
[18:41:37.755]                             name <- restart$name
[18:41:37.755]                             if (is.null(name)) 
[18:41:37.755]                               next
[18:41:37.755]                             if (!grepl(pattern, name)) 
[18:41:37.755]                               next
[18:41:37.755]                             invokeRestart(restart)
[18:41:37.755]                             muffled <- TRUE
[18:41:37.755]                             break
[18:41:37.755]                           }
[18:41:37.755]                         }
[18:41:37.755]                       }
[18:41:37.755]                       invisible(muffled)
[18:41:37.755]                     }
[18:41:37.755]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.755]                   }
[18:41:37.755]                 }
[18:41:37.755]             }
[18:41:37.755]         }))
[18:41:37.755]     }, error = function(ex) {
[18:41:37.755]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.755]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.755]                 ...future.rng), started = ...future.startTime, 
[18:41:37.755]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.755]             version = "1.8"), class = "FutureResult")
[18:41:37.755]     }, finally = {
[18:41:37.755]         if (!identical(...future.workdir, getwd())) 
[18:41:37.755]             setwd(...future.workdir)
[18:41:37.755]         {
[18:41:37.755]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.755]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.755]             }
[18:41:37.755]             base::options(...future.oldOptions)
[18:41:37.755]             if (.Platform$OS.type == "windows") {
[18:41:37.755]                 old_names <- names(...future.oldEnvVars)
[18:41:37.755]                 envs <- base::Sys.getenv()
[18:41:37.755]                 names <- names(envs)
[18:41:37.755]                 common <- intersect(names, old_names)
[18:41:37.755]                 added <- setdiff(names, old_names)
[18:41:37.755]                 removed <- setdiff(old_names, names)
[18:41:37.755]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.755]                   envs[common]]
[18:41:37.755]                 NAMES <- toupper(changed)
[18:41:37.755]                 args <- list()
[18:41:37.755]                 for (kk in seq_along(NAMES)) {
[18:41:37.755]                   name <- changed[[kk]]
[18:41:37.755]                   NAME <- NAMES[[kk]]
[18:41:37.755]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.755]                     next
[18:41:37.755]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.755]                 }
[18:41:37.755]                 NAMES <- toupper(added)
[18:41:37.755]                 for (kk in seq_along(NAMES)) {
[18:41:37.755]                   name <- added[[kk]]
[18:41:37.755]                   NAME <- NAMES[[kk]]
[18:41:37.755]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.755]                     next
[18:41:37.755]                   args[[name]] <- ""
[18:41:37.755]                 }
[18:41:37.755]                 NAMES <- toupper(removed)
[18:41:37.755]                 for (kk in seq_along(NAMES)) {
[18:41:37.755]                   name <- removed[[kk]]
[18:41:37.755]                   NAME <- NAMES[[kk]]
[18:41:37.755]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.755]                     next
[18:41:37.755]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.755]                 }
[18:41:37.755]                 if (length(args) > 0) 
[18:41:37.755]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.755]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.755]             }
[18:41:37.755]             else {
[18:41:37.755]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.755]             }
[18:41:37.755]             {
[18:41:37.755]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.755]                   0L) {
[18:41:37.755]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.755]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.755]                   base::options(opts)
[18:41:37.755]                 }
[18:41:37.755]                 {
[18:41:37.755]                   {
[18:41:37.755]                     base::assign(".Random.seed", c(10403L, 2L, 
[18:41:37.755]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[18:41:37.755]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[18:41:37.755]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[18:41:37.755]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[18:41:37.755]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[18:41:37.755]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[18:41:37.755]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[18:41:37.755]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[18:41:37.755]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[18:41:37.755]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[18:41:37.755]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[18:41:37.755]                     -1512233174L, -1985955764L, -425390065L, 
[18:41:37.755]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[18:41:37.755]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[18:41:37.755]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[18:41:37.755]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[18:41:37.755]                     1818328109L, -1284085436L, -1981489558L, 
[18:41:37.755]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[18:41:37.755]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[18:41:37.755]                     -1718567047L, -793788661L, -1133789126L, 
[18:41:37.755]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[18:41:37.755]                     -1823521982L, -1345991523L, -1672661737L, 
[18:41:37.755]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[18:41:37.755]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[18:41:37.755]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[18:41:37.755]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[18:41:37.755]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[18:41:37.755]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[18:41:37.755]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[18:41:37.755]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[18:41:37.755]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[18:41:37.755]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[18:41:37.755]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[18:41:37.755]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[18:41:37.755]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[18:41:37.755]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[18:41:37.755]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[18:41:37.755]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[18:41:37.755]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[18:41:37.755]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[18:41:37.755]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[18:41:37.755]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[18:41:37.755]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[18:41:37.755]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[18:41:37.755]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[18:41:37.755]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[18:41:37.755]                     -1119334354L, -1521015416L, -2041922421L, 
[18:41:37.755]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[18:41:37.755]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[18:41:37.755]                     1232111981L, -1801753084L, -1608606422L, 
[18:41:37.755]                     -1172096363L, 1420874031L, -1210473418L, 
[18:41:37.755]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[18:41:37.755]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[18:41:37.755]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[18:41:37.755]                     679371266L, -591318819L, -104578089L, -172818754L, 
[18:41:37.755]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[18:41:37.755]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[18:41:37.755]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[18:41:37.755]                     -332493318L, -1978392251L, -1691039632L, 
[18:41:37.755]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[18:41:37.755]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[18:41:37.755]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[18:41:37.755]                     87560756L, -87565624L, 426345146L, -699970416L, 
[18:41:37.755]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[18:41:37.755]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[18:41:37.755]                     -1178330196L, -687617348L, -1701912078L, 
[18:41:37.755]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[18:41:37.755]                     -1345416048L, 1816730492L, -1570431212L, 
[18:41:37.755]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[18:41:37.755]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[18:41:37.755]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[18:41:37.755]                     -1493184262L, -1943836976L, -590788308L, 
[18:41:37.755]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[18:41:37.755]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[18:41:37.755]                     1274857340L, -1205842638L, -1938479504L, 
[18:41:37.755]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[18:41:37.755]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[18:41:37.755]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[18:41:37.755]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[18:41:37.755]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[18:41:37.755]                     -1460751252L, 1201879444L, -1459788718L, 
[18:41:37.755]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[18:41:37.755]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[18:41:37.755]                     -420945808L, -1997735900L, -1838404552L, 
[18:41:37.755]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[18:41:37.755]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[18:41:37.755]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[18:41:37.755]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[18:41:37.755]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[18:41:37.755]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[18:41:37.755]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[18:41:37.755]                     942193650L, 751741680L, 689743428L, -18455976L, 
[18:41:37.755]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[18:41:37.755]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[18:41:37.755]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[18:41:37.755]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[18:41:37.755]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[18:41:37.755]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[18:41:37.755]                     -1357570110L, 1896595240L, -2066952276L, 
[18:41:37.755]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[18:41:37.755]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[18:41:37.755]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[18:41:37.755]                     769655120L, 236357794L, 181393736L, -13334772L, 
[18:41:37.755]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[18:41:37.755]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[18:41:37.755]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[18:41:37.755]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[18:41:37.755]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[18:41:37.755]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[18:41:37.755]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[18:41:37.755]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[18:41:37.755]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[18:41:37.755]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[18:41:37.755]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[18:41:37.755]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[18:41:37.755]                     -1365842884L, -438961294L, -1851472272L, 
[18:41:37.755]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[18:41:37.755]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[18:41:37.755]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[18:41:37.755]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[18:41:37.755]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[18:41:37.755]                     -594809770L, -2146766621L, -2013964635L, 
[18:41:37.755]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[18:41:37.755]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[18:41:37.755]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[18:41:37.755]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[18:41:37.755]                     -1426021878L, -1285634264L, 1507547537L, 
[18:41:37.755]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[18:41:37.755]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[18:41:37.755]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[18:41:37.755]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[18:41:37.755]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[18:41:37.755]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[18:41:37.755]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[18:41:37.755]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[18:41:37.755]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[18:41:37.755]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[18:41:37.755]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[18:41:37.755]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[18:41:37.755]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[18:41:37.755]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[18:41:37.755]                     -1604604761L, 1421229008L, -1268333714L, 
[18:41:37.755]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[18:41:37.755]                     -2070476623L, -2099222749L, 1141171236L, 
[18:41:37.755]                     -146426158L, -1797385433L, -1129376399L, 
[18:41:37.755]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[18:41:37.755]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[18:41:37.755]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[18:41:37.755]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[18:41:37.755]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[18:41:37.755]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[18:41:37.755]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[18:41:37.755]                     -1092079724L, -1765622238L, -1882554057L, 
[18:41:37.755]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[18:41:37.755]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[18:41:37.755]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[18:41:37.755]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[18:41:37.755]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[18:41:37.755]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[18:41:37.755]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[18:41:37.755]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[18:41:37.755]                     865377681L, -1127426242L), envir = base::globalenv(), 
[18:41:37.755]                       inherits = FALSE)
[18:41:37.755]                     NULL
[18:41:37.755]                   }
[18:41:37.755]                   options(future.plan = NULL)
[18:41:37.755]                   if (is.na(NA_character_)) 
[18:41:37.755]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.755]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.755]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.755]                     .init = FALSE)
[18:41:37.755]                 }
[18:41:37.755]             }
[18:41:37.755]         }
[18:41:37.755]     })
[18:41:37.755]     if (TRUE) {
[18:41:37.755]         base::sink(type = "output", split = FALSE)
[18:41:37.755]         if (TRUE) {
[18:41:37.755]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.755]         }
[18:41:37.755]         else {
[18:41:37.755]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.755]         }
[18:41:37.755]         base::close(...future.stdout)
[18:41:37.755]         ...future.stdout <- NULL
[18:41:37.755]     }
[18:41:37.755]     ...future.result$conditions <- ...future.conditions
[18:41:37.755]     ...future.result$finished <- base::Sys.time()
[18:41:37.755]     ...future.result
[18:41:37.755] }
[18:41:37.760] assign_globals() ...
[18:41:37.760] List of 5
[18:41:37.760]  $ ...future.FUN            :function (...)  
[18:41:37.760]  $ future.call.arguments    : list()
[18:41:37.760]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.760]  $ ...future.elements_ii    :List of 5
[18:41:37.760]   ..$ : int 0
[18:41:37.760]   ..$ : int 0
[18:41:37.760]   ..$ : int 0
[18:41:37.760]   ..$ : int 0
[18:41:37.760]   ..$ : int 0
[18:41:37.760]  $ ...future.seeds_ii       :List of 5
[18:41:37.760]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[18:41:37.760]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[18:41:37.760]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[18:41:37.760]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[18:41:37.760]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[18:41:37.760]  $ ...future.globals.maxSize: NULL
[18:41:37.760]  - attr(*, "where")=List of 5
[18:41:37.760]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:37.760]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:37.760]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:37.760]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:37.760]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:37.760]  - attr(*, "resolved")= logi FALSE
[18:41:37.760]  - attr(*, "total_size")= num 7184
[18:41:37.760]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.760]  - attr(*, "already-done")= logi TRUE
[18:41:37.770] - reassign environment for '...future.FUN'
[18:41:37.770] - copied '...future.FUN' to environment
[18:41:37.770] - copied 'future.call.arguments' to environment
[18:41:37.770] - copied '...future.elements_ii' to environment
[18:41:37.770] - copied '...future.seeds_ii' to environment
[18:41:37.771] - copied '...future.globals.maxSize' to environment
[18:41:37.771] assign_globals() ... done
[18:41:37.771] plan(): Setting new future strategy stack:
[18:41:37.771] List of future strategies:
[18:41:37.771] 1. sequential:
[18:41:37.771]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.771]    - tweaked: FALSE
[18:41:37.771]    - call: NULL
[18:41:37.772] plan(): nbrOfWorkers() = 1
[18:41:37.773] plan(): Setting new future strategy stack:
[18:41:37.773] List of future strategies:
[18:41:37.773] 1. sequential:
[18:41:37.773]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.773]    - tweaked: FALSE
[18:41:37.773]    - call: plan(strategy)
[18:41:37.774] plan(): nbrOfWorkers() = 1
[18:41:37.774] SequentialFuture started (and completed)
[18:41:37.774] - Launch lazy future ... done
[18:41:37.774] run() for 'SequentialFuture' ... done
[18:41:37.775] Created future:
[18:41:37.775] SequentialFuture:
[18:41:37.775] Label: 'future_replicate-1'
[18:41:37.775] Expression:
[18:41:37.775] {
[18:41:37.775]     do.call(function(...) {
[18:41:37.775]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.775]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.775]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.775]             on.exit(options(oopts), add = TRUE)
[18:41:37.775]         }
[18:41:37.775]         {
[18:41:37.775]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.775]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.775]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.775]                   envir = globalenv(), inherits = FALSE)
[18:41:37.775]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.775]             })
[18:41:37.775]         }
[18:41:37.775]     }, args = future.call.arguments)
[18:41:37.775] }
[18:41:37.775] Lazy evaluation: FALSE
[18:41:37.775] Asynchronous evaluation: FALSE
[18:41:37.775] Local evaluation: TRUE
[18:41:37.775] Environment: R_GlobalEnv
[18:41:37.775] Capture standard output: TRUE
[18:41:37.775] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.775] Globals: 5 objects totaling 558 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, list '...future.seeds_ii' of 211 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.775] Packages: <none>
[18:41:37.775] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:37.775] Resolved: TRUE
[18:41:37.775] Value: 91 bytes of class 'list'
[18:41:37.775] Early signaling: FALSE
[18:41:37.775] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:37.775] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.776] Chunk #1 of 1 ... DONE
[18:41:37.776] Launching 1 futures (chunks) ... DONE
[18:41:37.776] Resolving 1 futures (chunks) ...
[18:41:37.776] resolve() on list ...
[18:41:37.777]  recursive: 0
[18:41:37.777]  length: 1
[18:41:37.777] 
[18:41:37.777] resolved() for 'SequentialFuture' ...
[18:41:37.777] - state: 'finished'
[18:41:37.777] - run: TRUE
[18:41:37.778] - result: 'FutureResult'
[18:41:37.778] resolved() for 'SequentialFuture' ... done
[18:41:37.778] Future #1
[18:41:37.778] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:37.778] - nx: 1
[18:41:37.778] - relay: TRUE
[18:41:37.779] - stdout: TRUE
[18:41:37.779] - signal: TRUE
[18:41:37.779] - resignal: FALSE
[18:41:37.779] - force: TRUE
[18:41:37.779] - relayed: [n=1] FALSE
[18:41:37.779] - queued futures: [n=1] FALSE
[18:41:37.779]  - until=1
[18:41:37.780]  - relaying element #1
[18:41:37.780] - relayed: [n=1] TRUE
[18:41:37.780] - queued futures: [n=1] TRUE
[18:41:37.780] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:37.780]  length: 0 (resolved future 1)
[18:41:37.781] Relaying remaining futures
[18:41:37.781] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.781] - nx: 1
[18:41:37.781] - relay: TRUE
[18:41:37.781] - stdout: TRUE
[18:41:37.781] - signal: TRUE
[18:41:37.781] - resignal: FALSE
[18:41:37.781] - force: TRUE
[18:41:37.782] - relayed: [n=1] TRUE
[18:41:37.782] - queued futures: [n=1] TRUE
 - flush all
[18:41:37.782] - relayed: [n=1] TRUE
[18:41:37.782] - queued futures: [n=1] TRUE
[18:41:37.782] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.782] resolve() on list ... DONE
[18:41:37.783]  - Number of value chunks collected: 1
[18:41:37.783] Resolving 1 futures (chunks) ... DONE
[18:41:37.783] Reducing values from 1 chunks ...
[18:41:37.783]  - Number of values collected after concatenation: 5
[18:41:37.783]  - Number of values expected: 5
[18:41:37.783] Reducing values from 1 chunks ... DONE
[18:41:37.784] future_lapply() ... DONE
[18:41:37.784] future_lapply() ...
[18:41:37.784] Generating random seeds ...
[18:41:37.784] Generating random seed streams for 5 elements ...
[18:41:37.785] Generating random seed streams for 5 elements ... DONE
[18:41:37.785] Generating random seeds ... DONE
[18:41:37.785] 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
[18:41:37.786] Number of chunks: 1
[18:41:37.786] getGlobalsAndPackagesXApply() ...
[18:41:37.786]  - future.globals: TRUE
[18:41:37.786] getGlobalsAndPackages() ...
[18:41:37.786] Searching for globals...
[18:41:37.788] - globals found: [2] 'FUN', 'sample'
[18:41:37.788] Searching for globals ... DONE
[18:41:37.788] Resolving globals: FALSE
[18:41:37.788] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:37.789] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:37.789] - globals: [1] 'FUN'
[18:41:37.789] 
[18:41:37.789] getGlobalsAndPackages() ... DONE
[18:41:37.789]  - globals found/used: [n=1] 'FUN'
[18:41:37.790]  - needed namespaces: [n=0] 
[18:41:37.790] Finding globals ... DONE
[18:41:37.790]  - use_args: TRUE
[18:41:37.790]  - Getting '...' globals ...
[18:41:37.791] resolve() on list ...
[18:41:37.791]  recursive: 0
[18:41:37.791]  length: 1
[18:41:37.791]  elements: '...'
[18:41:37.791]  length: 0 (resolved future 1)
[18:41:37.791] resolve() on list ... DONE
[18:41:37.792]    - '...' content: [n=0] 
[18:41:37.792] List of 1
[18:41:37.792]  $ ...: list()
[18:41:37.792]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.792]  - attr(*, "where")=List of 1
[18:41:37.792]   ..$ ...:<environment: 0x0000028bfbe5d4c8> 
[18:41:37.792]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.792]  - attr(*, "resolved")= logi TRUE
[18:41:37.792]  - attr(*, "total_size")= num NA
[18:41:37.795]  - Getting '...' globals ... DONE
[18:41:37.796] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:37.796] List of 2
[18:41:37.796]  $ ...future.FUN:function (...)  
[18:41:37.796]  $ ...          : list()
[18:41:37.796]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.796]  - attr(*, "where")=List of 2
[18:41:37.796]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.796]   ..$ ...          :<environment: 0x0000028bfbe5d4c8> 
[18:41:37.796]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.796]  - attr(*, "resolved")= logi FALSE
[18:41:37.796]  - attr(*, "total_size")= int 7184
[18:41:37.799] Packages to be attached in all futures: [n=0] 
[18:41:37.799] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.799] Number of futures (= number of chunks): 1
[18:41:37.800] Launching 1 futures (chunks) ...
[18:41:37.800] Chunk #1 of 1 ...
[18:41:37.800]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.800] getGlobalsAndPackages() ...
[18:41:37.800] Searching for globals...
[18:41:37.801] 
[18:41:37.801] Searching for globals ... DONE
[18:41:37.801] - globals: [0] <none>
[18:41:37.801] getGlobalsAndPackages() ... DONE
[18:41:37.801]    + additional globals found: [n=0] 
[18:41:37.802]    + additional namespaces needed: [n=0] 
[18:41:37.802]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.802]  - seeds: [5] <seeds>
[18:41:37.802]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.802] getGlobalsAndPackages() ...
[18:41:37.802] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.802] Resolving globals: FALSE
[18:41:37.803] Tweak future expression to call with '...' arguments ...
[18:41:37.803] {
[18:41:37.803]     do.call(function(...) {
[18:41:37.803]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.803]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.803]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.803]             on.exit(options(oopts), add = TRUE)
[18:41:37.803]         }
[18:41:37.803]         {
[18:41:37.803]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.803]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.803]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.803]                   envir = globalenv(), inherits = FALSE)
[18:41:37.803]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.803]             })
[18:41:37.803]         }
[18:41:37.803]     }, args = future.call.arguments)
[18:41:37.803] }
[18:41:37.803] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.804] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.804] 
[18:41:37.804] getGlobalsAndPackages() ... DONE
[18:41:37.804] run() for 'Future' ...
[18:41:37.805] - state: 'created'
[18:41:37.805] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.805] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.805] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.806]   - Field: 'label'
[18:41:37.806]   - Field: 'local'
[18:41:37.806]   - Field: 'owner'
[18:41:37.806]   - Field: 'envir'
[18:41:37.806]   - Field: 'packages'
[18:41:37.806]   - Field: 'gc'
[18:41:37.807]   - Field: 'conditions'
[18:41:37.807]   - Field: 'expr'
[18:41:37.807]   - Field: 'uuid'
[18:41:37.807]   - Field: 'seed'
[18:41:37.807]   - Field: 'version'
[18:41:37.807]   - Field: 'result'
[18:41:37.808]   - Field: 'asynchronous'
[18:41:37.808]   - Field: 'calls'
[18:41:37.808]   - Field: 'globals'
[18:41:37.808]   - Field: 'stdout'
[18:41:37.808]   - Field: 'earlySignal'
[18:41:37.808]   - Field: 'lazy'
[18:41:37.809]   - Field: 'state'
[18:41:37.809] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:37.809] - Launch lazy future ...
[18:41:37.809] Packages needed by the future expression (n = 0): <none>
[18:41:37.809] Packages needed by future strategies (n = 0): <none>
[18:41:37.810] {
[18:41:37.810]     {
[18:41:37.810]         {
[18:41:37.810]             ...future.startTime <- base::Sys.time()
[18:41:37.810]             {
[18:41:37.810]                 {
[18:41:37.810]                   {
[18:41:37.810]                     base::local({
[18:41:37.810]                       has_future <- base::requireNamespace("future", 
[18:41:37.810]                         quietly = TRUE)
[18:41:37.810]                       if (has_future) {
[18:41:37.810]                         ns <- base::getNamespace("future")
[18:41:37.810]                         version <- ns[[".package"]][["version"]]
[18:41:37.810]                         if (is.null(version)) 
[18:41:37.810]                           version <- utils::packageVersion("future")
[18:41:37.810]                       }
[18:41:37.810]                       else {
[18:41:37.810]                         version <- NULL
[18:41:37.810]                       }
[18:41:37.810]                       if (!has_future || version < "1.8.0") {
[18:41:37.810]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.810]                           "", base::R.version$version.string), 
[18:41:37.810]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:37.810]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.810]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.810]                             "release", "version")], collapse = " "), 
[18:41:37.810]                           hostname = base::Sys.info()[["nodename"]])
[18:41:37.810]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.810]                           info)
[18:41:37.810]                         info <- base::paste(info, collapse = "; ")
[18:41:37.810]                         if (!has_future) {
[18:41:37.810]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.810]                             info)
[18:41:37.810]                         }
[18:41:37.810]                         else {
[18:41:37.810]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.810]                             info, version)
[18:41:37.810]                         }
[18:41:37.810]                         base::stop(msg)
[18:41:37.810]                       }
[18:41:37.810]                     })
[18:41:37.810]                   }
[18:41:37.810]                   ...future.strategy.old <- future::plan("list")
[18:41:37.810]                   options(future.plan = NULL)
[18:41:37.810]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.810]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.810]                 }
[18:41:37.810]                 ...future.workdir <- getwd()
[18:41:37.810]             }
[18:41:37.810]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.810]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.810]         }
[18:41:37.810]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.810]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:37.810]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.810]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.810]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.810]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.810]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.810]             base::names(...future.oldOptions))
[18:41:37.810]     }
[18:41:37.810]     if (FALSE) {
[18:41:37.810]     }
[18:41:37.810]     else {
[18:41:37.810]         if (TRUE) {
[18:41:37.810]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.810]                 open = "w")
[18:41:37.810]         }
[18:41:37.810]         else {
[18:41:37.810]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.810]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.810]         }
[18:41:37.810]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.810]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.810]             base::sink(type = "output", split = FALSE)
[18:41:37.810]             base::close(...future.stdout)
[18:41:37.810]         }, add = TRUE)
[18:41:37.810]     }
[18:41:37.810]     ...future.frame <- base::sys.nframe()
[18:41:37.810]     ...future.conditions <- base::list()
[18:41:37.810]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.810]     if (FALSE) {
[18:41:37.810]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.810]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.810]     }
[18:41:37.810]     ...future.result <- base::tryCatch({
[18:41:37.810]         base::withCallingHandlers({
[18:41:37.810]             ...future.value <- base::withVisible(base::local({
[18:41:37.810]                 do.call(function(...) {
[18:41:37.810]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.810]                   if (!identical(...future.globals.maxSize.org, 
[18:41:37.810]                     ...future.globals.maxSize)) {
[18:41:37.810]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.810]                     on.exit(options(oopts), add = TRUE)
[18:41:37.810]                   }
[18:41:37.810]                   {
[18:41:37.810]                     lapply(seq_along(...future.elements_ii), 
[18:41:37.810]                       FUN = function(jj) {
[18:41:37.810]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.810]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.810]                           envir = globalenv(), inherits = FALSE)
[18:41:37.810]                         ...future.FUN(...future.X_jj, ...)
[18:41:37.810]                       })
[18:41:37.810]                   }
[18:41:37.810]                 }, args = future.call.arguments)
[18:41:37.810]             }))
[18:41:37.810]             future::FutureResult(value = ...future.value$value, 
[18:41:37.810]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.810]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.810]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.810]                     ...future.globalenv.names))
[18:41:37.810]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.810]         }, condition = base::local({
[18:41:37.810]             c <- base::c
[18:41:37.810]             inherits <- base::inherits
[18:41:37.810]             invokeRestart <- base::invokeRestart
[18:41:37.810]             length <- base::length
[18:41:37.810]             list <- base::list
[18:41:37.810]             seq.int <- base::seq.int
[18:41:37.810]             signalCondition <- base::signalCondition
[18:41:37.810]             sys.calls <- base::sys.calls
[18:41:37.810]             `[[` <- base::`[[`
[18:41:37.810]             `+` <- base::`+`
[18:41:37.810]             `<<-` <- base::`<<-`
[18:41:37.810]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.810]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.810]                   3L)]
[18:41:37.810]             }
[18:41:37.810]             function(cond) {
[18:41:37.810]                 is_error <- inherits(cond, "error")
[18:41:37.810]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.810]                   NULL)
[18:41:37.810]                 if (is_error) {
[18:41:37.810]                   sessionInformation <- function() {
[18:41:37.810]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.810]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.810]                       search = base::search(), system = base::Sys.info())
[18:41:37.810]                   }
[18:41:37.810]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.810]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.810]                     cond$call), session = sessionInformation(), 
[18:41:37.810]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.810]                   signalCondition(cond)
[18:41:37.810]                 }
[18:41:37.810]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.810]                 "immediateCondition"))) {
[18:41:37.810]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.810]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.810]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.810]                   if (TRUE && !signal) {
[18:41:37.810]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.810]                     {
[18:41:37.810]                       inherits <- base::inherits
[18:41:37.810]                       invokeRestart <- base::invokeRestart
[18:41:37.810]                       is.null <- base::is.null
[18:41:37.810]                       muffled <- FALSE
[18:41:37.810]                       if (inherits(cond, "message")) {
[18:41:37.810]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.810]                         if (muffled) 
[18:41:37.810]                           invokeRestart("muffleMessage")
[18:41:37.810]                       }
[18:41:37.810]                       else if (inherits(cond, "warning")) {
[18:41:37.810]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.810]                         if (muffled) 
[18:41:37.810]                           invokeRestart("muffleWarning")
[18:41:37.810]                       }
[18:41:37.810]                       else if (inherits(cond, "condition")) {
[18:41:37.810]                         if (!is.null(pattern)) {
[18:41:37.810]                           computeRestarts <- base::computeRestarts
[18:41:37.810]                           grepl <- base::grepl
[18:41:37.810]                           restarts <- computeRestarts(cond)
[18:41:37.810]                           for (restart in restarts) {
[18:41:37.810]                             name <- restart$name
[18:41:37.810]                             if (is.null(name)) 
[18:41:37.810]                               next
[18:41:37.810]                             if (!grepl(pattern, name)) 
[18:41:37.810]                               next
[18:41:37.810]                             invokeRestart(restart)
[18:41:37.810]                             muffled <- TRUE
[18:41:37.810]                             break
[18:41:37.810]                           }
[18:41:37.810]                         }
[18:41:37.810]                       }
[18:41:37.810]                       invisible(muffled)
[18:41:37.810]                     }
[18:41:37.810]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.810]                   }
[18:41:37.810]                 }
[18:41:37.810]                 else {
[18:41:37.810]                   if (TRUE) {
[18:41:37.810]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.810]                     {
[18:41:37.810]                       inherits <- base::inherits
[18:41:37.810]                       invokeRestart <- base::invokeRestart
[18:41:37.810]                       is.null <- base::is.null
[18:41:37.810]                       muffled <- FALSE
[18:41:37.810]                       if (inherits(cond, "message")) {
[18:41:37.810]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.810]                         if (muffled) 
[18:41:37.810]                           invokeRestart("muffleMessage")
[18:41:37.810]                       }
[18:41:37.810]                       else if (inherits(cond, "warning")) {
[18:41:37.810]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.810]                         if (muffled) 
[18:41:37.810]                           invokeRestart("muffleWarning")
[18:41:37.810]                       }
[18:41:37.810]                       else if (inherits(cond, "condition")) {
[18:41:37.810]                         if (!is.null(pattern)) {
[18:41:37.810]                           computeRestarts <- base::computeRestarts
[18:41:37.810]                           grepl <- base::grepl
[18:41:37.810]                           restarts <- computeRestarts(cond)
[18:41:37.810]                           for (restart in restarts) {
[18:41:37.810]                             name <- restart$name
[18:41:37.810]                             if (is.null(name)) 
[18:41:37.810]                               next
[18:41:37.810]                             if (!grepl(pattern, name)) 
[18:41:37.810]                               next
[18:41:37.810]                             invokeRestart(restart)
[18:41:37.810]                             muffled <- TRUE
[18:41:37.810]                             break
[18:41:37.810]                           }
[18:41:37.810]                         }
[18:41:37.810]                       }
[18:41:37.810]                       invisible(muffled)
[18:41:37.810]                     }
[18:41:37.810]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.810]                   }
[18:41:37.810]                 }
[18:41:37.810]             }
[18:41:37.810]         }))
[18:41:37.810]     }, error = function(ex) {
[18:41:37.810]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.810]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.810]                 ...future.rng), started = ...future.startTime, 
[18:41:37.810]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.810]             version = "1.8"), class = "FutureResult")
[18:41:37.810]     }, finally = {
[18:41:37.810]         if (!identical(...future.workdir, getwd())) 
[18:41:37.810]             setwd(...future.workdir)
[18:41:37.810]         {
[18:41:37.810]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.810]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.810]             }
[18:41:37.810]             base::options(...future.oldOptions)
[18:41:37.810]             if (.Platform$OS.type == "windows") {
[18:41:37.810]                 old_names <- names(...future.oldEnvVars)
[18:41:37.810]                 envs <- base::Sys.getenv()
[18:41:37.810]                 names <- names(envs)
[18:41:37.810]                 common <- intersect(names, old_names)
[18:41:37.810]                 added <- setdiff(names, old_names)
[18:41:37.810]                 removed <- setdiff(old_names, names)
[18:41:37.810]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.810]                   envs[common]]
[18:41:37.810]                 NAMES <- toupper(changed)
[18:41:37.810]                 args <- list()
[18:41:37.810]                 for (kk in seq_along(NAMES)) {
[18:41:37.810]                   name <- changed[[kk]]
[18:41:37.810]                   NAME <- NAMES[[kk]]
[18:41:37.810]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.810]                     next
[18:41:37.810]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.810]                 }
[18:41:37.810]                 NAMES <- toupper(added)
[18:41:37.810]                 for (kk in seq_along(NAMES)) {
[18:41:37.810]                   name <- added[[kk]]
[18:41:37.810]                   NAME <- NAMES[[kk]]
[18:41:37.810]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.810]                     next
[18:41:37.810]                   args[[name]] <- ""
[18:41:37.810]                 }
[18:41:37.810]                 NAMES <- toupper(removed)
[18:41:37.810]                 for (kk in seq_along(NAMES)) {
[18:41:37.810]                   name <- removed[[kk]]
[18:41:37.810]                   NAME <- NAMES[[kk]]
[18:41:37.810]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.810]                     next
[18:41:37.810]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.810]                 }
[18:41:37.810]                 if (length(args) > 0) 
[18:41:37.810]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.810]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.810]             }
[18:41:37.810]             else {
[18:41:37.810]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.810]             }
[18:41:37.810]             {
[18:41:37.810]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.810]                   0L) {
[18:41:37.810]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.810]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.810]                   base::options(opts)
[18:41:37.810]                 }
[18:41:37.810]                 {
[18:41:37.810]                   {
[18:41:37.810]                     base::assign(".Random.seed", c(10403L, 2L, 
[18:41:37.810]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[18:41:37.810]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[18:41:37.810]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[18:41:37.810]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[18:41:37.810]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[18:41:37.810]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[18:41:37.810]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[18:41:37.810]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[18:41:37.810]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[18:41:37.810]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[18:41:37.810]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[18:41:37.810]                     -1512233174L, -1985955764L, -425390065L, 
[18:41:37.810]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[18:41:37.810]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[18:41:37.810]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[18:41:37.810]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[18:41:37.810]                     1818328109L, -1284085436L, -1981489558L, 
[18:41:37.810]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[18:41:37.810]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[18:41:37.810]                     -1718567047L, -793788661L, -1133789126L, 
[18:41:37.810]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[18:41:37.810]                     -1823521982L, -1345991523L, -1672661737L, 
[18:41:37.810]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[18:41:37.810]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[18:41:37.810]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[18:41:37.810]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[18:41:37.810]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[18:41:37.810]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[18:41:37.810]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[18:41:37.810]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[18:41:37.810]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[18:41:37.810]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[18:41:37.810]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[18:41:37.810]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[18:41:37.810]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[18:41:37.810]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[18:41:37.810]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[18:41:37.810]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[18:41:37.810]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[18:41:37.810]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[18:41:37.810]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[18:41:37.810]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[18:41:37.810]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[18:41:37.810]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[18:41:37.810]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[18:41:37.810]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[18:41:37.810]                     -1119334354L, -1521015416L, -2041922421L, 
[18:41:37.810]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[18:41:37.810]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[18:41:37.810]                     1232111981L, -1801753084L, -1608606422L, 
[18:41:37.810]                     -1172096363L, 1420874031L, -1210473418L, 
[18:41:37.810]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[18:41:37.810]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[18:41:37.810]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[18:41:37.810]                     679371266L, -591318819L, -104578089L, -172818754L, 
[18:41:37.810]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[18:41:37.810]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[18:41:37.810]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[18:41:37.810]                     -332493318L, -1978392251L, -1691039632L, 
[18:41:37.810]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[18:41:37.810]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[18:41:37.810]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[18:41:37.810]                     87560756L, -87565624L, 426345146L, -699970416L, 
[18:41:37.810]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[18:41:37.810]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[18:41:37.810]                     -1178330196L, -687617348L, -1701912078L, 
[18:41:37.810]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[18:41:37.810]                     -1345416048L, 1816730492L, -1570431212L, 
[18:41:37.810]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[18:41:37.810]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[18:41:37.810]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[18:41:37.810]                     -1493184262L, -1943836976L, -590788308L, 
[18:41:37.810]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[18:41:37.810]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[18:41:37.810]                     1274857340L, -1205842638L, -1938479504L, 
[18:41:37.810]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[18:41:37.810]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[18:41:37.810]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[18:41:37.810]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[18:41:37.810]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[18:41:37.810]                     -1460751252L, 1201879444L, -1459788718L, 
[18:41:37.810]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[18:41:37.810]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[18:41:37.810]                     -420945808L, -1997735900L, -1838404552L, 
[18:41:37.810]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[18:41:37.810]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[18:41:37.810]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[18:41:37.810]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[18:41:37.810]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[18:41:37.810]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[18:41:37.810]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[18:41:37.810]                     942193650L, 751741680L, 689743428L, -18455976L, 
[18:41:37.810]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[18:41:37.810]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[18:41:37.810]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[18:41:37.810]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[18:41:37.810]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[18:41:37.810]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[18:41:37.810]                     -1357570110L, 1896595240L, -2066952276L, 
[18:41:37.810]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[18:41:37.810]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[18:41:37.810]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[18:41:37.810]                     769655120L, 236357794L, 181393736L, -13334772L, 
[18:41:37.810]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[18:41:37.810]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[18:41:37.810]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[18:41:37.810]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[18:41:37.810]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[18:41:37.810]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[18:41:37.810]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[18:41:37.810]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[18:41:37.810]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[18:41:37.810]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[18:41:37.810]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[18:41:37.810]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[18:41:37.810]                     -1365842884L, -438961294L, -1851472272L, 
[18:41:37.810]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[18:41:37.810]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[18:41:37.810]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[18:41:37.810]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[18:41:37.810]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[18:41:37.810]                     -594809770L, -2146766621L, -2013964635L, 
[18:41:37.810]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[18:41:37.810]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[18:41:37.810]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[18:41:37.810]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[18:41:37.810]                     -1426021878L, -1285634264L, 1507547537L, 
[18:41:37.810]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[18:41:37.810]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[18:41:37.810]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[18:41:37.810]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[18:41:37.810]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[18:41:37.810]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[18:41:37.810]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[18:41:37.810]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[18:41:37.810]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[18:41:37.810]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[18:41:37.810]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[18:41:37.810]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[18:41:37.810]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[18:41:37.810]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[18:41:37.810]                     -1604604761L, 1421229008L, -1268333714L, 
[18:41:37.810]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[18:41:37.810]                     -2070476623L, -2099222749L, 1141171236L, 
[18:41:37.810]                     -146426158L, -1797385433L, -1129376399L, 
[18:41:37.810]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[18:41:37.810]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[18:41:37.810]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[18:41:37.810]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[18:41:37.810]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[18:41:37.810]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[18:41:37.810]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[18:41:37.810]                     -1092079724L, -1765622238L, -1882554057L, 
[18:41:37.810]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[18:41:37.810]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[18:41:37.810]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[18:41:37.810]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[18:41:37.810]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[18:41:37.810]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[18:41:37.810]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[18:41:37.810]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[18:41:37.810]                     865377681L, -1127426242L), envir = base::globalenv(), 
[18:41:37.810]                       inherits = FALSE)
[18:41:37.810]                     NULL
[18:41:37.810]                   }
[18:41:37.810]                   options(future.plan = NULL)
[18:41:37.810]                   if (is.na(NA_character_)) 
[18:41:37.810]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.810]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.810]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.810]                     .init = FALSE)
[18:41:37.810]                 }
[18:41:37.810]             }
[18:41:37.810]         }
[18:41:37.810]     })
[18:41:37.810]     if (TRUE) {
[18:41:37.810]         base::sink(type = "output", split = FALSE)
[18:41:37.810]         if (TRUE) {
[18:41:37.810]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.810]         }
[18:41:37.810]         else {
[18:41:37.810]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.810]         }
[18:41:37.810]         base::close(...future.stdout)
[18:41:37.810]         ...future.stdout <- NULL
[18:41:37.810]     }
[18:41:37.810]     ...future.result$conditions <- ...future.conditions
[18:41:37.810]     ...future.result$finished <- base::Sys.time()
[18:41:37.810]     ...future.result
[18:41:37.810] }
[18:41:37.815] assign_globals() ...
[18:41:37.815] List of 5
[18:41:37.815]  $ ...future.FUN            :function (...)  
[18:41:37.815]  $ future.call.arguments    : list()
[18:41:37.815]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.815]  $ ...future.elements_ii    :List of 5
[18:41:37.815]   ..$ : int 0
[18:41:37.815]   ..$ : int 0
[18:41:37.815]   ..$ : int 0
[18:41:37.815]   ..$ : int 0
[18:41:37.815]   ..$ : int 0
[18:41:37.815]  $ ...future.seeds_ii       :List of 5
[18:41:37.815]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[18:41:37.815]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[18:41:37.815]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[18:41:37.815]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[18:41:37.815]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[18:41:37.815]  $ ...future.globals.maxSize: NULL
[18:41:37.815]  - attr(*, "where")=List of 5
[18:41:37.815]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:37.815]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:37.815]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:37.815]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:37.815]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:37.815]  - attr(*, "resolved")= logi FALSE
[18:41:37.815]  - attr(*, "total_size")= num 7184
[18:41:37.815]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.815]  - attr(*, "already-done")= logi TRUE
[18:41:37.825] - reassign environment for '...future.FUN'
[18:41:37.825] - copied '...future.FUN' to environment
[18:41:37.825] - copied 'future.call.arguments' to environment
[18:41:37.825] - copied '...future.elements_ii' to environment
[18:41:37.826] - copied '...future.seeds_ii' to environment
[18:41:37.826] - copied '...future.globals.maxSize' to environment
[18:41:37.826] assign_globals() ... done
[18:41:37.826] plan(): Setting new future strategy stack:
[18:41:37.826] List of future strategies:
[18:41:37.826] 1. sequential:
[18:41:37.826]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.826]    - tweaked: FALSE
[18:41:37.826]    - call: NULL
[18:41:37.827] plan(): nbrOfWorkers() = 1
[18:41:37.828] plan(): Setting new future strategy stack:
[18:41:37.828] List of future strategies:
[18:41:37.828] 1. sequential:
[18:41:37.828]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.828]    - tweaked: FALSE
[18:41:37.828]    - call: plan(strategy)
[18:41:37.829] plan(): nbrOfWorkers() = 1
[18:41:37.829] SequentialFuture started (and completed)
[18:41:37.829] - Launch lazy future ... done
[18:41:37.830] run() for 'SequentialFuture' ... done
[18:41:37.830] Created future:
[18:41:37.830] SequentialFuture:
[18:41:37.830] Label: 'future_replicate-1'
[18:41:37.830] Expression:
[18:41:37.830] {
[18:41:37.830]     do.call(function(...) {
[18:41:37.830]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.830]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.830]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.830]             on.exit(options(oopts), add = TRUE)
[18:41:37.830]         }
[18:41:37.830]         {
[18:41:37.830]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.830]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.830]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.830]                   envir = globalenv(), inherits = FALSE)
[18:41:37.830]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.830]             })
[18:41:37.830]         }
[18:41:37.830]     }, args = future.call.arguments)
[18:41:37.830] }
[18:41:37.830] Lazy evaluation: FALSE
[18:41:37.830] Asynchronous evaluation: FALSE
[18:41:37.830] Local evaluation: TRUE
[18:41:37.830] Environment: R_GlobalEnv
[18:41:37.830] Capture standard output: TRUE
[18:41:37.830] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.830] Globals: 5 objects totaling 558 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, list '...future.seeds_ii' of 211 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.830] Packages: <none>
[18:41:37.830] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:37.830] Resolved: TRUE
[18:41:37.830] Value: 91 bytes of class 'list'
[18:41:37.830] Early signaling: FALSE
[18:41:37.830] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:37.830] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.831] Chunk #1 of 1 ... DONE
[18:41:37.831] Launching 1 futures (chunks) ... DONE
[18:41:37.831] Resolving 1 futures (chunks) ...
[18:41:37.832] resolve() on list ...
[18:41:37.832]  recursive: 0
[18:41:37.832]  length: 1
[18:41:37.832] 
[18:41:37.832] resolved() for 'SequentialFuture' ...
[18:41:37.832] - state: 'finished'
[18:41:37.833] - run: TRUE
[18:41:37.833] - result: 'FutureResult'
[18:41:37.833] resolved() for 'SequentialFuture' ... done
[18:41:37.833] Future #1
[18:41:37.833] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:37.833] - nx: 1
[18:41:37.834] - relay: TRUE
[18:41:37.834] - stdout: TRUE
[18:41:37.834] - signal: TRUE
[18:41:37.834] - resignal: FALSE
[18:41:37.834] - force: TRUE
[18:41:37.834] - relayed: [n=1] FALSE
[18:41:37.834] - queued futures: [n=1] FALSE
[18:41:37.835]  - until=1
[18:41:37.835]  - relaying element #1
[18:41:37.835] - relayed: [n=1] TRUE
[18:41:37.835] - queued futures: [n=1] TRUE
[18:41:37.835] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:37.836]  length: 0 (resolved future 1)
[18:41:37.836] Relaying remaining futures
[18:41:37.836] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.836] - nx: 1
[18:41:37.836] - relay: TRUE
[18:41:37.836] - stdout: TRUE
[18:41:37.836] - signal: TRUE
[18:41:37.837] - resignal: FALSE
[18:41:37.837] - force: TRUE
[18:41:37.837] - relayed: [n=1] TRUE
[18:41:37.837] - queued futures: [n=1] TRUE
 - flush all
[18:41:37.837] - relayed: [n=1] TRUE
[18:41:37.837] - queued futures: [n=1] TRUE
[18:41:37.838] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.838] resolve() on list ... DONE
[18:41:37.838]  - Number of value chunks collected: 1
[18:41:37.838] Resolving 1 futures (chunks) ... DONE
[18:41:37.838] Reducing values from 1 chunks ...
[18:41:37.838]  - Number of values collected after concatenation: 5
[18:41:37.839]  - Number of values expected: 5
[18:41:37.839] Reducing values from 1 chunks ... DONE
[18:41:37.839] future_lapply() ... DONE
[18:41:37.839] future_lapply() ...
[18:41:37.840] Generating random seeds ...
[18:41:37.840] Generating random seed streams for 5 elements ...
[18:41:37.840] Generating random seed streams for 5 elements ... DONE
[18:41:37.840] Generating random seeds ... DONE
[18:41:37.841] 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
[18:41:37.841] Number of chunks: 1
[18:41:37.841] getGlobalsAndPackagesXApply() ...
[18:41:37.842]  - future.globals: TRUE
[18:41:37.842] getGlobalsAndPackages() ...
[18:41:37.842] Searching for globals...
[18:41:37.843] - globals found: [2] 'FUN', 'sample'
[18:41:37.843] Searching for globals ... DONE
[18:41:37.844] Resolving globals: FALSE
[18:41:37.844] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:37.845] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:37.845] - globals: [1] 'FUN'
[18:41:37.846] 
[18:41:37.846] getGlobalsAndPackages() ... DONE
[18:41:37.846]  - globals found/used: [n=1] 'FUN'
[18:41:37.846]  - needed namespaces: [n=0] 
[18:41:37.846] Finding globals ... DONE
[18:41:37.846]  - use_args: TRUE
[18:41:37.847]  - Getting '...' globals ...
[18:41:37.847] resolve() on list ...
[18:41:37.847]  recursive: 0
[18:41:37.847]  length: 1
[18:41:37.848]  elements: '...'
[18:41:37.848]  length: 0 (resolved future 1)
[18:41:37.848] resolve() on list ... DONE
[18:41:37.848]    - '...' content: [n=0] 
[18:41:37.848] List of 1
[18:41:37.848]  $ ...: list()
[18:41:37.848]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.848]  - attr(*, "where")=List of 1
[18:41:37.848]   ..$ ...:<environment: 0x0000028bfc369f10> 
[18:41:37.848]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.848]  - attr(*, "resolved")= logi TRUE
[18:41:37.848]  - attr(*, "total_size")= num NA
[18:41:37.851]  - Getting '...' globals ... DONE
[18:41:37.851] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:37.851] List of 2
[18:41:37.851]  $ ...future.FUN:function (...)  
[18:41:37.851]  $ ...          : list()
[18:41:37.851]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.851]  - attr(*, "where")=List of 2
[18:41:37.851]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.851]   ..$ ...          :<environment: 0x0000028bfc369f10> 
[18:41:37.851]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.851]  - attr(*, "resolved")= logi FALSE
[18:41:37.851]  - attr(*, "total_size")= int 7184
[18:41:37.855] Packages to be attached in all futures: [n=0] 
[18:41:37.855] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.855] Number of futures (= number of chunks): 1
[18:41:37.855] Launching 1 futures (chunks) ...
[18:41:37.855] Chunk #1 of 1 ...
[18:41:37.856]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.856] getGlobalsAndPackages() ...
[18:41:37.856] Searching for globals...
[18:41:37.856] 
[18:41:37.856] Searching for globals ... DONE
[18:41:37.857] - globals: [0] <none>
[18:41:37.857] getGlobalsAndPackages() ... DONE
[18:41:37.857]    + additional globals found: [n=0] 
[18:41:37.857]    + additional namespaces needed: [n=0] 
[18:41:37.857]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.857]  - seeds: [5] <seeds>
[18:41:37.857]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.858] getGlobalsAndPackages() ...
[18:41:37.858] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.858] Resolving globals: FALSE
[18:41:37.858] Tweak future expression to call with '...' arguments ...
[18:41:37.858] {
[18:41:37.858]     do.call(function(...) {
[18:41:37.858]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.858]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.858]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.858]             on.exit(options(oopts), add = TRUE)
[18:41:37.858]         }
[18:41:37.858]         {
[18:41:37.858]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.858]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.858]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.858]                   envir = globalenv(), inherits = FALSE)
[18:41:37.858]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.858]             })
[18:41:37.858]         }
[18:41:37.858]     }, args = future.call.arguments)
[18:41:37.858] }
[18:41:37.859] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.859] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.859] 
[18:41:37.860] getGlobalsAndPackages() ... DONE
[18:41:37.860] run() for 'Future' ...
[18:41:37.860] - state: 'created'
[18:41:37.860] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.861] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.861] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.861]   - Field: 'label'
[18:41:37.861]   - Field: 'local'
[18:41:37.861]   - Field: 'owner'
[18:41:37.862]   - Field: 'envir'
[18:41:37.862]   - Field: 'packages'
[18:41:37.862]   - Field: 'gc'
[18:41:37.862]   - Field: 'conditions'
[18:41:37.862]   - Field: 'expr'
[18:41:37.862]   - Field: 'uuid'
[18:41:37.863]   - Field: 'seed'
[18:41:37.863]   - Field: 'version'
[18:41:37.863]   - Field: 'result'
[18:41:37.863]   - Field: 'asynchronous'
[18:41:37.863]   - Field: 'calls'
[18:41:37.863]   - Field: 'globals'
[18:41:37.864]   - Field: 'stdout'
[18:41:37.864]   - Field: 'earlySignal'
[18:41:37.864]   - Field: 'lazy'
[18:41:37.864]   - Field: 'state'
[18:41:37.864] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:37.864] - Launch lazy future ...
[18:41:37.865] Packages needed by the future expression (n = 0): <none>
[18:41:37.865] Packages needed by future strategies (n = 0): <none>
[18:41:37.865] {
[18:41:37.865]     {
[18:41:37.865]         {
[18:41:37.865]             ...future.startTime <- base::Sys.time()
[18:41:37.865]             {
[18:41:37.865]                 {
[18:41:37.865]                   {
[18:41:37.865]                     base::local({
[18:41:37.865]                       has_future <- base::requireNamespace("future", 
[18:41:37.865]                         quietly = TRUE)
[18:41:37.865]                       if (has_future) {
[18:41:37.865]                         ns <- base::getNamespace("future")
[18:41:37.865]                         version <- ns[[".package"]][["version"]]
[18:41:37.865]                         if (is.null(version)) 
[18:41:37.865]                           version <- utils::packageVersion("future")
[18:41:37.865]                       }
[18:41:37.865]                       else {
[18:41:37.865]                         version <- NULL
[18:41:37.865]                       }
[18:41:37.865]                       if (!has_future || version < "1.8.0") {
[18:41:37.865]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.865]                           "", base::R.version$version.string), 
[18:41:37.865]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:37.865]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.865]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.865]                             "release", "version")], collapse = " "), 
[18:41:37.865]                           hostname = base::Sys.info()[["nodename"]])
[18:41:37.865]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.865]                           info)
[18:41:37.865]                         info <- base::paste(info, collapse = "; ")
[18:41:37.865]                         if (!has_future) {
[18:41:37.865]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.865]                             info)
[18:41:37.865]                         }
[18:41:37.865]                         else {
[18:41:37.865]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.865]                             info, version)
[18:41:37.865]                         }
[18:41:37.865]                         base::stop(msg)
[18:41:37.865]                       }
[18:41:37.865]                     })
[18:41:37.865]                   }
[18:41:37.865]                   ...future.strategy.old <- future::plan("list")
[18:41:37.865]                   options(future.plan = NULL)
[18:41:37.865]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.865]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.865]                 }
[18:41:37.865]                 ...future.workdir <- getwd()
[18:41:37.865]             }
[18:41:37.865]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.865]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.865]         }
[18:41:37.865]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.865]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:37.865]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.865]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.865]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.865]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.865]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.865]             base::names(...future.oldOptions))
[18:41:37.865]     }
[18:41:37.865]     if (FALSE) {
[18:41:37.865]     }
[18:41:37.865]     else {
[18:41:37.865]         if (TRUE) {
[18:41:37.865]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.865]                 open = "w")
[18:41:37.865]         }
[18:41:37.865]         else {
[18:41:37.865]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.865]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.865]         }
[18:41:37.865]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.865]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.865]             base::sink(type = "output", split = FALSE)
[18:41:37.865]             base::close(...future.stdout)
[18:41:37.865]         }, add = TRUE)
[18:41:37.865]     }
[18:41:37.865]     ...future.frame <- base::sys.nframe()
[18:41:37.865]     ...future.conditions <- base::list()
[18:41:37.865]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.865]     if (FALSE) {
[18:41:37.865]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.865]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.865]     }
[18:41:37.865]     ...future.result <- base::tryCatch({
[18:41:37.865]         base::withCallingHandlers({
[18:41:37.865]             ...future.value <- base::withVisible(base::local({
[18:41:37.865]                 do.call(function(...) {
[18:41:37.865]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.865]                   if (!identical(...future.globals.maxSize.org, 
[18:41:37.865]                     ...future.globals.maxSize)) {
[18:41:37.865]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.865]                     on.exit(options(oopts), add = TRUE)
[18:41:37.865]                   }
[18:41:37.865]                   {
[18:41:37.865]                     lapply(seq_along(...future.elements_ii), 
[18:41:37.865]                       FUN = function(jj) {
[18:41:37.865]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.865]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.865]                           envir = globalenv(), inherits = FALSE)
[18:41:37.865]                         ...future.FUN(...future.X_jj, ...)
[18:41:37.865]                       })
[18:41:37.865]                   }
[18:41:37.865]                 }, args = future.call.arguments)
[18:41:37.865]             }))
[18:41:37.865]             future::FutureResult(value = ...future.value$value, 
[18:41:37.865]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.865]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.865]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.865]                     ...future.globalenv.names))
[18:41:37.865]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.865]         }, condition = base::local({
[18:41:37.865]             c <- base::c
[18:41:37.865]             inherits <- base::inherits
[18:41:37.865]             invokeRestart <- base::invokeRestart
[18:41:37.865]             length <- base::length
[18:41:37.865]             list <- base::list
[18:41:37.865]             seq.int <- base::seq.int
[18:41:37.865]             signalCondition <- base::signalCondition
[18:41:37.865]             sys.calls <- base::sys.calls
[18:41:37.865]             `[[` <- base::`[[`
[18:41:37.865]             `+` <- base::`+`
[18:41:37.865]             `<<-` <- base::`<<-`
[18:41:37.865]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.865]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.865]                   3L)]
[18:41:37.865]             }
[18:41:37.865]             function(cond) {
[18:41:37.865]                 is_error <- inherits(cond, "error")
[18:41:37.865]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.865]                   NULL)
[18:41:37.865]                 if (is_error) {
[18:41:37.865]                   sessionInformation <- function() {
[18:41:37.865]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.865]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.865]                       search = base::search(), system = base::Sys.info())
[18:41:37.865]                   }
[18:41:37.865]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.865]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.865]                     cond$call), session = sessionInformation(), 
[18:41:37.865]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.865]                   signalCondition(cond)
[18:41:37.865]                 }
[18:41:37.865]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.865]                 "immediateCondition"))) {
[18:41:37.865]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.865]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.865]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.865]                   if (TRUE && !signal) {
[18:41:37.865]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.865]                     {
[18:41:37.865]                       inherits <- base::inherits
[18:41:37.865]                       invokeRestart <- base::invokeRestart
[18:41:37.865]                       is.null <- base::is.null
[18:41:37.865]                       muffled <- FALSE
[18:41:37.865]                       if (inherits(cond, "message")) {
[18:41:37.865]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.865]                         if (muffled) 
[18:41:37.865]                           invokeRestart("muffleMessage")
[18:41:37.865]                       }
[18:41:37.865]                       else if (inherits(cond, "warning")) {
[18:41:37.865]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.865]                         if (muffled) 
[18:41:37.865]                           invokeRestart("muffleWarning")
[18:41:37.865]                       }
[18:41:37.865]                       else if (inherits(cond, "condition")) {
[18:41:37.865]                         if (!is.null(pattern)) {
[18:41:37.865]                           computeRestarts <- base::computeRestarts
[18:41:37.865]                           grepl <- base::grepl
[18:41:37.865]                           restarts <- computeRestarts(cond)
[18:41:37.865]                           for (restart in restarts) {
[18:41:37.865]                             name <- restart$name
[18:41:37.865]                             if (is.null(name)) 
[18:41:37.865]                               next
[18:41:37.865]                             if (!grepl(pattern, name)) 
[18:41:37.865]                               next
[18:41:37.865]                             invokeRestart(restart)
[18:41:37.865]                             muffled <- TRUE
[18:41:37.865]                             break
[18:41:37.865]                           }
[18:41:37.865]                         }
[18:41:37.865]                       }
[18:41:37.865]                       invisible(muffled)
[18:41:37.865]                     }
[18:41:37.865]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.865]                   }
[18:41:37.865]                 }
[18:41:37.865]                 else {
[18:41:37.865]                   if (TRUE) {
[18:41:37.865]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.865]                     {
[18:41:37.865]                       inherits <- base::inherits
[18:41:37.865]                       invokeRestart <- base::invokeRestart
[18:41:37.865]                       is.null <- base::is.null
[18:41:37.865]                       muffled <- FALSE
[18:41:37.865]                       if (inherits(cond, "message")) {
[18:41:37.865]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.865]                         if (muffled) 
[18:41:37.865]                           invokeRestart("muffleMessage")
[18:41:37.865]                       }
[18:41:37.865]                       else if (inherits(cond, "warning")) {
[18:41:37.865]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.865]                         if (muffled) 
[18:41:37.865]                           invokeRestart("muffleWarning")
[18:41:37.865]                       }
[18:41:37.865]                       else if (inherits(cond, "condition")) {
[18:41:37.865]                         if (!is.null(pattern)) {
[18:41:37.865]                           computeRestarts <- base::computeRestarts
[18:41:37.865]                           grepl <- base::grepl
[18:41:37.865]                           restarts <- computeRestarts(cond)
[18:41:37.865]                           for (restart in restarts) {
[18:41:37.865]                             name <- restart$name
[18:41:37.865]                             if (is.null(name)) 
[18:41:37.865]                               next
[18:41:37.865]                             if (!grepl(pattern, name)) 
[18:41:37.865]                               next
[18:41:37.865]                             invokeRestart(restart)
[18:41:37.865]                             muffled <- TRUE
[18:41:37.865]                             break
[18:41:37.865]                           }
[18:41:37.865]                         }
[18:41:37.865]                       }
[18:41:37.865]                       invisible(muffled)
[18:41:37.865]                     }
[18:41:37.865]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.865]                   }
[18:41:37.865]                 }
[18:41:37.865]             }
[18:41:37.865]         }))
[18:41:37.865]     }, error = function(ex) {
[18:41:37.865]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.865]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.865]                 ...future.rng), started = ...future.startTime, 
[18:41:37.865]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.865]             version = "1.8"), class = "FutureResult")
[18:41:37.865]     }, finally = {
[18:41:37.865]         if (!identical(...future.workdir, getwd())) 
[18:41:37.865]             setwd(...future.workdir)
[18:41:37.865]         {
[18:41:37.865]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.865]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.865]             }
[18:41:37.865]             base::options(...future.oldOptions)
[18:41:37.865]             if (.Platform$OS.type == "windows") {
[18:41:37.865]                 old_names <- names(...future.oldEnvVars)
[18:41:37.865]                 envs <- base::Sys.getenv()
[18:41:37.865]                 names <- names(envs)
[18:41:37.865]                 common <- intersect(names, old_names)
[18:41:37.865]                 added <- setdiff(names, old_names)
[18:41:37.865]                 removed <- setdiff(old_names, names)
[18:41:37.865]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.865]                   envs[common]]
[18:41:37.865]                 NAMES <- toupper(changed)
[18:41:37.865]                 args <- list()
[18:41:37.865]                 for (kk in seq_along(NAMES)) {
[18:41:37.865]                   name <- changed[[kk]]
[18:41:37.865]                   NAME <- NAMES[[kk]]
[18:41:37.865]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.865]                     next
[18:41:37.865]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.865]                 }
[18:41:37.865]                 NAMES <- toupper(added)
[18:41:37.865]                 for (kk in seq_along(NAMES)) {
[18:41:37.865]                   name <- added[[kk]]
[18:41:37.865]                   NAME <- NAMES[[kk]]
[18:41:37.865]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.865]                     next
[18:41:37.865]                   args[[name]] <- ""
[18:41:37.865]                 }
[18:41:37.865]                 NAMES <- toupper(removed)
[18:41:37.865]                 for (kk in seq_along(NAMES)) {
[18:41:37.865]                   name <- removed[[kk]]
[18:41:37.865]                   NAME <- NAMES[[kk]]
[18:41:37.865]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.865]                     next
[18:41:37.865]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.865]                 }
[18:41:37.865]                 if (length(args) > 0) 
[18:41:37.865]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.865]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.865]             }
[18:41:37.865]             else {
[18:41:37.865]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.865]             }
[18:41:37.865]             {
[18:41:37.865]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.865]                   0L) {
[18:41:37.865]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.865]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.865]                   base::options(opts)
[18:41:37.865]                 }
[18:41:37.865]                 {
[18:41:37.865]                   {
[18:41:37.865]                     base::assign(".Random.seed", c(10403L, 4L, 
[18:41:37.865]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[18:41:37.865]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[18:41:37.865]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[18:41:37.865]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[18:41:37.865]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[18:41:37.865]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[18:41:37.865]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[18:41:37.865]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[18:41:37.865]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[18:41:37.865]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[18:41:37.865]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[18:41:37.865]                     -1512233174L, -1985955764L, -425390065L, 
[18:41:37.865]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[18:41:37.865]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[18:41:37.865]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[18:41:37.865]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[18:41:37.865]                     1818328109L, -1284085436L, -1981489558L, 
[18:41:37.865]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[18:41:37.865]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[18:41:37.865]                     -1718567047L, -793788661L, -1133789126L, 
[18:41:37.865]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[18:41:37.865]                     -1823521982L, -1345991523L, -1672661737L, 
[18:41:37.865]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[18:41:37.865]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[18:41:37.865]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[18:41:37.865]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[18:41:37.865]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[18:41:37.865]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[18:41:37.865]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[18:41:37.865]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[18:41:37.865]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[18:41:37.865]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[18:41:37.865]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[18:41:37.865]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[18:41:37.865]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[18:41:37.865]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[18:41:37.865]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[18:41:37.865]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[18:41:37.865]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[18:41:37.865]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[18:41:37.865]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[18:41:37.865]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[18:41:37.865]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[18:41:37.865]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[18:41:37.865]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[18:41:37.865]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[18:41:37.865]                     -1119334354L, -1521015416L, -2041922421L, 
[18:41:37.865]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[18:41:37.865]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[18:41:37.865]                     1232111981L, -1801753084L, -1608606422L, 
[18:41:37.865]                     -1172096363L, 1420874031L, -1210473418L, 
[18:41:37.865]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[18:41:37.865]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[18:41:37.865]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[18:41:37.865]                     679371266L, -591318819L, -104578089L, -172818754L, 
[18:41:37.865]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[18:41:37.865]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[18:41:37.865]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[18:41:37.865]                     -332493318L, -1978392251L, -1691039632L, 
[18:41:37.865]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[18:41:37.865]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[18:41:37.865]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[18:41:37.865]                     87560756L, -87565624L, 426345146L, -699970416L, 
[18:41:37.865]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[18:41:37.865]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[18:41:37.865]                     -1178330196L, -687617348L, -1701912078L, 
[18:41:37.865]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[18:41:37.865]                     -1345416048L, 1816730492L, -1570431212L, 
[18:41:37.865]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[18:41:37.865]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[18:41:37.865]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[18:41:37.865]                     -1493184262L, -1943836976L, -590788308L, 
[18:41:37.865]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[18:41:37.865]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[18:41:37.865]                     1274857340L, -1205842638L, -1938479504L, 
[18:41:37.865]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[18:41:37.865]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[18:41:37.865]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[18:41:37.865]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[18:41:37.865]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[18:41:37.865]                     -1460751252L, 1201879444L, -1459788718L, 
[18:41:37.865]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[18:41:37.865]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[18:41:37.865]                     -420945808L, -1997735900L, -1838404552L, 
[18:41:37.865]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[18:41:37.865]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[18:41:37.865]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[18:41:37.865]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[18:41:37.865]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[18:41:37.865]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[18:41:37.865]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[18:41:37.865]                     942193650L, 751741680L, 689743428L, -18455976L, 
[18:41:37.865]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[18:41:37.865]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[18:41:37.865]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[18:41:37.865]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[18:41:37.865]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[18:41:37.865]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[18:41:37.865]                     -1357570110L, 1896595240L, -2066952276L, 
[18:41:37.865]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[18:41:37.865]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[18:41:37.865]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[18:41:37.865]                     769655120L, 236357794L, 181393736L, -13334772L, 
[18:41:37.865]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[18:41:37.865]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[18:41:37.865]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[18:41:37.865]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[18:41:37.865]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[18:41:37.865]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[18:41:37.865]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[18:41:37.865]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[18:41:37.865]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[18:41:37.865]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[18:41:37.865]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[18:41:37.865]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[18:41:37.865]                     -1365842884L, -438961294L, -1851472272L, 
[18:41:37.865]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[18:41:37.865]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[18:41:37.865]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[18:41:37.865]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[18:41:37.865]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[18:41:37.865]                     -594809770L, -2146766621L, -2013964635L, 
[18:41:37.865]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[18:41:37.865]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[18:41:37.865]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[18:41:37.865]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[18:41:37.865]                     -1426021878L, -1285634264L, 1507547537L, 
[18:41:37.865]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[18:41:37.865]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[18:41:37.865]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[18:41:37.865]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[18:41:37.865]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[18:41:37.865]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[18:41:37.865]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[18:41:37.865]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[18:41:37.865]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[18:41:37.865]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[18:41:37.865]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[18:41:37.865]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[18:41:37.865]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[18:41:37.865]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[18:41:37.865]                     -1604604761L, 1421229008L, -1268333714L, 
[18:41:37.865]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[18:41:37.865]                     -2070476623L, -2099222749L, 1141171236L, 
[18:41:37.865]                     -146426158L, -1797385433L, -1129376399L, 
[18:41:37.865]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[18:41:37.865]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[18:41:37.865]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[18:41:37.865]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[18:41:37.865]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[18:41:37.865]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[18:41:37.865]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[18:41:37.865]                     -1092079724L, -1765622238L, -1882554057L, 
[18:41:37.865]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[18:41:37.865]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[18:41:37.865]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[18:41:37.865]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[18:41:37.865]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[18:41:37.865]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[18:41:37.865]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[18:41:37.865]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[18:41:37.865]                     865377681L, -1127426242L), envir = base::globalenv(), 
[18:41:37.865]                       inherits = FALSE)
[18:41:37.865]                     NULL
[18:41:37.865]                   }
[18:41:37.865]                   options(future.plan = NULL)
[18:41:37.865]                   if (is.na(NA_character_)) 
[18:41:37.865]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.865]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.865]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.865]                     .init = FALSE)
[18:41:37.865]                 }
[18:41:37.865]             }
[18:41:37.865]         }
[18:41:37.865]     })
[18:41:37.865]     if (TRUE) {
[18:41:37.865]         base::sink(type = "output", split = FALSE)
[18:41:37.865]         if (TRUE) {
[18:41:37.865]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.865]         }
[18:41:37.865]         else {
[18:41:37.865]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.865]         }
[18:41:37.865]         base::close(...future.stdout)
[18:41:37.865]         ...future.stdout <- NULL
[18:41:37.865]     }
[18:41:37.865]     ...future.result$conditions <- ...future.conditions
[18:41:37.865]     ...future.result$finished <- base::Sys.time()
[18:41:37.865]     ...future.result
[18:41:37.865] }
[18:41:37.871] assign_globals() ...
[18:41:37.871] List of 5
[18:41:37.871]  $ ...future.FUN            :function (...)  
[18:41:37.871]  $ future.call.arguments    : list()
[18:41:37.871]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.871]  $ ...future.elements_ii    :List of 5
[18:41:37.871]   ..$ : int 0
[18:41:37.871]   ..$ : int 0
[18:41:37.871]   ..$ : int 0
[18:41:37.871]   ..$ : int 0
[18:41:37.871]   ..$ : int 0
[18:41:37.871]  $ ...future.seeds_ii       :List of 5
[18:41:37.871]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[18:41:37.871]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[18:41:37.871]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[18:41:37.871]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[18:41:37.871]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[18:41:37.871]  $ ...future.globals.maxSize: NULL
[18:41:37.871]  - attr(*, "where")=List of 5
[18:41:37.871]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:37.871]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:37.871]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:37.871]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:37.871]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:37.871]  - attr(*, "resolved")= logi FALSE
[18:41:37.871]  - attr(*, "total_size")= num 7184
[18:41:37.871]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.871]  - attr(*, "already-done")= logi TRUE
[18:41:37.903] - reassign environment for '...future.FUN'
[18:41:37.903] - copied '...future.FUN' to environment
[18:41:37.903] - copied 'future.call.arguments' to environment
[18:41:37.904] - copied '...future.elements_ii' to environment
[18:41:37.904] - copied '...future.seeds_ii' to environment
[18:41:37.904] - copied '...future.globals.maxSize' to environment
[18:41:37.904] assign_globals() ... done
[18:41:37.905] plan(): Setting new future strategy stack:
[18:41:37.905] List of future strategies:
[18:41:37.905] 1. sequential:
[18:41:37.905]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.905]    - tweaked: FALSE
[18:41:37.905]    - call: NULL
[18:41:37.905] plan(): nbrOfWorkers() = 1
[18:41:37.907] plan(): Setting new future strategy stack:
[18:41:37.907] List of future strategies:
[18:41:37.907] 1. sequential:
[18:41:37.907]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.907]    - tweaked: FALSE
[18:41:37.907]    - call: plan(strategy)
[18:41:37.907] plan(): nbrOfWorkers() = 1
[18:41:37.908] SequentialFuture started (and completed)
[18:41:37.908] - Launch lazy future ... done
[18:41:37.908] run() for 'SequentialFuture' ... done
[18:41:37.908] Created future:
[18:41:37.908] SequentialFuture:
[18:41:37.908] Label: 'future_replicate-1'
[18:41:37.908] Expression:
[18:41:37.908] {
[18:41:37.908]     do.call(function(...) {
[18:41:37.908]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.908]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.908]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.908]             on.exit(options(oopts), add = TRUE)
[18:41:37.908]         }
[18:41:37.908]         {
[18:41:37.908]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.908]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.908]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.908]                   envir = globalenv(), inherits = FALSE)
[18:41:37.908]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.908]             })
[18:41:37.908]         }
[18:41:37.908]     }, args = future.call.arguments)
[18:41:37.908] }
[18:41:37.908] Lazy evaluation: FALSE
[18:41:37.908] Asynchronous evaluation: FALSE
[18:41:37.908] Local evaluation: TRUE
[18:41:37.908] Environment: R_GlobalEnv
[18:41:37.908] Capture standard output: TRUE
[18:41:37.908] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.908] Globals: 5 objects totaling 558 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, list '...future.seeds_ii' of 211 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.908] Packages: <none>
[18:41:37.908] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:37.908] Resolved: TRUE
[18:41:37.908] Value: 91 bytes of class 'list'
[18:41:37.908] Early signaling: FALSE
[18:41:37.908] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:37.908] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.909] Chunk #1 of 1 ... DONE
[18:41:37.910] Launching 1 futures (chunks) ... DONE
[18:41:37.910] Resolving 1 futures (chunks) ...
[18:41:37.910] resolve() on list ...
[18:41:37.910]  recursive: 0
[18:41:37.910]  length: 1
[18:41:37.910] 
[18:41:37.911] resolved() for 'SequentialFuture' ...
[18:41:37.911] - state: 'finished'
[18:41:37.911] - run: TRUE
[18:41:37.911] - result: 'FutureResult'
[18:41:37.911] resolved() for 'SequentialFuture' ... done
[18:41:37.911] Future #1
[18:41:37.912] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:37.912] - nx: 1
[18:41:37.912] - relay: TRUE
[18:41:37.912] - stdout: TRUE
[18:41:37.912] - signal: TRUE
[18:41:37.912] - resignal: FALSE
[18:41:37.913] - force: TRUE
[18:41:37.913] - relayed: [n=1] FALSE
[18:41:37.913] - queued futures: [n=1] FALSE
[18:41:37.913]  - until=1
[18:41:37.913]  - relaying element #1
[18:41:37.913] - relayed: [n=1] TRUE
[18:41:37.914] - queued futures: [n=1] TRUE
[18:41:37.914] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:37.914]  length: 0 (resolved future 1)
[18:41:37.914] Relaying remaining futures
[18:41:37.914] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.914] - nx: 1
[18:41:37.915] - relay: TRUE
[18:41:37.915] - stdout: TRUE
[18:41:37.915] - signal: TRUE
[18:41:37.915] - resignal: FALSE
[18:41:37.915] - force: TRUE
[18:41:37.915] - relayed: [n=1] TRUE
[18:41:37.915] - queued futures: [n=1] TRUE
 - flush all
[18:41:37.916] - relayed: [n=1] TRUE
[18:41:37.916] - queued futures: [n=1] TRUE
[18:41:37.916] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.916] resolve() on list ... DONE
[18:41:37.916]  - Number of value chunks collected: 1
[18:41:37.917] Resolving 1 futures (chunks) ... DONE
[18:41:37.917] Reducing values from 1 chunks ...
[18:41:37.917]  - Number of values collected after concatenation: 5
[18:41:37.917]  - Number of values expected: 5
[18:41:37.917] Reducing values from 1 chunks ... DONE
[18:41:37.917] future_lapply() ... DONE
[18:41:37.917] future_lapply() ...
[18:41:37.918] Generating random seeds ...
[18:41:37.918] Generating random seed streams for 5 elements ...
[18:41:37.918] Generating random seed streams for 5 elements ... DONE
[18:41:37.919] Generating random seeds ... DONE
[18:41:37.919] 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
[18:41:37.920] Number of chunks: 1
[18:41:37.920] getGlobalsAndPackagesXApply() ...
[18:41:37.921]  - future.globals: TRUE
[18:41:37.921] getGlobalsAndPackages() ...
[18:41:37.921] Searching for globals...
[18:41:37.922] - globals found: [2] 'FUN', 'sample'
[18:41:37.922] Searching for globals ... DONE
[18:41:37.922] Resolving globals: FALSE
[18:41:37.923] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:37.923] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:37.924] - globals: [1] 'FUN'
[18:41:37.924] 
[18:41:37.924] getGlobalsAndPackages() ... DONE
[18:41:37.924]  - globals found/used: [n=1] 'FUN'
[18:41:37.924]  - needed namespaces: [n=0] 
[18:41:37.924] Finding globals ... DONE
[18:41:37.925]  - use_args: TRUE
[18:41:37.925]  - Getting '...' globals ...
[18:41:37.925] resolve() on list ...
[18:41:37.925]  recursive: 0
[18:41:37.925]  length: 1
[18:41:37.926]  elements: '...'
[18:41:37.926]  length: 0 (resolved future 1)
[18:41:37.926] resolve() on list ... DONE
[18:41:37.926]    - '...' content: [n=0] 
[18:41:37.926] List of 1
[18:41:37.926]  $ ...: list()
[18:41:37.926]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.926]  - attr(*, "where")=List of 1
[18:41:37.926]   ..$ ...:<environment: 0x0000028bfc99d920> 
[18:41:37.926]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.926]  - attr(*, "resolved")= logi TRUE
[18:41:37.926]  - attr(*, "total_size")= num NA
[18:41:37.929]  - Getting '...' globals ... DONE
[18:41:37.929] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:37.929] List of 2
[18:41:37.929]  $ ...future.FUN:function (...)  
[18:41:37.929]  $ ...          : list()
[18:41:37.929]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.929]  - attr(*, "where")=List of 2
[18:41:37.929]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.929]   ..$ ...          :<environment: 0x0000028bfc99d920> 
[18:41:37.929]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.929]  - attr(*, "resolved")= logi FALSE
[18:41:37.929]  - attr(*, "total_size")= int 7184
[18:41:37.933] Packages to be attached in all futures: [n=0] 
[18:41:37.933] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.933] Number of futures (= number of chunks): 1
[18:41:37.933] Launching 1 futures (chunks) ...
[18:41:37.933] Chunk #1 of 1 ...
[18:41:37.934]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.934] getGlobalsAndPackages() ...
[18:41:37.934] Searching for globals...
[18:41:37.934] 
[18:41:37.934] Searching for globals ... DONE
[18:41:37.935] - globals: [0] <none>
[18:41:37.935] getGlobalsAndPackages() ... DONE
[18:41:37.935]    + additional globals found: [n=0] 
[18:41:37.935]    + additional namespaces needed: [n=0] 
[18:41:37.935]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.935]  - seeds: [5] <seeds>
[18:41:37.935]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.936] getGlobalsAndPackages() ...
[18:41:37.936] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.936] Resolving globals: FALSE
[18:41:37.936] Tweak future expression to call with '...' arguments ...
[18:41:37.936] {
[18:41:37.936]     do.call(function(...) {
[18:41:37.936]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.936]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.936]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.936]             on.exit(options(oopts), add = TRUE)
[18:41:37.936]         }
[18:41:37.936]         {
[18:41:37.936]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.936]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.936]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.936]                   envir = globalenv(), inherits = FALSE)
[18:41:37.936]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.936]             })
[18:41:37.936]         }
[18:41:37.936]     }, args = future.call.arguments)
[18:41:37.936] }
[18:41:37.937] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.937] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.937] 
[18:41:37.938] getGlobalsAndPackages() ... DONE
[18:41:37.938] run() for 'Future' ...
[18:41:37.938] - state: 'created'
[18:41:37.938] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.939] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.939] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.939]   - Field: 'label'
[18:41:37.939]   - Field: 'local'
[18:41:37.939]   - Field: 'owner'
[18:41:37.940]   - Field: 'envir'
[18:41:37.940]   - Field: 'packages'
[18:41:37.940]   - Field: 'gc'
[18:41:37.940]   - Field: 'conditions'
[18:41:37.940]   - Field: 'expr'
[18:41:37.941]   - Field: 'uuid'
[18:41:37.941]   - Field: 'seed'
[18:41:37.941]   - Field: 'version'
[18:41:37.941]   - Field: 'result'
[18:41:37.941]   - Field: 'asynchronous'
[18:41:37.942]   - Field: 'calls'
[18:41:37.942]   - Field: 'globals'
[18:41:37.942]   - Field: 'stdout'
[18:41:37.942]   - Field: 'earlySignal'
[18:41:37.942]   - Field: 'lazy'
[18:41:37.942]   - Field: 'state'
[18:41:37.943] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:37.943] - Launch lazy future ...
[18:41:37.943] Packages needed by the future expression (n = 0): <none>
[18:41:37.943] Packages needed by future strategies (n = 0): <none>
[18:41:37.944] {
[18:41:37.944]     {
[18:41:37.944]         {
[18:41:37.944]             ...future.startTime <- base::Sys.time()
[18:41:37.944]             {
[18:41:37.944]                 {
[18:41:37.944]                   {
[18:41:37.944]                     base::local({
[18:41:37.944]                       has_future <- base::requireNamespace("future", 
[18:41:37.944]                         quietly = TRUE)
[18:41:37.944]                       if (has_future) {
[18:41:37.944]                         ns <- base::getNamespace("future")
[18:41:37.944]                         version <- ns[[".package"]][["version"]]
[18:41:37.944]                         if (is.null(version)) 
[18:41:37.944]                           version <- utils::packageVersion("future")
[18:41:37.944]                       }
[18:41:37.944]                       else {
[18:41:37.944]                         version <- NULL
[18:41:37.944]                       }
[18:41:37.944]                       if (!has_future || version < "1.8.0") {
[18:41:37.944]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:37.944]                           "", base::R.version$version.string), 
[18:41:37.944]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:37.944]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:37.944]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:37.944]                             "release", "version")], collapse = " "), 
[18:41:37.944]                           hostname = base::Sys.info()[["nodename"]])
[18:41:37.944]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:37.944]                           info)
[18:41:37.944]                         info <- base::paste(info, collapse = "; ")
[18:41:37.944]                         if (!has_future) {
[18:41:37.944]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:37.944]                             info)
[18:41:37.944]                         }
[18:41:37.944]                         else {
[18:41:37.944]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:37.944]                             info, version)
[18:41:37.944]                         }
[18:41:37.944]                         base::stop(msg)
[18:41:37.944]                       }
[18:41:37.944]                     })
[18:41:37.944]                   }
[18:41:37.944]                   ...future.strategy.old <- future::plan("list")
[18:41:37.944]                   options(future.plan = NULL)
[18:41:37.944]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.944]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:37.944]                 }
[18:41:37.944]                 ...future.workdir <- getwd()
[18:41:37.944]             }
[18:41:37.944]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:37.944]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:37.944]         }
[18:41:37.944]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:37.944]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:37.944]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:37.944]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:37.944]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:37.944]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:37.944]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:37.944]             base::names(...future.oldOptions))
[18:41:37.944]     }
[18:41:37.944]     if (FALSE) {
[18:41:37.944]     }
[18:41:37.944]     else {
[18:41:37.944]         if (TRUE) {
[18:41:37.944]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:37.944]                 open = "w")
[18:41:37.944]         }
[18:41:37.944]         else {
[18:41:37.944]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:37.944]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:37.944]         }
[18:41:37.944]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:37.944]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:37.944]             base::sink(type = "output", split = FALSE)
[18:41:37.944]             base::close(...future.stdout)
[18:41:37.944]         }, add = TRUE)
[18:41:37.944]     }
[18:41:37.944]     ...future.frame <- base::sys.nframe()
[18:41:37.944]     ...future.conditions <- base::list()
[18:41:37.944]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:37.944]     if (FALSE) {
[18:41:37.944]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:37.944]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:37.944]     }
[18:41:37.944]     ...future.result <- base::tryCatch({
[18:41:37.944]         base::withCallingHandlers({
[18:41:37.944]             ...future.value <- base::withVisible(base::local({
[18:41:37.944]                 do.call(function(...) {
[18:41:37.944]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.944]                   if (!identical(...future.globals.maxSize.org, 
[18:41:37.944]                     ...future.globals.maxSize)) {
[18:41:37.944]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.944]                     on.exit(options(oopts), add = TRUE)
[18:41:37.944]                   }
[18:41:37.944]                   {
[18:41:37.944]                     lapply(seq_along(...future.elements_ii), 
[18:41:37.944]                       FUN = function(jj) {
[18:41:37.944]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.944]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.944]                           envir = globalenv(), inherits = FALSE)
[18:41:37.944]                         ...future.FUN(...future.X_jj, ...)
[18:41:37.944]                       })
[18:41:37.944]                   }
[18:41:37.944]                 }, args = future.call.arguments)
[18:41:37.944]             }))
[18:41:37.944]             future::FutureResult(value = ...future.value$value, 
[18:41:37.944]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.944]                   ...future.rng), globalenv = if (FALSE) 
[18:41:37.944]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:37.944]                     ...future.globalenv.names))
[18:41:37.944]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:37.944]         }, condition = base::local({
[18:41:37.944]             c <- base::c
[18:41:37.944]             inherits <- base::inherits
[18:41:37.944]             invokeRestart <- base::invokeRestart
[18:41:37.944]             length <- base::length
[18:41:37.944]             list <- base::list
[18:41:37.944]             seq.int <- base::seq.int
[18:41:37.944]             signalCondition <- base::signalCondition
[18:41:37.944]             sys.calls <- base::sys.calls
[18:41:37.944]             `[[` <- base::`[[`
[18:41:37.944]             `+` <- base::`+`
[18:41:37.944]             `<<-` <- base::`<<-`
[18:41:37.944]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:37.944]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:37.944]                   3L)]
[18:41:37.944]             }
[18:41:37.944]             function(cond) {
[18:41:37.944]                 is_error <- inherits(cond, "error")
[18:41:37.944]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:37.944]                   NULL)
[18:41:37.944]                 if (is_error) {
[18:41:37.944]                   sessionInformation <- function() {
[18:41:37.944]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:37.944]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:37.944]                       search = base::search(), system = base::Sys.info())
[18:41:37.944]                   }
[18:41:37.944]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.944]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:37.944]                     cond$call), session = sessionInformation(), 
[18:41:37.944]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:37.944]                   signalCondition(cond)
[18:41:37.944]                 }
[18:41:37.944]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:37.944]                 "immediateCondition"))) {
[18:41:37.944]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:37.944]                   ...future.conditions[[length(...future.conditions) + 
[18:41:37.944]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:37.944]                   if (TRUE && !signal) {
[18:41:37.944]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.944]                     {
[18:41:37.944]                       inherits <- base::inherits
[18:41:37.944]                       invokeRestart <- base::invokeRestart
[18:41:37.944]                       is.null <- base::is.null
[18:41:37.944]                       muffled <- FALSE
[18:41:37.944]                       if (inherits(cond, "message")) {
[18:41:37.944]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.944]                         if (muffled) 
[18:41:37.944]                           invokeRestart("muffleMessage")
[18:41:37.944]                       }
[18:41:37.944]                       else if (inherits(cond, "warning")) {
[18:41:37.944]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.944]                         if (muffled) 
[18:41:37.944]                           invokeRestart("muffleWarning")
[18:41:37.944]                       }
[18:41:37.944]                       else if (inherits(cond, "condition")) {
[18:41:37.944]                         if (!is.null(pattern)) {
[18:41:37.944]                           computeRestarts <- base::computeRestarts
[18:41:37.944]                           grepl <- base::grepl
[18:41:37.944]                           restarts <- computeRestarts(cond)
[18:41:37.944]                           for (restart in restarts) {
[18:41:37.944]                             name <- restart$name
[18:41:37.944]                             if (is.null(name)) 
[18:41:37.944]                               next
[18:41:37.944]                             if (!grepl(pattern, name)) 
[18:41:37.944]                               next
[18:41:37.944]                             invokeRestart(restart)
[18:41:37.944]                             muffled <- TRUE
[18:41:37.944]                             break
[18:41:37.944]                           }
[18:41:37.944]                         }
[18:41:37.944]                       }
[18:41:37.944]                       invisible(muffled)
[18:41:37.944]                     }
[18:41:37.944]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.944]                   }
[18:41:37.944]                 }
[18:41:37.944]                 else {
[18:41:37.944]                   if (TRUE) {
[18:41:37.944]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:37.944]                     {
[18:41:37.944]                       inherits <- base::inherits
[18:41:37.944]                       invokeRestart <- base::invokeRestart
[18:41:37.944]                       is.null <- base::is.null
[18:41:37.944]                       muffled <- FALSE
[18:41:37.944]                       if (inherits(cond, "message")) {
[18:41:37.944]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:37.944]                         if (muffled) 
[18:41:37.944]                           invokeRestart("muffleMessage")
[18:41:37.944]                       }
[18:41:37.944]                       else if (inherits(cond, "warning")) {
[18:41:37.944]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:37.944]                         if (muffled) 
[18:41:37.944]                           invokeRestart("muffleWarning")
[18:41:37.944]                       }
[18:41:37.944]                       else if (inherits(cond, "condition")) {
[18:41:37.944]                         if (!is.null(pattern)) {
[18:41:37.944]                           computeRestarts <- base::computeRestarts
[18:41:37.944]                           grepl <- base::grepl
[18:41:37.944]                           restarts <- computeRestarts(cond)
[18:41:37.944]                           for (restart in restarts) {
[18:41:37.944]                             name <- restart$name
[18:41:37.944]                             if (is.null(name)) 
[18:41:37.944]                               next
[18:41:37.944]                             if (!grepl(pattern, name)) 
[18:41:37.944]                               next
[18:41:37.944]                             invokeRestart(restart)
[18:41:37.944]                             muffled <- TRUE
[18:41:37.944]                             break
[18:41:37.944]                           }
[18:41:37.944]                         }
[18:41:37.944]                       }
[18:41:37.944]                       invisible(muffled)
[18:41:37.944]                     }
[18:41:37.944]                     muffleCondition(cond, pattern = "^muffle")
[18:41:37.944]                   }
[18:41:37.944]                 }
[18:41:37.944]             }
[18:41:37.944]         }))
[18:41:37.944]     }, error = function(ex) {
[18:41:37.944]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:37.944]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:37.944]                 ...future.rng), started = ...future.startTime, 
[18:41:37.944]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:37.944]             version = "1.8"), class = "FutureResult")
[18:41:37.944]     }, finally = {
[18:41:37.944]         if (!identical(...future.workdir, getwd())) 
[18:41:37.944]             setwd(...future.workdir)
[18:41:37.944]         {
[18:41:37.944]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:37.944]                 ...future.oldOptions$nwarnings <- NULL
[18:41:37.944]             }
[18:41:37.944]             base::options(...future.oldOptions)
[18:41:37.944]             if (.Platform$OS.type == "windows") {
[18:41:37.944]                 old_names <- names(...future.oldEnvVars)
[18:41:37.944]                 envs <- base::Sys.getenv()
[18:41:37.944]                 names <- names(envs)
[18:41:37.944]                 common <- intersect(names, old_names)
[18:41:37.944]                 added <- setdiff(names, old_names)
[18:41:37.944]                 removed <- setdiff(old_names, names)
[18:41:37.944]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:37.944]                   envs[common]]
[18:41:37.944]                 NAMES <- toupper(changed)
[18:41:37.944]                 args <- list()
[18:41:37.944]                 for (kk in seq_along(NAMES)) {
[18:41:37.944]                   name <- changed[[kk]]
[18:41:37.944]                   NAME <- NAMES[[kk]]
[18:41:37.944]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.944]                     next
[18:41:37.944]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.944]                 }
[18:41:37.944]                 NAMES <- toupper(added)
[18:41:37.944]                 for (kk in seq_along(NAMES)) {
[18:41:37.944]                   name <- added[[kk]]
[18:41:37.944]                   NAME <- NAMES[[kk]]
[18:41:37.944]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.944]                     next
[18:41:37.944]                   args[[name]] <- ""
[18:41:37.944]                 }
[18:41:37.944]                 NAMES <- toupper(removed)
[18:41:37.944]                 for (kk in seq_along(NAMES)) {
[18:41:37.944]                   name <- removed[[kk]]
[18:41:37.944]                   NAME <- NAMES[[kk]]
[18:41:37.944]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:37.944]                     next
[18:41:37.944]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:37.944]                 }
[18:41:37.944]                 if (length(args) > 0) 
[18:41:37.944]                   base::do.call(base::Sys.setenv, args = args)
[18:41:37.944]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:37.944]             }
[18:41:37.944]             else {
[18:41:37.944]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:37.944]             }
[18:41:37.944]             {
[18:41:37.944]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:37.944]                   0L) {
[18:41:37.944]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:37.944]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:37.944]                   base::options(opts)
[18:41:37.944]                 }
[18:41:37.944]                 {
[18:41:37.944]                   {
[18:41:37.944]                     base::assign(".Random.seed", c(10403L, 6L, 
[18:41:37.944]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[18:41:37.944]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[18:41:37.944]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[18:41:37.944]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[18:41:37.944]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[18:41:37.944]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[18:41:37.944]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[18:41:37.944]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[18:41:37.944]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[18:41:37.944]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[18:41:37.944]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[18:41:37.944]                     -1512233174L, -1985955764L, -425390065L, 
[18:41:37.944]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[18:41:37.944]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[18:41:37.944]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[18:41:37.944]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[18:41:37.944]                     1818328109L, -1284085436L, -1981489558L, 
[18:41:37.944]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[18:41:37.944]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[18:41:37.944]                     -1718567047L, -793788661L, -1133789126L, 
[18:41:37.944]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[18:41:37.944]                     -1823521982L, -1345991523L, -1672661737L, 
[18:41:37.944]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[18:41:37.944]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[18:41:37.944]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[18:41:37.944]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[18:41:37.944]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[18:41:37.944]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[18:41:37.944]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[18:41:37.944]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[18:41:37.944]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[18:41:37.944]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[18:41:37.944]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[18:41:37.944]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[18:41:37.944]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[18:41:37.944]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[18:41:37.944]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[18:41:37.944]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[18:41:37.944]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[18:41:37.944]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[18:41:37.944]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[18:41:37.944]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[18:41:37.944]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[18:41:37.944]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[18:41:37.944]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[18:41:37.944]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[18:41:37.944]                     -1119334354L, -1521015416L, -2041922421L, 
[18:41:37.944]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[18:41:37.944]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[18:41:37.944]                     1232111981L, -1801753084L, -1608606422L, 
[18:41:37.944]                     -1172096363L, 1420874031L, -1210473418L, 
[18:41:37.944]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[18:41:37.944]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[18:41:37.944]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[18:41:37.944]                     679371266L, -591318819L, -104578089L, -172818754L, 
[18:41:37.944]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[18:41:37.944]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[18:41:37.944]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[18:41:37.944]                     -332493318L, -1978392251L, -1691039632L, 
[18:41:37.944]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[18:41:37.944]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[18:41:37.944]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[18:41:37.944]                     87560756L, -87565624L, 426345146L, -699970416L, 
[18:41:37.944]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[18:41:37.944]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[18:41:37.944]                     -1178330196L, -687617348L, -1701912078L, 
[18:41:37.944]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[18:41:37.944]                     -1345416048L, 1816730492L, -1570431212L, 
[18:41:37.944]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[18:41:37.944]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[18:41:37.944]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[18:41:37.944]                     -1493184262L, -1943836976L, -590788308L, 
[18:41:37.944]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[18:41:37.944]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[18:41:37.944]                     1274857340L, -1205842638L, -1938479504L, 
[18:41:37.944]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[18:41:37.944]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[18:41:37.944]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[18:41:37.944]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[18:41:37.944]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[18:41:37.944]                     -1460751252L, 1201879444L, -1459788718L, 
[18:41:37.944]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[18:41:37.944]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[18:41:37.944]                     -420945808L, -1997735900L, -1838404552L, 
[18:41:37.944]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[18:41:37.944]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[18:41:37.944]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[18:41:37.944]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[18:41:37.944]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[18:41:37.944]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[18:41:37.944]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[18:41:37.944]                     942193650L, 751741680L, 689743428L, -18455976L, 
[18:41:37.944]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[18:41:37.944]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[18:41:37.944]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[18:41:37.944]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[18:41:37.944]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[18:41:37.944]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[18:41:37.944]                     -1357570110L, 1896595240L, -2066952276L, 
[18:41:37.944]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[18:41:37.944]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[18:41:37.944]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[18:41:37.944]                     769655120L, 236357794L, 181393736L, -13334772L, 
[18:41:37.944]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[18:41:37.944]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[18:41:37.944]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[18:41:37.944]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[18:41:37.944]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[18:41:37.944]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[18:41:37.944]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[18:41:37.944]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[18:41:37.944]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[18:41:37.944]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[18:41:37.944]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[18:41:37.944]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[18:41:37.944]                     -1365842884L, -438961294L, -1851472272L, 
[18:41:37.944]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[18:41:37.944]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[18:41:37.944]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[18:41:37.944]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[18:41:37.944]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[18:41:37.944]                     -594809770L, -2146766621L, -2013964635L, 
[18:41:37.944]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[18:41:37.944]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[18:41:37.944]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[18:41:37.944]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[18:41:37.944]                     -1426021878L, -1285634264L, 1507547537L, 
[18:41:37.944]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[18:41:37.944]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[18:41:37.944]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[18:41:37.944]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[18:41:37.944]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[18:41:37.944]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[18:41:37.944]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[18:41:37.944]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[18:41:37.944]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[18:41:37.944]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[18:41:37.944]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[18:41:37.944]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[18:41:37.944]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[18:41:37.944]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[18:41:37.944]                     -1604604761L, 1421229008L, -1268333714L, 
[18:41:37.944]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[18:41:37.944]                     -2070476623L, -2099222749L, 1141171236L, 
[18:41:37.944]                     -146426158L, -1797385433L, -1129376399L, 
[18:41:37.944]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[18:41:37.944]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[18:41:37.944]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[18:41:37.944]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[18:41:37.944]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[18:41:37.944]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[18:41:37.944]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[18:41:37.944]                     -1092079724L, -1765622238L, -1882554057L, 
[18:41:37.944]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[18:41:37.944]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[18:41:37.944]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[18:41:37.944]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[18:41:37.944]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[18:41:37.944]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[18:41:37.944]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[18:41:37.944]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[18:41:37.944]                     865377681L, -1127426242L), envir = base::globalenv(), 
[18:41:37.944]                       inherits = FALSE)
[18:41:37.944]                     NULL
[18:41:37.944]                   }
[18:41:37.944]                   options(future.plan = NULL)
[18:41:37.944]                   if (is.na(NA_character_)) 
[18:41:37.944]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:37.944]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:37.944]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:37.944]                     .init = FALSE)
[18:41:37.944]                 }
[18:41:37.944]             }
[18:41:37.944]         }
[18:41:37.944]     })
[18:41:37.944]     if (TRUE) {
[18:41:37.944]         base::sink(type = "output", split = FALSE)
[18:41:37.944]         if (TRUE) {
[18:41:37.944]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:37.944]         }
[18:41:37.944]         else {
[18:41:37.944]             ...future.result["stdout"] <- base::list(NULL)
[18:41:37.944]         }
[18:41:37.944]         base::close(...future.stdout)
[18:41:37.944]         ...future.stdout <- NULL
[18:41:37.944]     }
[18:41:37.944]     ...future.result$conditions <- ...future.conditions
[18:41:37.944]     ...future.result$finished <- base::Sys.time()
[18:41:37.944]     ...future.result
[18:41:37.944] }
[18:41:37.950] assign_globals() ...
[18:41:37.950] List of 5
[18:41:37.950]  $ ...future.FUN            :function (...)  
[18:41:37.950]  $ future.call.arguments    : list()
[18:41:37.950]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.950]  $ ...future.elements_ii    :List of 5
[18:41:37.950]   ..$ : int 0
[18:41:37.950]   ..$ : int 0
[18:41:37.950]   ..$ : int 0
[18:41:37.950]   ..$ : int 0
[18:41:37.950]   ..$ : int 0
[18:41:37.950]  $ ...future.seeds_ii       :List of 5
[18:41:37.950]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[18:41:37.950]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[18:41:37.950]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[18:41:37.950]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[18:41:37.950]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[18:41:37.950]  $ ...future.globals.maxSize: NULL
[18:41:37.950]  - attr(*, "where")=List of 5
[18:41:37.950]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:37.950]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:37.950]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:37.950]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:37.950]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:37.950]  - attr(*, "resolved")= logi FALSE
[18:41:37.950]  - attr(*, "total_size")= num 7184
[18:41:37.950]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.950]  - attr(*, "already-done")= logi TRUE
[18:41:37.958] - reassign environment for '...future.FUN'
[18:41:37.959] - copied '...future.FUN' to environment
[18:41:37.959] - copied 'future.call.arguments' to environment
[18:41:37.959] - copied '...future.elements_ii' to environment
[18:41:37.959] - copied '...future.seeds_ii' to environment
[18:41:37.959] - copied '...future.globals.maxSize' to environment
[18:41:37.959] assign_globals() ... done
[18:41:37.960] plan(): Setting new future strategy stack:
[18:41:37.960] List of future strategies:
[18:41:37.960] 1. sequential:
[18:41:37.960]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.960]    - tweaked: FALSE
[18:41:37.960]    - call: NULL
[18:41:37.961] plan(): nbrOfWorkers() = 1
[18:41:37.962] plan(): Setting new future strategy stack:
[18:41:37.962] List of future strategies:
[18:41:37.962] 1. sequential:
[18:41:37.962]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:37.962]    - tweaked: FALSE
[18:41:37.962]    - call: plan(strategy)
[18:41:37.963] plan(): nbrOfWorkers() = 1
[18:41:37.963] SequentialFuture started (and completed)
[18:41:37.963] - Launch lazy future ... done
[18:41:37.963] run() for 'SequentialFuture' ... done
[18:41:37.963] Created future:
[18:41:37.964] SequentialFuture:
[18:41:37.964] Label: 'future_replicate-1'
[18:41:37.964] Expression:
[18:41:37.964] {
[18:41:37.964]     do.call(function(...) {
[18:41:37.964]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.964]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.964]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.964]             on.exit(options(oopts), add = TRUE)
[18:41:37.964]         }
[18:41:37.964]         {
[18:41:37.964]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.964]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.964]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.964]                   envir = globalenv(), inherits = FALSE)
[18:41:37.964]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.964]             })
[18:41:37.964]         }
[18:41:37.964]     }, args = future.call.arguments)
[18:41:37.964] }
[18:41:37.964] Lazy evaluation: FALSE
[18:41:37.964] Asynchronous evaluation: FALSE
[18:41:37.964] Local evaluation: TRUE
[18:41:37.964] Environment: R_GlobalEnv
[18:41:37.964] Capture standard output: TRUE
[18:41:37.964] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:37.964] Globals: 5 objects totaling 558 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, list '...future.seeds_ii' of 211 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:37.964] Packages: <none>
[18:41:37.964] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:37.964] Resolved: TRUE
[18:41:37.964] Value: 91 bytes of class 'list'
[18:41:37.964] Early signaling: FALSE
[18:41:37.964] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:37.964] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.965] Chunk #1 of 1 ... DONE
[18:41:37.965] Launching 1 futures (chunks) ... DONE
[18:41:37.965] Resolving 1 futures (chunks) ...
[18:41:37.965] resolve() on list ...
[18:41:37.965]  recursive: 0
[18:41:37.965]  length: 1
[18:41:37.966] 
[18:41:37.966] resolved() for 'SequentialFuture' ...
[18:41:37.966] - state: 'finished'
[18:41:37.966] - run: TRUE
[18:41:37.966] - result: 'FutureResult'
[18:41:37.966] resolved() for 'SequentialFuture' ... done
[18:41:37.967] Future #1
[18:41:37.967] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:37.967] - nx: 1
[18:41:37.967] - relay: TRUE
[18:41:37.967] - stdout: TRUE
[18:41:37.967] - signal: TRUE
[18:41:37.968] - resignal: FALSE
[18:41:37.968] - force: TRUE
[18:41:37.968] - relayed: [n=1] FALSE
[18:41:37.968] - queued futures: [n=1] FALSE
[18:41:37.968]  - until=1
[18:41:37.968]  - relaying element #1
[18:41:37.969] - relayed: [n=1] TRUE
[18:41:37.969] - queued futures: [n=1] TRUE
[18:41:37.969] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:37.969]  length: 0 (resolved future 1)
[18:41:37.969] Relaying remaining futures
[18:41:37.969] signalConditionsASAP(NULL, pos=0) ...
[18:41:37.970] - nx: 1
[18:41:37.970] - relay: TRUE
[18:41:37.970] - stdout: TRUE
[18:41:37.970] - signal: TRUE
[18:41:37.970] - resignal: FALSE
[18:41:37.970] - force: TRUE
[18:41:37.970] - relayed: [n=1] TRUE
[18:41:37.971] - queued futures: [n=1] TRUE
 - flush all
[18:41:37.971] - relayed: [n=1] TRUE
[18:41:37.971] - queued futures: [n=1] TRUE
[18:41:37.971] signalConditionsASAP(NULL, pos=0) ... done
[18:41:37.971] resolve() on list ... DONE
[18:41:37.971]  - Number of value chunks collected: 1
[18:41:37.972] Resolving 1 futures (chunks) ... DONE
[18:41:37.972] Reducing values from 1 chunks ...
[18:41:37.973]  - Number of values collected after concatenation: 5
[18:41:37.973]  - Number of values expected: 5
[18:41:37.973] Reducing values from 1 chunks ... DONE
[18:41:37.973] future_lapply() ... DONE
- example(replicate) ...
[18:41:37.974] future_lapply() ...
[18:41:37.974] Generating random seeds ...
[18:41:37.974] Generating random seed streams for 5 elements ...
[18:41:37.975] Generating random seed streams for 5 elements ... DONE
[18:41:37.975] Generating random seeds ... DONE
[18:41:37.975] 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
[18:41:37.976] Number of chunks: 1
[18:41:37.976] getGlobalsAndPackagesXApply() ...
[18:41:37.976]  - future.globals: TRUE
[18:41:37.976] getGlobalsAndPackages() ...
[18:41:37.976] Searching for globals...
[18:41:37.979] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[18:41:37.979] Searching for globals ... DONE
[18:41:37.979] Resolving globals: FALSE
[18:41:37.979] The total size of the 3 globals is 617 bytes (617 bytes)
[18:41:37.980] The total size of the 3 globals exported for future expression ('FUN()') is 617 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (399 bytes of class 'function'), 'FUN' (179 bytes of class 'function') and 'x' (39 bytes of class 'numeric')
[18:41:37.980] - globals: [3] 'FUN', 'foo', 'x'
[18:41:37.980] 
[18:41:37.980] getGlobalsAndPackages() ... DONE
[18:41:37.981]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[18:41:37.981]  - needed namespaces: [n=0] 
[18:41:37.981] Finding globals ... DONE
[18:41:37.981]  - use_args: TRUE
[18:41:37.981]  - Getting '...' globals ...
[18:41:37.982] resolve() on list ...
[18:41:37.982]  recursive: 0
[18:41:37.982]  length: 1
[18:41:37.982]  elements: '...'
[18:41:37.982]  length: 0 (resolved future 1)
[18:41:37.982] resolve() on list ... DONE
[18:41:37.983]    - '...' content: [n=0] 
[18:41:37.983] List of 1
[18:41:37.983]  $ ...: list()
[18:41:37.983]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.983]  - attr(*, "where")=List of 1
[18:41:37.983]   ..$ ...:<environment: 0x0000028bfb9995a0> 
[18:41:37.983]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.983]  - attr(*, "resolved")= logi TRUE
[18:41:37.983]  - attr(*, "total_size")= num NA
[18:41:37.986]  - Getting '...' globals ... DONE
[18:41:37.986] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[18:41:37.986] List of 4
[18:41:37.986]  $ ...future.FUN:function (...)  
[18:41:37.986]  $ foo          :function (x = 1, y = 2)  
[18:41:37.986]  $ x            : num 3
[18:41:37.986]  $ ...          : list()
[18:41:37.986]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:37.986]  - attr(*, "where")=List of 4
[18:41:37.986]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:37.986]   ..$ foo          :<environment: R_EmptyEnv> 
[18:41:37.986]   ..$ x            :<environment: R_EmptyEnv> 
[18:41:37.986]   ..$ ...          :<environment: 0x0000028bfb9995a0> 
[18:41:37.986]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:37.986]  - attr(*, "resolved")= logi FALSE
[18:41:37.986]  - attr(*, "total_size")= int 7967
[18:41:37.991] Packages to be attached in all futures: [n=0] 
[18:41:37.991] getGlobalsAndPackagesXApply() ... DONE
[18:41:37.991] Number of futures (= number of chunks): 1
[18:41:37.991] Launching 1 futures (chunks) ...
[18:41:37.991] Chunk #1 of 1 ...
[18:41:37.991]  - Finding globals in 'X' for chunk #1 ...
[18:41:37.992] getGlobalsAndPackages() ...
[18:41:37.992] Searching for globals...
[18:41:37.992] 
[18:41:37.992] Searching for globals ... DONE
[18:41:37.992] - globals: [0] <none>
[18:41:37.993] getGlobalsAndPackages() ... DONE
[18:41:37.993]    + additional globals found: [n=0] 
[18:41:37.993]    + additional namespaces needed: [n=0] 
[18:41:37.993]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:37.993]  - seeds: [5] <seeds>
[18:41:37.993]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.994] getGlobalsAndPackages() ...
[18:41:37.994] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.994] Resolving globals: FALSE
[18:41:37.994] Tweak future expression to call with '...' arguments ...
[18:41:37.994] {
[18:41:37.994]     do.call(function(...) {
[18:41:37.994]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:37.994]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:37.994]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:37.994]             on.exit(options(oopts), add = TRUE)
[18:41:37.994]         }
[18:41:37.994]         {
[18:41:37.994]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:37.994]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:37.994]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:37.994]                   envir = globalenv(), inherits = FALSE)
[18:41:37.994]                 ...future.FUN(...future.X_jj, ...)
[18:41:37.994]             })
[18:41:37.994]         }
[18:41:37.994]     }, args = future.call.arguments)
[18:41:37.994] }
[18:41:37.995] Tweak future expression to call with '...' arguments ... DONE
[18:41:37.995] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:37.995] 
[18:41:37.996] getGlobalsAndPackages() ... DONE
[18:41:37.997] run() for 'Future' ...
[18:41:37.997] - state: 'created'
[18:41:37.997] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[18:41:37.997] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:37.998] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[18:41:37.998]   - Field: 'label'
[18:41:37.998]   - Field: 'local'
[18:41:37.998]   - Field: 'owner'
[18:41:37.998]   - Field: 'envir'
[18:41:37.999]   - Field: 'packages'
[18:41:37.999]   - Field: 'gc'
[18:41:37.999]   - Field: 'conditions'
[18:41:37.999]   - Field: 'expr'
[18:41:37.999]   - Field: 'uuid'
[18:41:37.999]   - Field: 'seed'
[18:41:38.000]   - Field: 'version'
[18:41:38.000]   - Field: 'result'
[18:41:38.000]   - Field: 'asynchronous'
[18:41:38.000]   - Field: 'calls'
[18:41:38.000]   - Field: 'globals'
[18:41:38.000]   - Field: 'stdout'
[18:41:38.001]   - Field: 'earlySignal'
[18:41:38.001]   - Field: 'lazy'
[18:41:38.001]   - Field: 'state'
[18:41:38.001] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[18:41:38.001] - Launch lazy future ...
[18:41:38.001] Packages needed by the future expression (n = 0): <none>
[18:41:38.002] Packages needed by future strategies (n = 0): <none>
[18:41:38.002] {
[18:41:38.002]     {
[18:41:38.002]         {
[18:41:38.002]             ...future.startTime <- base::Sys.time()
[18:41:38.002]             {
[18:41:38.002]                 {
[18:41:38.002]                   {
[18:41:38.002]                     base::local({
[18:41:38.002]                       has_future <- base::requireNamespace("future", 
[18:41:38.002]                         quietly = TRUE)
[18:41:38.002]                       if (has_future) {
[18:41:38.002]                         ns <- base::getNamespace("future")
[18:41:38.002]                         version <- ns[[".package"]][["version"]]
[18:41:38.002]                         if (is.null(version)) 
[18:41:38.002]                           version <- utils::packageVersion("future")
[18:41:38.002]                       }
[18:41:38.002]                       else {
[18:41:38.002]                         version <- NULL
[18:41:38.002]                       }
[18:41:38.002]                       if (!has_future || version < "1.8.0") {
[18:41:38.002]                         info <- base::c(r_version = base::gsub("R version ", 
[18:41:38.002]                           "", base::R.version$version.string), 
[18:41:38.002]                           platform = base::sprintf("%s (%s-bit)", 
[18:41:38.002]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:38.002]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:38.002]                             "release", "version")], collapse = " "), 
[18:41:38.002]                           hostname = base::Sys.info()[["nodename"]])
[18:41:38.002]                         info <- base::sprintf("%s: %s", base::names(info), 
[18:41:38.002]                           info)
[18:41:38.002]                         info <- base::paste(info, collapse = "; ")
[18:41:38.002]                         if (!has_future) {
[18:41:38.002]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:38.002]                             info)
[18:41:38.002]                         }
[18:41:38.002]                         else {
[18:41:38.002]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:38.002]                             info, version)
[18:41:38.002]                         }
[18:41:38.002]                         base::stop(msg)
[18:41:38.002]                       }
[18:41:38.002]                     })
[18:41:38.002]                   }
[18:41:38.002]                   ...future.strategy.old <- future::plan("list")
[18:41:38.002]                   options(future.plan = NULL)
[18:41:38.002]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:38.002]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:38.002]                 }
[18:41:38.002]                 ...future.workdir <- getwd()
[18:41:38.002]             }
[18:41:38.002]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:38.002]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:38.002]         }
[18:41:38.002]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:38.002]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:38.002]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:38.002]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:38.002]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:38.002]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:38.002]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:38.002]             base::names(...future.oldOptions))
[18:41:38.002]     }
[18:41:38.002]     if (FALSE) {
[18:41:38.002]     }
[18:41:38.002]     else {
[18:41:38.002]         if (TRUE) {
[18:41:38.002]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:38.002]                 open = "w")
[18:41:38.002]         }
[18:41:38.002]         else {
[18:41:38.002]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:38.002]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:38.002]         }
[18:41:38.002]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:38.002]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:38.002]             base::sink(type = "output", split = FALSE)
[18:41:38.002]             base::close(...future.stdout)
[18:41:38.002]         }, add = TRUE)
[18:41:38.002]     }
[18:41:38.002]     ...future.frame <- base::sys.nframe()
[18:41:38.002]     ...future.conditions <- base::list()
[18:41:38.002]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:38.002]     if (FALSE) {
[18:41:38.002]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:38.002]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:38.002]     }
[18:41:38.002]     ...future.result <- base::tryCatch({
[18:41:38.002]         base::withCallingHandlers({
[18:41:38.002]             ...future.value <- base::withVisible(base::local({
[18:41:38.002]                 do.call(function(...) {
[18:41:38.002]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:38.002]                   if (!identical(...future.globals.maxSize.org, 
[18:41:38.002]                     ...future.globals.maxSize)) {
[18:41:38.002]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:38.002]                     on.exit(options(oopts), add = TRUE)
[18:41:38.002]                   }
[18:41:38.002]                   {
[18:41:38.002]                     lapply(seq_along(...future.elements_ii), 
[18:41:38.002]                       FUN = function(jj) {
[18:41:38.002]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:38.002]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:38.002]                           envir = globalenv(), inherits = FALSE)
[18:41:38.002]                         ...future.FUN(...future.X_jj, ...)
[18:41:38.002]                       })
[18:41:38.002]                   }
[18:41:38.002]                 }, args = future.call.arguments)
[18:41:38.002]             }))
[18:41:38.002]             future::FutureResult(value = ...future.value$value, 
[18:41:38.002]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:38.002]                   ...future.rng), globalenv = if (FALSE) 
[18:41:38.002]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:38.002]                     ...future.globalenv.names))
[18:41:38.002]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:38.002]         }, condition = base::local({
[18:41:38.002]             c <- base::c
[18:41:38.002]             inherits <- base::inherits
[18:41:38.002]             invokeRestart <- base::invokeRestart
[18:41:38.002]             length <- base::length
[18:41:38.002]             list <- base::list
[18:41:38.002]             seq.int <- base::seq.int
[18:41:38.002]             signalCondition <- base::signalCondition
[18:41:38.002]             sys.calls <- base::sys.calls
[18:41:38.002]             `[[` <- base::`[[`
[18:41:38.002]             `+` <- base::`+`
[18:41:38.002]             `<<-` <- base::`<<-`
[18:41:38.002]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:38.002]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:38.002]                   3L)]
[18:41:38.002]             }
[18:41:38.002]             function(cond) {
[18:41:38.002]                 is_error <- inherits(cond, "error")
[18:41:38.002]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:38.002]                   NULL)
[18:41:38.002]                 if (is_error) {
[18:41:38.002]                   sessionInformation <- function() {
[18:41:38.002]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:38.002]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:38.002]                       search = base::search(), system = base::Sys.info())
[18:41:38.002]                   }
[18:41:38.002]                   ...future.conditions[[length(...future.conditions) + 
[18:41:38.002]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:38.002]                     cond$call), session = sessionInformation(), 
[18:41:38.002]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:38.002]                   signalCondition(cond)
[18:41:38.002]                 }
[18:41:38.002]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:38.002]                 "immediateCondition"))) {
[18:41:38.002]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:38.002]                   ...future.conditions[[length(...future.conditions) + 
[18:41:38.002]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:38.002]                   if (TRUE && !signal) {
[18:41:38.002]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:38.002]                     {
[18:41:38.002]                       inherits <- base::inherits
[18:41:38.002]                       invokeRestart <- base::invokeRestart
[18:41:38.002]                       is.null <- base::is.null
[18:41:38.002]                       muffled <- FALSE
[18:41:38.002]                       if (inherits(cond, "message")) {
[18:41:38.002]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:38.002]                         if (muffled) 
[18:41:38.002]                           invokeRestart("muffleMessage")
[18:41:38.002]                       }
[18:41:38.002]                       else if (inherits(cond, "warning")) {
[18:41:38.002]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:38.002]                         if (muffled) 
[18:41:38.002]                           invokeRestart("muffleWarning")
[18:41:38.002]                       }
[18:41:38.002]                       else if (inherits(cond, "condition")) {
[18:41:38.002]                         if (!is.null(pattern)) {
[18:41:38.002]                           computeRestarts <- base::computeRestarts
[18:41:38.002]                           grepl <- base::grepl
[18:41:38.002]                           restarts <- computeRestarts(cond)
[18:41:38.002]                           for (restart in restarts) {
[18:41:38.002]                             name <- restart$name
[18:41:38.002]                             if (is.null(name)) 
[18:41:38.002]                               next
[18:41:38.002]                             if (!grepl(pattern, name)) 
[18:41:38.002]                               next
[18:41:38.002]                             invokeRestart(restart)
[18:41:38.002]                             muffled <- TRUE
[18:41:38.002]                             break
[18:41:38.002]                           }
[18:41:38.002]                         }
[18:41:38.002]                       }
[18:41:38.002]                       invisible(muffled)
[18:41:38.002]                     }
[18:41:38.002]                     muffleCondition(cond, pattern = "^muffle")
[18:41:38.002]                   }
[18:41:38.002]                 }
[18:41:38.002]                 else {
[18:41:38.002]                   if (TRUE) {
[18:41:38.002]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:38.002]                     {
[18:41:38.002]                       inherits <- base::inherits
[18:41:38.002]                       invokeRestart <- base::invokeRestart
[18:41:38.002]                       is.null <- base::is.null
[18:41:38.002]                       muffled <- FALSE
[18:41:38.002]                       if (inherits(cond, "message")) {
[18:41:38.002]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:38.002]                         if (muffled) 
[18:41:38.002]                           invokeRestart("muffleMessage")
[18:41:38.002]                       }
[18:41:38.002]                       else if (inherits(cond, "warning")) {
[18:41:38.002]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:38.002]                         if (muffled) 
[18:41:38.002]                           invokeRestart("muffleWarning")
[18:41:38.002]                       }
[18:41:38.002]                       else if (inherits(cond, "condition")) {
[18:41:38.002]                         if (!is.null(pattern)) {
[18:41:38.002]                           computeRestarts <- base::computeRestarts
[18:41:38.002]                           grepl <- base::grepl
[18:41:38.002]                           restarts <- computeRestarts(cond)
[18:41:38.002]                           for (restart in restarts) {
[18:41:38.002]                             name <- restart$name
[18:41:38.002]                             if (is.null(name)) 
[18:41:38.002]                               next
[18:41:38.002]                             if (!grepl(pattern, name)) 
[18:41:38.002]                               next
[18:41:38.002]                             invokeRestart(restart)
[18:41:38.002]                             muffled <- TRUE
[18:41:38.002]                             break
[18:41:38.002]                           }
[18:41:38.002]                         }
[18:41:38.002]                       }
[18:41:38.002]                       invisible(muffled)
[18:41:38.002]                     }
[18:41:38.002]                     muffleCondition(cond, pattern = "^muffle")
[18:41:38.002]                   }
[18:41:38.002]                 }
[18:41:38.002]             }
[18:41:38.002]         }))
[18:41:38.002]     }, error = function(ex) {
[18:41:38.002]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:38.002]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:38.002]                 ...future.rng), started = ...future.startTime, 
[18:41:38.002]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:38.002]             version = "1.8"), class = "FutureResult")
[18:41:38.002]     }, finally = {
[18:41:38.002]         if (!identical(...future.workdir, getwd())) 
[18:41:38.002]             setwd(...future.workdir)
[18:41:38.002]         {
[18:41:38.002]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:38.002]                 ...future.oldOptions$nwarnings <- NULL
[18:41:38.002]             }
[18:41:38.002]             base::options(...future.oldOptions)
[18:41:38.002]             if (.Platform$OS.type == "windows") {
[18:41:38.002]                 old_names <- names(...future.oldEnvVars)
[18:41:38.002]                 envs <- base::Sys.getenv()
[18:41:38.002]                 names <- names(envs)
[18:41:38.002]                 common <- intersect(names, old_names)
[18:41:38.002]                 added <- setdiff(names, old_names)
[18:41:38.002]                 removed <- setdiff(old_names, names)
[18:41:38.002]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:38.002]                   envs[common]]
[18:41:38.002]                 NAMES <- toupper(changed)
[18:41:38.002]                 args <- list()
[18:41:38.002]                 for (kk in seq_along(NAMES)) {
[18:41:38.002]                   name <- changed[[kk]]
[18:41:38.002]                   NAME <- NAMES[[kk]]
[18:41:38.002]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.002]                     next
[18:41:38.002]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:38.002]                 }
[18:41:38.002]                 NAMES <- toupper(added)
[18:41:38.002]                 for (kk in seq_along(NAMES)) {
[18:41:38.002]                   name <- added[[kk]]
[18:41:38.002]                   NAME <- NAMES[[kk]]
[18:41:38.002]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.002]                     next
[18:41:38.002]                   args[[name]] <- ""
[18:41:38.002]                 }
[18:41:38.002]                 NAMES <- toupper(removed)
[18:41:38.002]                 for (kk in seq_along(NAMES)) {
[18:41:38.002]                   name <- removed[[kk]]
[18:41:38.002]                   NAME <- NAMES[[kk]]
[18:41:38.002]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.002]                     next
[18:41:38.002]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:38.002]                 }
[18:41:38.002]                 if (length(args) > 0) 
[18:41:38.002]                   base::do.call(base::Sys.setenv, args = args)
[18:41:38.002]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:38.002]             }
[18:41:38.002]             else {
[18:41:38.002]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:38.002]             }
[18:41:38.002]             {
[18:41:38.002]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:38.002]                   0L) {
[18:41:38.002]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:38.002]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:38.002]                   base::options(opts)
[18:41:38.002]                 }
[18:41:38.002]                 {
[18:41:38.002]                   {
[18:41:38.002]                     base::assign(".Random.seed", c(10403L, 8L, 
[18:41:38.002]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[18:41:38.002]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[18:41:38.002]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[18:41:38.002]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[18:41:38.002]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[18:41:38.002]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[18:41:38.002]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[18:41:38.002]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[18:41:38.002]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[18:41:38.002]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[18:41:38.002]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[18:41:38.002]                     -1512233174L, -1985955764L, -425390065L, 
[18:41:38.002]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[18:41:38.002]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[18:41:38.002]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[18:41:38.002]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[18:41:38.002]                     1818328109L, -1284085436L, -1981489558L, 
[18:41:38.002]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[18:41:38.002]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[18:41:38.002]                     -1718567047L, -793788661L, -1133789126L, 
[18:41:38.002]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[18:41:38.002]                     -1823521982L, -1345991523L, -1672661737L, 
[18:41:38.002]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[18:41:38.002]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[18:41:38.002]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[18:41:38.002]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[18:41:38.002]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[18:41:38.002]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[18:41:38.002]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[18:41:38.002]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[18:41:38.002]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[18:41:38.002]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[18:41:38.002]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[18:41:38.002]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[18:41:38.002]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[18:41:38.002]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[18:41:38.002]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[18:41:38.002]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[18:41:38.002]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[18:41:38.002]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[18:41:38.002]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[18:41:38.002]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[18:41:38.002]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[18:41:38.002]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[18:41:38.002]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[18:41:38.002]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[18:41:38.002]                     -1119334354L, -1521015416L, -2041922421L, 
[18:41:38.002]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[18:41:38.002]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[18:41:38.002]                     1232111981L, -1801753084L, -1608606422L, 
[18:41:38.002]                     -1172096363L, 1420874031L, -1210473418L, 
[18:41:38.002]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[18:41:38.002]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[18:41:38.002]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[18:41:38.002]                     679371266L, -591318819L, -104578089L, -172818754L, 
[18:41:38.002]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[18:41:38.002]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[18:41:38.002]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[18:41:38.002]                     -332493318L, -1978392251L, -1691039632L, 
[18:41:38.002]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[18:41:38.002]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[18:41:38.002]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[18:41:38.002]                     87560756L, -87565624L, 426345146L, -699970416L, 
[18:41:38.002]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[18:41:38.002]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[18:41:38.002]                     -1178330196L, -687617348L, -1701912078L, 
[18:41:38.002]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[18:41:38.002]                     -1345416048L, 1816730492L, -1570431212L, 
[18:41:38.002]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[18:41:38.002]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[18:41:38.002]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[18:41:38.002]                     -1493184262L, -1943836976L, -590788308L, 
[18:41:38.002]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[18:41:38.002]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[18:41:38.002]                     1274857340L, -1205842638L, -1938479504L, 
[18:41:38.002]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[18:41:38.002]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[18:41:38.002]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[18:41:38.002]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[18:41:38.002]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[18:41:38.002]                     -1460751252L, 1201879444L, -1459788718L, 
[18:41:38.002]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[18:41:38.002]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[18:41:38.002]                     -420945808L, -1997735900L, -1838404552L, 
[18:41:38.002]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[18:41:38.002]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[18:41:38.002]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[18:41:38.002]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[18:41:38.002]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[18:41:38.002]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[18:41:38.002]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[18:41:38.002]                     942193650L, 751741680L, 689743428L, -18455976L, 
[18:41:38.002]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[18:41:38.002]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[18:41:38.002]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[18:41:38.002]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[18:41:38.002]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[18:41:38.002]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[18:41:38.002]                     -1357570110L, 1896595240L, -2066952276L, 
[18:41:38.002]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[18:41:38.002]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[18:41:38.002]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[18:41:38.002]                     769655120L, 236357794L, 181393736L, -13334772L, 
[18:41:38.002]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[18:41:38.002]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[18:41:38.002]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[18:41:38.002]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[18:41:38.002]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[18:41:38.002]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[18:41:38.002]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[18:41:38.002]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[18:41:38.002]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[18:41:38.002]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[18:41:38.002]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[18:41:38.002]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[18:41:38.002]                     -1365842884L, -438961294L, -1851472272L, 
[18:41:38.002]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[18:41:38.002]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[18:41:38.002]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[18:41:38.002]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[18:41:38.002]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[18:41:38.002]                     -594809770L, -2146766621L, -2013964635L, 
[18:41:38.002]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[18:41:38.002]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[18:41:38.002]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[18:41:38.002]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[18:41:38.002]                     -1426021878L, -1285634264L, 1507547537L, 
[18:41:38.002]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[18:41:38.002]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[18:41:38.002]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[18:41:38.002]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[18:41:38.002]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[18:41:38.002]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[18:41:38.002]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[18:41:38.002]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[18:41:38.002]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[18:41:38.002]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[18:41:38.002]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[18:41:38.002]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[18:41:38.002]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[18:41:38.002]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[18:41:38.002]                     -1604604761L, 1421229008L, -1268333714L, 
[18:41:38.002]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[18:41:38.002]                     -2070476623L, -2099222749L, 1141171236L, 
[18:41:38.002]                     -146426158L, -1797385433L, -1129376399L, 
[18:41:38.002]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[18:41:38.002]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[18:41:38.002]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[18:41:38.002]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[18:41:38.002]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[18:41:38.002]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[18:41:38.002]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[18:41:38.002]                     -1092079724L, -1765622238L, -1882554057L, 
[18:41:38.002]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[18:41:38.002]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[18:41:38.002]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[18:41:38.002]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[18:41:38.002]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[18:41:38.002]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[18:41:38.002]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[18:41:38.002]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[18:41:38.002]                     865377681L, -1127426242L), envir = base::globalenv(), 
[18:41:38.002]                       inherits = FALSE)
[18:41:38.002]                     NULL
[18:41:38.002]                   }
[18:41:38.002]                   options(future.plan = NULL)
[18:41:38.002]                   if (is.na(NA_character_)) 
[18:41:38.002]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:38.002]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:38.002]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:38.002]                     .init = FALSE)
[18:41:38.002]                 }
[18:41:38.002]             }
[18:41:38.002]         }
[18:41:38.002]     })
[18:41:38.002]     if (TRUE) {
[18:41:38.002]         base::sink(type = "output", split = FALSE)
[18:41:38.002]         if (TRUE) {
[18:41:38.002]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:38.002]         }
[18:41:38.002]         else {
[18:41:38.002]             ...future.result["stdout"] <- base::list(NULL)
[18:41:38.002]         }
[18:41:38.002]         base::close(...future.stdout)
[18:41:38.002]         ...future.stdout <- NULL
[18:41:38.002]     }
[18:41:38.002]     ...future.result$conditions <- ...future.conditions
[18:41:38.002]     ...future.result$finished <- base::Sys.time()
[18:41:38.002]     ...future.result
[18:41:38.002] }
[18:41:38.007] assign_globals() ...
[18:41:38.007] List of 7
[18:41:38.007]  $ ...future.FUN            :function (...)  
[18:41:38.007]  $ foo                      :function (x = 1, y = 2)  
[18:41:38.007]  $ x                        : num 3
[18:41:38.007]  $ future.call.arguments    : list()
[18:41:38.007]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:38.007]  $ ...future.elements_ii    :List of 5
[18:41:38.007]   ..$ : int 0
[18:41:38.007]   ..$ : int 0
[18:41:38.007]   ..$ : int 0
[18:41:38.007]   ..$ : int 0
[18:41:38.007]   ..$ : int 0
[18:41:38.007]  $ ...future.seeds_ii       :List of 5
[18:41:38.007]   ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430
[18:41:38.007]   ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537
[18:41:38.007]   ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810
[18:41:38.007]   ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309
[18:41:38.007]   ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045
[18:41:38.007]  $ ...future.globals.maxSize: NULL
[18:41:38.007]  - attr(*, "where")=List of 7
[18:41:38.007]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ foo                      :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ x                        :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[18:41:38.007]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[18:41:38.007]  - attr(*, "resolved")= logi FALSE
[18:41:38.007]  - attr(*, "total_size")= num 7967
[18:41:38.007]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:38.007]  - attr(*, "already-done")= logi TRUE
[18:41:38.017] - reassign environment for '...future.FUN'
[18:41:38.018] - copied '...future.FUN' to environment
[18:41:38.018] - reassign environment for 'foo'
[18:41:38.018] - copied 'foo' to environment
[18:41:38.018] - copied 'x' to environment
[18:41:38.018] - copied 'future.call.arguments' to environment
[18:41:38.018] - copied '...future.elements_ii' to environment
[18:41:38.019] - copied '...future.seeds_ii' to environment
[18:41:38.019] - copied '...future.globals.maxSize' to environment
[18:41:38.019] assign_globals() ... done
[18:41:38.019] plan(): Setting new future strategy stack:
[18:41:38.019] List of future strategies:
[18:41:38.019] 1. sequential:
[18:41:38.019]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:38.019]    - tweaked: FALSE
[18:41:38.019]    - call: NULL
[18:41:38.020] plan(): nbrOfWorkers() = 1
[18:41:38.021] plan(): Setting new future strategy stack:
[18:41:38.021] List of future strategies:
[18:41:38.021] 1. sequential:
[18:41:38.021]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:38.021]    - tweaked: FALSE
[18:41:38.021]    - call: plan(strategy)
[18:41:38.022] plan(): nbrOfWorkers() = 1
[18:41:38.022] SequentialFuture started (and completed)
[18:41:38.023] - Launch lazy future ... done
[18:41:38.023] run() for 'SequentialFuture' ... done
[18:41:38.024] Created future:
[18:41:38.024] SequentialFuture:
[18:41:38.024] Label: 'future_replicate-1'
[18:41:38.024] Expression:
[18:41:38.024] {
[18:41:38.024]     do.call(function(...) {
[18:41:38.024]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:38.024]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:38.024]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:38.024]             on.exit(options(oopts), add = TRUE)
[18:41:38.024]         }
[18:41:38.024]         {
[18:41:38.024]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:38.024]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:38.024]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:38.024]                   envir = globalenv(), inherits = FALSE)
[18:41:38.024]                 ...future.FUN(...future.X_jj, ...)
[18:41:38.024]             })
[18:41:38.024]         }
[18:41:38.024]     }, args = future.call.arguments)
[18:41:38.024] }
[18:41:38.024] Lazy evaluation: FALSE
[18:41:38.024] Asynchronous evaluation: FALSE
[18:41:38.024] Local evaluation: TRUE
[18:41:38.024] Environment: 0x0000028bfa2178b0
[18:41:38.024] Capture standard output: TRUE
[18:41:38.024] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:38.024] Globals: 7 objects totaling 1.02 KiB (function '...future.FUN' of 179 bytes, function 'foo' of 399 bytes, numeric 'x' of 39 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 91 bytes, ...)
[18:41:38.024] Packages: <none>
[18:41:38.024] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:38.024] Resolved: TRUE
[18:41:38.024] Value: 151 bytes of class 'list'
[18:41:38.024] Early signaling: FALSE
[18:41:38.024] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:38.024] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[18:41:38.025] Chunk #1 of 1 ... DONE
[18:41:38.025] Launching 1 futures (chunks) ... DONE
[18:41:38.025] Resolving 1 futures (chunks) ...
[18:41:38.026] resolve() on list ...
[18:41:38.026]  recursive: 0
[18:41:38.026]  length: 1
[18:41:38.026] 
[18:41:38.026] resolved() for 'SequentialFuture' ...
[18:41:38.026] - state: 'finished'
[18:41:38.027] - run: TRUE
[18:41:38.027] - result: 'FutureResult'
[18:41:38.027] resolved() for 'SequentialFuture' ... done
[18:41:38.027] Future #1
[18:41:38.027] signalConditionsASAP(SequentialFuture, pos=1) ...
[18:41:38.027] - nx: 1
[18:41:38.028] - relay: TRUE
[18:41:38.028] - stdout: TRUE
[18:41:38.028] - signal: TRUE
[18:41:38.028] - resignal: FALSE
[18:41:38.028] - force: TRUE
[18:41:38.028] - relayed: [n=1] FALSE
[18:41:38.028] - queued futures: [n=1] FALSE
[18:41:38.029]  - until=1
[18:41:38.029]  - relaying element #1
[18:41:38.029] - relayed: [n=1] TRUE
[18:41:38.029] - queued futures: [n=1] TRUE
[18:41:38.029] signalConditionsASAP(SequentialFuture, pos=1) ... done
[18:41:38.030]  length: 0 (resolved future 1)
[18:41:38.030] Relaying remaining futures
[18:41:38.030] signalConditionsASAP(NULL, pos=0) ...
[18:41:38.030] - nx: 1
[18:41:38.030] - relay: TRUE
[18:41:38.030] - stdout: TRUE
[18:41:38.030] - signal: TRUE
[18:41:38.031] - resignal: FALSE
[18:41:38.031] - force: TRUE
[18:41:38.031] - relayed: [n=1] TRUE
[18:41:38.031] - queued futures: [n=1] TRUE
 - flush all
[18:41:38.031] - relayed: [n=1] TRUE
[18:41:38.031] - queued futures: [n=1] TRUE
[18:41:38.032] signalConditionsASAP(NULL, pos=0) ... done
[18:41:38.032] resolve() on list ... DONE
[18:41:38.032]  - Number of value chunks collected: 1
[18:41:38.032] Resolving 1 futures (chunks) ... DONE
[18:41:38.032] Reducing values from 1 chunks ...
[18:41:38.032]  - Number of values collected after concatenation: 5
[18:41:38.032]  - Number of values expected: 5
[18:41:38.033] Reducing values from 1 chunks ... DONE
[18:41:38.033] future_lapply() ... DONE
[18:41:38.033] plan(): Setting new future strategy stack:
[18:41:38.034] List of future strategies:
[18:41:38.034] 1. sequential:
[18:41:38.034]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:38.034]    - tweaked: FALSE
[18:41:38.034]    - call: plan(sequential)
[18:41:38.034] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[18:41:38.035] plan(): Setting new future strategy stack:
[18:41:38.035] List of future strategies:
[18:41:38.035] 1. multisession:
[18:41:38.035]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:41:38.035]    - tweaked: FALSE
[18:41:38.035]    - call: plan(strategy)
[18:41:38.035] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[18:41:38.035] multisession:
[18:41:38.035] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[18:41:38.035] - tweaked: FALSE
[18:41:38.035] - call: plan(strategy)
[18:41:38.039] getGlobalsAndPackages() ...
[18:41:38.040] Not searching for globals
[18:41:38.040] - globals: [0] <none>
[18:41:38.040] getGlobalsAndPackages() ... DONE
[18:41:38.040] [local output] makeClusterPSOCK() ...
[18:41:38.071] [local output] Workers: [n = 2] 'localhost', 'localhost'
[18:41:38.077] [local output] Base port: 27327
[18:41:38.078] [local output] Getting setup options for 2 cluster nodes ...
[18:41:38.078] [local output]  - Node #1 of 2 ...
[18:41:38.078] [local output] localMachine=TRUE => revtunnel=FALSE

[18:41:38.080] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpMx77ID/worker.rank=1.parallelly.parent=101580.18ccc12a88f.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/RtmpMx77ID/worker.rank=1.parallelly.parent=101580.18ccc12a88f.pid\")"'
[18:41:38.629] - Possible to infer worker's PID: TRUE
[18:41:38.630] [local output] Rscript port: 27327

[18:41:38.630] [local output]  - Node #2 of 2 ...
[18:41:38.631] [local output] localMachine=TRUE => revtunnel=FALSE

[18:41:38.632] [local output] Rscript port: 27327

[18:41:38.633] [local output] Getting setup options for 2 cluster nodes ... done
[18:41:38.633] [local output]  - Parallel setup requested for some PSOCK nodes
[18:41:38.633] [local output] Setting up PSOCK nodes in parallel
[18:41:38.634] List of 36
[18:41:38.634]  $ worker          : chr "localhost"
[18:41:38.634]   ..- attr(*, "localhost")= logi TRUE
[18:41:38.634]  $ master          : chr "localhost"
[18:41:38.634]  $ port            : int 27327
[18:41:38.634]  $ connectTimeout  : num 120
[18:41:38.634]  $ timeout         : num 120
[18:41:38.634]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[18:41:38.634]  $ homogeneous     : logi TRUE
[18:41:38.634]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_replicate.R:101580:CRANWI"| __truncated__
[18:41:38.634]  $ rscript_envs    : NULL
[18:41:38.634]  $ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:41:38.634]  $ rscript_startup : NULL
[18:41:38.634]  $ rscript_sh      : chr [1:2] "cmd" "cmd"
[18:41:38.634]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:41:38.634]  $ methods         : logi TRUE
[18:41:38.634]  $ socketOptions   : chr "no-delay"
[18:41:38.634]  $ useXDR          : logi FALSE
[18:41:38.634]  $ outfile         : chr "/dev/null"
[18:41:38.634]  $ renice          : int NA
[18:41:38.634]  $ rshcmd          : NULL
[18:41:38.634]  $ user            : chr(0) 
[18:41:38.634]  $ revtunnel       : logi FALSE
[18:41:38.634]  $ rshlogfile      : NULL
[18:41:38.634]  $ rshopts         : chr(0) 
[18:41:38.634]  $ rank            : int 1
[18:41:38.634]  $ manual          : logi FALSE
[18:41:38.634]  $ dryrun          : logi FALSE
[18:41:38.634]  $ quiet           : logi FALSE
[18:41:38.634]  $ setup_strategy  : chr "parallel"
[18:41:38.634]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:41:38.634]  $ pidfile         : chr "D:/temp/RtmpMx77ID/worker.rank=1.parallelly.parent=101580.18ccc12a88f.pid"
[18:41:38.634]  $ rshcmd_label    : NULL
[18:41:38.634]  $ rsh_call        : NULL
[18:41:38.634]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[18:41:38.634]  $ localMachine    : logi TRUE
[18:41:38.634]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[18:41:38.634]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[18:41:38.634]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[18:41:38.634]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[18:41:38.634]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[18:41:38.634]         "cmd", "sh", "none"), default_packages = c("datasets", "utils", 
[18:41:38.634]         "grDevices", "graphics", "stats", if (methods) "methods"), methods = TRUE, 
[18:41:38.634]     socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[18:41:38.634]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[18:41:38.634]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[18:41:38.634]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[18:41:38.634]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[18:41:38.634]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[18:41:38.634]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[18:41:38.634]  $ arguments       :List of 28
[18:41:38.634]   ..$ worker          : chr "localhost"
[18:41:38.634]   ..$ master          : NULL
[18:41:38.634]   ..$ port            : int 27327
[18:41:38.634]   ..$ connectTimeout  : num 120
[18:41:38.634]   ..$ timeout         : num 120
[18:41:38.634]   ..$ rscript         : NULL
[18:41:38.634]   ..$ homogeneous     : NULL
[18:41:38.634]   ..$ rscript_args    : NULL
[18:41:38.634]   ..$ rscript_envs    : NULL
[18:41:38.634]   ..$ rscript_libs    : chr [1:2] "D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8" "D:/RCompile/recent/R/library"
[18:41:38.634]   ..$ rscript_startup : NULL
[18:41:38.634]   ..$ rscript_sh      : chr "auto"
[18:41:38.634]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[18:41:38.634]   ..$ methods         : logi TRUE
[18:41:38.634]   ..$ socketOptions   : chr "no-delay"
[18:41:38.634]   ..$ useXDR          : logi FALSE
[18:41:38.634]   ..$ outfile         : chr "/dev/null"
[18:41:38.634]   ..$ renice          : int NA
[18:41:38.634]   ..$ rshcmd          : NULL
[18:41:38.634]   ..$ user            : NULL
[18:41:38.634]   ..$ revtunnel       : logi NA
[18:41:38.634]   ..$ rshlogfile      : NULL
[18:41:38.634]   ..$ rshopts         : NULL
[18:41:38.634]   ..$ rank            : int 1
[18:41:38.634]   ..$ manual          : logi FALSE
[18:41:38.634]   ..$ dryrun          : logi FALSE
[18:41:38.634]   ..$ quiet           : logi FALSE
[18:41:38.634]   ..$ setup_strategy  : chr "parallel"
[18:41:38.634]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[18:41:38.657] [local output] System call to launch all workers:
[18:41:38.657] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_replicate.R:101580:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/RtmpMx77ID/worker.rank=1.parallelly.parent=101580.18ccc12a88f.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/Rtmpi4y3mu/RLIBS_25080533fa8\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=27327 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[18:41:38.657] [local output] Starting PSOCK main server
[18:41:38.664] [local output] Workers launched
[18:41:38.664] [local output] Waiting for workers to connect back
[18:41:38.665]  - [local output] 0 workers out of 2 ready
[18:41:38.836]  - [local output] 0 workers out of 2 ready
[18:41:38.836]  - [local output] 1 workers out of 2 ready
[18:41:38.910]  - [local output] 1 workers out of 2 ready
[18:41:38.910]  - [local output] 2 workers out of 2 ready
[18:41:38.911] [local output] Launching of 2 workers completed
[18:41:38.911] [local output] Number of nodes in cluster: 2
[18:41:38.911] [local output] Collecting session information from 2 workers
[18:41:38.912] [local output]  - Worker #1 of 2
[18:41:38.913] [local output]  - Worker #2 of 2
[18:41:38.913] [local output] makeClusterPSOCK() ... done
[18:41:38.928] Packages needed by the future expression (n = 0): <none>
[18:41:38.928] Packages needed by future strategies (n = 0): <none>
[18:41:38.929] {
[18:41:38.929]     {
[18:41:38.929]         {
[18:41:38.929]             ...future.startTime <- base::Sys.time()
[18:41:38.929]             {
[18:41:38.929]                 {
[18:41:38.929]                   {
[18:41:38.929]                     {
[18:41:38.929]                       base::local({
[18:41:38.929]                         has_future <- base::requireNamespace("future", 
[18:41:38.929]                           quietly = TRUE)
[18:41:38.929]                         if (has_future) {
[18:41:38.929]                           ns <- base::getNamespace("future")
[18:41:38.929]                           version <- ns[[".package"]][["version"]]
[18:41:38.929]                           if (is.null(version)) 
[18:41:38.929]                             version <- utils::packageVersion("future")
[18:41:38.929]                         }
[18:41:38.929]                         else {
[18:41:38.929]                           version <- NULL
[18:41:38.929]                         }
[18:41:38.929]                         if (!has_future || version < "1.8.0") {
[18:41:38.929]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:38.929]                             "", base::R.version$version.string), 
[18:41:38.929]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:38.929]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:38.929]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:38.929]                               "release", "version")], collapse = " "), 
[18:41:38.929]                             hostname = base::Sys.info()[["nodename"]])
[18:41:38.929]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:38.929]                             info)
[18:41:38.929]                           info <- base::paste(info, collapse = "; ")
[18:41:38.929]                           if (!has_future) {
[18:41:38.929]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:38.929]                               info)
[18:41:38.929]                           }
[18:41:38.929]                           else {
[18:41:38.929]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:38.929]                               info, version)
[18:41:38.929]                           }
[18:41:38.929]                           base::stop(msg)
[18:41:38.929]                         }
[18:41:38.929]                       })
[18:41:38.929]                     }
[18:41:38.929]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:38.929]                     base::options(mc.cores = 1L)
[18:41:38.929]                   }
[18:41:38.929]                   ...future.strategy.old <- future::plan("list")
[18:41:38.929]                   options(future.plan = NULL)
[18:41:38.929]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:38.929]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:38.929]                 }
[18:41:38.929]                 ...future.workdir <- getwd()
[18:41:38.929]             }
[18:41:38.929]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:38.929]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:38.929]         }
[18:41:38.929]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:38.929]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[18:41:38.929]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:38.929]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:38.929]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:38.929]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:38.929]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:38.929]             base::names(...future.oldOptions))
[18:41:38.929]     }
[18:41:38.929]     if (FALSE) {
[18:41:38.929]     }
[18:41:38.929]     else {
[18:41:38.929]         if (TRUE) {
[18:41:38.929]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:38.929]                 open = "w")
[18:41:38.929]         }
[18:41:38.929]         else {
[18:41:38.929]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:38.929]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:38.929]         }
[18:41:38.929]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:38.929]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:38.929]             base::sink(type = "output", split = FALSE)
[18:41:38.929]             base::close(...future.stdout)
[18:41:38.929]         }, add = TRUE)
[18:41:38.929]     }
[18:41:38.929]     ...future.frame <- base::sys.nframe()
[18:41:38.929]     ...future.conditions <- base::list()
[18:41:38.929]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:38.929]     if (FALSE) {
[18:41:38.929]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:38.929]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:38.929]     }
[18:41:38.929]     ...future.result <- base::tryCatch({
[18:41:38.929]         base::withCallingHandlers({
[18:41:38.929]             ...future.value <- base::withVisible(base::local({
[18:41:38.929]                 ...future.makeSendCondition <- base::local({
[18:41:38.929]                   sendCondition <- NULL
[18:41:38.929]                   function(frame = 1L) {
[18:41:38.929]                     if (is.function(sendCondition)) 
[18:41:38.929]                       return(sendCondition)
[18:41:38.929]                     ns <- getNamespace("parallel")
[18:41:38.929]                     if (exists("sendData", mode = "function", 
[18:41:38.929]                       envir = ns)) {
[18:41:38.929]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:38.929]                         envir = ns)
[18:41:38.929]                       envir <- sys.frame(frame)
[18:41:38.929]                       master <- NULL
[18:41:38.929]                       while (!identical(envir, .GlobalEnv) && 
[18:41:38.929]                         !identical(envir, emptyenv())) {
[18:41:38.929]                         if (exists("master", mode = "list", envir = envir, 
[18:41:38.929]                           inherits = FALSE)) {
[18:41:38.929]                           master <- get("master", mode = "list", 
[18:41:38.929]                             envir = envir, inherits = FALSE)
[18:41:38.929]                           if (inherits(master, c("SOCKnode", 
[18:41:38.929]                             "SOCK0node"))) {
[18:41:38.929]                             sendCondition <<- function(cond) {
[18:41:38.929]                               data <- list(type = "VALUE", value = cond, 
[18:41:38.929]                                 success = TRUE)
[18:41:38.929]                               parallel_sendData(master, data)
[18:41:38.929]                             }
[18:41:38.929]                             return(sendCondition)
[18:41:38.929]                           }
[18:41:38.929]                         }
[18:41:38.929]                         frame <- frame + 1L
[18:41:38.929]                         envir <- sys.frame(frame)
[18:41:38.929]                       }
[18:41:38.929]                     }
[18:41:38.929]                     sendCondition <<- function(cond) NULL
[18:41:38.929]                   }
[18:41:38.929]                 })
[18:41:38.929]                 withCallingHandlers({
[18:41:38.929]                   NA
[18:41:38.929]                 }, immediateCondition = function(cond) {
[18:41:38.929]                   sendCondition <- ...future.makeSendCondition()
[18:41:38.929]                   sendCondition(cond)
[18:41:38.929]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:38.929]                   {
[18:41:38.929]                     inherits <- base::inherits
[18:41:38.929]                     invokeRestart <- base::invokeRestart
[18:41:38.929]                     is.null <- base::is.null
[18:41:38.929]                     muffled <- FALSE
[18:41:38.929]                     if (inherits(cond, "message")) {
[18:41:38.929]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:38.929]                       if (muffled) 
[18:41:38.929]                         invokeRestart("muffleMessage")
[18:41:38.929]                     }
[18:41:38.929]                     else if (inherits(cond, "warning")) {
[18:41:38.929]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:38.929]                       if (muffled) 
[18:41:38.929]                         invokeRestart("muffleWarning")
[18:41:38.929]                     }
[18:41:38.929]                     else if (inherits(cond, "condition")) {
[18:41:38.929]                       if (!is.null(pattern)) {
[18:41:38.929]                         computeRestarts <- base::computeRestarts
[18:41:38.929]                         grepl <- base::grepl
[18:41:38.929]                         restarts <- computeRestarts(cond)
[18:41:38.929]                         for (restart in restarts) {
[18:41:38.929]                           name <- restart$name
[18:41:38.929]                           if (is.null(name)) 
[18:41:38.929]                             next
[18:41:38.929]                           if (!grepl(pattern, name)) 
[18:41:38.929]                             next
[18:41:38.929]                           invokeRestart(restart)
[18:41:38.929]                           muffled <- TRUE
[18:41:38.929]                           break
[18:41:38.929]                         }
[18:41:38.929]                       }
[18:41:38.929]                     }
[18:41:38.929]                     invisible(muffled)
[18:41:38.929]                   }
[18:41:38.929]                   muffleCondition(cond)
[18:41:38.929]                 })
[18:41:38.929]             }))
[18:41:38.929]             future::FutureResult(value = ...future.value$value, 
[18:41:38.929]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:38.929]                   ...future.rng), globalenv = if (FALSE) 
[18:41:38.929]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:38.929]                     ...future.globalenv.names))
[18:41:38.929]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:38.929]         }, condition = base::local({
[18:41:38.929]             c <- base::c
[18:41:38.929]             inherits <- base::inherits
[18:41:38.929]             invokeRestart <- base::invokeRestart
[18:41:38.929]             length <- base::length
[18:41:38.929]             list <- base::list
[18:41:38.929]             seq.int <- base::seq.int
[18:41:38.929]             signalCondition <- base::signalCondition
[18:41:38.929]             sys.calls <- base::sys.calls
[18:41:38.929]             `[[` <- base::`[[`
[18:41:38.929]             `+` <- base::`+`
[18:41:38.929]             `<<-` <- base::`<<-`
[18:41:38.929]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:38.929]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:38.929]                   3L)]
[18:41:38.929]             }
[18:41:38.929]             function(cond) {
[18:41:38.929]                 is_error <- inherits(cond, "error")
[18:41:38.929]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:38.929]                   NULL)
[18:41:38.929]                 if (is_error) {
[18:41:38.929]                   sessionInformation <- function() {
[18:41:38.929]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:38.929]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:38.929]                       search = base::search(), system = base::Sys.info())
[18:41:38.929]                   }
[18:41:38.929]                   ...future.conditions[[length(...future.conditions) + 
[18:41:38.929]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:38.929]                     cond$call), session = sessionInformation(), 
[18:41:38.929]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:38.929]                   signalCondition(cond)
[18:41:38.929]                 }
[18:41:38.929]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:38.929]                 "immediateCondition"))) {
[18:41:38.929]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:38.929]                   ...future.conditions[[length(...future.conditions) + 
[18:41:38.929]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:38.929]                   if (TRUE && !signal) {
[18:41:38.929]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:38.929]                     {
[18:41:38.929]                       inherits <- base::inherits
[18:41:38.929]                       invokeRestart <- base::invokeRestart
[18:41:38.929]                       is.null <- base::is.null
[18:41:38.929]                       muffled <- FALSE
[18:41:38.929]                       if (inherits(cond, "message")) {
[18:41:38.929]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:38.929]                         if (muffled) 
[18:41:38.929]                           invokeRestart("muffleMessage")
[18:41:38.929]                       }
[18:41:38.929]                       else if (inherits(cond, "warning")) {
[18:41:38.929]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:38.929]                         if (muffled) 
[18:41:38.929]                           invokeRestart("muffleWarning")
[18:41:38.929]                       }
[18:41:38.929]                       else if (inherits(cond, "condition")) {
[18:41:38.929]                         if (!is.null(pattern)) {
[18:41:38.929]                           computeRestarts <- base::computeRestarts
[18:41:38.929]                           grepl <- base::grepl
[18:41:38.929]                           restarts <- computeRestarts(cond)
[18:41:38.929]                           for (restart in restarts) {
[18:41:38.929]                             name <- restart$name
[18:41:38.929]                             if (is.null(name)) 
[18:41:38.929]                               next
[18:41:38.929]                             if (!grepl(pattern, name)) 
[18:41:38.929]                               next
[18:41:38.929]                             invokeRestart(restart)
[18:41:38.929]                             muffled <- TRUE
[18:41:38.929]                             break
[18:41:38.929]                           }
[18:41:38.929]                         }
[18:41:38.929]                       }
[18:41:38.929]                       invisible(muffled)
[18:41:38.929]                     }
[18:41:38.929]                     muffleCondition(cond, pattern = "^muffle")
[18:41:38.929]                   }
[18:41:38.929]                 }
[18:41:38.929]                 else {
[18:41:38.929]                   if (TRUE) {
[18:41:38.929]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:38.929]                     {
[18:41:38.929]                       inherits <- base::inherits
[18:41:38.929]                       invokeRestart <- base::invokeRestart
[18:41:38.929]                       is.null <- base::is.null
[18:41:38.929]                       muffled <- FALSE
[18:41:38.929]                       if (inherits(cond, "message")) {
[18:41:38.929]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:38.929]                         if (muffled) 
[18:41:38.929]                           invokeRestart("muffleMessage")
[18:41:38.929]                       }
[18:41:38.929]                       else if (inherits(cond, "warning")) {
[18:41:38.929]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:38.929]                         if (muffled) 
[18:41:38.929]                           invokeRestart("muffleWarning")
[18:41:38.929]                       }
[18:41:38.929]                       else if (inherits(cond, "condition")) {
[18:41:38.929]                         if (!is.null(pattern)) {
[18:41:38.929]                           computeRestarts <- base::computeRestarts
[18:41:38.929]                           grepl <- base::grepl
[18:41:38.929]                           restarts <- computeRestarts(cond)
[18:41:38.929]                           for (restart in restarts) {
[18:41:38.929]                             name <- restart$name
[18:41:38.929]                             if (is.null(name)) 
[18:41:38.929]                               next
[18:41:38.929]                             if (!grepl(pattern, name)) 
[18:41:38.929]                               next
[18:41:38.929]                             invokeRestart(restart)
[18:41:38.929]                             muffled <- TRUE
[18:41:38.929]                             break
[18:41:38.929]                           }
[18:41:38.929]                         }
[18:41:38.929]                       }
[18:41:38.929]                       invisible(muffled)
[18:41:38.929]                     }
[18:41:38.929]                     muffleCondition(cond, pattern = "^muffle")
[18:41:38.929]                   }
[18:41:38.929]                 }
[18:41:38.929]             }
[18:41:38.929]         }))
[18:41:38.929]     }, error = function(ex) {
[18:41:38.929]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:38.929]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:38.929]                 ...future.rng), started = ...future.startTime, 
[18:41:38.929]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:38.929]             version = "1.8"), class = "FutureResult")
[18:41:38.929]     }, finally = {
[18:41:38.929]         if (!identical(...future.workdir, getwd())) 
[18:41:38.929]             setwd(...future.workdir)
[18:41:38.929]         {
[18:41:38.929]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:38.929]                 ...future.oldOptions$nwarnings <- NULL
[18:41:38.929]             }
[18:41:38.929]             base::options(...future.oldOptions)
[18:41:38.929]             if (.Platform$OS.type == "windows") {
[18:41:38.929]                 old_names <- names(...future.oldEnvVars)
[18:41:38.929]                 envs <- base::Sys.getenv()
[18:41:38.929]                 names <- names(envs)
[18:41:38.929]                 common <- intersect(names, old_names)
[18:41:38.929]                 added <- setdiff(names, old_names)
[18:41:38.929]                 removed <- setdiff(old_names, names)
[18:41:38.929]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:38.929]                   envs[common]]
[18:41:38.929]                 NAMES <- toupper(changed)
[18:41:38.929]                 args <- list()
[18:41:38.929]                 for (kk in seq_along(NAMES)) {
[18:41:38.929]                   name <- changed[[kk]]
[18:41:38.929]                   NAME <- NAMES[[kk]]
[18:41:38.929]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.929]                     next
[18:41:38.929]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:38.929]                 }
[18:41:38.929]                 NAMES <- toupper(added)
[18:41:38.929]                 for (kk in seq_along(NAMES)) {
[18:41:38.929]                   name <- added[[kk]]
[18:41:38.929]                   NAME <- NAMES[[kk]]
[18:41:38.929]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.929]                     next
[18:41:38.929]                   args[[name]] <- ""
[18:41:38.929]                 }
[18:41:38.929]                 NAMES <- toupper(removed)
[18:41:38.929]                 for (kk in seq_along(NAMES)) {
[18:41:38.929]                   name <- removed[[kk]]
[18:41:38.929]                   NAME <- NAMES[[kk]]
[18:41:38.929]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:38.929]                     next
[18:41:38.929]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:38.929]                 }
[18:41:38.929]                 if (length(args) > 0) 
[18:41:38.929]                   base::do.call(base::Sys.setenv, args = args)
[18:41:38.929]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:38.929]             }
[18:41:38.929]             else {
[18:41:38.929]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:38.929]             }
[18:41:38.929]             {
[18:41:38.929]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:38.929]                   0L) {
[18:41:38.929]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:38.929]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:38.929]                   base::options(opts)
[18:41:38.929]                 }
[18:41:38.929]                 {
[18:41:38.929]                   {
[18:41:38.929]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:38.929]                     NULL
[18:41:38.929]                   }
[18:41:38.929]                   options(future.plan = NULL)
[18:41:38.929]                   if (is.na(NA_character_)) 
[18:41:38.929]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:38.929]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:38.929]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:38.929]                     .init = FALSE)
[18:41:38.929]                 }
[18:41:38.929]             }
[18:41:38.929]         }
[18:41:38.929]     })
[18:41:38.929]     if (TRUE) {
[18:41:38.929]         base::sink(type = "output", split = FALSE)
[18:41:38.929]         if (TRUE) {
[18:41:38.929]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:38.929]         }
[18:41:38.929]         else {
[18:41:38.929]             ...future.result["stdout"] <- base::list(NULL)
[18:41:38.929]         }
[18:41:38.929]         base::close(...future.stdout)
[18:41:38.929]         ...future.stdout <- NULL
[18:41:38.929]     }
[18:41:38.929]     ...future.result$conditions <- ...future.conditions
[18:41:38.929]     ...future.result$finished <- base::Sys.time()
[18:41:38.929]     ...future.result
[18:41:38.929] }
[18:41:39.019] MultisessionFuture started
[18:41:39.019] result() for ClusterFuture ...
[18:41:39.020] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.020] - Validating connection of MultisessionFuture
[18:41:39.072] - received message: FutureResult
[18:41:39.072] - Received FutureResult
[18:41:39.075] - Erased future from FutureRegistry
[18:41:39.075] result() for ClusterFuture ...
[18:41:39.076] - result already collected: FutureResult
[18:41:39.076] result() for ClusterFuture ... done
[18:41:39.076] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.076] result() for ClusterFuture ... done
[18:41:39.076] result() for ClusterFuture ...
[18:41:39.076] - result already collected: FutureResult
[18:41:39.077] result() for ClusterFuture ... done
[18:41:39.077] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[18:41:39.079] plan(): nbrOfWorkers() = 2
[18:41:39.080] future_lapply() ...
[18:41:39.081] Generating random seeds ...
[18:41:39.081] Generating random seed streams for 5 elements ...
[18:41:39.081] Generating random seed streams for 5 elements ... DONE
[18:41:39.081] Generating random seeds ... DONE
[18:41:39.081] 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
[18:41:39.086] Number of chunks: 2
[18:41:39.086] getGlobalsAndPackagesXApply() ...
[18:41:39.087]  - future.globals: TRUE
[18:41:39.087] getGlobalsAndPackages() ...
[18:41:39.087] Searching for globals...
[18:41:39.089] - globals found: [2] 'FUN', 'sample'
[18:41:39.089] Searching for globals ... DONE
[18:41:39.089] Resolving globals: FALSE
[18:41:39.089] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:39.090] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:39.090] - globals: [1] 'FUN'
[18:41:39.090] 
[18:41:39.091] getGlobalsAndPackages() ... DONE
[18:41:39.091]  - globals found/used: [n=1] 'FUN'
[18:41:39.091]  - needed namespaces: [n=0] 
[18:41:39.091] Finding globals ... DONE
[18:41:39.092]  - use_args: TRUE
[18:41:39.092]  - Getting '...' globals ...
[18:41:39.092] resolve() on list ...
[18:41:39.092]  recursive: 0
[18:41:39.093]  length: 1
[18:41:39.093]  elements: '...'
[18:41:39.093]  length: 0 (resolved future 1)
[18:41:39.093] resolve() on list ... DONE
[18:41:39.093]    - '...' content: [n=0] 
[18:41:39.094] List of 1
[18:41:39.094]  $ ...: list()
[18:41:39.094]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.094]  - attr(*, "where")=List of 1
[18:41:39.094]   ..$ ...:<environment: 0x0000028bfeeb4358> 
[18:41:39.094]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.094]  - attr(*, "resolved")= logi TRUE
[18:41:39.094]  - attr(*, "total_size")= num NA
[18:41:39.097]  - Getting '...' globals ... DONE
[18:41:39.098] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:39.098] List of 2
[18:41:39.098]  $ ...future.FUN:function (...)  
[18:41:39.098]  $ ...          : list()
[18:41:39.098]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.098]  - attr(*, "where")=List of 2
[18:41:39.098]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.098]   ..$ ...          :<environment: 0x0000028bfeeb4358> 
[18:41:39.098]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.098]  - attr(*, "resolved")= logi FALSE
[18:41:39.098]  - attr(*, "total_size")= int 7184
[18:41:39.102] Packages to be attached in all futures: [n=0] 
[18:41:39.102] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.102] Number of futures (= number of chunks): 2
[18:41:39.103] Launching 2 futures (chunks) ...
[18:41:39.103] Chunk #1 of 2 ...
[18:41:39.103]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.103] getGlobalsAndPackages() ...
[18:41:39.103] Searching for globals...
[18:41:39.104] 
[18:41:39.104] Searching for globals ... DONE
[18:41:39.104] - globals: [0] <none>
[18:41:39.104] getGlobalsAndPackages() ... DONE
[18:41:39.104]    + additional globals found: [n=0] 
[18:41:39.105]    + additional namespaces needed: [n=0] 
[18:41:39.105]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.105]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.105]  - seeds: [2] <seeds>
[18:41:39.105]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.106] getGlobalsAndPackages() ...
[18:41:39.106] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.106] Resolving globals: FALSE
[18:41:39.106] Tweak future expression to call with '...' arguments ...
[18:41:39.106] {
[18:41:39.106]     do.call(function(...) {
[18:41:39.106]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.106]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.106]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.106]             on.exit(options(oopts), add = TRUE)
[18:41:39.106]         }
[18:41:39.106]         {
[18:41:39.106]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.106]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.106]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.106]                   envir = globalenv(), inherits = FALSE)
[18:41:39.106]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.106]             })
[18:41:39.106]         }
[18:41:39.106]     }, args = future.call.arguments)
[18:41:39.106] }
[18:41:39.107] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.108] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.108] 
[18:41:39.108] getGlobalsAndPackages() ... DONE
[18:41:39.108] run() for 'Future' ...
[18:41:39.109] - state: 'created'
[18:41:39.109] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.125] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.125] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.126]   - Field: 'node'
[18:41:39.126]   - Field: 'label'
[18:41:39.126]   - Field: 'local'
[18:41:39.126]   - Field: 'owner'
[18:41:39.126]   - Field: 'envir'
[18:41:39.126]   - Field: 'workers'
[18:41:39.127]   - Field: 'packages'
[18:41:39.127]   - Field: 'gc'
[18:41:39.127]   - Field: 'conditions'
[18:41:39.127]   - Field: 'persistent'
[18:41:39.128]   - Field: 'expr'
[18:41:39.128]   - Field: 'uuid'
[18:41:39.128]   - Field: 'seed'
[18:41:39.128]   - Field: 'version'
[18:41:39.128]   - Field: 'result'
[18:41:39.129]   - Field: 'asynchronous'
[18:41:39.129]   - Field: 'calls'
[18:41:39.129]   - Field: 'globals'
[18:41:39.129]   - Field: 'stdout'
[18:41:39.129]   - Field: 'earlySignal'
[18:41:39.130]   - Field: 'lazy'
[18:41:39.130]   - Field: 'state'
[18:41:39.130] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.130] - Launch lazy future ...
[18:41:39.131] Packages needed by the future expression (n = 0): <none>
[18:41:39.131] Packages needed by future strategies (n = 0): <none>
[18:41:39.132] {
[18:41:39.132]     {
[18:41:39.132]         {
[18:41:39.132]             ...future.startTime <- base::Sys.time()
[18:41:39.132]             {
[18:41:39.132]                 {
[18:41:39.132]                   {
[18:41:39.132]                     {
[18:41:39.132]                       base::local({
[18:41:39.132]                         has_future <- base::requireNamespace("future", 
[18:41:39.132]                           quietly = TRUE)
[18:41:39.132]                         if (has_future) {
[18:41:39.132]                           ns <- base::getNamespace("future")
[18:41:39.132]                           version <- ns[[".package"]][["version"]]
[18:41:39.132]                           if (is.null(version)) 
[18:41:39.132]                             version <- utils::packageVersion("future")
[18:41:39.132]                         }
[18:41:39.132]                         else {
[18:41:39.132]                           version <- NULL
[18:41:39.132]                         }
[18:41:39.132]                         if (!has_future || version < "1.8.0") {
[18:41:39.132]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.132]                             "", base::R.version$version.string), 
[18:41:39.132]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.132]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.132]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.132]                               "release", "version")], collapse = " "), 
[18:41:39.132]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.132]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.132]                             info)
[18:41:39.132]                           info <- base::paste(info, collapse = "; ")
[18:41:39.132]                           if (!has_future) {
[18:41:39.132]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.132]                               info)
[18:41:39.132]                           }
[18:41:39.132]                           else {
[18:41:39.132]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.132]                               info, version)
[18:41:39.132]                           }
[18:41:39.132]                           base::stop(msg)
[18:41:39.132]                         }
[18:41:39.132]                       })
[18:41:39.132]                     }
[18:41:39.132]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.132]                     base::options(mc.cores = 1L)
[18:41:39.132]                   }
[18:41:39.132]                   ...future.strategy.old <- future::plan("list")
[18:41:39.132]                   options(future.plan = NULL)
[18:41:39.132]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.132]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.132]                 }
[18:41:39.132]                 ...future.workdir <- getwd()
[18:41:39.132]             }
[18:41:39.132]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.132]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.132]         }
[18:41:39.132]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.132]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.132]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.132]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.132]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.132]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.132]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.132]             base::names(...future.oldOptions))
[18:41:39.132]     }
[18:41:39.132]     if (FALSE) {
[18:41:39.132]     }
[18:41:39.132]     else {
[18:41:39.132]         if (TRUE) {
[18:41:39.132]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.132]                 open = "w")
[18:41:39.132]         }
[18:41:39.132]         else {
[18:41:39.132]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.132]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.132]         }
[18:41:39.132]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.132]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.132]             base::sink(type = "output", split = FALSE)
[18:41:39.132]             base::close(...future.stdout)
[18:41:39.132]         }, add = TRUE)
[18:41:39.132]     }
[18:41:39.132]     ...future.frame <- base::sys.nframe()
[18:41:39.132]     ...future.conditions <- base::list()
[18:41:39.132]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.132]     if (FALSE) {
[18:41:39.132]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.132]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.132]     }
[18:41:39.132]     ...future.result <- base::tryCatch({
[18:41:39.132]         base::withCallingHandlers({
[18:41:39.132]             ...future.value <- base::withVisible(base::local({
[18:41:39.132]                 ...future.makeSendCondition <- base::local({
[18:41:39.132]                   sendCondition <- NULL
[18:41:39.132]                   function(frame = 1L) {
[18:41:39.132]                     if (is.function(sendCondition)) 
[18:41:39.132]                       return(sendCondition)
[18:41:39.132]                     ns <- getNamespace("parallel")
[18:41:39.132]                     if (exists("sendData", mode = "function", 
[18:41:39.132]                       envir = ns)) {
[18:41:39.132]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.132]                         envir = ns)
[18:41:39.132]                       envir <- sys.frame(frame)
[18:41:39.132]                       master <- NULL
[18:41:39.132]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.132]                         !identical(envir, emptyenv())) {
[18:41:39.132]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.132]                           inherits = FALSE)) {
[18:41:39.132]                           master <- get("master", mode = "list", 
[18:41:39.132]                             envir = envir, inherits = FALSE)
[18:41:39.132]                           if (inherits(master, c("SOCKnode", 
[18:41:39.132]                             "SOCK0node"))) {
[18:41:39.132]                             sendCondition <<- function(cond) {
[18:41:39.132]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.132]                                 success = TRUE)
[18:41:39.132]                               parallel_sendData(master, data)
[18:41:39.132]                             }
[18:41:39.132]                             return(sendCondition)
[18:41:39.132]                           }
[18:41:39.132]                         }
[18:41:39.132]                         frame <- frame + 1L
[18:41:39.132]                         envir <- sys.frame(frame)
[18:41:39.132]                       }
[18:41:39.132]                     }
[18:41:39.132]                     sendCondition <<- function(cond) NULL
[18:41:39.132]                   }
[18:41:39.132]                 })
[18:41:39.132]                 withCallingHandlers({
[18:41:39.132]                   {
[18:41:39.132]                     do.call(function(...) {
[18:41:39.132]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.132]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.132]                         ...future.globals.maxSize)) {
[18:41:39.132]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.132]                         on.exit(options(oopts), add = TRUE)
[18:41:39.132]                       }
[18:41:39.132]                       {
[18:41:39.132]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.132]                           FUN = function(jj) {
[18:41:39.132]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.132]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.132]                               envir = globalenv(), inherits = FALSE)
[18:41:39.132]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.132]                           })
[18:41:39.132]                       }
[18:41:39.132]                     }, args = future.call.arguments)
[18:41:39.132]                   }
[18:41:39.132]                 }, immediateCondition = function(cond) {
[18:41:39.132]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.132]                   sendCondition(cond)
[18:41:39.132]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.132]                   {
[18:41:39.132]                     inherits <- base::inherits
[18:41:39.132]                     invokeRestart <- base::invokeRestart
[18:41:39.132]                     is.null <- base::is.null
[18:41:39.132]                     muffled <- FALSE
[18:41:39.132]                     if (inherits(cond, "message")) {
[18:41:39.132]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.132]                       if (muffled) 
[18:41:39.132]                         invokeRestart("muffleMessage")
[18:41:39.132]                     }
[18:41:39.132]                     else if (inherits(cond, "warning")) {
[18:41:39.132]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.132]                       if (muffled) 
[18:41:39.132]                         invokeRestart("muffleWarning")
[18:41:39.132]                     }
[18:41:39.132]                     else if (inherits(cond, "condition")) {
[18:41:39.132]                       if (!is.null(pattern)) {
[18:41:39.132]                         computeRestarts <- base::computeRestarts
[18:41:39.132]                         grepl <- base::grepl
[18:41:39.132]                         restarts <- computeRestarts(cond)
[18:41:39.132]                         for (restart in restarts) {
[18:41:39.132]                           name <- restart$name
[18:41:39.132]                           if (is.null(name)) 
[18:41:39.132]                             next
[18:41:39.132]                           if (!grepl(pattern, name)) 
[18:41:39.132]                             next
[18:41:39.132]                           invokeRestart(restart)
[18:41:39.132]                           muffled <- TRUE
[18:41:39.132]                           break
[18:41:39.132]                         }
[18:41:39.132]                       }
[18:41:39.132]                     }
[18:41:39.132]                     invisible(muffled)
[18:41:39.132]                   }
[18:41:39.132]                   muffleCondition(cond)
[18:41:39.132]                 })
[18:41:39.132]             }))
[18:41:39.132]             future::FutureResult(value = ...future.value$value, 
[18:41:39.132]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.132]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.132]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.132]                     ...future.globalenv.names))
[18:41:39.132]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.132]         }, condition = base::local({
[18:41:39.132]             c <- base::c
[18:41:39.132]             inherits <- base::inherits
[18:41:39.132]             invokeRestart <- base::invokeRestart
[18:41:39.132]             length <- base::length
[18:41:39.132]             list <- base::list
[18:41:39.132]             seq.int <- base::seq.int
[18:41:39.132]             signalCondition <- base::signalCondition
[18:41:39.132]             sys.calls <- base::sys.calls
[18:41:39.132]             `[[` <- base::`[[`
[18:41:39.132]             `+` <- base::`+`
[18:41:39.132]             `<<-` <- base::`<<-`
[18:41:39.132]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.132]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.132]                   3L)]
[18:41:39.132]             }
[18:41:39.132]             function(cond) {
[18:41:39.132]                 is_error <- inherits(cond, "error")
[18:41:39.132]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.132]                   NULL)
[18:41:39.132]                 if (is_error) {
[18:41:39.132]                   sessionInformation <- function() {
[18:41:39.132]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.132]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.132]                       search = base::search(), system = base::Sys.info())
[18:41:39.132]                   }
[18:41:39.132]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.132]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.132]                     cond$call), session = sessionInformation(), 
[18:41:39.132]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.132]                   signalCondition(cond)
[18:41:39.132]                 }
[18:41:39.132]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.132]                 "immediateCondition"))) {
[18:41:39.132]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.132]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.132]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.132]                   if (TRUE && !signal) {
[18:41:39.132]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.132]                     {
[18:41:39.132]                       inherits <- base::inherits
[18:41:39.132]                       invokeRestart <- base::invokeRestart
[18:41:39.132]                       is.null <- base::is.null
[18:41:39.132]                       muffled <- FALSE
[18:41:39.132]                       if (inherits(cond, "message")) {
[18:41:39.132]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.132]                         if (muffled) 
[18:41:39.132]                           invokeRestart("muffleMessage")
[18:41:39.132]                       }
[18:41:39.132]                       else if (inherits(cond, "warning")) {
[18:41:39.132]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.132]                         if (muffled) 
[18:41:39.132]                           invokeRestart("muffleWarning")
[18:41:39.132]                       }
[18:41:39.132]                       else if (inherits(cond, "condition")) {
[18:41:39.132]                         if (!is.null(pattern)) {
[18:41:39.132]                           computeRestarts <- base::computeRestarts
[18:41:39.132]                           grepl <- base::grepl
[18:41:39.132]                           restarts <- computeRestarts(cond)
[18:41:39.132]                           for (restart in restarts) {
[18:41:39.132]                             name <- restart$name
[18:41:39.132]                             if (is.null(name)) 
[18:41:39.132]                               next
[18:41:39.132]                             if (!grepl(pattern, name)) 
[18:41:39.132]                               next
[18:41:39.132]                             invokeRestart(restart)
[18:41:39.132]                             muffled <- TRUE
[18:41:39.132]                             break
[18:41:39.132]                           }
[18:41:39.132]                         }
[18:41:39.132]                       }
[18:41:39.132]                       invisible(muffled)
[18:41:39.132]                     }
[18:41:39.132]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.132]                   }
[18:41:39.132]                 }
[18:41:39.132]                 else {
[18:41:39.132]                   if (TRUE) {
[18:41:39.132]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.132]                     {
[18:41:39.132]                       inherits <- base::inherits
[18:41:39.132]                       invokeRestart <- base::invokeRestart
[18:41:39.132]                       is.null <- base::is.null
[18:41:39.132]                       muffled <- FALSE
[18:41:39.132]                       if (inherits(cond, "message")) {
[18:41:39.132]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.132]                         if (muffled) 
[18:41:39.132]                           invokeRestart("muffleMessage")
[18:41:39.132]                       }
[18:41:39.132]                       else if (inherits(cond, "warning")) {
[18:41:39.132]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.132]                         if (muffled) 
[18:41:39.132]                           invokeRestart("muffleWarning")
[18:41:39.132]                       }
[18:41:39.132]                       else if (inherits(cond, "condition")) {
[18:41:39.132]                         if (!is.null(pattern)) {
[18:41:39.132]                           computeRestarts <- base::computeRestarts
[18:41:39.132]                           grepl <- base::grepl
[18:41:39.132]                           restarts <- computeRestarts(cond)
[18:41:39.132]                           for (restart in restarts) {
[18:41:39.132]                             name <- restart$name
[18:41:39.132]                             if (is.null(name)) 
[18:41:39.132]                               next
[18:41:39.132]                             if (!grepl(pattern, name)) 
[18:41:39.132]                               next
[18:41:39.132]                             invokeRestart(restart)
[18:41:39.132]                             muffled <- TRUE
[18:41:39.132]                             break
[18:41:39.132]                           }
[18:41:39.132]                         }
[18:41:39.132]                       }
[18:41:39.132]                       invisible(muffled)
[18:41:39.132]                     }
[18:41:39.132]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.132]                   }
[18:41:39.132]                 }
[18:41:39.132]             }
[18:41:39.132]         }))
[18:41:39.132]     }, error = function(ex) {
[18:41:39.132]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.132]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.132]                 ...future.rng), started = ...future.startTime, 
[18:41:39.132]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.132]             version = "1.8"), class = "FutureResult")
[18:41:39.132]     }, finally = {
[18:41:39.132]         if (!identical(...future.workdir, getwd())) 
[18:41:39.132]             setwd(...future.workdir)
[18:41:39.132]         {
[18:41:39.132]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.132]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.132]             }
[18:41:39.132]             base::options(...future.oldOptions)
[18:41:39.132]             if (.Platform$OS.type == "windows") {
[18:41:39.132]                 old_names <- names(...future.oldEnvVars)
[18:41:39.132]                 envs <- base::Sys.getenv()
[18:41:39.132]                 names <- names(envs)
[18:41:39.132]                 common <- intersect(names, old_names)
[18:41:39.132]                 added <- setdiff(names, old_names)
[18:41:39.132]                 removed <- setdiff(old_names, names)
[18:41:39.132]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.132]                   envs[common]]
[18:41:39.132]                 NAMES <- toupper(changed)
[18:41:39.132]                 args <- list()
[18:41:39.132]                 for (kk in seq_along(NAMES)) {
[18:41:39.132]                   name <- changed[[kk]]
[18:41:39.132]                   NAME <- NAMES[[kk]]
[18:41:39.132]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.132]                     next
[18:41:39.132]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.132]                 }
[18:41:39.132]                 NAMES <- toupper(added)
[18:41:39.132]                 for (kk in seq_along(NAMES)) {
[18:41:39.132]                   name <- added[[kk]]
[18:41:39.132]                   NAME <- NAMES[[kk]]
[18:41:39.132]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.132]                     next
[18:41:39.132]                   args[[name]] <- ""
[18:41:39.132]                 }
[18:41:39.132]                 NAMES <- toupper(removed)
[18:41:39.132]                 for (kk in seq_along(NAMES)) {
[18:41:39.132]                   name <- removed[[kk]]
[18:41:39.132]                   NAME <- NAMES[[kk]]
[18:41:39.132]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.132]                     next
[18:41:39.132]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.132]                 }
[18:41:39.132]                 if (length(args) > 0) 
[18:41:39.132]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.132]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.132]             }
[18:41:39.132]             else {
[18:41:39.132]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.132]             }
[18:41:39.132]             {
[18:41:39.132]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.132]                   0L) {
[18:41:39.132]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.132]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.132]                   base::options(opts)
[18:41:39.132]                 }
[18:41:39.132]                 {
[18:41:39.132]                   {
[18:41:39.132]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.132]                     NULL
[18:41:39.132]                   }
[18:41:39.132]                   options(future.plan = NULL)
[18:41:39.132]                   if (is.na(NA_character_)) 
[18:41:39.132]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.132]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.132]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.132]                     .init = FALSE)
[18:41:39.132]                 }
[18:41:39.132]             }
[18:41:39.132]         }
[18:41:39.132]     })
[18:41:39.132]     if (TRUE) {
[18:41:39.132]         base::sink(type = "output", split = FALSE)
[18:41:39.132]         if (TRUE) {
[18:41:39.132]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.132]         }
[18:41:39.132]         else {
[18:41:39.132]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.132]         }
[18:41:39.132]         base::close(...future.stdout)
[18:41:39.132]         ...future.stdout <- NULL
[18:41:39.132]     }
[18:41:39.132]     ...future.result$conditions <- ...future.conditions
[18:41:39.132]     ...future.result$finished <- base::Sys.time()
[18:41:39.132]     ...future.result
[18:41:39.132] }
[18:41:39.137] Exporting 5 global objects (890 bytes) to cluster node #1 ...
[18:41:39.137] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.138] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.138] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.139] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.139] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.139] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.139] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.140] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.140] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.141] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.141] Exporting 5 global objects (890 bytes) to cluster node #1 ... DONE
[18:41:39.141] MultisessionFuture started
[18:41:39.142] - Launch lazy future ... done
[18:41:39.142] run() for 'MultisessionFuture' ... done
[18:41:39.142] Created future:
[18:41:39.156] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.156] - Validating connection of MultisessionFuture
[18:41:39.157] - received message: FutureResult
[18:41:39.157] - Received FutureResult
[18:41:39.157] - Erased future from FutureRegistry
[18:41:39.157] result() for ClusterFuture ...
[18:41:39.158] - result already collected: FutureResult
[18:41:39.158] result() for ClusterFuture ... done
[18:41:39.158] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.142] MultisessionFuture:
[18:41:39.142] Label: 'future_replicate-1'
[18:41:39.142] Expression:
[18:41:39.142] {
[18:41:39.142]     do.call(function(...) {
[18:41:39.142]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.142]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.142]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.142]             on.exit(options(oopts), add = TRUE)
[18:41:39.142]         }
[18:41:39.142]         {
[18:41:39.142]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.142]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.142]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.142]                   envir = globalenv(), inherits = FALSE)
[18:41:39.142]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.142]             })
[18:41:39.142]         }
[18:41:39.142]     }, args = future.call.arguments)
[18:41:39.142] }
[18:41:39.142] Lazy evaluation: FALSE
[18:41:39.142] Asynchronous evaluation: TRUE
[18:41:39.142] Local evaluation: TRUE
[18:41:39.142] Environment: R_GlobalEnv
[18:41:39.142] Capture standard output: TRUE
[18:41:39.142] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.142] Globals: 5 objects totaling 414 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.142] Packages: <none>
[18:41:39.142] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.142] Resolved: TRUE
[18:41:39.142] Value: <not collected>
[18:41:39.142] Conditions captured: <none>
[18:41:39.142] Early signaling: FALSE
[18:41:39.142] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.142] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.158] Chunk #1 of 2 ... DONE
[18:41:39.159] Chunk #2 of 2 ...
[18:41:39.159]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.159] getGlobalsAndPackages() ...
[18:41:39.159] Searching for globals...
[18:41:39.160] 
[18:41:39.160] Searching for globals ... DONE
[18:41:39.160] - globals: [0] <none>
[18:41:39.160] getGlobalsAndPackages() ... DONE
[18:41:39.160]    + additional globals found: [n=0] 
[18:41:39.161]    + additional namespaces needed: [n=0] 
[18:41:39.161]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.161]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.161]  - seeds: [3] <seeds>
[18:41:39.161]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.162] getGlobalsAndPackages() ...
[18:41:39.162] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.162] Resolving globals: FALSE
[18:41:39.162] Tweak future expression to call with '...' arguments ...
[18:41:39.162] {
[18:41:39.162]     do.call(function(...) {
[18:41:39.162]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.162]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.162]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.162]             on.exit(options(oopts), add = TRUE)
[18:41:39.162]         }
[18:41:39.162]         {
[18:41:39.162]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.162]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.162]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.162]                   envir = globalenv(), inherits = FALSE)
[18:41:39.162]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.162]             })
[18:41:39.162]         }
[18:41:39.162]     }, args = future.call.arguments)
[18:41:39.162] }
[18:41:39.163] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.163] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.164] 
[18:41:39.164] getGlobalsAndPackages() ... DONE
[18:41:39.164] run() for 'Future' ...
[18:41:39.164] - state: 'created'
[18:41:39.165] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.181] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.181] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.181]   - Field: 'node'
[18:41:39.181]   - Field: 'label'
[18:41:39.182]   - Field: 'local'
[18:41:39.182]   - Field: 'owner'
[18:41:39.182]   - Field: 'envir'
[18:41:39.182]   - Field: 'workers'
[18:41:39.182]   - Field: 'packages'
[18:41:39.183]   - Field: 'gc'
[18:41:39.183]   - Field: 'conditions'
[18:41:39.183]   - Field: 'persistent'
[18:41:39.183]   - Field: 'expr'
[18:41:39.183]   - Field: 'uuid'
[18:41:39.183]   - Field: 'seed'
[18:41:39.184]   - Field: 'version'
[18:41:39.184]   - Field: 'result'
[18:41:39.184]   - Field: 'asynchronous'
[18:41:39.184]   - Field: 'calls'
[18:41:39.184]   - Field: 'globals'
[18:41:39.185]   - Field: 'stdout'
[18:41:39.185]   - Field: 'earlySignal'
[18:41:39.185]   - Field: 'lazy'
[18:41:39.185]   - Field: 'state'
[18:41:39.185] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.186] - Launch lazy future ...
[18:41:39.186] Packages needed by the future expression (n = 0): <none>
[18:41:39.186] Packages needed by future strategies (n = 0): <none>
[18:41:39.187] {
[18:41:39.187]     {
[18:41:39.187]         {
[18:41:39.187]             ...future.startTime <- base::Sys.time()
[18:41:39.187]             {
[18:41:39.187]                 {
[18:41:39.187]                   {
[18:41:39.187]                     {
[18:41:39.187]                       base::local({
[18:41:39.187]                         has_future <- base::requireNamespace("future", 
[18:41:39.187]                           quietly = TRUE)
[18:41:39.187]                         if (has_future) {
[18:41:39.187]                           ns <- base::getNamespace("future")
[18:41:39.187]                           version <- ns[[".package"]][["version"]]
[18:41:39.187]                           if (is.null(version)) 
[18:41:39.187]                             version <- utils::packageVersion("future")
[18:41:39.187]                         }
[18:41:39.187]                         else {
[18:41:39.187]                           version <- NULL
[18:41:39.187]                         }
[18:41:39.187]                         if (!has_future || version < "1.8.0") {
[18:41:39.187]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.187]                             "", base::R.version$version.string), 
[18:41:39.187]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.187]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.187]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.187]                               "release", "version")], collapse = " "), 
[18:41:39.187]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.187]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.187]                             info)
[18:41:39.187]                           info <- base::paste(info, collapse = "; ")
[18:41:39.187]                           if (!has_future) {
[18:41:39.187]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.187]                               info)
[18:41:39.187]                           }
[18:41:39.187]                           else {
[18:41:39.187]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.187]                               info, version)
[18:41:39.187]                           }
[18:41:39.187]                           base::stop(msg)
[18:41:39.187]                         }
[18:41:39.187]                       })
[18:41:39.187]                     }
[18:41:39.187]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.187]                     base::options(mc.cores = 1L)
[18:41:39.187]                   }
[18:41:39.187]                   ...future.strategy.old <- future::plan("list")
[18:41:39.187]                   options(future.plan = NULL)
[18:41:39.187]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.187]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.187]                 }
[18:41:39.187]                 ...future.workdir <- getwd()
[18:41:39.187]             }
[18:41:39.187]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.187]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.187]         }
[18:41:39.187]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.187]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.187]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.187]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.187]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.187]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.187]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.187]             base::names(...future.oldOptions))
[18:41:39.187]     }
[18:41:39.187]     if (FALSE) {
[18:41:39.187]     }
[18:41:39.187]     else {
[18:41:39.187]         if (TRUE) {
[18:41:39.187]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.187]                 open = "w")
[18:41:39.187]         }
[18:41:39.187]         else {
[18:41:39.187]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.187]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.187]         }
[18:41:39.187]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.187]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.187]             base::sink(type = "output", split = FALSE)
[18:41:39.187]             base::close(...future.stdout)
[18:41:39.187]         }, add = TRUE)
[18:41:39.187]     }
[18:41:39.187]     ...future.frame <- base::sys.nframe()
[18:41:39.187]     ...future.conditions <- base::list()
[18:41:39.187]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.187]     if (FALSE) {
[18:41:39.187]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.187]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.187]     }
[18:41:39.187]     ...future.result <- base::tryCatch({
[18:41:39.187]         base::withCallingHandlers({
[18:41:39.187]             ...future.value <- base::withVisible(base::local({
[18:41:39.187]                 ...future.makeSendCondition <- base::local({
[18:41:39.187]                   sendCondition <- NULL
[18:41:39.187]                   function(frame = 1L) {
[18:41:39.187]                     if (is.function(sendCondition)) 
[18:41:39.187]                       return(sendCondition)
[18:41:39.187]                     ns <- getNamespace("parallel")
[18:41:39.187]                     if (exists("sendData", mode = "function", 
[18:41:39.187]                       envir = ns)) {
[18:41:39.187]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.187]                         envir = ns)
[18:41:39.187]                       envir <- sys.frame(frame)
[18:41:39.187]                       master <- NULL
[18:41:39.187]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.187]                         !identical(envir, emptyenv())) {
[18:41:39.187]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.187]                           inherits = FALSE)) {
[18:41:39.187]                           master <- get("master", mode = "list", 
[18:41:39.187]                             envir = envir, inherits = FALSE)
[18:41:39.187]                           if (inherits(master, c("SOCKnode", 
[18:41:39.187]                             "SOCK0node"))) {
[18:41:39.187]                             sendCondition <<- function(cond) {
[18:41:39.187]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.187]                                 success = TRUE)
[18:41:39.187]                               parallel_sendData(master, data)
[18:41:39.187]                             }
[18:41:39.187]                             return(sendCondition)
[18:41:39.187]                           }
[18:41:39.187]                         }
[18:41:39.187]                         frame <- frame + 1L
[18:41:39.187]                         envir <- sys.frame(frame)
[18:41:39.187]                       }
[18:41:39.187]                     }
[18:41:39.187]                     sendCondition <<- function(cond) NULL
[18:41:39.187]                   }
[18:41:39.187]                 })
[18:41:39.187]                 withCallingHandlers({
[18:41:39.187]                   {
[18:41:39.187]                     do.call(function(...) {
[18:41:39.187]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.187]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.187]                         ...future.globals.maxSize)) {
[18:41:39.187]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.187]                         on.exit(options(oopts), add = TRUE)
[18:41:39.187]                       }
[18:41:39.187]                       {
[18:41:39.187]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.187]                           FUN = function(jj) {
[18:41:39.187]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.187]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.187]                               envir = globalenv(), inherits = FALSE)
[18:41:39.187]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.187]                           })
[18:41:39.187]                       }
[18:41:39.187]                     }, args = future.call.arguments)
[18:41:39.187]                   }
[18:41:39.187]                 }, immediateCondition = function(cond) {
[18:41:39.187]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.187]                   sendCondition(cond)
[18:41:39.187]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.187]                   {
[18:41:39.187]                     inherits <- base::inherits
[18:41:39.187]                     invokeRestart <- base::invokeRestart
[18:41:39.187]                     is.null <- base::is.null
[18:41:39.187]                     muffled <- FALSE
[18:41:39.187]                     if (inherits(cond, "message")) {
[18:41:39.187]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.187]                       if (muffled) 
[18:41:39.187]                         invokeRestart("muffleMessage")
[18:41:39.187]                     }
[18:41:39.187]                     else if (inherits(cond, "warning")) {
[18:41:39.187]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.187]                       if (muffled) 
[18:41:39.187]                         invokeRestart("muffleWarning")
[18:41:39.187]                     }
[18:41:39.187]                     else if (inherits(cond, "condition")) {
[18:41:39.187]                       if (!is.null(pattern)) {
[18:41:39.187]                         computeRestarts <- base::computeRestarts
[18:41:39.187]                         grepl <- base::grepl
[18:41:39.187]                         restarts <- computeRestarts(cond)
[18:41:39.187]                         for (restart in restarts) {
[18:41:39.187]                           name <- restart$name
[18:41:39.187]                           if (is.null(name)) 
[18:41:39.187]                             next
[18:41:39.187]                           if (!grepl(pattern, name)) 
[18:41:39.187]                             next
[18:41:39.187]                           invokeRestart(restart)
[18:41:39.187]                           muffled <- TRUE
[18:41:39.187]                           break
[18:41:39.187]                         }
[18:41:39.187]                       }
[18:41:39.187]                     }
[18:41:39.187]                     invisible(muffled)
[18:41:39.187]                   }
[18:41:39.187]                   muffleCondition(cond)
[18:41:39.187]                 })
[18:41:39.187]             }))
[18:41:39.187]             future::FutureResult(value = ...future.value$value, 
[18:41:39.187]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.187]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.187]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.187]                     ...future.globalenv.names))
[18:41:39.187]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.187]         }, condition = base::local({
[18:41:39.187]             c <- base::c
[18:41:39.187]             inherits <- base::inherits
[18:41:39.187]             invokeRestart <- base::invokeRestart
[18:41:39.187]             length <- base::length
[18:41:39.187]             list <- base::list
[18:41:39.187]             seq.int <- base::seq.int
[18:41:39.187]             signalCondition <- base::signalCondition
[18:41:39.187]             sys.calls <- base::sys.calls
[18:41:39.187]             `[[` <- base::`[[`
[18:41:39.187]             `+` <- base::`+`
[18:41:39.187]             `<<-` <- base::`<<-`
[18:41:39.187]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.187]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.187]                   3L)]
[18:41:39.187]             }
[18:41:39.187]             function(cond) {
[18:41:39.187]                 is_error <- inherits(cond, "error")
[18:41:39.187]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.187]                   NULL)
[18:41:39.187]                 if (is_error) {
[18:41:39.187]                   sessionInformation <- function() {
[18:41:39.187]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.187]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.187]                       search = base::search(), system = base::Sys.info())
[18:41:39.187]                   }
[18:41:39.187]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.187]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.187]                     cond$call), session = sessionInformation(), 
[18:41:39.187]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.187]                   signalCondition(cond)
[18:41:39.187]                 }
[18:41:39.187]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.187]                 "immediateCondition"))) {
[18:41:39.187]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.187]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.187]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.187]                   if (TRUE && !signal) {
[18:41:39.187]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.187]                     {
[18:41:39.187]                       inherits <- base::inherits
[18:41:39.187]                       invokeRestart <- base::invokeRestart
[18:41:39.187]                       is.null <- base::is.null
[18:41:39.187]                       muffled <- FALSE
[18:41:39.187]                       if (inherits(cond, "message")) {
[18:41:39.187]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.187]                         if (muffled) 
[18:41:39.187]                           invokeRestart("muffleMessage")
[18:41:39.187]                       }
[18:41:39.187]                       else if (inherits(cond, "warning")) {
[18:41:39.187]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.187]                         if (muffled) 
[18:41:39.187]                           invokeRestart("muffleWarning")
[18:41:39.187]                       }
[18:41:39.187]                       else if (inherits(cond, "condition")) {
[18:41:39.187]                         if (!is.null(pattern)) {
[18:41:39.187]                           computeRestarts <- base::computeRestarts
[18:41:39.187]                           grepl <- base::grepl
[18:41:39.187]                           restarts <- computeRestarts(cond)
[18:41:39.187]                           for (restart in restarts) {
[18:41:39.187]                             name <- restart$name
[18:41:39.187]                             if (is.null(name)) 
[18:41:39.187]                               next
[18:41:39.187]                             if (!grepl(pattern, name)) 
[18:41:39.187]                               next
[18:41:39.187]                             invokeRestart(restart)
[18:41:39.187]                             muffled <- TRUE
[18:41:39.187]                             break
[18:41:39.187]                           }
[18:41:39.187]                         }
[18:41:39.187]                       }
[18:41:39.187]                       invisible(muffled)
[18:41:39.187]                     }
[18:41:39.187]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.187]                   }
[18:41:39.187]                 }
[18:41:39.187]                 else {
[18:41:39.187]                   if (TRUE) {
[18:41:39.187]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.187]                     {
[18:41:39.187]                       inherits <- base::inherits
[18:41:39.187]                       invokeRestart <- base::invokeRestart
[18:41:39.187]                       is.null <- base::is.null
[18:41:39.187]                       muffled <- FALSE
[18:41:39.187]                       if (inherits(cond, "message")) {
[18:41:39.187]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.187]                         if (muffled) 
[18:41:39.187]                           invokeRestart("muffleMessage")
[18:41:39.187]                       }
[18:41:39.187]                       else if (inherits(cond, "warning")) {
[18:41:39.187]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.187]                         if (muffled) 
[18:41:39.187]                           invokeRestart("muffleWarning")
[18:41:39.187]                       }
[18:41:39.187]                       else if (inherits(cond, "condition")) {
[18:41:39.187]                         if (!is.null(pattern)) {
[18:41:39.187]                           computeRestarts <- base::computeRestarts
[18:41:39.187]                           grepl <- base::grepl
[18:41:39.187]                           restarts <- computeRestarts(cond)
[18:41:39.187]                           for (restart in restarts) {
[18:41:39.187]                             name <- restart$name
[18:41:39.187]                             if (is.null(name)) 
[18:41:39.187]                               next
[18:41:39.187]                             if (!grepl(pattern, name)) 
[18:41:39.187]                               next
[18:41:39.187]                             invokeRestart(restart)
[18:41:39.187]                             muffled <- TRUE
[18:41:39.187]                             break
[18:41:39.187]                           }
[18:41:39.187]                         }
[18:41:39.187]                       }
[18:41:39.187]                       invisible(muffled)
[18:41:39.187]                     }
[18:41:39.187]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.187]                   }
[18:41:39.187]                 }
[18:41:39.187]             }
[18:41:39.187]         }))
[18:41:39.187]     }, error = function(ex) {
[18:41:39.187]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.187]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.187]                 ...future.rng), started = ...future.startTime, 
[18:41:39.187]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.187]             version = "1.8"), class = "FutureResult")
[18:41:39.187]     }, finally = {
[18:41:39.187]         if (!identical(...future.workdir, getwd())) 
[18:41:39.187]             setwd(...future.workdir)
[18:41:39.187]         {
[18:41:39.187]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.187]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.187]             }
[18:41:39.187]             base::options(...future.oldOptions)
[18:41:39.187]             if (.Platform$OS.type == "windows") {
[18:41:39.187]                 old_names <- names(...future.oldEnvVars)
[18:41:39.187]                 envs <- base::Sys.getenv()
[18:41:39.187]                 names <- names(envs)
[18:41:39.187]                 common <- intersect(names, old_names)
[18:41:39.187]                 added <- setdiff(names, old_names)
[18:41:39.187]                 removed <- setdiff(old_names, names)
[18:41:39.187]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.187]                   envs[common]]
[18:41:39.187]                 NAMES <- toupper(changed)
[18:41:39.187]                 args <- list()
[18:41:39.187]                 for (kk in seq_along(NAMES)) {
[18:41:39.187]                   name <- changed[[kk]]
[18:41:39.187]                   NAME <- NAMES[[kk]]
[18:41:39.187]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.187]                     next
[18:41:39.187]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.187]                 }
[18:41:39.187]                 NAMES <- toupper(added)
[18:41:39.187]                 for (kk in seq_along(NAMES)) {
[18:41:39.187]                   name <- added[[kk]]
[18:41:39.187]                   NAME <- NAMES[[kk]]
[18:41:39.187]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.187]                     next
[18:41:39.187]                   args[[name]] <- ""
[18:41:39.187]                 }
[18:41:39.187]                 NAMES <- toupper(removed)
[18:41:39.187]                 for (kk in seq_along(NAMES)) {
[18:41:39.187]                   name <- removed[[kk]]
[18:41:39.187]                   NAME <- NAMES[[kk]]
[18:41:39.187]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.187]                     next
[18:41:39.187]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.187]                 }
[18:41:39.187]                 if (length(args) > 0) 
[18:41:39.187]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.187]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.187]             }
[18:41:39.187]             else {
[18:41:39.187]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.187]             }
[18:41:39.187]             {
[18:41:39.187]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.187]                   0L) {
[18:41:39.187]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.187]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.187]                   base::options(opts)
[18:41:39.187]                 }
[18:41:39.187]                 {
[18:41:39.187]                   {
[18:41:39.187]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.187]                     NULL
[18:41:39.187]                   }
[18:41:39.187]                   options(future.plan = NULL)
[18:41:39.187]                   if (is.na(NA_character_)) 
[18:41:39.187]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.187]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.187]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.187]                     .init = FALSE)
[18:41:39.187]                 }
[18:41:39.187]             }
[18:41:39.187]         }
[18:41:39.187]     })
[18:41:39.187]     if (TRUE) {
[18:41:39.187]         base::sink(type = "output", split = FALSE)
[18:41:39.187]         if (TRUE) {
[18:41:39.187]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.187]         }
[18:41:39.187]         else {
[18:41:39.187]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.187]         }
[18:41:39.187]         base::close(...future.stdout)
[18:41:39.187]         ...future.stdout <- NULL
[18:41:39.187]     }
[18:41:39.187]     ...future.result$conditions <- ...future.conditions
[18:41:39.187]     ...future.result$finished <- base::Sys.time()
[18:41:39.187]     ...future.result
[18:41:39.187] }
[18:41:39.192] Exporting 5 global objects (938 bytes) to cluster node #1 ...
[18:41:39.193] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.193] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.193] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.194] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.194] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.194] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.197] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.198] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.198] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.198] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.198] Exporting 5 global objects (938 bytes) to cluster node #1 ... DONE
[18:41:39.199] MultisessionFuture started
[18:41:39.199] - Launch lazy future ... done
[18:41:39.199] run() for 'MultisessionFuture' ... done
[18:41:39.199] Created future:
[18:41:39.214] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.214] - Validating connection of MultisessionFuture
[18:41:39.215] - received message: FutureResult
[18:41:39.215] - Received FutureResult
[18:41:39.215] - Erased future from FutureRegistry
[18:41:39.215] result() for ClusterFuture ...
[18:41:39.215] - result already collected: FutureResult
[18:41:39.216] result() for ClusterFuture ... done
[18:41:39.216] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.200] MultisessionFuture:
[18:41:39.200] Label: 'future_replicate-2'
[18:41:39.200] Expression:
[18:41:39.200] {
[18:41:39.200]     do.call(function(...) {
[18:41:39.200]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.200]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.200]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.200]             on.exit(options(oopts), add = TRUE)
[18:41:39.200]         }
[18:41:39.200]         {
[18:41:39.200]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.200]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.200]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.200]                   envir = globalenv(), inherits = FALSE)
[18:41:39.200]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.200]             })
[18:41:39.200]         }
[18:41:39.200]     }, args = future.call.arguments)
[18:41:39.200] }
[18:41:39.200] Lazy evaluation: FALSE
[18:41:39.200] Asynchronous evaluation: TRUE
[18:41:39.200] Local evaluation: TRUE
[18:41:39.200] Environment: R_GlobalEnv
[18:41:39.200] Capture standard output: TRUE
[18:41:39.200] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.200] Globals: 5 objects totaling 462 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, list '...future.seeds_ii' of 139 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.200] Packages: <none>
[18:41:39.200] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.200] Resolved: TRUE
[18:41:39.200] Value: <not collected>
[18:41:39.200] Conditions captured: <none>
[18:41:39.200] Early signaling: FALSE
[18:41:39.200] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.200] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.216] Chunk #2 of 2 ... DONE
[18:41:39.216] Launching 2 futures (chunks) ... DONE
[18:41:39.216] Resolving 2 futures (chunks) ...
[18:41:39.217] resolve() on list ...
[18:41:39.217]  recursive: 0
[18:41:39.217]  length: 2
[18:41:39.217] 
[18:41:39.217] Future #1
[18:41:39.217] result() for ClusterFuture ...
[18:41:39.218] - result already collected: FutureResult
[18:41:39.218] result() for ClusterFuture ... done
[18:41:39.218] result() for ClusterFuture ...
[18:41:39.218] - result already collected: FutureResult
[18:41:39.218] result() for ClusterFuture ... done
[18:41:39.218] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.219] - nx: 2
[18:41:39.219] - relay: TRUE
[18:41:39.219] - stdout: TRUE
[18:41:39.219] - signal: TRUE
[18:41:39.219] - resignal: FALSE
[18:41:39.219] - force: TRUE
[18:41:39.219] - relayed: [n=2] FALSE, FALSE
[18:41:39.220] - queued futures: [n=2] FALSE, FALSE
[18:41:39.220]  - until=1
[18:41:39.220]  - relaying element #1
[18:41:39.220] result() for ClusterFuture ...
[18:41:39.220] - result already collected: FutureResult
[18:41:39.220] result() for ClusterFuture ... done
[18:41:39.221] result() for ClusterFuture ...
[18:41:39.221] - result already collected: FutureResult
[18:41:39.221] result() for ClusterFuture ... done
[18:41:39.221] result() for ClusterFuture ...
[18:41:39.221] - result already collected: FutureResult
[18:41:39.221] result() for ClusterFuture ... done
[18:41:39.222] result() for ClusterFuture ...
[18:41:39.222] - result already collected: FutureResult
[18:41:39.222] result() for ClusterFuture ... done
[18:41:39.222] - relayed: [n=2] TRUE, FALSE
[18:41:39.222] - queued futures: [n=2] TRUE, FALSE
[18:41:39.222] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.223]  length: 1 (resolved future 1)
[18:41:39.223] Future #2
[18:41:39.223] result() for ClusterFuture ...
[18:41:39.223] - result already collected: FutureResult
[18:41:39.223] result() for ClusterFuture ... done
[18:41:39.223] result() for ClusterFuture ...
[18:41:39.223] - result already collected: FutureResult
[18:41:39.224] result() for ClusterFuture ... done
[18:41:39.224] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.224] - nx: 2
[18:41:39.224] - relay: TRUE
[18:41:39.224] - stdout: TRUE
[18:41:39.224] - signal: TRUE
[18:41:39.225] - resignal: FALSE
[18:41:39.225] - force: TRUE
[18:41:39.225] - relayed: [n=2] TRUE, FALSE
[18:41:39.225] - queued futures: [n=2] TRUE, FALSE
[18:41:39.225]  - until=2
[18:41:39.225]  - relaying element #2
[18:41:39.225] result() for ClusterFuture ...
[18:41:39.226] - result already collected: FutureResult
[18:41:39.226] result() for ClusterFuture ... done
[18:41:39.226] result() for ClusterFuture ...
[18:41:39.226] - result already collected: FutureResult
[18:41:39.226] result() for ClusterFuture ... done
[18:41:39.226] result() for ClusterFuture ...
[18:41:39.227] - result already collected: FutureResult
[18:41:39.227] result() for ClusterFuture ... done
[18:41:39.227] result() for ClusterFuture ...
[18:41:39.227] - result already collected: FutureResult
[18:41:39.227] result() for ClusterFuture ... done
[18:41:39.227] - relayed: [n=2] TRUE, TRUE
[18:41:39.228] - queued futures: [n=2] TRUE, TRUE
[18:41:39.228] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.228]  length: 0 (resolved future 2)
[18:41:39.228] Relaying remaining futures
[18:41:39.228] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.228] - nx: 2
[18:41:39.228] - relay: TRUE
[18:41:39.229] - stdout: TRUE
[18:41:39.229] - signal: TRUE
[18:41:39.229] - resignal: FALSE
[18:41:39.229] - force: TRUE
[18:41:39.229] - relayed: [n=2] TRUE, TRUE
[18:41:39.229] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.230] - relayed: [n=2] TRUE, TRUE
[18:41:39.230] - queued futures: [n=2] TRUE, TRUE
[18:41:39.230] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.230] resolve() on list ... DONE
[18:41:39.230] result() for ClusterFuture ...
[18:41:39.230] - result already collected: FutureResult
[18:41:39.231] result() for ClusterFuture ... done
[18:41:39.231] result() for ClusterFuture ...
[18:41:39.231] - result already collected: FutureResult
[18:41:39.231] result() for ClusterFuture ... done
[18:41:39.231] result() for ClusterFuture ...
[18:41:39.231] - result already collected: FutureResult
[18:41:39.231] result() for ClusterFuture ... done
[18:41:39.232] result() for ClusterFuture ...
[18:41:39.232] - result already collected: FutureResult
[18:41:39.232] result() for ClusterFuture ... done
[18:41:39.232]  - Number of value chunks collected: 2
[18:41:39.232] Resolving 2 futures (chunks) ... DONE
[18:41:39.232] Reducing values from 2 chunks ...
[18:41:39.233]  - Number of values collected after concatenation: 5
[18:41:39.233]  - Number of values expected: 5
[18:41:39.233] Reducing values from 2 chunks ... DONE
[18:41:39.233] future_lapply() ... DONE
[18:41:39.233] future_lapply() ...
[18:41:39.234] Generating random seeds ...
[18:41:39.234] Generating random seed streams for 5 elements ...
[18:41:39.234] Generating random seed streams for 5 elements ... DONE
[18:41:39.234] Generating random seeds ... DONE
[18:41:39.235] 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
[18:41:39.238] Number of chunks: 2
[18:41:39.238] getGlobalsAndPackagesXApply() ...
[18:41:39.238]  - future.globals: TRUE
[18:41:39.238] getGlobalsAndPackages() ...
[18:41:39.238] Searching for globals...
[18:41:39.240] - globals found: [2] 'FUN', 'sample'
[18:41:39.240] Searching for globals ... DONE
[18:41:39.240] Resolving globals: FALSE
[18:41:39.241] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:39.241] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:39.241] - globals: [1] 'FUN'
[18:41:39.241] 
[18:41:39.242] getGlobalsAndPackages() ... DONE
[18:41:39.242]  - globals found/used: [n=1] 'FUN'
[18:41:39.242]  - needed namespaces: [n=0] 
[18:41:39.242] Finding globals ... DONE
[18:41:39.242]  - use_args: TRUE
[18:41:39.242]  - Getting '...' globals ...
[18:41:39.243] resolve() on list ...
[18:41:39.243]  recursive: 0
[18:41:39.243]  length: 1
[18:41:39.243]  elements: '...'
[18:41:39.244]  length: 0 (resolved future 1)
[18:41:39.244] resolve() on list ... DONE
[18:41:39.244]    - '...' content: [n=0] 
[18:41:39.244] List of 1
[18:41:39.244]  $ ...: list()
[18:41:39.244]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.244]  - attr(*, "where")=List of 1
[18:41:39.244]   ..$ ...:<environment: 0x0000028bfbba20a0> 
[18:41:39.244]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.244]  - attr(*, "resolved")= logi TRUE
[18:41:39.244]  - attr(*, "total_size")= num NA
[18:41:39.247]  - Getting '...' globals ... DONE
[18:41:39.247] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:39.247] List of 2
[18:41:39.247]  $ ...future.FUN:function (...)  
[18:41:39.247]  $ ...          : list()
[18:41:39.247]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.247]  - attr(*, "where")=List of 2
[18:41:39.247]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.247]   ..$ ...          :<environment: 0x0000028bfbba20a0> 
[18:41:39.247]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.247]  - attr(*, "resolved")= logi FALSE
[18:41:39.247]  - attr(*, "total_size")= int 7184
[18:41:39.251] Packages to be attached in all futures: [n=0] 
[18:41:39.251] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.251] Number of futures (= number of chunks): 2
[18:41:39.251] Launching 2 futures (chunks) ...
[18:41:39.252] Chunk #1 of 2 ...
[18:41:39.252]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.252] getGlobalsAndPackages() ...
[18:41:39.252] Searching for globals...
[18:41:39.252] 
[18:41:39.253] Searching for globals ... DONE
[18:41:39.253] - globals: [0] <none>
[18:41:39.253] getGlobalsAndPackages() ... DONE
[18:41:39.253]    + additional globals found: [n=0] 
[18:41:39.253]    + additional namespaces needed: [n=0] 
[18:41:39.253]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.253]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.254]  - seeds: [2] <seeds>
[18:41:39.254]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.254] getGlobalsAndPackages() ...
[18:41:39.254] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.255] Resolving globals: FALSE
[18:41:39.255] Tweak future expression to call with '...' arguments ...
[18:41:39.255] {
[18:41:39.255]     do.call(function(...) {
[18:41:39.255]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.255]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.255]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.255]             on.exit(options(oopts), add = TRUE)
[18:41:39.255]         }
[18:41:39.255]         {
[18:41:39.255]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.255]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.255]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.255]                   envir = globalenv(), inherits = FALSE)
[18:41:39.255]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.255]             })
[18:41:39.255]         }
[18:41:39.255]     }, args = future.call.arguments)
[18:41:39.255] }
[18:41:39.255] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.256] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.256] 
[18:41:39.256] getGlobalsAndPackages() ... DONE
[18:41:39.257] run() for 'Future' ...
[18:41:39.257] - state: 'created'
[18:41:39.257] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.272] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.272] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.273]   - Field: 'node'
[18:41:39.273]   - Field: 'label'
[18:41:39.273]   - Field: 'local'
[18:41:39.273]   - Field: 'owner'
[18:41:39.273]   - Field: 'envir'
[18:41:39.273]   - Field: 'workers'
[18:41:39.274]   - Field: 'packages'
[18:41:39.274]   - Field: 'gc'
[18:41:39.274]   - Field: 'conditions'
[18:41:39.274]   - Field: 'persistent'
[18:41:39.274]   - Field: 'expr'
[18:41:39.275]   - Field: 'uuid'
[18:41:39.275]   - Field: 'seed'
[18:41:39.275]   - Field: 'version'
[18:41:39.275]   - Field: 'result'
[18:41:39.275]   - Field: 'asynchronous'
[18:41:39.275]   - Field: 'calls'
[18:41:39.276]   - Field: 'globals'
[18:41:39.276]   - Field: 'stdout'
[18:41:39.276]   - Field: 'earlySignal'
[18:41:39.276]   - Field: 'lazy'
[18:41:39.276]   - Field: 'state'
[18:41:39.276] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.277] - Launch lazy future ...
[18:41:39.277] Packages needed by the future expression (n = 0): <none>
[18:41:39.277] Packages needed by future strategies (n = 0): <none>
[18:41:39.278] {
[18:41:39.278]     {
[18:41:39.278]         {
[18:41:39.278]             ...future.startTime <- base::Sys.time()
[18:41:39.278]             {
[18:41:39.278]                 {
[18:41:39.278]                   {
[18:41:39.278]                     {
[18:41:39.278]                       base::local({
[18:41:39.278]                         has_future <- base::requireNamespace("future", 
[18:41:39.278]                           quietly = TRUE)
[18:41:39.278]                         if (has_future) {
[18:41:39.278]                           ns <- base::getNamespace("future")
[18:41:39.278]                           version <- ns[[".package"]][["version"]]
[18:41:39.278]                           if (is.null(version)) 
[18:41:39.278]                             version <- utils::packageVersion("future")
[18:41:39.278]                         }
[18:41:39.278]                         else {
[18:41:39.278]                           version <- NULL
[18:41:39.278]                         }
[18:41:39.278]                         if (!has_future || version < "1.8.0") {
[18:41:39.278]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.278]                             "", base::R.version$version.string), 
[18:41:39.278]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.278]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.278]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.278]                               "release", "version")], collapse = " "), 
[18:41:39.278]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.278]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.278]                             info)
[18:41:39.278]                           info <- base::paste(info, collapse = "; ")
[18:41:39.278]                           if (!has_future) {
[18:41:39.278]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.278]                               info)
[18:41:39.278]                           }
[18:41:39.278]                           else {
[18:41:39.278]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.278]                               info, version)
[18:41:39.278]                           }
[18:41:39.278]                           base::stop(msg)
[18:41:39.278]                         }
[18:41:39.278]                       })
[18:41:39.278]                     }
[18:41:39.278]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.278]                     base::options(mc.cores = 1L)
[18:41:39.278]                   }
[18:41:39.278]                   ...future.strategy.old <- future::plan("list")
[18:41:39.278]                   options(future.plan = NULL)
[18:41:39.278]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.278]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.278]                 }
[18:41:39.278]                 ...future.workdir <- getwd()
[18:41:39.278]             }
[18:41:39.278]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.278]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.278]         }
[18:41:39.278]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.278]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.278]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.278]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.278]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.278]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.278]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.278]             base::names(...future.oldOptions))
[18:41:39.278]     }
[18:41:39.278]     if (FALSE) {
[18:41:39.278]     }
[18:41:39.278]     else {
[18:41:39.278]         if (TRUE) {
[18:41:39.278]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.278]                 open = "w")
[18:41:39.278]         }
[18:41:39.278]         else {
[18:41:39.278]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.278]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.278]         }
[18:41:39.278]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.278]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.278]             base::sink(type = "output", split = FALSE)
[18:41:39.278]             base::close(...future.stdout)
[18:41:39.278]         }, add = TRUE)
[18:41:39.278]     }
[18:41:39.278]     ...future.frame <- base::sys.nframe()
[18:41:39.278]     ...future.conditions <- base::list()
[18:41:39.278]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.278]     if (FALSE) {
[18:41:39.278]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.278]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.278]     }
[18:41:39.278]     ...future.result <- base::tryCatch({
[18:41:39.278]         base::withCallingHandlers({
[18:41:39.278]             ...future.value <- base::withVisible(base::local({
[18:41:39.278]                 ...future.makeSendCondition <- base::local({
[18:41:39.278]                   sendCondition <- NULL
[18:41:39.278]                   function(frame = 1L) {
[18:41:39.278]                     if (is.function(sendCondition)) 
[18:41:39.278]                       return(sendCondition)
[18:41:39.278]                     ns <- getNamespace("parallel")
[18:41:39.278]                     if (exists("sendData", mode = "function", 
[18:41:39.278]                       envir = ns)) {
[18:41:39.278]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.278]                         envir = ns)
[18:41:39.278]                       envir <- sys.frame(frame)
[18:41:39.278]                       master <- NULL
[18:41:39.278]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.278]                         !identical(envir, emptyenv())) {
[18:41:39.278]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.278]                           inherits = FALSE)) {
[18:41:39.278]                           master <- get("master", mode = "list", 
[18:41:39.278]                             envir = envir, inherits = FALSE)
[18:41:39.278]                           if (inherits(master, c("SOCKnode", 
[18:41:39.278]                             "SOCK0node"))) {
[18:41:39.278]                             sendCondition <<- function(cond) {
[18:41:39.278]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.278]                                 success = TRUE)
[18:41:39.278]                               parallel_sendData(master, data)
[18:41:39.278]                             }
[18:41:39.278]                             return(sendCondition)
[18:41:39.278]                           }
[18:41:39.278]                         }
[18:41:39.278]                         frame <- frame + 1L
[18:41:39.278]                         envir <- sys.frame(frame)
[18:41:39.278]                       }
[18:41:39.278]                     }
[18:41:39.278]                     sendCondition <<- function(cond) NULL
[18:41:39.278]                   }
[18:41:39.278]                 })
[18:41:39.278]                 withCallingHandlers({
[18:41:39.278]                   {
[18:41:39.278]                     do.call(function(...) {
[18:41:39.278]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.278]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.278]                         ...future.globals.maxSize)) {
[18:41:39.278]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.278]                         on.exit(options(oopts), add = TRUE)
[18:41:39.278]                       }
[18:41:39.278]                       {
[18:41:39.278]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.278]                           FUN = function(jj) {
[18:41:39.278]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.278]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.278]                               envir = globalenv(), inherits = FALSE)
[18:41:39.278]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.278]                           })
[18:41:39.278]                       }
[18:41:39.278]                     }, args = future.call.arguments)
[18:41:39.278]                   }
[18:41:39.278]                 }, immediateCondition = function(cond) {
[18:41:39.278]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.278]                   sendCondition(cond)
[18:41:39.278]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.278]                   {
[18:41:39.278]                     inherits <- base::inherits
[18:41:39.278]                     invokeRestart <- base::invokeRestart
[18:41:39.278]                     is.null <- base::is.null
[18:41:39.278]                     muffled <- FALSE
[18:41:39.278]                     if (inherits(cond, "message")) {
[18:41:39.278]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.278]                       if (muffled) 
[18:41:39.278]                         invokeRestart("muffleMessage")
[18:41:39.278]                     }
[18:41:39.278]                     else if (inherits(cond, "warning")) {
[18:41:39.278]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.278]                       if (muffled) 
[18:41:39.278]                         invokeRestart("muffleWarning")
[18:41:39.278]                     }
[18:41:39.278]                     else if (inherits(cond, "condition")) {
[18:41:39.278]                       if (!is.null(pattern)) {
[18:41:39.278]                         computeRestarts <- base::computeRestarts
[18:41:39.278]                         grepl <- base::grepl
[18:41:39.278]                         restarts <- computeRestarts(cond)
[18:41:39.278]                         for (restart in restarts) {
[18:41:39.278]                           name <- restart$name
[18:41:39.278]                           if (is.null(name)) 
[18:41:39.278]                             next
[18:41:39.278]                           if (!grepl(pattern, name)) 
[18:41:39.278]                             next
[18:41:39.278]                           invokeRestart(restart)
[18:41:39.278]                           muffled <- TRUE
[18:41:39.278]                           break
[18:41:39.278]                         }
[18:41:39.278]                       }
[18:41:39.278]                     }
[18:41:39.278]                     invisible(muffled)
[18:41:39.278]                   }
[18:41:39.278]                   muffleCondition(cond)
[18:41:39.278]                 })
[18:41:39.278]             }))
[18:41:39.278]             future::FutureResult(value = ...future.value$value, 
[18:41:39.278]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.278]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.278]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.278]                     ...future.globalenv.names))
[18:41:39.278]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.278]         }, condition = base::local({
[18:41:39.278]             c <- base::c
[18:41:39.278]             inherits <- base::inherits
[18:41:39.278]             invokeRestart <- base::invokeRestart
[18:41:39.278]             length <- base::length
[18:41:39.278]             list <- base::list
[18:41:39.278]             seq.int <- base::seq.int
[18:41:39.278]             signalCondition <- base::signalCondition
[18:41:39.278]             sys.calls <- base::sys.calls
[18:41:39.278]             `[[` <- base::`[[`
[18:41:39.278]             `+` <- base::`+`
[18:41:39.278]             `<<-` <- base::`<<-`
[18:41:39.278]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.278]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.278]                   3L)]
[18:41:39.278]             }
[18:41:39.278]             function(cond) {
[18:41:39.278]                 is_error <- inherits(cond, "error")
[18:41:39.278]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.278]                   NULL)
[18:41:39.278]                 if (is_error) {
[18:41:39.278]                   sessionInformation <- function() {
[18:41:39.278]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.278]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.278]                       search = base::search(), system = base::Sys.info())
[18:41:39.278]                   }
[18:41:39.278]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.278]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.278]                     cond$call), session = sessionInformation(), 
[18:41:39.278]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.278]                   signalCondition(cond)
[18:41:39.278]                 }
[18:41:39.278]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.278]                 "immediateCondition"))) {
[18:41:39.278]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.278]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.278]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.278]                   if (TRUE && !signal) {
[18:41:39.278]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.278]                     {
[18:41:39.278]                       inherits <- base::inherits
[18:41:39.278]                       invokeRestart <- base::invokeRestart
[18:41:39.278]                       is.null <- base::is.null
[18:41:39.278]                       muffled <- FALSE
[18:41:39.278]                       if (inherits(cond, "message")) {
[18:41:39.278]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.278]                         if (muffled) 
[18:41:39.278]                           invokeRestart("muffleMessage")
[18:41:39.278]                       }
[18:41:39.278]                       else if (inherits(cond, "warning")) {
[18:41:39.278]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.278]                         if (muffled) 
[18:41:39.278]                           invokeRestart("muffleWarning")
[18:41:39.278]                       }
[18:41:39.278]                       else if (inherits(cond, "condition")) {
[18:41:39.278]                         if (!is.null(pattern)) {
[18:41:39.278]                           computeRestarts <- base::computeRestarts
[18:41:39.278]                           grepl <- base::grepl
[18:41:39.278]                           restarts <- computeRestarts(cond)
[18:41:39.278]                           for (restart in restarts) {
[18:41:39.278]                             name <- restart$name
[18:41:39.278]                             if (is.null(name)) 
[18:41:39.278]                               next
[18:41:39.278]                             if (!grepl(pattern, name)) 
[18:41:39.278]                               next
[18:41:39.278]                             invokeRestart(restart)
[18:41:39.278]                             muffled <- TRUE
[18:41:39.278]                             break
[18:41:39.278]                           }
[18:41:39.278]                         }
[18:41:39.278]                       }
[18:41:39.278]                       invisible(muffled)
[18:41:39.278]                     }
[18:41:39.278]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.278]                   }
[18:41:39.278]                 }
[18:41:39.278]                 else {
[18:41:39.278]                   if (TRUE) {
[18:41:39.278]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.278]                     {
[18:41:39.278]                       inherits <- base::inherits
[18:41:39.278]                       invokeRestart <- base::invokeRestart
[18:41:39.278]                       is.null <- base::is.null
[18:41:39.278]                       muffled <- FALSE
[18:41:39.278]                       if (inherits(cond, "message")) {
[18:41:39.278]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.278]                         if (muffled) 
[18:41:39.278]                           invokeRestart("muffleMessage")
[18:41:39.278]                       }
[18:41:39.278]                       else if (inherits(cond, "warning")) {
[18:41:39.278]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.278]                         if (muffled) 
[18:41:39.278]                           invokeRestart("muffleWarning")
[18:41:39.278]                       }
[18:41:39.278]                       else if (inherits(cond, "condition")) {
[18:41:39.278]                         if (!is.null(pattern)) {
[18:41:39.278]                           computeRestarts <- base::computeRestarts
[18:41:39.278]                           grepl <- base::grepl
[18:41:39.278]                           restarts <- computeRestarts(cond)
[18:41:39.278]                           for (restart in restarts) {
[18:41:39.278]                             name <- restart$name
[18:41:39.278]                             if (is.null(name)) 
[18:41:39.278]                               next
[18:41:39.278]                             if (!grepl(pattern, name)) 
[18:41:39.278]                               next
[18:41:39.278]                             invokeRestart(restart)
[18:41:39.278]                             muffled <- TRUE
[18:41:39.278]                             break
[18:41:39.278]                           }
[18:41:39.278]                         }
[18:41:39.278]                       }
[18:41:39.278]                       invisible(muffled)
[18:41:39.278]                     }
[18:41:39.278]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.278]                   }
[18:41:39.278]                 }
[18:41:39.278]             }
[18:41:39.278]         }))
[18:41:39.278]     }, error = function(ex) {
[18:41:39.278]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.278]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.278]                 ...future.rng), started = ...future.startTime, 
[18:41:39.278]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.278]             version = "1.8"), class = "FutureResult")
[18:41:39.278]     }, finally = {
[18:41:39.278]         if (!identical(...future.workdir, getwd())) 
[18:41:39.278]             setwd(...future.workdir)
[18:41:39.278]         {
[18:41:39.278]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.278]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.278]             }
[18:41:39.278]             base::options(...future.oldOptions)
[18:41:39.278]             if (.Platform$OS.type == "windows") {
[18:41:39.278]                 old_names <- names(...future.oldEnvVars)
[18:41:39.278]                 envs <- base::Sys.getenv()
[18:41:39.278]                 names <- names(envs)
[18:41:39.278]                 common <- intersect(names, old_names)
[18:41:39.278]                 added <- setdiff(names, old_names)
[18:41:39.278]                 removed <- setdiff(old_names, names)
[18:41:39.278]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.278]                   envs[common]]
[18:41:39.278]                 NAMES <- toupper(changed)
[18:41:39.278]                 args <- list()
[18:41:39.278]                 for (kk in seq_along(NAMES)) {
[18:41:39.278]                   name <- changed[[kk]]
[18:41:39.278]                   NAME <- NAMES[[kk]]
[18:41:39.278]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.278]                     next
[18:41:39.278]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.278]                 }
[18:41:39.278]                 NAMES <- toupper(added)
[18:41:39.278]                 for (kk in seq_along(NAMES)) {
[18:41:39.278]                   name <- added[[kk]]
[18:41:39.278]                   NAME <- NAMES[[kk]]
[18:41:39.278]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.278]                     next
[18:41:39.278]                   args[[name]] <- ""
[18:41:39.278]                 }
[18:41:39.278]                 NAMES <- toupper(removed)
[18:41:39.278]                 for (kk in seq_along(NAMES)) {
[18:41:39.278]                   name <- removed[[kk]]
[18:41:39.278]                   NAME <- NAMES[[kk]]
[18:41:39.278]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.278]                     next
[18:41:39.278]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.278]                 }
[18:41:39.278]                 if (length(args) > 0) 
[18:41:39.278]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.278]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.278]             }
[18:41:39.278]             else {
[18:41:39.278]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.278]             }
[18:41:39.278]             {
[18:41:39.278]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.278]                   0L) {
[18:41:39.278]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.278]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.278]                   base::options(opts)
[18:41:39.278]                 }
[18:41:39.278]                 {
[18:41:39.278]                   {
[18:41:39.278]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.278]                     NULL
[18:41:39.278]                   }
[18:41:39.278]                   options(future.plan = NULL)
[18:41:39.278]                   if (is.na(NA_character_)) 
[18:41:39.278]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.278]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.278]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.278]                     .init = FALSE)
[18:41:39.278]                 }
[18:41:39.278]             }
[18:41:39.278]         }
[18:41:39.278]     })
[18:41:39.278]     if (TRUE) {
[18:41:39.278]         base::sink(type = "output", split = FALSE)
[18:41:39.278]         if (TRUE) {
[18:41:39.278]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.278]         }
[18:41:39.278]         else {
[18:41:39.278]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.278]         }
[18:41:39.278]         base::close(...future.stdout)
[18:41:39.278]         ...future.stdout <- NULL
[18:41:39.278]     }
[18:41:39.278]     ...future.result$conditions <- ...future.conditions
[18:41:39.278]     ...future.result$finished <- base::Sys.time()
[18:41:39.278]     ...future.result
[18:41:39.278] }
[18:41:39.283] Exporting 5 global objects (890 bytes) to cluster node #1 ...
[18:41:39.283] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.283] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.284] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.284] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.284] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.285] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.285] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.285] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.286] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.286] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.286] Exporting 5 global objects (890 bytes) to cluster node #1 ... DONE
[18:41:39.287] MultisessionFuture started
[18:41:39.287] - Launch lazy future ... done
[18:41:39.287] run() for 'MultisessionFuture' ... done
[18:41:39.287] Created future:
[18:41:39.300] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.301] - Validating connection of MultisessionFuture
[18:41:39.301] - received message: FutureResult
[18:41:39.301] - Received FutureResult
[18:41:39.301] - Erased future from FutureRegistry
[18:41:39.301] result() for ClusterFuture ...
[18:41:39.302] - result already collected: FutureResult
[18:41:39.302] result() for ClusterFuture ... done
[18:41:39.302] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.287] MultisessionFuture:
[18:41:39.287] Label: 'future_replicate-1'
[18:41:39.287] Expression:
[18:41:39.287] {
[18:41:39.287]     do.call(function(...) {
[18:41:39.287]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.287]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.287]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.287]             on.exit(options(oopts), add = TRUE)
[18:41:39.287]         }
[18:41:39.287]         {
[18:41:39.287]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.287]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.287]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.287]                   envir = globalenv(), inherits = FALSE)
[18:41:39.287]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.287]             })
[18:41:39.287]         }
[18:41:39.287]     }, args = future.call.arguments)
[18:41:39.287] }
[18:41:39.287] Lazy evaluation: FALSE
[18:41:39.287] Asynchronous evaluation: TRUE
[18:41:39.287] Local evaluation: TRUE
[18:41:39.287] Environment: R_GlobalEnv
[18:41:39.287] Capture standard output: TRUE
[18:41:39.287] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.287] Globals: 5 objects totaling 414 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.287] Packages: <none>
[18:41:39.287] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.287] Resolved: TRUE
[18:41:39.287] Value: <not collected>
[18:41:39.287] Conditions captured: <none>
[18:41:39.287] Early signaling: FALSE
[18:41:39.287] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.287] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.302] Chunk #1 of 2 ... DONE
[18:41:39.303] Chunk #2 of 2 ...
[18:41:39.303]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.303] getGlobalsAndPackages() ...
[18:41:39.303] Searching for globals...
[18:41:39.303] 
[18:41:39.304] Searching for globals ... DONE
[18:41:39.304] - globals: [0] <none>
[18:41:39.304] getGlobalsAndPackages() ... DONE
[18:41:39.304]    + additional globals found: [n=0] 
[18:41:39.304]    + additional namespaces needed: [n=0] 
[18:41:39.304]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.305]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.305]  - seeds: [3] <seeds>
[18:41:39.305]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.305] getGlobalsAndPackages() ...
[18:41:39.305] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.305] Resolving globals: FALSE
[18:41:39.306] Tweak future expression to call with '...' arguments ...
[18:41:39.306] {
[18:41:39.306]     do.call(function(...) {
[18:41:39.306]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.306]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.306]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.306]             on.exit(options(oopts), add = TRUE)
[18:41:39.306]         }
[18:41:39.306]         {
[18:41:39.306]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.306]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.306]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.306]                   envir = globalenv(), inherits = FALSE)
[18:41:39.306]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.306]             })
[18:41:39.306]         }
[18:41:39.306]     }, args = future.call.arguments)
[18:41:39.306] }
[18:41:39.306] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.307] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.307] 
[18:41:39.307] getGlobalsAndPackages() ... DONE
[18:41:39.307] run() for 'Future' ...
[18:41:39.308] - state: 'created'
[18:41:39.308] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.323] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.323] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.323]   - Field: 'node'
[18:41:39.324]   - Field: 'label'
[18:41:39.324]   - Field: 'local'
[18:41:39.324]   - Field: 'owner'
[18:41:39.324]   - Field: 'envir'
[18:41:39.324]   - Field: 'workers'
[18:41:39.324]   - Field: 'packages'
[18:41:39.325]   - Field: 'gc'
[18:41:39.325]   - Field: 'conditions'
[18:41:39.325]   - Field: 'persistent'
[18:41:39.325]   - Field: 'expr'
[18:41:39.325]   - Field: 'uuid'
[18:41:39.326]   - Field: 'seed'
[18:41:39.326]   - Field: 'version'
[18:41:39.326]   - Field: 'result'
[18:41:39.326]   - Field: 'asynchronous'
[18:41:39.326]   - Field: 'calls'
[18:41:39.326]   - Field: 'globals'
[18:41:39.327]   - Field: 'stdout'
[18:41:39.327]   - Field: 'earlySignal'
[18:41:39.327]   - Field: 'lazy'
[18:41:39.327]   - Field: 'state'
[18:41:39.327] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.327] - Launch lazy future ...
[18:41:39.328] Packages needed by the future expression (n = 0): <none>
[18:41:39.328] Packages needed by future strategies (n = 0): <none>
[18:41:39.329] {
[18:41:39.329]     {
[18:41:39.329]         {
[18:41:39.329]             ...future.startTime <- base::Sys.time()
[18:41:39.329]             {
[18:41:39.329]                 {
[18:41:39.329]                   {
[18:41:39.329]                     {
[18:41:39.329]                       base::local({
[18:41:39.329]                         has_future <- base::requireNamespace("future", 
[18:41:39.329]                           quietly = TRUE)
[18:41:39.329]                         if (has_future) {
[18:41:39.329]                           ns <- base::getNamespace("future")
[18:41:39.329]                           version <- ns[[".package"]][["version"]]
[18:41:39.329]                           if (is.null(version)) 
[18:41:39.329]                             version <- utils::packageVersion("future")
[18:41:39.329]                         }
[18:41:39.329]                         else {
[18:41:39.329]                           version <- NULL
[18:41:39.329]                         }
[18:41:39.329]                         if (!has_future || version < "1.8.0") {
[18:41:39.329]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.329]                             "", base::R.version$version.string), 
[18:41:39.329]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.329]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.329]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.329]                               "release", "version")], collapse = " "), 
[18:41:39.329]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.329]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.329]                             info)
[18:41:39.329]                           info <- base::paste(info, collapse = "; ")
[18:41:39.329]                           if (!has_future) {
[18:41:39.329]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.329]                               info)
[18:41:39.329]                           }
[18:41:39.329]                           else {
[18:41:39.329]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.329]                               info, version)
[18:41:39.329]                           }
[18:41:39.329]                           base::stop(msg)
[18:41:39.329]                         }
[18:41:39.329]                       })
[18:41:39.329]                     }
[18:41:39.329]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.329]                     base::options(mc.cores = 1L)
[18:41:39.329]                   }
[18:41:39.329]                   ...future.strategy.old <- future::plan("list")
[18:41:39.329]                   options(future.plan = NULL)
[18:41:39.329]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.329]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.329]                 }
[18:41:39.329]                 ...future.workdir <- getwd()
[18:41:39.329]             }
[18:41:39.329]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.329]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.329]         }
[18:41:39.329]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.329]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.329]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.329]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.329]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.329]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.329]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.329]             base::names(...future.oldOptions))
[18:41:39.329]     }
[18:41:39.329]     if (FALSE) {
[18:41:39.329]     }
[18:41:39.329]     else {
[18:41:39.329]         if (TRUE) {
[18:41:39.329]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.329]                 open = "w")
[18:41:39.329]         }
[18:41:39.329]         else {
[18:41:39.329]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.329]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.329]         }
[18:41:39.329]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.329]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.329]             base::sink(type = "output", split = FALSE)
[18:41:39.329]             base::close(...future.stdout)
[18:41:39.329]         }, add = TRUE)
[18:41:39.329]     }
[18:41:39.329]     ...future.frame <- base::sys.nframe()
[18:41:39.329]     ...future.conditions <- base::list()
[18:41:39.329]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.329]     if (FALSE) {
[18:41:39.329]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.329]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.329]     }
[18:41:39.329]     ...future.result <- base::tryCatch({
[18:41:39.329]         base::withCallingHandlers({
[18:41:39.329]             ...future.value <- base::withVisible(base::local({
[18:41:39.329]                 ...future.makeSendCondition <- base::local({
[18:41:39.329]                   sendCondition <- NULL
[18:41:39.329]                   function(frame = 1L) {
[18:41:39.329]                     if (is.function(sendCondition)) 
[18:41:39.329]                       return(sendCondition)
[18:41:39.329]                     ns <- getNamespace("parallel")
[18:41:39.329]                     if (exists("sendData", mode = "function", 
[18:41:39.329]                       envir = ns)) {
[18:41:39.329]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.329]                         envir = ns)
[18:41:39.329]                       envir <- sys.frame(frame)
[18:41:39.329]                       master <- NULL
[18:41:39.329]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.329]                         !identical(envir, emptyenv())) {
[18:41:39.329]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.329]                           inherits = FALSE)) {
[18:41:39.329]                           master <- get("master", mode = "list", 
[18:41:39.329]                             envir = envir, inherits = FALSE)
[18:41:39.329]                           if (inherits(master, c("SOCKnode", 
[18:41:39.329]                             "SOCK0node"))) {
[18:41:39.329]                             sendCondition <<- function(cond) {
[18:41:39.329]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.329]                                 success = TRUE)
[18:41:39.329]                               parallel_sendData(master, data)
[18:41:39.329]                             }
[18:41:39.329]                             return(sendCondition)
[18:41:39.329]                           }
[18:41:39.329]                         }
[18:41:39.329]                         frame <- frame + 1L
[18:41:39.329]                         envir <- sys.frame(frame)
[18:41:39.329]                       }
[18:41:39.329]                     }
[18:41:39.329]                     sendCondition <<- function(cond) NULL
[18:41:39.329]                   }
[18:41:39.329]                 })
[18:41:39.329]                 withCallingHandlers({
[18:41:39.329]                   {
[18:41:39.329]                     do.call(function(...) {
[18:41:39.329]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.329]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.329]                         ...future.globals.maxSize)) {
[18:41:39.329]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.329]                         on.exit(options(oopts), add = TRUE)
[18:41:39.329]                       }
[18:41:39.329]                       {
[18:41:39.329]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.329]                           FUN = function(jj) {
[18:41:39.329]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.329]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.329]                               envir = globalenv(), inherits = FALSE)
[18:41:39.329]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.329]                           })
[18:41:39.329]                       }
[18:41:39.329]                     }, args = future.call.arguments)
[18:41:39.329]                   }
[18:41:39.329]                 }, immediateCondition = function(cond) {
[18:41:39.329]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.329]                   sendCondition(cond)
[18:41:39.329]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.329]                   {
[18:41:39.329]                     inherits <- base::inherits
[18:41:39.329]                     invokeRestart <- base::invokeRestart
[18:41:39.329]                     is.null <- base::is.null
[18:41:39.329]                     muffled <- FALSE
[18:41:39.329]                     if (inherits(cond, "message")) {
[18:41:39.329]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.329]                       if (muffled) 
[18:41:39.329]                         invokeRestart("muffleMessage")
[18:41:39.329]                     }
[18:41:39.329]                     else if (inherits(cond, "warning")) {
[18:41:39.329]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.329]                       if (muffled) 
[18:41:39.329]                         invokeRestart("muffleWarning")
[18:41:39.329]                     }
[18:41:39.329]                     else if (inherits(cond, "condition")) {
[18:41:39.329]                       if (!is.null(pattern)) {
[18:41:39.329]                         computeRestarts <- base::computeRestarts
[18:41:39.329]                         grepl <- base::grepl
[18:41:39.329]                         restarts <- computeRestarts(cond)
[18:41:39.329]                         for (restart in restarts) {
[18:41:39.329]                           name <- restart$name
[18:41:39.329]                           if (is.null(name)) 
[18:41:39.329]                             next
[18:41:39.329]                           if (!grepl(pattern, name)) 
[18:41:39.329]                             next
[18:41:39.329]                           invokeRestart(restart)
[18:41:39.329]                           muffled <- TRUE
[18:41:39.329]                           break
[18:41:39.329]                         }
[18:41:39.329]                       }
[18:41:39.329]                     }
[18:41:39.329]                     invisible(muffled)
[18:41:39.329]                   }
[18:41:39.329]                   muffleCondition(cond)
[18:41:39.329]                 })
[18:41:39.329]             }))
[18:41:39.329]             future::FutureResult(value = ...future.value$value, 
[18:41:39.329]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.329]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.329]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.329]                     ...future.globalenv.names))
[18:41:39.329]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.329]         }, condition = base::local({
[18:41:39.329]             c <- base::c
[18:41:39.329]             inherits <- base::inherits
[18:41:39.329]             invokeRestart <- base::invokeRestart
[18:41:39.329]             length <- base::length
[18:41:39.329]             list <- base::list
[18:41:39.329]             seq.int <- base::seq.int
[18:41:39.329]             signalCondition <- base::signalCondition
[18:41:39.329]             sys.calls <- base::sys.calls
[18:41:39.329]             `[[` <- base::`[[`
[18:41:39.329]             `+` <- base::`+`
[18:41:39.329]             `<<-` <- base::`<<-`
[18:41:39.329]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.329]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.329]                   3L)]
[18:41:39.329]             }
[18:41:39.329]             function(cond) {
[18:41:39.329]                 is_error <- inherits(cond, "error")
[18:41:39.329]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.329]                   NULL)
[18:41:39.329]                 if (is_error) {
[18:41:39.329]                   sessionInformation <- function() {
[18:41:39.329]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.329]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.329]                       search = base::search(), system = base::Sys.info())
[18:41:39.329]                   }
[18:41:39.329]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.329]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.329]                     cond$call), session = sessionInformation(), 
[18:41:39.329]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.329]                   signalCondition(cond)
[18:41:39.329]                 }
[18:41:39.329]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.329]                 "immediateCondition"))) {
[18:41:39.329]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.329]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.329]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.329]                   if (TRUE && !signal) {
[18:41:39.329]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.329]                     {
[18:41:39.329]                       inherits <- base::inherits
[18:41:39.329]                       invokeRestart <- base::invokeRestart
[18:41:39.329]                       is.null <- base::is.null
[18:41:39.329]                       muffled <- FALSE
[18:41:39.329]                       if (inherits(cond, "message")) {
[18:41:39.329]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.329]                         if (muffled) 
[18:41:39.329]                           invokeRestart("muffleMessage")
[18:41:39.329]                       }
[18:41:39.329]                       else if (inherits(cond, "warning")) {
[18:41:39.329]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.329]                         if (muffled) 
[18:41:39.329]                           invokeRestart("muffleWarning")
[18:41:39.329]                       }
[18:41:39.329]                       else if (inherits(cond, "condition")) {
[18:41:39.329]                         if (!is.null(pattern)) {
[18:41:39.329]                           computeRestarts <- base::computeRestarts
[18:41:39.329]                           grepl <- base::grepl
[18:41:39.329]                           restarts <- computeRestarts(cond)
[18:41:39.329]                           for (restart in restarts) {
[18:41:39.329]                             name <- restart$name
[18:41:39.329]                             if (is.null(name)) 
[18:41:39.329]                               next
[18:41:39.329]                             if (!grepl(pattern, name)) 
[18:41:39.329]                               next
[18:41:39.329]                             invokeRestart(restart)
[18:41:39.329]                             muffled <- TRUE
[18:41:39.329]                             break
[18:41:39.329]                           }
[18:41:39.329]                         }
[18:41:39.329]                       }
[18:41:39.329]                       invisible(muffled)
[18:41:39.329]                     }
[18:41:39.329]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.329]                   }
[18:41:39.329]                 }
[18:41:39.329]                 else {
[18:41:39.329]                   if (TRUE) {
[18:41:39.329]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.329]                     {
[18:41:39.329]                       inherits <- base::inherits
[18:41:39.329]                       invokeRestart <- base::invokeRestart
[18:41:39.329]                       is.null <- base::is.null
[18:41:39.329]                       muffled <- FALSE
[18:41:39.329]                       if (inherits(cond, "message")) {
[18:41:39.329]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.329]                         if (muffled) 
[18:41:39.329]                           invokeRestart("muffleMessage")
[18:41:39.329]                       }
[18:41:39.329]                       else if (inherits(cond, "warning")) {
[18:41:39.329]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.329]                         if (muffled) 
[18:41:39.329]                           invokeRestart("muffleWarning")
[18:41:39.329]                       }
[18:41:39.329]                       else if (inherits(cond, "condition")) {
[18:41:39.329]                         if (!is.null(pattern)) {
[18:41:39.329]                           computeRestarts <- base::computeRestarts
[18:41:39.329]                           grepl <- base::grepl
[18:41:39.329]                           restarts <- computeRestarts(cond)
[18:41:39.329]                           for (restart in restarts) {
[18:41:39.329]                             name <- restart$name
[18:41:39.329]                             if (is.null(name)) 
[18:41:39.329]                               next
[18:41:39.329]                             if (!grepl(pattern, name)) 
[18:41:39.329]                               next
[18:41:39.329]                             invokeRestart(restart)
[18:41:39.329]                             muffled <- TRUE
[18:41:39.329]                             break
[18:41:39.329]                           }
[18:41:39.329]                         }
[18:41:39.329]                       }
[18:41:39.329]                       invisible(muffled)
[18:41:39.329]                     }
[18:41:39.329]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.329]                   }
[18:41:39.329]                 }
[18:41:39.329]             }
[18:41:39.329]         }))
[18:41:39.329]     }, error = function(ex) {
[18:41:39.329]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.329]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.329]                 ...future.rng), started = ...future.startTime, 
[18:41:39.329]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.329]             version = "1.8"), class = "FutureResult")
[18:41:39.329]     }, finally = {
[18:41:39.329]         if (!identical(...future.workdir, getwd())) 
[18:41:39.329]             setwd(...future.workdir)
[18:41:39.329]         {
[18:41:39.329]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.329]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.329]             }
[18:41:39.329]             base::options(...future.oldOptions)
[18:41:39.329]             if (.Platform$OS.type == "windows") {
[18:41:39.329]                 old_names <- names(...future.oldEnvVars)
[18:41:39.329]                 envs <- base::Sys.getenv()
[18:41:39.329]                 names <- names(envs)
[18:41:39.329]                 common <- intersect(names, old_names)
[18:41:39.329]                 added <- setdiff(names, old_names)
[18:41:39.329]                 removed <- setdiff(old_names, names)
[18:41:39.329]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.329]                   envs[common]]
[18:41:39.329]                 NAMES <- toupper(changed)
[18:41:39.329]                 args <- list()
[18:41:39.329]                 for (kk in seq_along(NAMES)) {
[18:41:39.329]                   name <- changed[[kk]]
[18:41:39.329]                   NAME <- NAMES[[kk]]
[18:41:39.329]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.329]                     next
[18:41:39.329]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.329]                 }
[18:41:39.329]                 NAMES <- toupper(added)
[18:41:39.329]                 for (kk in seq_along(NAMES)) {
[18:41:39.329]                   name <- added[[kk]]
[18:41:39.329]                   NAME <- NAMES[[kk]]
[18:41:39.329]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.329]                     next
[18:41:39.329]                   args[[name]] <- ""
[18:41:39.329]                 }
[18:41:39.329]                 NAMES <- toupper(removed)
[18:41:39.329]                 for (kk in seq_along(NAMES)) {
[18:41:39.329]                   name <- removed[[kk]]
[18:41:39.329]                   NAME <- NAMES[[kk]]
[18:41:39.329]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.329]                     next
[18:41:39.329]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.329]                 }
[18:41:39.329]                 if (length(args) > 0) 
[18:41:39.329]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.329]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.329]             }
[18:41:39.329]             else {
[18:41:39.329]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.329]             }
[18:41:39.329]             {
[18:41:39.329]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.329]                   0L) {
[18:41:39.329]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.329]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.329]                   base::options(opts)
[18:41:39.329]                 }
[18:41:39.329]                 {
[18:41:39.329]                   {
[18:41:39.329]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.329]                     NULL
[18:41:39.329]                   }
[18:41:39.329]                   options(future.plan = NULL)
[18:41:39.329]                   if (is.na(NA_character_)) 
[18:41:39.329]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.329]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.329]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.329]                     .init = FALSE)
[18:41:39.329]                 }
[18:41:39.329]             }
[18:41:39.329]         }
[18:41:39.329]     })
[18:41:39.329]     if (TRUE) {
[18:41:39.329]         base::sink(type = "output", split = FALSE)
[18:41:39.329]         if (TRUE) {
[18:41:39.329]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.329]         }
[18:41:39.329]         else {
[18:41:39.329]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.329]         }
[18:41:39.329]         base::close(...future.stdout)
[18:41:39.329]         ...future.stdout <- NULL
[18:41:39.329]     }
[18:41:39.329]     ...future.result$conditions <- ...future.conditions
[18:41:39.329]     ...future.result$finished <- base::Sys.time()
[18:41:39.329]     ...future.result
[18:41:39.329] }
[18:41:39.334] Exporting 5 global objects (938 bytes) to cluster node #1 ...
[18:41:39.334] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.334] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.334] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.335] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.335] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.335] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.336] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.336] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.336] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.336] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.337] Exporting 5 global objects (938 bytes) to cluster node #1 ... DONE
[18:41:39.337] MultisessionFuture started
[18:41:39.337] - Launch lazy future ... done
[18:41:39.337] run() for 'MultisessionFuture' ... done
[18:41:39.338] Created future:
[18:41:39.352] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.352] - Validating connection of MultisessionFuture
[18:41:39.353] - received message: FutureResult
[18:41:39.353] - Received FutureResult
[18:41:39.353] - Erased future from FutureRegistry
[18:41:39.353] result() for ClusterFuture ...
[18:41:39.353] - result already collected: FutureResult
[18:41:39.354] result() for ClusterFuture ... done
[18:41:39.354] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.338] MultisessionFuture:
[18:41:39.338] Label: 'future_replicate-2'
[18:41:39.338] Expression:
[18:41:39.338] {
[18:41:39.338]     do.call(function(...) {
[18:41:39.338]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.338]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.338]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.338]             on.exit(options(oopts), add = TRUE)
[18:41:39.338]         }
[18:41:39.338]         {
[18:41:39.338]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.338]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.338]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.338]                   envir = globalenv(), inherits = FALSE)
[18:41:39.338]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.338]             })
[18:41:39.338]         }
[18:41:39.338]     }, args = future.call.arguments)
[18:41:39.338] }
[18:41:39.338] Lazy evaluation: FALSE
[18:41:39.338] Asynchronous evaluation: TRUE
[18:41:39.338] Local evaluation: TRUE
[18:41:39.338] Environment: R_GlobalEnv
[18:41:39.338] Capture standard output: TRUE
[18:41:39.338] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.338] Globals: 5 objects totaling 462 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, list '...future.seeds_ii' of 139 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.338] Packages: <none>
[18:41:39.338] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.338] Resolved: TRUE
[18:41:39.338] Value: <not collected>
[18:41:39.338] Conditions captured: <none>
[18:41:39.338] Early signaling: FALSE
[18:41:39.338] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.338] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.354] Chunk #2 of 2 ... DONE
[18:41:39.354] Launching 2 futures (chunks) ... DONE
[18:41:39.355] Resolving 2 futures (chunks) ...
[18:41:39.355] resolve() on list ...
[18:41:39.355]  recursive: 0
[18:41:39.355]  length: 2
[18:41:39.355] 
[18:41:39.355] Future #1
[18:41:39.355] result() for ClusterFuture ...
[18:41:39.356] - result already collected: FutureResult
[18:41:39.356] result() for ClusterFuture ... done
[18:41:39.356] result() for ClusterFuture ...
[18:41:39.356] - result already collected: FutureResult
[18:41:39.356] result() for ClusterFuture ... done
[18:41:39.356] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.357] - nx: 2
[18:41:39.357] - relay: TRUE
[18:41:39.357] - stdout: TRUE
[18:41:39.357] - signal: TRUE
[18:41:39.357] - resignal: FALSE
[18:41:39.357] - force: TRUE
[18:41:39.357] - relayed: [n=2] FALSE, FALSE
[18:41:39.358] - queued futures: [n=2] FALSE, FALSE
[18:41:39.358]  - until=1
[18:41:39.358]  - relaying element #1
[18:41:39.358] result() for ClusterFuture ...
[18:41:39.358] - result already collected: FutureResult
[18:41:39.359] result() for ClusterFuture ... done
[18:41:39.359] result() for ClusterFuture ...
[18:41:39.359] - result already collected: FutureResult
[18:41:39.359] result() for ClusterFuture ... done
[18:41:39.359] result() for ClusterFuture ...
[18:41:39.359] - result already collected: FutureResult
[18:41:39.360] result() for ClusterFuture ... done
[18:41:39.360] result() for ClusterFuture ...
[18:41:39.360] - result already collected: FutureResult
[18:41:39.360] result() for ClusterFuture ... done
[18:41:39.360] - relayed: [n=2] TRUE, FALSE
[18:41:39.360] - queued futures: [n=2] TRUE, FALSE
[18:41:39.361] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.361]  length: 1 (resolved future 1)
[18:41:39.361] Future #2
[18:41:39.361] result() for ClusterFuture ...
[18:41:39.361] - result already collected: FutureResult
[18:41:39.361] result() for ClusterFuture ... done
[18:41:39.362] result() for ClusterFuture ...
[18:41:39.362] - result already collected: FutureResult
[18:41:39.362] result() for ClusterFuture ... done
[18:41:39.362] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.362] - nx: 2
[18:41:39.362] - relay: TRUE
[18:41:39.363] - stdout: TRUE
[18:41:39.363] - signal: TRUE
[18:41:39.363] - resignal: FALSE
[18:41:39.363] - force: TRUE
[18:41:39.363] - relayed: [n=2] TRUE, FALSE
[18:41:39.363] - queued futures: [n=2] TRUE, FALSE
[18:41:39.363]  - until=2
[18:41:39.364]  - relaying element #2
[18:41:39.364] result() for ClusterFuture ...
[18:41:39.364] - result already collected: FutureResult
[18:41:39.364] result() for ClusterFuture ... done
[18:41:39.364] result() for ClusterFuture ...
[18:41:39.364] - result already collected: FutureResult
[18:41:39.365] result() for ClusterFuture ... done
[18:41:39.365] result() for ClusterFuture ...
[18:41:39.365] - result already collected: FutureResult
[18:41:39.365] result() for ClusterFuture ... done
[18:41:39.365] result() for ClusterFuture ...
[18:41:39.365] - result already collected: FutureResult
[18:41:39.366] result() for ClusterFuture ... done
[18:41:39.366] - relayed: [n=2] TRUE, TRUE
[18:41:39.366] - queued futures: [n=2] TRUE, TRUE
[18:41:39.366] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.366]  length: 0 (resolved future 2)
[18:41:39.366] Relaying remaining futures
[18:41:39.367] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.367] - nx: 2
[18:41:39.367] - relay: TRUE
[18:41:39.367] - stdout: TRUE
[18:41:39.367] - signal: TRUE
[18:41:39.367] - resignal: FALSE
[18:41:39.367] - force: TRUE
[18:41:39.368] - relayed: [n=2] TRUE, TRUE
[18:41:39.368] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.368] - relayed: [n=2] TRUE, TRUE
[18:41:39.368] - queued futures: [n=2] TRUE, TRUE
[18:41:39.368] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.368] resolve() on list ... DONE
[18:41:39.369] result() for ClusterFuture ...
[18:41:39.369] - result already collected: FutureResult
[18:41:39.369] result() for ClusterFuture ... done
[18:41:39.369] result() for ClusterFuture ...
[18:41:39.369] - result already collected: FutureResult
[18:41:39.369] result() for ClusterFuture ... done
[18:41:39.370] result() for ClusterFuture ...
[18:41:39.370] - result already collected: FutureResult
[18:41:39.370] result() for ClusterFuture ... done
[18:41:39.370] result() for ClusterFuture ...
[18:41:39.370] - result already collected: FutureResult
[18:41:39.370] result() for ClusterFuture ... done
[18:41:39.371]  - Number of value chunks collected: 2
[18:41:39.371] Resolving 2 futures (chunks) ... DONE
[18:41:39.371] Reducing values from 2 chunks ...
[18:41:39.371]  - Number of values collected after concatenation: 5
[18:41:39.371]  - Number of values expected: 5
[18:41:39.371] Reducing values from 2 chunks ... DONE
[18:41:39.371] future_lapply() ... DONE
[18:41:39.372] future_lapply() ...
[18:41:39.372] Generating random seeds ...
[18:41:39.372] Generating random seed streams for 5 elements ...
[18:41:39.373] Generating random seed streams for 5 elements ... DONE
[18:41:39.373] Generating random seeds ... DONE
[18:41:39.373] 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
[18:41:39.376] Number of chunks: 2
[18:41:39.376] getGlobalsAndPackagesXApply() ...
[18:41:39.376]  - future.globals: TRUE
[18:41:39.376] getGlobalsAndPackages() ...
[18:41:39.377] Searching for globals...
[18:41:39.378] - globals found: [2] 'FUN', 'sample'
[18:41:39.378] Searching for globals ... DONE
[18:41:39.378] Resolving globals: FALSE
[18:41:39.379] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:39.379] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:39.379] - globals: [1] 'FUN'
[18:41:39.380] 
[18:41:39.380] getGlobalsAndPackages() ... DONE
[18:41:39.380]  - globals found/used: [n=1] 'FUN'
[18:41:39.380]  - needed namespaces: [n=0] 
[18:41:39.380] Finding globals ... DONE
[18:41:39.380]  - use_args: TRUE
[18:41:39.381]  - Getting '...' globals ...
[18:41:39.381] resolve() on list ...
[18:41:39.381]  recursive: 0
[18:41:39.381]  length: 1
[18:41:39.381]  elements: '...'
[18:41:39.382]  length: 0 (resolved future 1)
[18:41:39.382] resolve() on list ... DONE
[18:41:39.382]    - '...' content: [n=0] 
[18:41:39.382] List of 1
[18:41:39.382]  $ ...: list()
[18:41:39.382]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.382]  - attr(*, "where")=List of 1
[18:41:39.382]   ..$ ...:<environment: 0x0000028c00087098> 
[18:41:39.382]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.382]  - attr(*, "resolved")= logi TRUE
[18:41:39.382]  - attr(*, "total_size")= num NA
[18:41:39.385]  - Getting '...' globals ... DONE
[18:41:39.385] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:39.386] List of 2
[18:41:39.386]  $ ...future.FUN:function (...)  
[18:41:39.386]  $ ...          : list()
[18:41:39.386]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.386]  - attr(*, "where")=List of 2
[18:41:39.386]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.386]   ..$ ...          :<environment: 0x0000028c00087098> 
[18:41:39.386]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.386]  - attr(*, "resolved")= logi FALSE
[18:41:39.386]  - attr(*, "total_size")= int 7184
[18:41:39.391] Packages to be attached in all futures: [n=0] 
[18:41:39.391] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.391] Number of futures (= number of chunks): 2
[18:41:39.391] Launching 2 futures (chunks) ...
[18:41:39.392] Chunk #1 of 2 ...
[18:41:39.392]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.392] getGlobalsAndPackages() ...
[18:41:39.392] Searching for globals...
[18:41:39.392] 
[18:41:39.393] Searching for globals ... DONE
[18:41:39.393] - globals: [0] <none>
[18:41:39.393] getGlobalsAndPackages() ... DONE
[18:41:39.393]    + additional globals found: [n=0] 
[18:41:39.393]    + additional namespaces needed: [n=0] 
[18:41:39.393]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.394]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.394]  - seeds: [2] <seeds>
[18:41:39.394]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.394] getGlobalsAndPackages() ...
[18:41:39.394] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.395] Resolving globals: FALSE
[18:41:39.395] Tweak future expression to call with '...' arguments ...
[18:41:39.395] {
[18:41:39.395]     do.call(function(...) {
[18:41:39.395]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.395]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.395]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.395]             on.exit(options(oopts), add = TRUE)
[18:41:39.395]         }
[18:41:39.395]         {
[18:41:39.395]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.395]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.395]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.395]                   envir = globalenv(), inherits = FALSE)
[18:41:39.395]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.395]             })
[18:41:39.395]         }
[18:41:39.395]     }, args = future.call.arguments)
[18:41:39.395] }
[18:41:39.395] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.396] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.396] 
[18:41:39.396] getGlobalsAndPackages() ... DONE
[18:41:39.397] run() for 'Future' ...
[18:41:39.397] - state: 'created'
[18:41:39.397] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.413] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.413] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.414]   - Field: 'node'
[18:41:39.414]   - Field: 'label'
[18:41:39.414]   - Field: 'local'
[18:41:39.414]   - Field: 'owner'
[18:41:39.414]   - Field: 'envir'
[18:41:39.414]   - Field: 'workers'
[18:41:39.415]   - Field: 'packages'
[18:41:39.415]   - Field: 'gc'
[18:41:39.415]   - Field: 'conditions'
[18:41:39.415]   - Field: 'persistent'
[18:41:39.415]   - Field: 'expr'
[18:41:39.416]   - Field: 'uuid'
[18:41:39.416]   - Field: 'seed'
[18:41:39.416]   - Field: 'version'
[18:41:39.416]   - Field: 'result'
[18:41:39.416]   - Field: 'asynchronous'
[18:41:39.416]   - Field: 'calls'
[18:41:39.417]   - Field: 'globals'
[18:41:39.417]   - Field: 'stdout'
[18:41:39.417]   - Field: 'earlySignal'
[18:41:39.417]   - Field: 'lazy'
[18:41:39.417]   - Field: 'state'
[18:41:39.417] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.418] - Launch lazy future ...
[18:41:39.418] Packages needed by the future expression (n = 0): <none>
[18:41:39.418] Packages needed by future strategies (n = 0): <none>
[18:41:39.419] {
[18:41:39.419]     {
[18:41:39.419]         {
[18:41:39.419]             ...future.startTime <- base::Sys.time()
[18:41:39.419]             {
[18:41:39.419]                 {
[18:41:39.419]                   {
[18:41:39.419]                     {
[18:41:39.419]                       base::local({
[18:41:39.419]                         has_future <- base::requireNamespace("future", 
[18:41:39.419]                           quietly = TRUE)
[18:41:39.419]                         if (has_future) {
[18:41:39.419]                           ns <- base::getNamespace("future")
[18:41:39.419]                           version <- ns[[".package"]][["version"]]
[18:41:39.419]                           if (is.null(version)) 
[18:41:39.419]                             version <- utils::packageVersion("future")
[18:41:39.419]                         }
[18:41:39.419]                         else {
[18:41:39.419]                           version <- NULL
[18:41:39.419]                         }
[18:41:39.419]                         if (!has_future || version < "1.8.0") {
[18:41:39.419]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.419]                             "", base::R.version$version.string), 
[18:41:39.419]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.419]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.419]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.419]                               "release", "version")], collapse = " "), 
[18:41:39.419]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.419]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.419]                             info)
[18:41:39.419]                           info <- base::paste(info, collapse = "; ")
[18:41:39.419]                           if (!has_future) {
[18:41:39.419]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.419]                               info)
[18:41:39.419]                           }
[18:41:39.419]                           else {
[18:41:39.419]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.419]                               info, version)
[18:41:39.419]                           }
[18:41:39.419]                           base::stop(msg)
[18:41:39.419]                         }
[18:41:39.419]                       })
[18:41:39.419]                     }
[18:41:39.419]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.419]                     base::options(mc.cores = 1L)
[18:41:39.419]                   }
[18:41:39.419]                   ...future.strategy.old <- future::plan("list")
[18:41:39.419]                   options(future.plan = NULL)
[18:41:39.419]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.419]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.419]                 }
[18:41:39.419]                 ...future.workdir <- getwd()
[18:41:39.419]             }
[18:41:39.419]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.419]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.419]         }
[18:41:39.419]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.419]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.419]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.419]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.419]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.419]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.419]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.419]             base::names(...future.oldOptions))
[18:41:39.419]     }
[18:41:39.419]     if (FALSE) {
[18:41:39.419]     }
[18:41:39.419]     else {
[18:41:39.419]         if (TRUE) {
[18:41:39.419]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.419]                 open = "w")
[18:41:39.419]         }
[18:41:39.419]         else {
[18:41:39.419]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.419]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.419]         }
[18:41:39.419]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.419]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.419]             base::sink(type = "output", split = FALSE)
[18:41:39.419]             base::close(...future.stdout)
[18:41:39.419]         }, add = TRUE)
[18:41:39.419]     }
[18:41:39.419]     ...future.frame <- base::sys.nframe()
[18:41:39.419]     ...future.conditions <- base::list()
[18:41:39.419]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.419]     if (FALSE) {
[18:41:39.419]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.419]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.419]     }
[18:41:39.419]     ...future.result <- base::tryCatch({
[18:41:39.419]         base::withCallingHandlers({
[18:41:39.419]             ...future.value <- base::withVisible(base::local({
[18:41:39.419]                 ...future.makeSendCondition <- base::local({
[18:41:39.419]                   sendCondition <- NULL
[18:41:39.419]                   function(frame = 1L) {
[18:41:39.419]                     if (is.function(sendCondition)) 
[18:41:39.419]                       return(sendCondition)
[18:41:39.419]                     ns <- getNamespace("parallel")
[18:41:39.419]                     if (exists("sendData", mode = "function", 
[18:41:39.419]                       envir = ns)) {
[18:41:39.419]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.419]                         envir = ns)
[18:41:39.419]                       envir <- sys.frame(frame)
[18:41:39.419]                       master <- NULL
[18:41:39.419]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.419]                         !identical(envir, emptyenv())) {
[18:41:39.419]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.419]                           inherits = FALSE)) {
[18:41:39.419]                           master <- get("master", mode = "list", 
[18:41:39.419]                             envir = envir, inherits = FALSE)
[18:41:39.419]                           if (inherits(master, c("SOCKnode", 
[18:41:39.419]                             "SOCK0node"))) {
[18:41:39.419]                             sendCondition <<- function(cond) {
[18:41:39.419]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.419]                                 success = TRUE)
[18:41:39.419]                               parallel_sendData(master, data)
[18:41:39.419]                             }
[18:41:39.419]                             return(sendCondition)
[18:41:39.419]                           }
[18:41:39.419]                         }
[18:41:39.419]                         frame <- frame + 1L
[18:41:39.419]                         envir <- sys.frame(frame)
[18:41:39.419]                       }
[18:41:39.419]                     }
[18:41:39.419]                     sendCondition <<- function(cond) NULL
[18:41:39.419]                   }
[18:41:39.419]                 })
[18:41:39.419]                 withCallingHandlers({
[18:41:39.419]                   {
[18:41:39.419]                     do.call(function(...) {
[18:41:39.419]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.419]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.419]                         ...future.globals.maxSize)) {
[18:41:39.419]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.419]                         on.exit(options(oopts), add = TRUE)
[18:41:39.419]                       }
[18:41:39.419]                       {
[18:41:39.419]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.419]                           FUN = function(jj) {
[18:41:39.419]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.419]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.419]                               envir = globalenv(), inherits = FALSE)
[18:41:39.419]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.419]                           })
[18:41:39.419]                       }
[18:41:39.419]                     }, args = future.call.arguments)
[18:41:39.419]                   }
[18:41:39.419]                 }, immediateCondition = function(cond) {
[18:41:39.419]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.419]                   sendCondition(cond)
[18:41:39.419]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.419]                   {
[18:41:39.419]                     inherits <- base::inherits
[18:41:39.419]                     invokeRestart <- base::invokeRestart
[18:41:39.419]                     is.null <- base::is.null
[18:41:39.419]                     muffled <- FALSE
[18:41:39.419]                     if (inherits(cond, "message")) {
[18:41:39.419]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.419]                       if (muffled) 
[18:41:39.419]                         invokeRestart("muffleMessage")
[18:41:39.419]                     }
[18:41:39.419]                     else if (inherits(cond, "warning")) {
[18:41:39.419]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.419]                       if (muffled) 
[18:41:39.419]                         invokeRestart("muffleWarning")
[18:41:39.419]                     }
[18:41:39.419]                     else if (inherits(cond, "condition")) {
[18:41:39.419]                       if (!is.null(pattern)) {
[18:41:39.419]                         computeRestarts <- base::computeRestarts
[18:41:39.419]                         grepl <- base::grepl
[18:41:39.419]                         restarts <- computeRestarts(cond)
[18:41:39.419]                         for (restart in restarts) {
[18:41:39.419]                           name <- restart$name
[18:41:39.419]                           if (is.null(name)) 
[18:41:39.419]                             next
[18:41:39.419]                           if (!grepl(pattern, name)) 
[18:41:39.419]                             next
[18:41:39.419]                           invokeRestart(restart)
[18:41:39.419]                           muffled <- TRUE
[18:41:39.419]                           break
[18:41:39.419]                         }
[18:41:39.419]                       }
[18:41:39.419]                     }
[18:41:39.419]                     invisible(muffled)
[18:41:39.419]                   }
[18:41:39.419]                   muffleCondition(cond)
[18:41:39.419]                 })
[18:41:39.419]             }))
[18:41:39.419]             future::FutureResult(value = ...future.value$value, 
[18:41:39.419]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.419]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.419]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.419]                     ...future.globalenv.names))
[18:41:39.419]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.419]         }, condition = base::local({
[18:41:39.419]             c <- base::c
[18:41:39.419]             inherits <- base::inherits
[18:41:39.419]             invokeRestart <- base::invokeRestart
[18:41:39.419]             length <- base::length
[18:41:39.419]             list <- base::list
[18:41:39.419]             seq.int <- base::seq.int
[18:41:39.419]             signalCondition <- base::signalCondition
[18:41:39.419]             sys.calls <- base::sys.calls
[18:41:39.419]             `[[` <- base::`[[`
[18:41:39.419]             `+` <- base::`+`
[18:41:39.419]             `<<-` <- base::`<<-`
[18:41:39.419]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.419]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.419]                   3L)]
[18:41:39.419]             }
[18:41:39.419]             function(cond) {
[18:41:39.419]                 is_error <- inherits(cond, "error")
[18:41:39.419]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.419]                   NULL)
[18:41:39.419]                 if (is_error) {
[18:41:39.419]                   sessionInformation <- function() {
[18:41:39.419]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.419]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.419]                       search = base::search(), system = base::Sys.info())
[18:41:39.419]                   }
[18:41:39.419]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.419]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.419]                     cond$call), session = sessionInformation(), 
[18:41:39.419]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.419]                   signalCondition(cond)
[18:41:39.419]                 }
[18:41:39.419]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.419]                 "immediateCondition"))) {
[18:41:39.419]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.419]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.419]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.419]                   if (TRUE && !signal) {
[18:41:39.419]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.419]                     {
[18:41:39.419]                       inherits <- base::inherits
[18:41:39.419]                       invokeRestart <- base::invokeRestart
[18:41:39.419]                       is.null <- base::is.null
[18:41:39.419]                       muffled <- FALSE
[18:41:39.419]                       if (inherits(cond, "message")) {
[18:41:39.419]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.419]                         if (muffled) 
[18:41:39.419]                           invokeRestart("muffleMessage")
[18:41:39.419]                       }
[18:41:39.419]                       else if (inherits(cond, "warning")) {
[18:41:39.419]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.419]                         if (muffled) 
[18:41:39.419]                           invokeRestart("muffleWarning")
[18:41:39.419]                       }
[18:41:39.419]                       else if (inherits(cond, "condition")) {
[18:41:39.419]                         if (!is.null(pattern)) {
[18:41:39.419]                           computeRestarts <- base::computeRestarts
[18:41:39.419]                           grepl <- base::grepl
[18:41:39.419]                           restarts <- computeRestarts(cond)
[18:41:39.419]                           for (restart in restarts) {
[18:41:39.419]                             name <- restart$name
[18:41:39.419]                             if (is.null(name)) 
[18:41:39.419]                               next
[18:41:39.419]                             if (!grepl(pattern, name)) 
[18:41:39.419]                               next
[18:41:39.419]                             invokeRestart(restart)
[18:41:39.419]                             muffled <- TRUE
[18:41:39.419]                             break
[18:41:39.419]                           }
[18:41:39.419]                         }
[18:41:39.419]                       }
[18:41:39.419]                       invisible(muffled)
[18:41:39.419]                     }
[18:41:39.419]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.419]                   }
[18:41:39.419]                 }
[18:41:39.419]                 else {
[18:41:39.419]                   if (TRUE) {
[18:41:39.419]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.419]                     {
[18:41:39.419]                       inherits <- base::inherits
[18:41:39.419]                       invokeRestart <- base::invokeRestart
[18:41:39.419]                       is.null <- base::is.null
[18:41:39.419]                       muffled <- FALSE
[18:41:39.419]                       if (inherits(cond, "message")) {
[18:41:39.419]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.419]                         if (muffled) 
[18:41:39.419]                           invokeRestart("muffleMessage")
[18:41:39.419]                       }
[18:41:39.419]                       else if (inherits(cond, "warning")) {
[18:41:39.419]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.419]                         if (muffled) 
[18:41:39.419]                           invokeRestart("muffleWarning")
[18:41:39.419]                       }
[18:41:39.419]                       else if (inherits(cond, "condition")) {
[18:41:39.419]                         if (!is.null(pattern)) {
[18:41:39.419]                           computeRestarts <- base::computeRestarts
[18:41:39.419]                           grepl <- base::grepl
[18:41:39.419]                           restarts <- computeRestarts(cond)
[18:41:39.419]                           for (restart in restarts) {
[18:41:39.419]                             name <- restart$name
[18:41:39.419]                             if (is.null(name)) 
[18:41:39.419]                               next
[18:41:39.419]                             if (!grepl(pattern, name)) 
[18:41:39.419]                               next
[18:41:39.419]                             invokeRestart(restart)
[18:41:39.419]                             muffled <- TRUE
[18:41:39.419]                             break
[18:41:39.419]                           }
[18:41:39.419]                         }
[18:41:39.419]                       }
[18:41:39.419]                       invisible(muffled)
[18:41:39.419]                     }
[18:41:39.419]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.419]                   }
[18:41:39.419]                 }
[18:41:39.419]             }
[18:41:39.419]         }))
[18:41:39.419]     }, error = function(ex) {
[18:41:39.419]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.419]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.419]                 ...future.rng), started = ...future.startTime, 
[18:41:39.419]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.419]             version = "1.8"), class = "FutureResult")
[18:41:39.419]     }, finally = {
[18:41:39.419]         if (!identical(...future.workdir, getwd())) 
[18:41:39.419]             setwd(...future.workdir)
[18:41:39.419]         {
[18:41:39.419]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.419]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.419]             }
[18:41:39.419]             base::options(...future.oldOptions)
[18:41:39.419]             if (.Platform$OS.type == "windows") {
[18:41:39.419]                 old_names <- names(...future.oldEnvVars)
[18:41:39.419]                 envs <- base::Sys.getenv()
[18:41:39.419]                 names <- names(envs)
[18:41:39.419]                 common <- intersect(names, old_names)
[18:41:39.419]                 added <- setdiff(names, old_names)
[18:41:39.419]                 removed <- setdiff(old_names, names)
[18:41:39.419]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.419]                   envs[common]]
[18:41:39.419]                 NAMES <- toupper(changed)
[18:41:39.419]                 args <- list()
[18:41:39.419]                 for (kk in seq_along(NAMES)) {
[18:41:39.419]                   name <- changed[[kk]]
[18:41:39.419]                   NAME <- NAMES[[kk]]
[18:41:39.419]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.419]                     next
[18:41:39.419]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.419]                 }
[18:41:39.419]                 NAMES <- toupper(added)
[18:41:39.419]                 for (kk in seq_along(NAMES)) {
[18:41:39.419]                   name <- added[[kk]]
[18:41:39.419]                   NAME <- NAMES[[kk]]
[18:41:39.419]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.419]                     next
[18:41:39.419]                   args[[name]] <- ""
[18:41:39.419]                 }
[18:41:39.419]                 NAMES <- toupper(removed)
[18:41:39.419]                 for (kk in seq_along(NAMES)) {
[18:41:39.419]                   name <- removed[[kk]]
[18:41:39.419]                   NAME <- NAMES[[kk]]
[18:41:39.419]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.419]                     next
[18:41:39.419]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.419]                 }
[18:41:39.419]                 if (length(args) > 0) 
[18:41:39.419]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.419]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.419]             }
[18:41:39.419]             else {
[18:41:39.419]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.419]             }
[18:41:39.419]             {
[18:41:39.419]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.419]                   0L) {
[18:41:39.419]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.419]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.419]                   base::options(opts)
[18:41:39.419]                 }
[18:41:39.419]                 {
[18:41:39.419]                   {
[18:41:39.419]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.419]                     NULL
[18:41:39.419]                   }
[18:41:39.419]                   options(future.plan = NULL)
[18:41:39.419]                   if (is.na(NA_character_)) 
[18:41:39.419]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.419]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.419]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.419]                     .init = FALSE)
[18:41:39.419]                 }
[18:41:39.419]             }
[18:41:39.419]         }
[18:41:39.419]     })
[18:41:39.419]     if (TRUE) {
[18:41:39.419]         base::sink(type = "output", split = FALSE)
[18:41:39.419]         if (TRUE) {
[18:41:39.419]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.419]         }
[18:41:39.419]         else {
[18:41:39.419]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.419]         }
[18:41:39.419]         base::close(...future.stdout)
[18:41:39.419]         ...future.stdout <- NULL
[18:41:39.419]     }
[18:41:39.419]     ...future.result$conditions <- ...future.conditions
[18:41:39.419]     ...future.result$finished <- base::Sys.time()
[18:41:39.419]     ...future.result
[18:41:39.419] }
[18:41:39.424] Exporting 5 global objects (890 bytes) to cluster node #1 ...
[18:41:39.424] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.424] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.425] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.425] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.425] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.426] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.426] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.426] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.427] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.427] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.427] Exporting 5 global objects (890 bytes) to cluster node #1 ... DONE
[18:41:39.428] MultisessionFuture started
[18:41:39.428] - Launch lazy future ... done
[18:41:39.428] run() for 'MultisessionFuture' ... done
[18:41:39.428] Created future:
[18:41:39.443] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.443] - Validating connection of MultisessionFuture
[18:41:39.443] - received message: FutureResult
[18:41:39.444] - Received FutureResult
[18:41:39.444] - Erased future from FutureRegistry
[18:41:39.444] result() for ClusterFuture ...
[18:41:39.444] - result already collected: FutureResult
[18:41:39.444] result() for ClusterFuture ... done
[18:41:39.444] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.429] MultisessionFuture:
[18:41:39.429] Label: 'future_replicate-1'
[18:41:39.429] Expression:
[18:41:39.429] {
[18:41:39.429]     do.call(function(...) {
[18:41:39.429]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.429]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.429]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.429]             on.exit(options(oopts), add = TRUE)
[18:41:39.429]         }
[18:41:39.429]         {
[18:41:39.429]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.429]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.429]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.429]                   envir = globalenv(), inherits = FALSE)
[18:41:39.429]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.429]             })
[18:41:39.429]         }
[18:41:39.429]     }, args = future.call.arguments)
[18:41:39.429] }
[18:41:39.429] Lazy evaluation: FALSE
[18:41:39.429] Asynchronous evaluation: TRUE
[18:41:39.429] Local evaluation: TRUE
[18:41:39.429] Environment: R_GlobalEnv
[18:41:39.429] Capture standard output: TRUE
[18:41:39.429] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.429] Globals: 5 objects totaling 414 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.429] Packages: <none>
[18:41:39.429] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.429] Resolved: TRUE
[18:41:39.429] Value: <not collected>
[18:41:39.429] Conditions captured: <none>
[18:41:39.429] Early signaling: FALSE
[18:41:39.429] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.429] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.445] Chunk #1 of 2 ... DONE
[18:41:39.445] Chunk #2 of 2 ...
[18:41:39.445]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.445] getGlobalsAndPackages() ...
[18:41:39.446] Searching for globals...
[18:41:39.446] 
[18:41:39.446] Searching for globals ... DONE
[18:41:39.446] - globals: [0] <none>
[18:41:39.446] getGlobalsAndPackages() ... DONE
[18:41:39.447]    + additional globals found: [n=0] 
[18:41:39.447]    + additional namespaces needed: [n=0] 
[18:41:39.447]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.447]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.447]  - seeds: [3] <seeds>
[18:41:39.447]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.448] getGlobalsAndPackages() ...
[18:41:39.448] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.448] Resolving globals: FALSE
[18:41:39.448] Tweak future expression to call with '...' arguments ...
[18:41:39.448] {
[18:41:39.448]     do.call(function(...) {
[18:41:39.448]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.448]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.448]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.448]             on.exit(options(oopts), add = TRUE)
[18:41:39.448]         }
[18:41:39.448]         {
[18:41:39.448]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.448]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.448]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.448]                   envir = globalenv(), inherits = FALSE)
[18:41:39.448]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.448]             })
[18:41:39.448]         }
[18:41:39.448]     }, args = future.call.arguments)
[18:41:39.448] }
[18:41:39.449] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.449] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.449] 
[18:41:39.450] getGlobalsAndPackages() ... DONE
[18:41:39.450] run() for 'Future' ...
[18:41:39.450] - state: 'created'
[18:41:39.450] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.465] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.466] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.466]   - Field: 'node'
[18:41:39.466]   - Field: 'label'
[18:41:39.466]   - Field: 'local'
[18:41:39.466]   - Field: 'owner'
[18:41:39.467]   - Field: 'envir'
[18:41:39.467]   - Field: 'workers'
[18:41:39.467]   - Field: 'packages'
[18:41:39.467]   - Field: 'gc'
[18:41:39.467]   - Field: 'conditions'
[18:41:39.467]   - Field: 'persistent'
[18:41:39.468]   - Field: 'expr'
[18:41:39.468]   - Field: 'uuid'
[18:41:39.468]   - Field: 'seed'
[18:41:39.468]   - Field: 'version'
[18:41:39.468]   - Field: 'result'
[18:41:39.468]   - Field: 'asynchronous'
[18:41:39.469]   - Field: 'calls'
[18:41:39.469]   - Field: 'globals'
[18:41:39.469]   - Field: 'stdout'
[18:41:39.469]   - Field: 'earlySignal'
[18:41:39.469]   - Field: 'lazy'
[18:41:39.469]   - Field: 'state'
[18:41:39.470] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.470] - Launch lazy future ...
[18:41:39.470] Packages needed by the future expression (n = 0): <none>
[18:41:39.470] Packages needed by future strategies (n = 0): <none>
[18:41:39.471] {
[18:41:39.471]     {
[18:41:39.471]         {
[18:41:39.471]             ...future.startTime <- base::Sys.time()
[18:41:39.471]             {
[18:41:39.471]                 {
[18:41:39.471]                   {
[18:41:39.471]                     {
[18:41:39.471]                       base::local({
[18:41:39.471]                         has_future <- base::requireNamespace("future", 
[18:41:39.471]                           quietly = TRUE)
[18:41:39.471]                         if (has_future) {
[18:41:39.471]                           ns <- base::getNamespace("future")
[18:41:39.471]                           version <- ns[[".package"]][["version"]]
[18:41:39.471]                           if (is.null(version)) 
[18:41:39.471]                             version <- utils::packageVersion("future")
[18:41:39.471]                         }
[18:41:39.471]                         else {
[18:41:39.471]                           version <- NULL
[18:41:39.471]                         }
[18:41:39.471]                         if (!has_future || version < "1.8.0") {
[18:41:39.471]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.471]                             "", base::R.version$version.string), 
[18:41:39.471]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.471]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.471]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.471]                               "release", "version")], collapse = " "), 
[18:41:39.471]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.471]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.471]                             info)
[18:41:39.471]                           info <- base::paste(info, collapse = "; ")
[18:41:39.471]                           if (!has_future) {
[18:41:39.471]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.471]                               info)
[18:41:39.471]                           }
[18:41:39.471]                           else {
[18:41:39.471]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.471]                               info, version)
[18:41:39.471]                           }
[18:41:39.471]                           base::stop(msg)
[18:41:39.471]                         }
[18:41:39.471]                       })
[18:41:39.471]                     }
[18:41:39.471]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.471]                     base::options(mc.cores = 1L)
[18:41:39.471]                   }
[18:41:39.471]                   ...future.strategy.old <- future::plan("list")
[18:41:39.471]                   options(future.plan = NULL)
[18:41:39.471]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.471]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.471]                 }
[18:41:39.471]                 ...future.workdir <- getwd()
[18:41:39.471]             }
[18:41:39.471]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.471]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.471]         }
[18:41:39.471]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.471]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.471]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.471]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.471]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.471]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.471]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.471]             base::names(...future.oldOptions))
[18:41:39.471]     }
[18:41:39.471]     if (FALSE) {
[18:41:39.471]     }
[18:41:39.471]     else {
[18:41:39.471]         if (TRUE) {
[18:41:39.471]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.471]                 open = "w")
[18:41:39.471]         }
[18:41:39.471]         else {
[18:41:39.471]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.471]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.471]         }
[18:41:39.471]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.471]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.471]             base::sink(type = "output", split = FALSE)
[18:41:39.471]             base::close(...future.stdout)
[18:41:39.471]         }, add = TRUE)
[18:41:39.471]     }
[18:41:39.471]     ...future.frame <- base::sys.nframe()
[18:41:39.471]     ...future.conditions <- base::list()
[18:41:39.471]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.471]     if (FALSE) {
[18:41:39.471]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.471]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.471]     }
[18:41:39.471]     ...future.result <- base::tryCatch({
[18:41:39.471]         base::withCallingHandlers({
[18:41:39.471]             ...future.value <- base::withVisible(base::local({
[18:41:39.471]                 ...future.makeSendCondition <- base::local({
[18:41:39.471]                   sendCondition <- NULL
[18:41:39.471]                   function(frame = 1L) {
[18:41:39.471]                     if (is.function(sendCondition)) 
[18:41:39.471]                       return(sendCondition)
[18:41:39.471]                     ns <- getNamespace("parallel")
[18:41:39.471]                     if (exists("sendData", mode = "function", 
[18:41:39.471]                       envir = ns)) {
[18:41:39.471]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.471]                         envir = ns)
[18:41:39.471]                       envir <- sys.frame(frame)
[18:41:39.471]                       master <- NULL
[18:41:39.471]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.471]                         !identical(envir, emptyenv())) {
[18:41:39.471]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.471]                           inherits = FALSE)) {
[18:41:39.471]                           master <- get("master", mode = "list", 
[18:41:39.471]                             envir = envir, inherits = FALSE)
[18:41:39.471]                           if (inherits(master, c("SOCKnode", 
[18:41:39.471]                             "SOCK0node"))) {
[18:41:39.471]                             sendCondition <<- function(cond) {
[18:41:39.471]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.471]                                 success = TRUE)
[18:41:39.471]                               parallel_sendData(master, data)
[18:41:39.471]                             }
[18:41:39.471]                             return(sendCondition)
[18:41:39.471]                           }
[18:41:39.471]                         }
[18:41:39.471]                         frame <- frame + 1L
[18:41:39.471]                         envir <- sys.frame(frame)
[18:41:39.471]                       }
[18:41:39.471]                     }
[18:41:39.471]                     sendCondition <<- function(cond) NULL
[18:41:39.471]                   }
[18:41:39.471]                 })
[18:41:39.471]                 withCallingHandlers({
[18:41:39.471]                   {
[18:41:39.471]                     do.call(function(...) {
[18:41:39.471]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.471]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.471]                         ...future.globals.maxSize)) {
[18:41:39.471]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.471]                         on.exit(options(oopts), add = TRUE)
[18:41:39.471]                       }
[18:41:39.471]                       {
[18:41:39.471]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.471]                           FUN = function(jj) {
[18:41:39.471]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.471]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.471]                               envir = globalenv(), inherits = FALSE)
[18:41:39.471]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.471]                           })
[18:41:39.471]                       }
[18:41:39.471]                     }, args = future.call.arguments)
[18:41:39.471]                   }
[18:41:39.471]                 }, immediateCondition = function(cond) {
[18:41:39.471]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.471]                   sendCondition(cond)
[18:41:39.471]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.471]                   {
[18:41:39.471]                     inherits <- base::inherits
[18:41:39.471]                     invokeRestart <- base::invokeRestart
[18:41:39.471]                     is.null <- base::is.null
[18:41:39.471]                     muffled <- FALSE
[18:41:39.471]                     if (inherits(cond, "message")) {
[18:41:39.471]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.471]                       if (muffled) 
[18:41:39.471]                         invokeRestart("muffleMessage")
[18:41:39.471]                     }
[18:41:39.471]                     else if (inherits(cond, "warning")) {
[18:41:39.471]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.471]                       if (muffled) 
[18:41:39.471]                         invokeRestart("muffleWarning")
[18:41:39.471]                     }
[18:41:39.471]                     else if (inherits(cond, "condition")) {
[18:41:39.471]                       if (!is.null(pattern)) {
[18:41:39.471]                         computeRestarts <- base::computeRestarts
[18:41:39.471]                         grepl <- base::grepl
[18:41:39.471]                         restarts <- computeRestarts(cond)
[18:41:39.471]                         for (restart in restarts) {
[18:41:39.471]                           name <- restart$name
[18:41:39.471]                           if (is.null(name)) 
[18:41:39.471]                             next
[18:41:39.471]                           if (!grepl(pattern, name)) 
[18:41:39.471]                             next
[18:41:39.471]                           invokeRestart(restart)
[18:41:39.471]                           muffled <- TRUE
[18:41:39.471]                           break
[18:41:39.471]                         }
[18:41:39.471]                       }
[18:41:39.471]                     }
[18:41:39.471]                     invisible(muffled)
[18:41:39.471]                   }
[18:41:39.471]                   muffleCondition(cond)
[18:41:39.471]                 })
[18:41:39.471]             }))
[18:41:39.471]             future::FutureResult(value = ...future.value$value, 
[18:41:39.471]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.471]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.471]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.471]                     ...future.globalenv.names))
[18:41:39.471]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.471]         }, condition = base::local({
[18:41:39.471]             c <- base::c
[18:41:39.471]             inherits <- base::inherits
[18:41:39.471]             invokeRestart <- base::invokeRestart
[18:41:39.471]             length <- base::length
[18:41:39.471]             list <- base::list
[18:41:39.471]             seq.int <- base::seq.int
[18:41:39.471]             signalCondition <- base::signalCondition
[18:41:39.471]             sys.calls <- base::sys.calls
[18:41:39.471]             `[[` <- base::`[[`
[18:41:39.471]             `+` <- base::`+`
[18:41:39.471]             `<<-` <- base::`<<-`
[18:41:39.471]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.471]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.471]                   3L)]
[18:41:39.471]             }
[18:41:39.471]             function(cond) {
[18:41:39.471]                 is_error <- inherits(cond, "error")
[18:41:39.471]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.471]                   NULL)
[18:41:39.471]                 if (is_error) {
[18:41:39.471]                   sessionInformation <- function() {
[18:41:39.471]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.471]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.471]                       search = base::search(), system = base::Sys.info())
[18:41:39.471]                   }
[18:41:39.471]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.471]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.471]                     cond$call), session = sessionInformation(), 
[18:41:39.471]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.471]                   signalCondition(cond)
[18:41:39.471]                 }
[18:41:39.471]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.471]                 "immediateCondition"))) {
[18:41:39.471]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.471]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.471]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.471]                   if (TRUE && !signal) {
[18:41:39.471]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.471]                     {
[18:41:39.471]                       inherits <- base::inherits
[18:41:39.471]                       invokeRestart <- base::invokeRestart
[18:41:39.471]                       is.null <- base::is.null
[18:41:39.471]                       muffled <- FALSE
[18:41:39.471]                       if (inherits(cond, "message")) {
[18:41:39.471]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.471]                         if (muffled) 
[18:41:39.471]                           invokeRestart("muffleMessage")
[18:41:39.471]                       }
[18:41:39.471]                       else if (inherits(cond, "warning")) {
[18:41:39.471]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.471]                         if (muffled) 
[18:41:39.471]                           invokeRestart("muffleWarning")
[18:41:39.471]                       }
[18:41:39.471]                       else if (inherits(cond, "condition")) {
[18:41:39.471]                         if (!is.null(pattern)) {
[18:41:39.471]                           computeRestarts <- base::computeRestarts
[18:41:39.471]                           grepl <- base::grepl
[18:41:39.471]                           restarts <- computeRestarts(cond)
[18:41:39.471]                           for (restart in restarts) {
[18:41:39.471]                             name <- restart$name
[18:41:39.471]                             if (is.null(name)) 
[18:41:39.471]                               next
[18:41:39.471]                             if (!grepl(pattern, name)) 
[18:41:39.471]                               next
[18:41:39.471]                             invokeRestart(restart)
[18:41:39.471]                             muffled <- TRUE
[18:41:39.471]                             break
[18:41:39.471]                           }
[18:41:39.471]                         }
[18:41:39.471]                       }
[18:41:39.471]                       invisible(muffled)
[18:41:39.471]                     }
[18:41:39.471]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.471]                   }
[18:41:39.471]                 }
[18:41:39.471]                 else {
[18:41:39.471]                   if (TRUE) {
[18:41:39.471]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.471]                     {
[18:41:39.471]                       inherits <- base::inherits
[18:41:39.471]                       invokeRestart <- base::invokeRestart
[18:41:39.471]                       is.null <- base::is.null
[18:41:39.471]                       muffled <- FALSE
[18:41:39.471]                       if (inherits(cond, "message")) {
[18:41:39.471]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.471]                         if (muffled) 
[18:41:39.471]                           invokeRestart("muffleMessage")
[18:41:39.471]                       }
[18:41:39.471]                       else if (inherits(cond, "warning")) {
[18:41:39.471]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.471]                         if (muffled) 
[18:41:39.471]                           invokeRestart("muffleWarning")
[18:41:39.471]                       }
[18:41:39.471]                       else if (inherits(cond, "condition")) {
[18:41:39.471]                         if (!is.null(pattern)) {
[18:41:39.471]                           computeRestarts <- base::computeRestarts
[18:41:39.471]                           grepl <- base::grepl
[18:41:39.471]                           restarts <- computeRestarts(cond)
[18:41:39.471]                           for (restart in restarts) {
[18:41:39.471]                             name <- restart$name
[18:41:39.471]                             if (is.null(name)) 
[18:41:39.471]                               next
[18:41:39.471]                             if (!grepl(pattern, name)) 
[18:41:39.471]                               next
[18:41:39.471]                             invokeRestart(restart)
[18:41:39.471]                             muffled <- TRUE
[18:41:39.471]                             break
[18:41:39.471]                           }
[18:41:39.471]                         }
[18:41:39.471]                       }
[18:41:39.471]                       invisible(muffled)
[18:41:39.471]                     }
[18:41:39.471]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.471]                   }
[18:41:39.471]                 }
[18:41:39.471]             }
[18:41:39.471]         }))
[18:41:39.471]     }, error = function(ex) {
[18:41:39.471]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.471]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.471]                 ...future.rng), started = ...future.startTime, 
[18:41:39.471]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.471]             version = "1.8"), class = "FutureResult")
[18:41:39.471]     }, finally = {
[18:41:39.471]         if (!identical(...future.workdir, getwd())) 
[18:41:39.471]             setwd(...future.workdir)
[18:41:39.471]         {
[18:41:39.471]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.471]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.471]             }
[18:41:39.471]             base::options(...future.oldOptions)
[18:41:39.471]             if (.Platform$OS.type == "windows") {
[18:41:39.471]                 old_names <- names(...future.oldEnvVars)
[18:41:39.471]                 envs <- base::Sys.getenv()
[18:41:39.471]                 names <- names(envs)
[18:41:39.471]                 common <- intersect(names, old_names)
[18:41:39.471]                 added <- setdiff(names, old_names)
[18:41:39.471]                 removed <- setdiff(old_names, names)
[18:41:39.471]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.471]                   envs[common]]
[18:41:39.471]                 NAMES <- toupper(changed)
[18:41:39.471]                 args <- list()
[18:41:39.471]                 for (kk in seq_along(NAMES)) {
[18:41:39.471]                   name <- changed[[kk]]
[18:41:39.471]                   NAME <- NAMES[[kk]]
[18:41:39.471]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.471]                     next
[18:41:39.471]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.471]                 }
[18:41:39.471]                 NAMES <- toupper(added)
[18:41:39.471]                 for (kk in seq_along(NAMES)) {
[18:41:39.471]                   name <- added[[kk]]
[18:41:39.471]                   NAME <- NAMES[[kk]]
[18:41:39.471]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.471]                     next
[18:41:39.471]                   args[[name]] <- ""
[18:41:39.471]                 }
[18:41:39.471]                 NAMES <- toupper(removed)
[18:41:39.471]                 for (kk in seq_along(NAMES)) {
[18:41:39.471]                   name <- removed[[kk]]
[18:41:39.471]                   NAME <- NAMES[[kk]]
[18:41:39.471]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.471]                     next
[18:41:39.471]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.471]                 }
[18:41:39.471]                 if (length(args) > 0) 
[18:41:39.471]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.471]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.471]             }
[18:41:39.471]             else {
[18:41:39.471]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.471]             }
[18:41:39.471]             {
[18:41:39.471]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.471]                   0L) {
[18:41:39.471]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.471]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.471]                   base::options(opts)
[18:41:39.471]                 }
[18:41:39.471]                 {
[18:41:39.471]                   {
[18:41:39.471]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.471]                     NULL
[18:41:39.471]                   }
[18:41:39.471]                   options(future.plan = NULL)
[18:41:39.471]                   if (is.na(NA_character_)) 
[18:41:39.471]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.471]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.471]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.471]                     .init = FALSE)
[18:41:39.471]                 }
[18:41:39.471]             }
[18:41:39.471]         }
[18:41:39.471]     })
[18:41:39.471]     if (TRUE) {
[18:41:39.471]         base::sink(type = "output", split = FALSE)
[18:41:39.471]         if (TRUE) {
[18:41:39.471]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.471]         }
[18:41:39.471]         else {
[18:41:39.471]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.471]         }
[18:41:39.471]         base::close(...future.stdout)
[18:41:39.471]         ...future.stdout <- NULL
[18:41:39.471]     }
[18:41:39.471]     ...future.result$conditions <- ...future.conditions
[18:41:39.471]     ...future.result$finished <- base::Sys.time()
[18:41:39.471]     ...future.result
[18:41:39.471] }
[18:41:39.476] Exporting 5 global objects (938 bytes) to cluster node #1 ...
[18:41:39.476] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.477] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.477] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.477] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.478] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.478] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.478] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.478] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.479] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.479] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.479] Exporting 5 global objects (938 bytes) to cluster node #1 ... DONE
[18:41:39.480] MultisessionFuture started
[18:41:39.480] - Launch lazy future ... done
[18:41:39.480] run() for 'MultisessionFuture' ... done
[18:41:39.480] Created future:
[18:41:39.493] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.493] - Validating connection of MultisessionFuture
[18:41:39.494] - received message: FutureResult
[18:41:39.494] - Received FutureResult
[18:41:39.494] - Erased future from FutureRegistry
[18:41:39.494] result() for ClusterFuture ...
[18:41:39.494] - result already collected: FutureResult
[18:41:39.495] result() for ClusterFuture ... done
[18:41:39.495] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.480] MultisessionFuture:
[18:41:39.480] Label: 'future_replicate-2'
[18:41:39.480] Expression:
[18:41:39.480] {
[18:41:39.480]     do.call(function(...) {
[18:41:39.480]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.480]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.480]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.480]             on.exit(options(oopts), add = TRUE)
[18:41:39.480]         }
[18:41:39.480]         {
[18:41:39.480]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.480]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.480]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.480]                   envir = globalenv(), inherits = FALSE)
[18:41:39.480]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.480]             })
[18:41:39.480]         }
[18:41:39.480]     }, args = future.call.arguments)
[18:41:39.480] }
[18:41:39.480] Lazy evaluation: FALSE
[18:41:39.480] Asynchronous evaluation: TRUE
[18:41:39.480] Local evaluation: TRUE
[18:41:39.480] Environment: R_GlobalEnv
[18:41:39.480] Capture standard output: TRUE
[18:41:39.480] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.480] Globals: 5 objects totaling 462 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, list '...future.seeds_ii' of 139 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.480] Packages: <none>
[18:41:39.480] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.480] Resolved: TRUE
[18:41:39.480] Value: <not collected>
[18:41:39.480] Conditions captured: <none>
[18:41:39.480] Early signaling: FALSE
[18:41:39.480] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.480] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.495] Chunk #2 of 2 ... DONE
[18:41:39.495] Launching 2 futures (chunks) ... DONE
[18:41:39.496] Resolving 2 futures (chunks) ...
[18:41:39.496] resolve() on list ...
[18:41:39.496]  recursive: 0
[18:41:39.496]  length: 2
[18:41:39.496] 
[18:41:39.496] Future #1
[18:41:39.497] result() for ClusterFuture ...
[18:41:39.497] - result already collected: FutureResult
[18:41:39.497] result() for ClusterFuture ... done
[18:41:39.497] result() for ClusterFuture ...
[18:41:39.497] - result already collected: FutureResult
[18:41:39.497] result() for ClusterFuture ... done
[18:41:39.497] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.498] - nx: 2
[18:41:39.498] - relay: TRUE
[18:41:39.498] - stdout: TRUE
[18:41:39.498] - signal: TRUE
[18:41:39.498] - resignal: FALSE
[18:41:39.498] - force: TRUE
[18:41:39.499] - relayed: [n=2] FALSE, FALSE
[18:41:39.499] - queued futures: [n=2] FALSE, FALSE
[18:41:39.499]  - until=1
[18:41:39.499]  - relaying element #1
[18:41:39.499] result() for ClusterFuture ...
[18:41:39.499] - result already collected: FutureResult
[18:41:39.499] result() for ClusterFuture ... done
[18:41:39.500] result() for ClusterFuture ...
[18:41:39.500] - result already collected: FutureResult
[18:41:39.500] result() for ClusterFuture ... done
[18:41:39.500] result() for ClusterFuture ...
[18:41:39.500] - result already collected: FutureResult
[18:41:39.500] result() for ClusterFuture ... done
[18:41:39.501] result() for ClusterFuture ...
[18:41:39.501] - result already collected: FutureResult
[18:41:39.501] result() for ClusterFuture ... done
[18:41:39.501] - relayed: [n=2] TRUE, FALSE
[18:41:39.501] - queued futures: [n=2] TRUE, FALSE
[18:41:39.501] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.502]  length: 1 (resolved future 1)
[18:41:39.502] Future #2
[18:41:39.502] result() for ClusterFuture ...
[18:41:39.502] - result already collected: FutureResult
[18:41:39.502] result() for ClusterFuture ... done
[18:41:39.502] result() for ClusterFuture ...
[18:41:39.503] - result already collected: FutureResult
[18:41:39.503] result() for ClusterFuture ... done
[18:41:39.503] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.503] - nx: 2
[18:41:39.503] - relay: TRUE
[18:41:39.503] - stdout: TRUE
[18:41:39.504] - signal: TRUE
[18:41:39.504] - resignal: FALSE
[18:41:39.504] - force: TRUE
[18:41:39.504] - relayed: [n=2] TRUE, FALSE
[18:41:39.504] - queued futures: [n=2] TRUE, FALSE
[18:41:39.504]  - until=2
[18:41:39.504]  - relaying element #2
[18:41:39.505] result() for ClusterFuture ...
[18:41:39.505] - result already collected: FutureResult
[18:41:39.505] result() for ClusterFuture ... done
[18:41:39.505] result() for ClusterFuture ...
[18:41:39.505] - result already collected: FutureResult
[18:41:39.505] result() for ClusterFuture ... done
[18:41:39.506] result() for ClusterFuture ...
[18:41:39.506] - result already collected: FutureResult
[18:41:39.506] result() for ClusterFuture ... done
[18:41:39.506] result() for ClusterFuture ...
[18:41:39.506] - result already collected: FutureResult
[18:41:39.506] result() for ClusterFuture ... done
[18:41:39.507] - relayed: [n=2] TRUE, TRUE
[18:41:39.507] - queued futures: [n=2] TRUE, TRUE
[18:41:39.507] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.507]  length: 0 (resolved future 2)
[18:41:39.507] Relaying remaining futures
[18:41:39.507] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.507] - nx: 2
[18:41:39.508] - relay: TRUE
[18:41:39.508] - stdout: TRUE
[18:41:39.508] - signal: TRUE
[18:41:39.508] - resignal: FALSE
[18:41:39.508] - force: TRUE
[18:41:39.508] - relayed: [n=2] TRUE, TRUE
[18:41:39.509] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.509] - relayed: [n=2] TRUE, TRUE
[18:41:39.509] - queued futures: [n=2] TRUE, TRUE
[18:41:39.509] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.509] resolve() on list ... DONE
[18:41:39.509] result() for ClusterFuture ...
[18:41:39.510] - result already collected: FutureResult
[18:41:39.510] result() for ClusterFuture ... done
[18:41:39.510] result() for ClusterFuture ...
[18:41:39.510] - result already collected: FutureResult
[18:41:39.510] result() for ClusterFuture ... done
[18:41:39.510] result() for ClusterFuture ...
[18:41:39.511] - result already collected: FutureResult
[18:41:39.511] result() for ClusterFuture ... done
[18:41:39.511] result() for ClusterFuture ...
[18:41:39.511] - result already collected: FutureResult
[18:41:39.511] result() for ClusterFuture ... done
[18:41:39.511]  - Number of value chunks collected: 2
[18:41:39.512] Resolving 2 futures (chunks) ... DONE
[18:41:39.512] Reducing values from 2 chunks ...
[18:41:39.512]  - Number of values collected after concatenation: 5
[18:41:39.512]  - Number of values expected: 5
[18:41:39.512] Reducing values from 2 chunks ... DONE
[18:41:39.512] future_lapply() ... DONE
[18:41:39.513] future_lapply() ...
[18:41:39.513] Generating random seeds ...
[18:41:39.513] Generating random seed streams for 5 elements ...
[18:41:39.514] Generating random seed streams for 5 elements ... DONE
[18:41:39.514] Generating random seeds ... DONE
[18:41:39.514] 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
[18:41:39.517] Number of chunks: 2
[18:41:39.517] getGlobalsAndPackagesXApply() ...
[18:41:39.517]  - future.globals: TRUE
[18:41:39.517] getGlobalsAndPackages() ...
[18:41:39.517] Searching for globals...
[18:41:39.519] - globals found: [2] 'FUN', 'sample'
[18:41:39.519] Searching for globals ... DONE
[18:41:39.519] Resolving globals: FALSE
[18:41:39.520] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:39.520] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:39.520] - globals: [1] 'FUN'
[18:41:39.520] 
[18:41:39.521] getGlobalsAndPackages() ... DONE
[18:41:39.521]  - globals found/used: [n=1] 'FUN'
[18:41:39.521]  - needed namespaces: [n=0] 
[18:41:39.521] Finding globals ... DONE
[18:41:39.521]  - use_args: TRUE
[18:41:39.521]  - Getting '...' globals ...
[18:41:39.522] resolve() on list ...
[18:41:39.522]  recursive: 0
[18:41:39.522]  length: 1
[18:41:39.522]  elements: '...'
[18:41:39.523]  length: 0 (resolved future 1)
[18:41:39.523] resolve() on list ... DONE
[18:41:39.523]    - '...' content: [n=0] 
[18:41:39.523] List of 1
[18:41:39.523]  $ ...: list()
[18:41:39.523]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.523]  - attr(*, "where")=List of 1
[18:41:39.523]   ..$ ...:<environment: 0x0000028bff144808> 
[18:41:39.523]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.523]  - attr(*, "resolved")= logi TRUE
[18:41:39.523]  - attr(*, "total_size")= num NA
[18:41:39.526]  - Getting '...' globals ... DONE
[18:41:39.526] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:39.526] List of 2
[18:41:39.526]  $ ...future.FUN:function (...)  
[18:41:39.526]  $ ...          : list()
[18:41:39.526]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.526]  - attr(*, "where")=List of 2
[18:41:39.526]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.526]   ..$ ...          :<environment: 0x0000028bff144808> 
[18:41:39.526]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.526]  - attr(*, "resolved")= logi FALSE
[18:41:39.526]  - attr(*, "total_size")= int 7184
[18:41:39.530] Packages to be attached in all futures: [n=0] 
[18:41:39.530] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.530] Number of futures (= number of chunks): 2
[18:41:39.530] Launching 2 futures (chunks) ...
[18:41:39.531] Chunk #1 of 2 ...
[18:41:39.531]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.531] getGlobalsAndPackages() ...
[18:41:39.531] Searching for globals...
[18:41:39.531] 
[18:41:39.532] Searching for globals ... DONE
[18:41:39.532] - globals: [0] <none>
[18:41:39.532] getGlobalsAndPackages() ... DONE
[18:41:39.532]    + additional globals found: [n=0] 
[18:41:39.532]    + additional namespaces needed: [n=0] 
[18:41:39.532]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.533]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.533]  - seeds: [2] <seeds>
[18:41:39.533]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.533] getGlobalsAndPackages() ...
[18:41:39.533] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.533] Resolving globals: FALSE
[18:41:39.534] Tweak future expression to call with '...' arguments ...
[18:41:39.534] {
[18:41:39.534]     do.call(function(...) {
[18:41:39.534]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.534]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.534]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.534]             on.exit(options(oopts), add = TRUE)
[18:41:39.534]         }
[18:41:39.534]         {
[18:41:39.534]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.534]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.534]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.534]                   envir = globalenv(), inherits = FALSE)
[18:41:39.534]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.534]             })
[18:41:39.534]         }
[18:41:39.534]     }, args = future.call.arguments)
[18:41:39.534] }
[18:41:39.534] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.535] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.535] 
[18:41:39.535] getGlobalsAndPackages() ... DONE
[18:41:39.536] run() for 'Future' ...
[18:41:39.536] - state: 'created'
[18:41:39.536] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.551] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.552] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.552]   - Field: 'node'
[18:41:39.552]   - Field: 'label'
[18:41:39.552]   - Field: 'local'
[18:41:39.552]   - Field: 'owner'
[18:41:39.552]   - Field: 'envir'
[18:41:39.553]   - Field: 'workers'
[18:41:39.553]   - Field: 'packages'
[18:41:39.553]   - Field: 'gc'
[18:41:39.553]   - Field: 'conditions'
[18:41:39.553]   - Field: 'persistent'
[18:41:39.554]   - Field: 'expr'
[18:41:39.554]   - Field: 'uuid'
[18:41:39.554]   - Field: 'seed'
[18:41:39.554]   - Field: 'version'
[18:41:39.554]   - Field: 'result'
[18:41:39.554]   - Field: 'asynchronous'
[18:41:39.555]   - Field: 'calls'
[18:41:39.555]   - Field: 'globals'
[18:41:39.555]   - Field: 'stdout'
[18:41:39.555]   - Field: 'earlySignal'
[18:41:39.555]   - Field: 'lazy'
[18:41:39.555]   - Field: 'state'
[18:41:39.556] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.556] - Launch lazy future ...
[18:41:39.556] Packages needed by the future expression (n = 0): <none>
[18:41:39.556] Packages needed by future strategies (n = 0): <none>
[18:41:39.557] {
[18:41:39.557]     {
[18:41:39.557]         {
[18:41:39.557]             ...future.startTime <- base::Sys.time()
[18:41:39.557]             {
[18:41:39.557]                 {
[18:41:39.557]                   {
[18:41:39.557]                     {
[18:41:39.557]                       base::local({
[18:41:39.557]                         has_future <- base::requireNamespace("future", 
[18:41:39.557]                           quietly = TRUE)
[18:41:39.557]                         if (has_future) {
[18:41:39.557]                           ns <- base::getNamespace("future")
[18:41:39.557]                           version <- ns[[".package"]][["version"]]
[18:41:39.557]                           if (is.null(version)) 
[18:41:39.557]                             version <- utils::packageVersion("future")
[18:41:39.557]                         }
[18:41:39.557]                         else {
[18:41:39.557]                           version <- NULL
[18:41:39.557]                         }
[18:41:39.557]                         if (!has_future || version < "1.8.0") {
[18:41:39.557]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.557]                             "", base::R.version$version.string), 
[18:41:39.557]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.557]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.557]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.557]                               "release", "version")], collapse = " "), 
[18:41:39.557]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.557]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.557]                             info)
[18:41:39.557]                           info <- base::paste(info, collapse = "; ")
[18:41:39.557]                           if (!has_future) {
[18:41:39.557]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.557]                               info)
[18:41:39.557]                           }
[18:41:39.557]                           else {
[18:41:39.557]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.557]                               info, version)
[18:41:39.557]                           }
[18:41:39.557]                           base::stop(msg)
[18:41:39.557]                         }
[18:41:39.557]                       })
[18:41:39.557]                     }
[18:41:39.557]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.557]                     base::options(mc.cores = 1L)
[18:41:39.557]                   }
[18:41:39.557]                   ...future.strategy.old <- future::plan("list")
[18:41:39.557]                   options(future.plan = NULL)
[18:41:39.557]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.557]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.557]                 }
[18:41:39.557]                 ...future.workdir <- getwd()
[18:41:39.557]             }
[18:41:39.557]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.557]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.557]         }
[18:41:39.557]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.557]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.557]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.557]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.557]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.557]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.557]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.557]             base::names(...future.oldOptions))
[18:41:39.557]     }
[18:41:39.557]     if (FALSE) {
[18:41:39.557]     }
[18:41:39.557]     else {
[18:41:39.557]         if (TRUE) {
[18:41:39.557]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.557]                 open = "w")
[18:41:39.557]         }
[18:41:39.557]         else {
[18:41:39.557]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.557]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.557]         }
[18:41:39.557]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.557]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.557]             base::sink(type = "output", split = FALSE)
[18:41:39.557]             base::close(...future.stdout)
[18:41:39.557]         }, add = TRUE)
[18:41:39.557]     }
[18:41:39.557]     ...future.frame <- base::sys.nframe()
[18:41:39.557]     ...future.conditions <- base::list()
[18:41:39.557]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.557]     if (FALSE) {
[18:41:39.557]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.557]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.557]     }
[18:41:39.557]     ...future.result <- base::tryCatch({
[18:41:39.557]         base::withCallingHandlers({
[18:41:39.557]             ...future.value <- base::withVisible(base::local({
[18:41:39.557]                 ...future.makeSendCondition <- base::local({
[18:41:39.557]                   sendCondition <- NULL
[18:41:39.557]                   function(frame = 1L) {
[18:41:39.557]                     if (is.function(sendCondition)) 
[18:41:39.557]                       return(sendCondition)
[18:41:39.557]                     ns <- getNamespace("parallel")
[18:41:39.557]                     if (exists("sendData", mode = "function", 
[18:41:39.557]                       envir = ns)) {
[18:41:39.557]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.557]                         envir = ns)
[18:41:39.557]                       envir <- sys.frame(frame)
[18:41:39.557]                       master <- NULL
[18:41:39.557]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.557]                         !identical(envir, emptyenv())) {
[18:41:39.557]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.557]                           inherits = FALSE)) {
[18:41:39.557]                           master <- get("master", mode = "list", 
[18:41:39.557]                             envir = envir, inherits = FALSE)
[18:41:39.557]                           if (inherits(master, c("SOCKnode", 
[18:41:39.557]                             "SOCK0node"))) {
[18:41:39.557]                             sendCondition <<- function(cond) {
[18:41:39.557]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.557]                                 success = TRUE)
[18:41:39.557]                               parallel_sendData(master, data)
[18:41:39.557]                             }
[18:41:39.557]                             return(sendCondition)
[18:41:39.557]                           }
[18:41:39.557]                         }
[18:41:39.557]                         frame <- frame + 1L
[18:41:39.557]                         envir <- sys.frame(frame)
[18:41:39.557]                       }
[18:41:39.557]                     }
[18:41:39.557]                     sendCondition <<- function(cond) NULL
[18:41:39.557]                   }
[18:41:39.557]                 })
[18:41:39.557]                 withCallingHandlers({
[18:41:39.557]                   {
[18:41:39.557]                     do.call(function(...) {
[18:41:39.557]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.557]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.557]                         ...future.globals.maxSize)) {
[18:41:39.557]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.557]                         on.exit(options(oopts), add = TRUE)
[18:41:39.557]                       }
[18:41:39.557]                       {
[18:41:39.557]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.557]                           FUN = function(jj) {
[18:41:39.557]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.557]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.557]                               envir = globalenv(), inherits = FALSE)
[18:41:39.557]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.557]                           })
[18:41:39.557]                       }
[18:41:39.557]                     }, args = future.call.arguments)
[18:41:39.557]                   }
[18:41:39.557]                 }, immediateCondition = function(cond) {
[18:41:39.557]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.557]                   sendCondition(cond)
[18:41:39.557]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.557]                   {
[18:41:39.557]                     inherits <- base::inherits
[18:41:39.557]                     invokeRestart <- base::invokeRestart
[18:41:39.557]                     is.null <- base::is.null
[18:41:39.557]                     muffled <- FALSE
[18:41:39.557]                     if (inherits(cond, "message")) {
[18:41:39.557]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.557]                       if (muffled) 
[18:41:39.557]                         invokeRestart("muffleMessage")
[18:41:39.557]                     }
[18:41:39.557]                     else if (inherits(cond, "warning")) {
[18:41:39.557]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.557]                       if (muffled) 
[18:41:39.557]                         invokeRestart("muffleWarning")
[18:41:39.557]                     }
[18:41:39.557]                     else if (inherits(cond, "condition")) {
[18:41:39.557]                       if (!is.null(pattern)) {
[18:41:39.557]                         computeRestarts <- base::computeRestarts
[18:41:39.557]                         grepl <- base::grepl
[18:41:39.557]                         restarts <- computeRestarts(cond)
[18:41:39.557]                         for (restart in restarts) {
[18:41:39.557]                           name <- restart$name
[18:41:39.557]                           if (is.null(name)) 
[18:41:39.557]                             next
[18:41:39.557]                           if (!grepl(pattern, name)) 
[18:41:39.557]                             next
[18:41:39.557]                           invokeRestart(restart)
[18:41:39.557]                           muffled <- TRUE
[18:41:39.557]                           break
[18:41:39.557]                         }
[18:41:39.557]                       }
[18:41:39.557]                     }
[18:41:39.557]                     invisible(muffled)
[18:41:39.557]                   }
[18:41:39.557]                   muffleCondition(cond)
[18:41:39.557]                 })
[18:41:39.557]             }))
[18:41:39.557]             future::FutureResult(value = ...future.value$value, 
[18:41:39.557]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.557]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.557]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.557]                     ...future.globalenv.names))
[18:41:39.557]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.557]         }, condition = base::local({
[18:41:39.557]             c <- base::c
[18:41:39.557]             inherits <- base::inherits
[18:41:39.557]             invokeRestart <- base::invokeRestart
[18:41:39.557]             length <- base::length
[18:41:39.557]             list <- base::list
[18:41:39.557]             seq.int <- base::seq.int
[18:41:39.557]             signalCondition <- base::signalCondition
[18:41:39.557]             sys.calls <- base::sys.calls
[18:41:39.557]             `[[` <- base::`[[`
[18:41:39.557]             `+` <- base::`+`
[18:41:39.557]             `<<-` <- base::`<<-`
[18:41:39.557]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.557]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.557]                   3L)]
[18:41:39.557]             }
[18:41:39.557]             function(cond) {
[18:41:39.557]                 is_error <- inherits(cond, "error")
[18:41:39.557]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.557]                   NULL)
[18:41:39.557]                 if (is_error) {
[18:41:39.557]                   sessionInformation <- function() {
[18:41:39.557]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.557]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.557]                       search = base::search(), system = base::Sys.info())
[18:41:39.557]                   }
[18:41:39.557]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.557]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.557]                     cond$call), session = sessionInformation(), 
[18:41:39.557]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.557]                   signalCondition(cond)
[18:41:39.557]                 }
[18:41:39.557]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.557]                 "immediateCondition"))) {
[18:41:39.557]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.557]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.557]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.557]                   if (TRUE && !signal) {
[18:41:39.557]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.557]                     {
[18:41:39.557]                       inherits <- base::inherits
[18:41:39.557]                       invokeRestart <- base::invokeRestart
[18:41:39.557]                       is.null <- base::is.null
[18:41:39.557]                       muffled <- FALSE
[18:41:39.557]                       if (inherits(cond, "message")) {
[18:41:39.557]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.557]                         if (muffled) 
[18:41:39.557]                           invokeRestart("muffleMessage")
[18:41:39.557]                       }
[18:41:39.557]                       else if (inherits(cond, "warning")) {
[18:41:39.557]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.557]                         if (muffled) 
[18:41:39.557]                           invokeRestart("muffleWarning")
[18:41:39.557]                       }
[18:41:39.557]                       else if (inherits(cond, "condition")) {
[18:41:39.557]                         if (!is.null(pattern)) {
[18:41:39.557]                           computeRestarts <- base::computeRestarts
[18:41:39.557]                           grepl <- base::grepl
[18:41:39.557]                           restarts <- computeRestarts(cond)
[18:41:39.557]                           for (restart in restarts) {
[18:41:39.557]                             name <- restart$name
[18:41:39.557]                             if (is.null(name)) 
[18:41:39.557]                               next
[18:41:39.557]                             if (!grepl(pattern, name)) 
[18:41:39.557]                               next
[18:41:39.557]                             invokeRestart(restart)
[18:41:39.557]                             muffled <- TRUE
[18:41:39.557]                             break
[18:41:39.557]                           }
[18:41:39.557]                         }
[18:41:39.557]                       }
[18:41:39.557]                       invisible(muffled)
[18:41:39.557]                     }
[18:41:39.557]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.557]                   }
[18:41:39.557]                 }
[18:41:39.557]                 else {
[18:41:39.557]                   if (TRUE) {
[18:41:39.557]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.557]                     {
[18:41:39.557]                       inherits <- base::inherits
[18:41:39.557]                       invokeRestart <- base::invokeRestart
[18:41:39.557]                       is.null <- base::is.null
[18:41:39.557]                       muffled <- FALSE
[18:41:39.557]                       if (inherits(cond, "message")) {
[18:41:39.557]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.557]                         if (muffled) 
[18:41:39.557]                           invokeRestart("muffleMessage")
[18:41:39.557]                       }
[18:41:39.557]                       else if (inherits(cond, "warning")) {
[18:41:39.557]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.557]                         if (muffled) 
[18:41:39.557]                           invokeRestart("muffleWarning")
[18:41:39.557]                       }
[18:41:39.557]                       else if (inherits(cond, "condition")) {
[18:41:39.557]                         if (!is.null(pattern)) {
[18:41:39.557]                           computeRestarts <- base::computeRestarts
[18:41:39.557]                           grepl <- base::grepl
[18:41:39.557]                           restarts <- computeRestarts(cond)
[18:41:39.557]                           for (restart in restarts) {
[18:41:39.557]                             name <- restart$name
[18:41:39.557]                             if (is.null(name)) 
[18:41:39.557]                               next
[18:41:39.557]                             if (!grepl(pattern, name)) 
[18:41:39.557]                               next
[18:41:39.557]                             invokeRestart(restart)
[18:41:39.557]                             muffled <- TRUE
[18:41:39.557]                             break
[18:41:39.557]                           }
[18:41:39.557]                         }
[18:41:39.557]                       }
[18:41:39.557]                       invisible(muffled)
[18:41:39.557]                     }
[18:41:39.557]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.557]                   }
[18:41:39.557]                 }
[18:41:39.557]             }
[18:41:39.557]         }))
[18:41:39.557]     }, error = function(ex) {
[18:41:39.557]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.557]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.557]                 ...future.rng), started = ...future.startTime, 
[18:41:39.557]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.557]             version = "1.8"), class = "FutureResult")
[18:41:39.557]     }, finally = {
[18:41:39.557]         if (!identical(...future.workdir, getwd())) 
[18:41:39.557]             setwd(...future.workdir)
[18:41:39.557]         {
[18:41:39.557]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.557]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.557]             }
[18:41:39.557]             base::options(...future.oldOptions)
[18:41:39.557]             if (.Platform$OS.type == "windows") {
[18:41:39.557]                 old_names <- names(...future.oldEnvVars)
[18:41:39.557]                 envs <- base::Sys.getenv()
[18:41:39.557]                 names <- names(envs)
[18:41:39.557]                 common <- intersect(names, old_names)
[18:41:39.557]                 added <- setdiff(names, old_names)
[18:41:39.557]                 removed <- setdiff(old_names, names)
[18:41:39.557]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.557]                   envs[common]]
[18:41:39.557]                 NAMES <- toupper(changed)
[18:41:39.557]                 args <- list()
[18:41:39.557]                 for (kk in seq_along(NAMES)) {
[18:41:39.557]                   name <- changed[[kk]]
[18:41:39.557]                   NAME <- NAMES[[kk]]
[18:41:39.557]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.557]                     next
[18:41:39.557]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.557]                 }
[18:41:39.557]                 NAMES <- toupper(added)
[18:41:39.557]                 for (kk in seq_along(NAMES)) {
[18:41:39.557]                   name <- added[[kk]]
[18:41:39.557]                   NAME <- NAMES[[kk]]
[18:41:39.557]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.557]                     next
[18:41:39.557]                   args[[name]] <- ""
[18:41:39.557]                 }
[18:41:39.557]                 NAMES <- toupper(removed)
[18:41:39.557]                 for (kk in seq_along(NAMES)) {
[18:41:39.557]                   name <- removed[[kk]]
[18:41:39.557]                   NAME <- NAMES[[kk]]
[18:41:39.557]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.557]                     next
[18:41:39.557]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.557]                 }
[18:41:39.557]                 if (length(args) > 0) 
[18:41:39.557]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.557]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.557]             }
[18:41:39.557]             else {
[18:41:39.557]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.557]             }
[18:41:39.557]             {
[18:41:39.557]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.557]                   0L) {
[18:41:39.557]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.557]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.557]                   base::options(opts)
[18:41:39.557]                 }
[18:41:39.557]                 {
[18:41:39.557]                   {
[18:41:39.557]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.557]                     NULL
[18:41:39.557]                   }
[18:41:39.557]                   options(future.plan = NULL)
[18:41:39.557]                   if (is.na(NA_character_)) 
[18:41:39.557]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.557]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.557]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.557]                     .init = FALSE)
[18:41:39.557]                 }
[18:41:39.557]             }
[18:41:39.557]         }
[18:41:39.557]     })
[18:41:39.557]     if (TRUE) {
[18:41:39.557]         base::sink(type = "output", split = FALSE)
[18:41:39.557]         if (TRUE) {
[18:41:39.557]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.557]         }
[18:41:39.557]         else {
[18:41:39.557]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.557]         }
[18:41:39.557]         base::close(...future.stdout)
[18:41:39.557]         ...future.stdout <- NULL
[18:41:39.557]     }
[18:41:39.557]     ...future.result$conditions <- ...future.conditions
[18:41:39.557]     ...future.result$finished <- base::Sys.time()
[18:41:39.557]     ...future.result
[18:41:39.557] }
[18:41:39.562] Exporting 5 global objects (890 bytes) to cluster node #1 ...
[18:41:39.562] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.563] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.563] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.563] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.564] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.564] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.564] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.565] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.565] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.565] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.565] Exporting 5 global objects (890 bytes) to cluster node #1 ... DONE
[18:41:39.566] MultisessionFuture started
[18:41:39.566] - Launch lazy future ... done
[18:41:39.566] run() for 'MultisessionFuture' ... done
[18:41:39.566] Created future:
[18:41:39.581] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.581] - Validating connection of MultisessionFuture
[18:41:39.581] - received message: FutureResult
[18:41:39.581] - Received FutureResult
[18:41:39.582] - Erased future from FutureRegistry
[18:41:39.582] result() for ClusterFuture ...
[18:41:39.582] - result already collected: FutureResult
[18:41:39.582] result() for ClusterFuture ... done
[18:41:39.582] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.567] MultisessionFuture:
[18:41:39.567] Label: 'future_replicate-1'
[18:41:39.567] Expression:
[18:41:39.567] {
[18:41:39.567]     do.call(function(...) {
[18:41:39.567]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.567]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.567]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.567]             on.exit(options(oopts), add = TRUE)
[18:41:39.567]         }
[18:41:39.567]         {
[18:41:39.567]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.567]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.567]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.567]                   envir = globalenv(), inherits = FALSE)
[18:41:39.567]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.567]             })
[18:41:39.567]         }
[18:41:39.567]     }, args = future.call.arguments)
[18:41:39.567] }
[18:41:39.567] Lazy evaluation: FALSE
[18:41:39.567] Asynchronous evaluation: TRUE
[18:41:39.567] Local evaluation: TRUE
[18:41:39.567] Environment: R_GlobalEnv
[18:41:39.567] Capture standard output: TRUE
[18:41:39.567] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.567] Globals: 5 objects totaling 414 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.567] Packages: <none>
[18:41:39.567] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.567] Resolved: TRUE
[18:41:39.567] Value: <not collected>
[18:41:39.567] Conditions captured: <none>
[18:41:39.567] Early signaling: FALSE
[18:41:39.567] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.567] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.583] Chunk #1 of 2 ... DONE
[18:41:39.583] Chunk #2 of 2 ...
[18:41:39.583]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.583] getGlobalsAndPackages() ...
[18:41:39.583] Searching for globals...
[18:41:39.584] 
[18:41:39.584] Searching for globals ... DONE
[18:41:39.584] - globals: [0] <none>
[18:41:39.584] getGlobalsAndPackages() ... DONE
[18:41:39.584]    + additional globals found: [n=0] 
[18:41:39.585]    + additional namespaces needed: [n=0] 
[18:41:39.585]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.585]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.585]  - seeds: [3] <seeds>
[18:41:39.585]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.585] getGlobalsAndPackages() ...
[18:41:39.586] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.586] Resolving globals: FALSE
[18:41:39.586] Tweak future expression to call with '...' arguments ...
[18:41:39.586] {
[18:41:39.586]     do.call(function(...) {
[18:41:39.586]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.586]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.586]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.586]             on.exit(options(oopts), add = TRUE)
[18:41:39.586]         }
[18:41:39.586]         {
[18:41:39.586]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.586]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.586]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.586]                   envir = globalenv(), inherits = FALSE)
[18:41:39.586]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.586]             })
[18:41:39.586]         }
[18:41:39.586]     }, args = future.call.arguments)
[18:41:39.586] }
[18:41:39.587] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.587] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.587] 
[18:41:39.587] getGlobalsAndPackages() ... DONE
[18:41:39.588] run() for 'Future' ...
[18:41:39.588] - state: 'created'
[18:41:39.588] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.606] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.606] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.606]   - Field: 'node'
[18:41:39.607]   - Field: 'label'
[18:41:39.607]   - Field: 'local'
[18:41:39.607]   - Field: 'owner'
[18:41:39.607]   - Field: 'envir'
[18:41:39.607]   - Field: 'workers'
[18:41:39.607]   - Field: 'packages'
[18:41:39.608]   - Field: 'gc'
[18:41:39.608]   - Field: 'conditions'
[18:41:39.608]   - Field: 'persistent'
[18:41:39.608]   - Field: 'expr'
[18:41:39.608]   - Field: 'uuid'
[18:41:39.608]   - Field: 'seed'
[18:41:39.609]   - Field: 'version'
[18:41:39.609]   - Field: 'result'
[18:41:39.609]   - Field: 'asynchronous'
[18:41:39.609]   - Field: 'calls'
[18:41:39.609]   - Field: 'globals'
[18:41:39.609]   - Field: 'stdout'
[18:41:39.610]   - Field: 'earlySignal'
[18:41:39.610]   - Field: 'lazy'
[18:41:39.610]   - Field: 'state'
[18:41:39.610] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.610] - Launch lazy future ...
[18:41:39.611] Packages needed by the future expression (n = 0): <none>
[18:41:39.611] Packages needed by future strategies (n = 0): <none>
[18:41:39.611] {
[18:41:39.611]     {
[18:41:39.611]         {
[18:41:39.611]             ...future.startTime <- base::Sys.time()
[18:41:39.611]             {
[18:41:39.611]                 {
[18:41:39.611]                   {
[18:41:39.611]                     {
[18:41:39.611]                       base::local({
[18:41:39.611]                         has_future <- base::requireNamespace("future", 
[18:41:39.611]                           quietly = TRUE)
[18:41:39.611]                         if (has_future) {
[18:41:39.611]                           ns <- base::getNamespace("future")
[18:41:39.611]                           version <- ns[[".package"]][["version"]]
[18:41:39.611]                           if (is.null(version)) 
[18:41:39.611]                             version <- utils::packageVersion("future")
[18:41:39.611]                         }
[18:41:39.611]                         else {
[18:41:39.611]                           version <- NULL
[18:41:39.611]                         }
[18:41:39.611]                         if (!has_future || version < "1.8.0") {
[18:41:39.611]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.611]                             "", base::R.version$version.string), 
[18:41:39.611]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.611]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.611]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.611]                               "release", "version")], collapse = " "), 
[18:41:39.611]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.611]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.611]                             info)
[18:41:39.611]                           info <- base::paste(info, collapse = "; ")
[18:41:39.611]                           if (!has_future) {
[18:41:39.611]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.611]                               info)
[18:41:39.611]                           }
[18:41:39.611]                           else {
[18:41:39.611]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.611]                               info, version)
[18:41:39.611]                           }
[18:41:39.611]                           base::stop(msg)
[18:41:39.611]                         }
[18:41:39.611]                       })
[18:41:39.611]                     }
[18:41:39.611]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.611]                     base::options(mc.cores = 1L)
[18:41:39.611]                   }
[18:41:39.611]                   ...future.strategy.old <- future::plan("list")
[18:41:39.611]                   options(future.plan = NULL)
[18:41:39.611]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.611]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.611]                 }
[18:41:39.611]                 ...future.workdir <- getwd()
[18:41:39.611]             }
[18:41:39.611]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.611]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.611]         }
[18:41:39.611]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.611]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.611]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.611]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.611]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.611]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.611]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.611]             base::names(...future.oldOptions))
[18:41:39.611]     }
[18:41:39.611]     if (FALSE) {
[18:41:39.611]     }
[18:41:39.611]     else {
[18:41:39.611]         if (TRUE) {
[18:41:39.611]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.611]                 open = "w")
[18:41:39.611]         }
[18:41:39.611]         else {
[18:41:39.611]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.611]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.611]         }
[18:41:39.611]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.611]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.611]             base::sink(type = "output", split = FALSE)
[18:41:39.611]             base::close(...future.stdout)
[18:41:39.611]         }, add = TRUE)
[18:41:39.611]     }
[18:41:39.611]     ...future.frame <- base::sys.nframe()
[18:41:39.611]     ...future.conditions <- base::list()
[18:41:39.611]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.611]     if (FALSE) {
[18:41:39.611]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.611]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.611]     }
[18:41:39.611]     ...future.result <- base::tryCatch({
[18:41:39.611]         base::withCallingHandlers({
[18:41:39.611]             ...future.value <- base::withVisible(base::local({
[18:41:39.611]                 ...future.makeSendCondition <- base::local({
[18:41:39.611]                   sendCondition <- NULL
[18:41:39.611]                   function(frame = 1L) {
[18:41:39.611]                     if (is.function(sendCondition)) 
[18:41:39.611]                       return(sendCondition)
[18:41:39.611]                     ns <- getNamespace("parallel")
[18:41:39.611]                     if (exists("sendData", mode = "function", 
[18:41:39.611]                       envir = ns)) {
[18:41:39.611]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.611]                         envir = ns)
[18:41:39.611]                       envir <- sys.frame(frame)
[18:41:39.611]                       master <- NULL
[18:41:39.611]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.611]                         !identical(envir, emptyenv())) {
[18:41:39.611]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.611]                           inherits = FALSE)) {
[18:41:39.611]                           master <- get("master", mode = "list", 
[18:41:39.611]                             envir = envir, inherits = FALSE)
[18:41:39.611]                           if (inherits(master, c("SOCKnode", 
[18:41:39.611]                             "SOCK0node"))) {
[18:41:39.611]                             sendCondition <<- function(cond) {
[18:41:39.611]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.611]                                 success = TRUE)
[18:41:39.611]                               parallel_sendData(master, data)
[18:41:39.611]                             }
[18:41:39.611]                             return(sendCondition)
[18:41:39.611]                           }
[18:41:39.611]                         }
[18:41:39.611]                         frame <- frame + 1L
[18:41:39.611]                         envir <- sys.frame(frame)
[18:41:39.611]                       }
[18:41:39.611]                     }
[18:41:39.611]                     sendCondition <<- function(cond) NULL
[18:41:39.611]                   }
[18:41:39.611]                 })
[18:41:39.611]                 withCallingHandlers({
[18:41:39.611]                   {
[18:41:39.611]                     do.call(function(...) {
[18:41:39.611]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.611]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.611]                         ...future.globals.maxSize)) {
[18:41:39.611]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.611]                         on.exit(options(oopts), add = TRUE)
[18:41:39.611]                       }
[18:41:39.611]                       {
[18:41:39.611]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.611]                           FUN = function(jj) {
[18:41:39.611]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.611]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.611]                               envir = globalenv(), inherits = FALSE)
[18:41:39.611]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.611]                           })
[18:41:39.611]                       }
[18:41:39.611]                     }, args = future.call.arguments)
[18:41:39.611]                   }
[18:41:39.611]                 }, immediateCondition = function(cond) {
[18:41:39.611]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.611]                   sendCondition(cond)
[18:41:39.611]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.611]                   {
[18:41:39.611]                     inherits <- base::inherits
[18:41:39.611]                     invokeRestart <- base::invokeRestart
[18:41:39.611]                     is.null <- base::is.null
[18:41:39.611]                     muffled <- FALSE
[18:41:39.611]                     if (inherits(cond, "message")) {
[18:41:39.611]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.611]                       if (muffled) 
[18:41:39.611]                         invokeRestart("muffleMessage")
[18:41:39.611]                     }
[18:41:39.611]                     else if (inherits(cond, "warning")) {
[18:41:39.611]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.611]                       if (muffled) 
[18:41:39.611]                         invokeRestart("muffleWarning")
[18:41:39.611]                     }
[18:41:39.611]                     else if (inherits(cond, "condition")) {
[18:41:39.611]                       if (!is.null(pattern)) {
[18:41:39.611]                         computeRestarts <- base::computeRestarts
[18:41:39.611]                         grepl <- base::grepl
[18:41:39.611]                         restarts <- computeRestarts(cond)
[18:41:39.611]                         for (restart in restarts) {
[18:41:39.611]                           name <- restart$name
[18:41:39.611]                           if (is.null(name)) 
[18:41:39.611]                             next
[18:41:39.611]                           if (!grepl(pattern, name)) 
[18:41:39.611]                             next
[18:41:39.611]                           invokeRestart(restart)
[18:41:39.611]                           muffled <- TRUE
[18:41:39.611]                           break
[18:41:39.611]                         }
[18:41:39.611]                       }
[18:41:39.611]                     }
[18:41:39.611]                     invisible(muffled)
[18:41:39.611]                   }
[18:41:39.611]                   muffleCondition(cond)
[18:41:39.611]                 })
[18:41:39.611]             }))
[18:41:39.611]             future::FutureResult(value = ...future.value$value, 
[18:41:39.611]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.611]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.611]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.611]                     ...future.globalenv.names))
[18:41:39.611]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.611]         }, condition = base::local({
[18:41:39.611]             c <- base::c
[18:41:39.611]             inherits <- base::inherits
[18:41:39.611]             invokeRestart <- base::invokeRestart
[18:41:39.611]             length <- base::length
[18:41:39.611]             list <- base::list
[18:41:39.611]             seq.int <- base::seq.int
[18:41:39.611]             signalCondition <- base::signalCondition
[18:41:39.611]             sys.calls <- base::sys.calls
[18:41:39.611]             `[[` <- base::`[[`
[18:41:39.611]             `+` <- base::`+`
[18:41:39.611]             `<<-` <- base::`<<-`
[18:41:39.611]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.611]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.611]                   3L)]
[18:41:39.611]             }
[18:41:39.611]             function(cond) {
[18:41:39.611]                 is_error <- inherits(cond, "error")
[18:41:39.611]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.611]                   NULL)
[18:41:39.611]                 if (is_error) {
[18:41:39.611]                   sessionInformation <- function() {
[18:41:39.611]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.611]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.611]                       search = base::search(), system = base::Sys.info())
[18:41:39.611]                   }
[18:41:39.611]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.611]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.611]                     cond$call), session = sessionInformation(), 
[18:41:39.611]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.611]                   signalCondition(cond)
[18:41:39.611]                 }
[18:41:39.611]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.611]                 "immediateCondition"))) {
[18:41:39.611]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.611]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.611]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.611]                   if (TRUE && !signal) {
[18:41:39.611]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.611]                     {
[18:41:39.611]                       inherits <- base::inherits
[18:41:39.611]                       invokeRestart <- base::invokeRestart
[18:41:39.611]                       is.null <- base::is.null
[18:41:39.611]                       muffled <- FALSE
[18:41:39.611]                       if (inherits(cond, "message")) {
[18:41:39.611]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.611]                         if (muffled) 
[18:41:39.611]                           invokeRestart("muffleMessage")
[18:41:39.611]                       }
[18:41:39.611]                       else if (inherits(cond, "warning")) {
[18:41:39.611]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.611]                         if (muffled) 
[18:41:39.611]                           invokeRestart("muffleWarning")
[18:41:39.611]                       }
[18:41:39.611]                       else if (inherits(cond, "condition")) {
[18:41:39.611]                         if (!is.null(pattern)) {
[18:41:39.611]                           computeRestarts <- base::computeRestarts
[18:41:39.611]                           grepl <- base::grepl
[18:41:39.611]                           restarts <- computeRestarts(cond)
[18:41:39.611]                           for (restart in restarts) {
[18:41:39.611]                             name <- restart$name
[18:41:39.611]                             if (is.null(name)) 
[18:41:39.611]                               next
[18:41:39.611]                             if (!grepl(pattern, name)) 
[18:41:39.611]                               next
[18:41:39.611]                             invokeRestart(restart)
[18:41:39.611]                             muffled <- TRUE
[18:41:39.611]                             break
[18:41:39.611]                           }
[18:41:39.611]                         }
[18:41:39.611]                       }
[18:41:39.611]                       invisible(muffled)
[18:41:39.611]                     }
[18:41:39.611]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.611]                   }
[18:41:39.611]                 }
[18:41:39.611]                 else {
[18:41:39.611]                   if (TRUE) {
[18:41:39.611]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.611]                     {
[18:41:39.611]                       inherits <- base::inherits
[18:41:39.611]                       invokeRestart <- base::invokeRestart
[18:41:39.611]                       is.null <- base::is.null
[18:41:39.611]                       muffled <- FALSE
[18:41:39.611]                       if (inherits(cond, "message")) {
[18:41:39.611]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.611]                         if (muffled) 
[18:41:39.611]                           invokeRestart("muffleMessage")
[18:41:39.611]                       }
[18:41:39.611]                       else if (inherits(cond, "warning")) {
[18:41:39.611]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.611]                         if (muffled) 
[18:41:39.611]                           invokeRestart("muffleWarning")
[18:41:39.611]                       }
[18:41:39.611]                       else if (inherits(cond, "condition")) {
[18:41:39.611]                         if (!is.null(pattern)) {
[18:41:39.611]                           computeRestarts <- base::computeRestarts
[18:41:39.611]                           grepl <- base::grepl
[18:41:39.611]                           restarts <- computeRestarts(cond)
[18:41:39.611]                           for (restart in restarts) {
[18:41:39.611]                             name <- restart$name
[18:41:39.611]                             if (is.null(name)) 
[18:41:39.611]                               next
[18:41:39.611]                             if (!grepl(pattern, name)) 
[18:41:39.611]                               next
[18:41:39.611]                             invokeRestart(restart)
[18:41:39.611]                             muffled <- TRUE
[18:41:39.611]                             break
[18:41:39.611]                           }
[18:41:39.611]                         }
[18:41:39.611]                       }
[18:41:39.611]                       invisible(muffled)
[18:41:39.611]                     }
[18:41:39.611]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.611]                   }
[18:41:39.611]                 }
[18:41:39.611]             }
[18:41:39.611]         }))
[18:41:39.611]     }, error = function(ex) {
[18:41:39.611]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.611]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.611]                 ...future.rng), started = ...future.startTime, 
[18:41:39.611]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.611]             version = "1.8"), class = "FutureResult")
[18:41:39.611]     }, finally = {
[18:41:39.611]         if (!identical(...future.workdir, getwd())) 
[18:41:39.611]             setwd(...future.workdir)
[18:41:39.611]         {
[18:41:39.611]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.611]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.611]             }
[18:41:39.611]             base::options(...future.oldOptions)
[18:41:39.611]             if (.Platform$OS.type == "windows") {
[18:41:39.611]                 old_names <- names(...future.oldEnvVars)
[18:41:39.611]                 envs <- base::Sys.getenv()
[18:41:39.611]                 names <- names(envs)
[18:41:39.611]                 common <- intersect(names, old_names)
[18:41:39.611]                 added <- setdiff(names, old_names)
[18:41:39.611]                 removed <- setdiff(old_names, names)
[18:41:39.611]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.611]                   envs[common]]
[18:41:39.611]                 NAMES <- toupper(changed)
[18:41:39.611]                 args <- list()
[18:41:39.611]                 for (kk in seq_along(NAMES)) {
[18:41:39.611]                   name <- changed[[kk]]
[18:41:39.611]                   NAME <- NAMES[[kk]]
[18:41:39.611]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.611]                     next
[18:41:39.611]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.611]                 }
[18:41:39.611]                 NAMES <- toupper(added)
[18:41:39.611]                 for (kk in seq_along(NAMES)) {
[18:41:39.611]                   name <- added[[kk]]
[18:41:39.611]                   NAME <- NAMES[[kk]]
[18:41:39.611]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.611]                     next
[18:41:39.611]                   args[[name]] <- ""
[18:41:39.611]                 }
[18:41:39.611]                 NAMES <- toupper(removed)
[18:41:39.611]                 for (kk in seq_along(NAMES)) {
[18:41:39.611]                   name <- removed[[kk]]
[18:41:39.611]                   NAME <- NAMES[[kk]]
[18:41:39.611]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.611]                     next
[18:41:39.611]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.611]                 }
[18:41:39.611]                 if (length(args) > 0) 
[18:41:39.611]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.611]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.611]             }
[18:41:39.611]             else {
[18:41:39.611]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.611]             }
[18:41:39.611]             {
[18:41:39.611]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.611]                   0L) {
[18:41:39.611]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.611]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.611]                   base::options(opts)
[18:41:39.611]                 }
[18:41:39.611]                 {
[18:41:39.611]                   {
[18:41:39.611]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.611]                     NULL
[18:41:39.611]                   }
[18:41:39.611]                   options(future.plan = NULL)
[18:41:39.611]                   if (is.na(NA_character_)) 
[18:41:39.611]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.611]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.611]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.611]                     .init = FALSE)
[18:41:39.611]                 }
[18:41:39.611]             }
[18:41:39.611]         }
[18:41:39.611]     })
[18:41:39.611]     if (TRUE) {
[18:41:39.611]         base::sink(type = "output", split = FALSE)
[18:41:39.611]         if (TRUE) {
[18:41:39.611]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.611]         }
[18:41:39.611]         else {
[18:41:39.611]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.611]         }
[18:41:39.611]         base::close(...future.stdout)
[18:41:39.611]         ...future.stdout <- NULL
[18:41:39.611]     }
[18:41:39.611]     ...future.result$conditions <- ...future.conditions
[18:41:39.611]     ...future.result$finished <- base::Sys.time()
[18:41:39.611]     ...future.result
[18:41:39.611] }
[18:41:39.616] Exporting 5 global objects (938 bytes) to cluster node #1 ...
[18:41:39.617] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.617] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.617] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.618] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.618] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.618] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.618] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.619] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.619] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.619] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.619] Exporting 5 global objects (938 bytes) to cluster node #1 ... DONE
[18:41:39.620] MultisessionFuture started
[18:41:39.620] - Launch lazy future ... done
[18:41:39.620] run() for 'MultisessionFuture' ... done
[18:41:39.621] Created future:
[18:41:39.635] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.635] - Validating connection of MultisessionFuture
[18:41:39.635] - received message: FutureResult
[18:41:39.635] - Received FutureResult
[18:41:39.636] - Erased future from FutureRegistry
[18:41:39.636] result() for ClusterFuture ...
[18:41:39.636] - result already collected: FutureResult
[18:41:39.636] result() for ClusterFuture ... done
[18:41:39.636] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.621] MultisessionFuture:
[18:41:39.621] Label: 'future_replicate-2'
[18:41:39.621] Expression:
[18:41:39.621] {
[18:41:39.621]     do.call(function(...) {
[18:41:39.621]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.621]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.621]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.621]             on.exit(options(oopts), add = TRUE)
[18:41:39.621]         }
[18:41:39.621]         {
[18:41:39.621]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.621]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.621]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.621]                   envir = globalenv(), inherits = FALSE)
[18:41:39.621]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.621]             })
[18:41:39.621]         }
[18:41:39.621]     }, args = future.call.arguments)
[18:41:39.621] }
[18:41:39.621] Lazy evaluation: FALSE
[18:41:39.621] Asynchronous evaluation: TRUE
[18:41:39.621] Local evaluation: TRUE
[18:41:39.621] Environment: R_GlobalEnv
[18:41:39.621] Capture standard output: TRUE
[18:41:39.621] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.621] Globals: 5 objects totaling 462 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, list '...future.seeds_ii' of 139 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.621] Packages: <none>
[18:41:39.621] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.621] Resolved: TRUE
[18:41:39.621] Value: <not collected>
[18:41:39.621] Conditions captured: <none>
[18:41:39.621] Early signaling: FALSE
[18:41:39.621] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.621] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.637] Chunk #2 of 2 ... DONE
[18:41:39.637] Launching 2 futures (chunks) ... DONE
[18:41:39.637] Resolving 2 futures (chunks) ...
[18:41:39.637] resolve() on list ...
[18:41:39.637]  recursive: 0
[18:41:39.637]  length: 2
[18:41:39.638] 
[18:41:39.638] Future #1
[18:41:39.638] result() for ClusterFuture ...
[18:41:39.638] - result already collected: FutureResult
[18:41:39.638] result() for ClusterFuture ... done
[18:41:39.638] result() for ClusterFuture ...
[18:41:39.639] - result already collected: FutureResult
[18:41:39.639] result() for ClusterFuture ... done
[18:41:39.639] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.639] - nx: 2
[18:41:39.639] - relay: TRUE
[18:41:39.639] - stdout: TRUE
[18:41:39.639] - signal: TRUE
[18:41:39.640] - resignal: FALSE
[18:41:39.640] - force: TRUE
[18:41:39.640] - relayed: [n=2] FALSE, FALSE
[18:41:39.640] - queued futures: [n=2] FALSE, FALSE
[18:41:39.640]  - until=1
[18:41:39.640]  - relaying element #1
[18:41:39.641] result() for ClusterFuture ...
[18:41:39.641] - result already collected: FutureResult
[18:41:39.641] result() for ClusterFuture ... done
[18:41:39.641] result() for ClusterFuture ...
[18:41:39.641] - result already collected: FutureResult
[18:41:39.641] result() for ClusterFuture ... done
[18:41:39.642] result() for ClusterFuture ...
[18:41:39.642] - result already collected: FutureResult
[18:41:39.642] result() for ClusterFuture ... done
[18:41:39.642] result() for ClusterFuture ...
[18:41:39.642] - result already collected: FutureResult
[18:41:39.642] result() for ClusterFuture ... done
[18:41:39.642] - relayed: [n=2] TRUE, FALSE
[18:41:39.643] - queued futures: [n=2] TRUE, FALSE
[18:41:39.643] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.643]  length: 1 (resolved future 1)
[18:41:39.643] Future #2
[18:41:39.643] result() for ClusterFuture ...
[18:41:39.643] - result already collected: FutureResult
[18:41:39.644] result() for ClusterFuture ... done
[18:41:39.644] result() for ClusterFuture ...
[18:41:39.644] - result already collected: FutureResult
[18:41:39.644] result() for ClusterFuture ... done
[18:41:39.644] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.645] - nx: 2
[18:41:39.645] - relay: TRUE
[18:41:39.645] - stdout: TRUE
[18:41:39.645] - signal: TRUE
[18:41:39.645] - resignal: FALSE
[18:41:39.645] - force: TRUE
[18:41:39.646] - relayed: [n=2] TRUE, FALSE
[18:41:39.646] - queued futures: [n=2] TRUE, FALSE
[18:41:39.646]  - until=2
[18:41:39.646]  - relaying element #2
[18:41:39.646] result() for ClusterFuture ...
[18:41:39.646] - result already collected: FutureResult
[18:41:39.646] result() for ClusterFuture ... done
[18:41:39.647] result() for ClusterFuture ...
[18:41:39.647] - result already collected: FutureResult
[18:41:39.647] result() for ClusterFuture ... done
[18:41:39.647] result() for ClusterFuture ...
[18:41:39.647] - result already collected: FutureResult
[18:41:39.647] result() for ClusterFuture ... done
[18:41:39.648] result() for ClusterFuture ...
[18:41:39.648] - result already collected: FutureResult
[18:41:39.648] result() for ClusterFuture ... done
[18:41:39.648] - relayed: [n=2] TRUE, TRUE
[18:41:39.648] - queued futures: [n=2] TRUE, TRUE
[18:41:39.648] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.649]  length: 0 (resolved future 2)
[18:41:39.649] Relaying remaining futures
[18:41:39.649] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.649] - nx: 2
[18:41:39.649] - relay: TRUE
[18:41:39.649] - stdout: TRUE
[18:41:39.649] - signal: TRUE
[18:41:39.650] - resignal: FALSE
[18:41:39.650] - force: TRUE
[18:41:39.650] - relayed: [n=2] TRUE, TRUE
[18:41:39.650] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.650] - relayed: [n=2] TRUE, TRUE
[18:41:39.650] - queued futures: [n=2] TRUE, TRUE
[18:41:39.651] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.651] resolve() on list ... DONE
[18:41:39.651] result() for ClusterFuture ...
[18:41:39.651] - result already collected: FutureResult
[18:41:39.651] result() for ClusterFuture ... done
[18:41:39.651] result() for ClusterFuture ...
[18:41:39.652] - result already collected: FutureResult
[18:41:39.652] result() for ClusterFuture ... done
[18:41:39.652] result() for ClusterFuture ...
[18:41:39.652] - result already collected: FutureResult
[18:41:39.652] result() for ClusterFuture ... done
[18:41:39.652] result() for ClusterFuture ...
[18:41:39.653] - result already collected: FutureResult
[18:41:39.653] result() for ClusterFuture ... done
[18:41:39.653]  - Number of value chunks collected: 2
[18:41:39.653] Resolving 2 futures (chunks) ... DONE
[18:41:39.653] Reducing values from 2 chunks ...
[18:41:39.653]  - Number of values collected after concatenation: 5
[18:41:39.653]  - Number of values expected: 5
[18:41:39.654] Reducing values from 2 chunks ... DONE
[18:41:39.654] future_lapply() ... DONE
[18:41:39.654] future_lapply() ...
[18:41:39.655] Generating random seeds ...
[18:41:39.655] Generating random seed streams for 5 elements ...
[18:41:39.655] Generating random seed streams for 5 elements ... DONE
[18:41:39.655] Generating random seeds ... DONE
[18:41:39.655] 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
[18:41:39.658] Number of chunks: 2
[18:41:39.658] getGlobalsAndPackagesXApply() ...
[18:41:39.659]  - future.globals: TRUE
[18:41:39.659] getGlobalsAndPackages() ...
[18:41:39.659] Searching for globals...
[18:41:39.660] - globals found: [2] 'FUN', 'sample'
[18:41:39.661] Searching for globals ... DONE
[18:41:39.661] Resolving globals: FALSE
[18:41:39.661] The total size of the 1 globals is 132 bytes (132 bytes)
[18:41:39.662] The total size of the 1 globals exported for future expression ('FUN()') is 132 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (132 bytes of class 'function')
[18:41:39.662] - globals: [1] 'FUN'
[18:41:39.662] 
[18:41:39.662] getGlobalsAndPackages() ... DONE
[18:41:39.663]  - globals found/used: [n=1] 'FUN'
[18:41:39.663]  - needed namespaces: [n=0] 
[18:41:39.663] Finding globals ... DONE
[18:41:39.663]  - use_args: TRUE
[18:41:39.663]  - Getting '...' globals ...
[18:41:39.664] resolve() on list ...
[18:41:39.664]  recursive: 0
[18:41:39.664]  length: 1
[18:41:39.664]  elements: '...'
[18:41:39.664]  length: 0 (resolved future 1)
[18:41:39.665] resolve() on list ... DONE
[18:41:39.665]    - '...' content: [n=0] 
[18:41:39.665] List of 1
[18:41:39.665]  $ ...: list()
[18:41:39.665]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.665]  - attr(*, "where")=List of 1
[18:41:39.665]   ..$ ...:<environment: 0x0000028bfa18cd18> 
[18:41:39.665]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.665]  - attr(*, "resolved")= logi TRUE
[18:41:39.665]  - attr(*, "total_size")= num NA
[18:41:39.668]  - Getting '...' globals ... DONE
[18:41:39.668] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[18:41:39.669] List of 2
[18:41:39.669]  $ ...future.FUN:function (...)  
[18:41:39.669]  $ ...          : list()
[18:41:39.669]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.669]  - attr(*, "where")=List of 2
[18:41:39.669]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.669]   ..$ ...          :<environment: 0x0000028bfa18cd18> 
[18:41:39.669]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.669]  - attr(*, "resolved")= logi FALSE
[18:41:39.669]  - attr(*, "total_size")= int 7184
[18:41:39.672] Packages to be attached in all futures: [n=0] 
[18:41:39.672] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.673] Number of futures (= number of chunks): 2
[18:41:39.673] Launching 2 futures (chunks) ...
[18:41:39.673] Chunk #1 of 2 ...
[18:41:39.673]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.673] getGlobalsAndPackages() ...
[18:41:39.673] Searching for globals...
[18:41:39.674] 
[18:41:39.674] Searching for globals ... DONE
[18:41:39.674] - globals: [0] <none>
[18:41:39.674] getGlobalsAndPackages() ... DONE
[18:41:39.674]    + additional globals found: [n=0] 
[18:41:39.675]    + additional namespaces needed: [n=0] 
[18:41:39.675]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.675]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.675]  - seeds: [2] <seeds>
[18:41:39.675]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.676] getGlobalsAndPackages() ...
[18:41:39.676] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.676] Resolving globals: FALSE
[18:41:39.676] Tweak future expression to call with '...' arguments ...
[18:41:39.676] {
[18:41:39.676]     do.call(function(...) {
[18:41:39.676]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.676]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.676]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.676]             on.exit(options(oopts), add = TRUE)
[18:41:39.676]         }
[18:41:39.676]         {
[18:41:39.676]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.676]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.676]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.676]                   envir = globalenv(), inherits = FALSE)
[18:41:39.676]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.676]             })
[18:41:39.676]         }
[18:41:39.676]     }, args = future.call.arguments)
[18:41:39.676] }
[18:41:39.677] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.677] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.678] 
[18:41:39.678] getGlobalsAndPackages() ... DONE
[18:41:39.678] run() for 'Future' ...
[18:41:39.678] - state: 'created'
[18:41:39.679] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.694] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.694] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.694]   - Field: 'node'
[18:41:39.695]   - Field: 'label'
[18:41:39.695]   - Field: 'local'
[18:41:39.695]   - Field: 'owner'
[18:41:39.695]   - Field: 'envir'
[18:41:39.695]   - Field: 'workers'
[18:41:39.695]   - Field: 'packages'
[18:41:39.696]   - Field: 'gc'
[18:41:39.696]   - Field: 'conditions'
[18:41:39.696]   - Field: 'persistent'
[18:41:39.696]   - Field: 'expr'
[18:41:39.696]   - Field: 'uuid'
[18:41:39.697]   - Field: 'seed'
[18:41:39.697]   - Field: 'version'
[18:41:39.697]   - Field: 'result'
[18:41:39.697]   - Field: 'asynchronous'
[18:41:39.697]   - Field: 'calls'
[18:41:39.697]   - Field: 'globals'
[18:41:39.698]   - Field: 'stdout'
[18:41:39.698]   - Field: 'earlySignal'
[18:41:39.698]   - Field: 'lazy'
[18:41:39.698]   - Field: 'state'
[18:41:39.698] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.698] - Launch lazy future ...
[18:41:39.699] Packages needed by the future expression (n = 0): <none>
[18:41:39.699] Packages needed by future strategies (n = 0): <none>
[18:41:39.700] {
[18:41:39.700]     {
[18:41:39.700]         {
[18:41:39.700]             ...future.startTime <- base::Sys.time()
[18:41:39.700]             {
[18:41:39.700]                 {
[18:41:39.700]                   {
[18:41:39.700]                     {
[18:41:39.700]                       base::local({
[18:41:39.700]                         has_future <- base::requireNamespace("future", 
[18:41:39.700]                           quietly = TRUE)
[18:41:39.700]                         if (has_future) {
[18:41:39.700]                           ns <- base::getNamespace("future")
[18:41:39.700]                           version <- ns[[".package"]][["version"]]
[18:41:39.700]                           if (is.null(version)) 
[18:41:39.700]                             version <- utils::packageVersion("future")
[18:41:39.700]                         }
[18:41:39.700]                         else {
[18:41:39.700]                           version <- NULL
[18:41:39.700]                         }
[18:41:39.700]                         if (!has_future || version < "1.8.0") {
[18:41:39.700]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.700]                             "", base::R.version$version.string), 
[18:41:39.700]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.700]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.700]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.700]                               "release", "version")], collapse = " "), 
[18:41:39.700]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.700]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.700]                             info)
[18:41:39.700]                           info <- base::paste(info, collapse = "; ")
[18:41:39.700]                           if (!has_future) {
[18:41:39.700]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.700]                               info)
[18:41:39.700]                           }
[18:41:39.700]                           else {
[18:41:39.700]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.700]                               info, version)
[18:41:39.700]                           }
[18:41:39.700]                           base::stop(msg)
[18:41:39.700]                         }
[18:41:39.700]                       })
[18:41:39.700]                     }
[18:41:39.700]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.700]                     base::options(mc.cores = 1L)
[18:41:39.700]                   }
[18:41:39.700]                   ...future.strategy.old <- future::plan("list")
[18:41:39.700]                   options(future.plan = NULL)
[18:41:39.700]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.700]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.700]                 }
[18:41:39.700]                 ...future.workdir <- getwd()
[18:41:39.700]             }
[18:41:39.700]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.700]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.700]         }
[18:41:39.700]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.700]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.700]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.700]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.700]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.700]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.700]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.700]             base::names(...future.oldOptions))
[18:41:39.700]     }
[18:41:39.700]     if (FALSE) {
[18:41:39.700]     }
[18:41:39.700]     else {
[18:41:39.700]         if (TRUE) {
[18:41:39.700]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.700]                 open = "w")
[18:41:39.700]         }
[18:41:39.700]         else {
[18:41:39.700]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.700]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.700]         }
[18:41:39.700]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.700]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.700]             base::sink(type = "output", split = FALSE)
[18:41:39.700]             base::close(...future.stdout)
[18:41:39.700]         }, add = TRUE)
[18:41:39.700]     }
[18:41:39.700]     ...future.frame <- base::sys.nframe()
[18:41:39.700]     ...future.conditions <- base::list()
[18:41:39.700]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.700]     if (FALSE) {
[18:41:39.700]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.700]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.700]     }
[18:41:39.700]     ...future.result <- base::tryCatch({
[18:41:39.700]         base::withCallingHandlers({
[18:41:39.700]             ...future.value <- base::withVisible(base::local({
[18:41:39.700]                 ...future.makeSendCondition <- base::local({
[18:41:39.700]                   sendCondition <- NULL
[18:41:39.700]                   function(frame = 1L) {
[18:41:39.700]                     if (is.function(sendCondition)) 
[18:41:39.700]                       return(sendCondition)
[18:41:39.700]                     ns <- getNamespace("parallel")
[18:41:39.700]                     if (exists("sendData", mode = "function", 
[18:41:39.700]                       envir = ns)) {
[18:41:39.700]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.700]                         envir = ns)
[18:41:39.700]                       envir <- sys.frame(frame)
[18:41:39.700]                       master <- NULL
[18:41:39.700]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.700]                         !identical(envir, emptyenv())) {
[18:41:39.700]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.700]                           inherits = FALSE)) {
[18:41:39.700]                           master <- get("master", mode = "list", 
[18:41:39.700]                             envir = envir, inherits = FALSE)
[18:41:39.700]                           if (inherits(master, c("SOCKnode", 
[18:41:39.700]                             "SOCK0node"))) {
[18:41:39.700]                             sendCondition <<- function(cond) {
[18:41:39.700]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.700]                                 success = TRUE)
[18:41:39.700]                               parallel_sendData(master, data)
[18:41:39.700]                             }
[18:41:39.700]                             return(sendCondition)
[18:41:39.700]                           }
[18:41:39.700]                         }
[18:41:39.700]                         frame <- frame + 1L
[18:41:39.700]                         envir <- sys.frame(frame)
[18:41:39.700]                       }
[18:41:39.700]                     }
[18:41:39.700]                     sendCondition <<- function(cond) NULL
[18:41:39.700]                   }
[18:41:39.700]                 })
[18:41:39.700]                 withCallingHandlers({
[18:41:39.700]                   {
[18:41:39.700]                     do.call(function(...) {
[18:41:39.700]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.700]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.700]                         ...future.globals.maxSize)) {
[18:41:39.700]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.700]                         on.exit(options(oopts), add = TRUE)
[18:41:39.700]                       }
[18:41:39.700]                       {
[18:41:39.700]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.700]                           FUN = function(jj) {
[18:41:39.700]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.700]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.700]                               envir = globalenv(), inherits = FALSE)
[18:41:39.700]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.700]                           })
[18:41:39.700]                       }
[18:41:39.700]                     }, args = future.call.arguments)
[18:41:39.700]                   }
[18:41:39.700]                 }, immediateCondition = function(cond) {
[18:41:39.700]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.700]                   sendCondition(cond)
[18:41:39.700]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.700]                   {
[18:41:39.700]                     inherits <- base::inherits
[18:41:39.700]                     invokeRestart <- base::invokeRestart
[18:41:39.700]                     is.null <- base::is.null
[18:41:39.700]                     muffled <- FALSE
[18:41:39.700]                     if (inherits(cond, "message")) {
[18:41:39.700]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.700]                       if (muffled) 
[18:41:39.700]                         invokeRestart("muffleMessage")
[18:41:39.700]                     }
[18:41:39.700]                     else if (inherits(cond, "warning")) {
[18:41:39.700]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.700]                       if (muffled) 
[18:41:39.700]                         invokeRestart("muffleWarning")
[18:41:39.700]                     }
[18:41:39.700]                     else if (inherits(cond, "condition")) {
[18:41:39.700]                       if (!is.null(pattern)) {
[18:41:39.700]                         computeRestarts <- base::computeRestarts
[18:41:39.700]                         grepl <- base::grepl
[18:41:39.700]                         restarts <- computeRestarts(cond)
[18:41:39.700]                         for (restart in restarts) {
[18:41:39.700]                           name <- restart$name
[18:41:39.700]                           if (is.null(name)) 
[18:41:39.700]                             next
[18:41:39.700]                           if (!grepl(pattern, name)) 
[18:41:39.700]                             next
[18:41:39.700]                           invokeRestart(restart)
[18:41:39.700]                           muffled <- TRUE
[18:41:39.700]                           break
[18:41:39.700]                         }
[18:41:39.700]                       }
[18:41:39.700]                     }
[18:41:39.700]                     invisible(muffled)
[18:41:39.700]                   }
[18:41:39.700]                   muffleCondition(cond)
[18:41:39.700]                 })
[18:41:39.700]             }))
[18:41:39.700]             future::FutureResult(value = ...future.value$value, 
[18:41:39.700]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.700]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.700]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.700]                     ...future.globalenv.names))
[18:41:39.700]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.700]         }, condition = base::local({
[18:41:39.700]             c <- base::c
[18:41:39.700]             inherits <- base::inherits
[18:41:39.700]             invokeRestart <- base::invokeRestart
[18:41:39.700]             length <- base::length
[18:41:39.700]             list <- base::list
[18:41:39.700]             seq.int <- base::seq.int
[18:41:39.700]             signalCondition <- base::signalCondition
[18:41:39.700]             sys.calls <- base::sys.calls
[18:41:39.700]             `[[` <- base::`[[`
[18:41:39.700]             `+` <- base::`+`
[18:41:39.700]             `<<-` <- base::`<<-`
[18:41:39.700]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.700]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.700]                   3L)]
[18:41:39.700]             }
[18:41:39.700]             function(cond) {
[18:41:39.700]                 is_error <- inherits(cond, "error")
[18:41:39.700]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.700]                   NULL)
[18:41:39.700]                 if (is_error) {
[18:41:39.700]                   sessionInformation <- function() {
[18:41:39.700]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.700]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.700]                       search = base::search(), system = base::Sys.info())
[18:41:39.700]                   }
[18:41:39.700]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.700]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.700]                     cond$call), session = sessionInformation(), 
[18:41:39.700]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.700]                   signalCondition(cond)
[18:41:39.700]                 }
[18:41:39.700]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.700]                 "immediateCondition"))) {
[18:41:39.700]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.700]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.700]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.700]                   if (TRUE && !signal) {
[18:41:39.700]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.700]                     {
[18:41:39.700]                       inherits <- base::inherits
[18:41:39.700]                       invokeRestart <- base::invokeRestart
[18:41:39.700]                       is.null <- base::is.null
[18:41:39.700]                       muffled <- FALSE
[18:41:39.700]                       if (inherits(cond, "message")) {
[18:41:39.700]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.700]                         if (muffled) 
[18:41:39.700]                           invokeRestart("muffleMessage")
[18:41:39.700]                       }
[18:41:39.700]                       else if (inherits(cond, "warning")) {
[18:41:39.700]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.700]                         if (muffled) 
[18:41:39.700]                           invokeRestart("muffleWarning")
[18:41:39.700]                       }
[18:41:39.700]                       else if (inherits(cond, "condition")) {
[18:41:39.700]                         if (!is.null(pattern)) {
[18:41:39.700]                           computeRestarts <- base::computeRestarts
[18:41:39.700]                           grepl <- base::grepl
[18:41:39.700]                           restarts <- computeRestarts(cond)
[18:41:39.700]                           for (restart in restarts) {
[18:41:39.700]                             name <- restart$name
[18:41:39.700]                             if (is.null(name)) 
[18:41:39.700]                               next
[18:41:39.700]                             if (!grepl(pattern, name)) 
[18:41:39.700]                               next
[18:41:39.700]                             invokeRestart(restart)
[18:41:39.700]                             muffled <- TRUE
[18:41:39.700]                             break
[18:41:39.700]                           }
[18:41:39.700]                         }
[18:41:39.700]                       }
[18:41:39.700]                       invisible(muffled)
[18:41:39.700]                     }
[18:41:39.700]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.700]                   }
[18:41:39.700]                 }
[18:41:39.700]                 else {
[18:41:39.700]                   if (TRUE) {
[18:41:39.700]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.700]                     {
[18:41:39.700]                       inherits <- base::inherits
[18:41:39.700]                       invokeRestart <- base::invokeRestart
[18:41:39.700]                       is.null <- base::is.null
[18:41:39.700]                       muffled <- FALSE
[18:41:39.700]                       if (inherits(cond, "message")) {
[18:41:39.700]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.700]                         if (muffled) 
[18:41:39.700]                           invokeRestart("muffleMessage")
[18:41:39.700]                       }
[18:41:39.700]                       else if (inherits(cond, "warning")) {
[18:41:39.700]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.700]                         if (muffled) 
[18:41:39.700]                           invokeRestart("muffleWarning")
[18:41:39.700]                       }
[18:41:39.700]                       else if (inherits(cond, "condition")) {
[18:41:39.700]                         if (!is.null(pattern)) {
[18:41:39.700]                           computeRestarts <- base::computeRestarts
[18:41:39.700]                           grepl <- base::grepl
[18:41:39.700]                           restarts <- computeRestarts(cond)
[18:41:39.700]                           for (restart in restarts) {
[18:41:39.700]                             name <- restart$name
[18:41:39.700]                             if (is.null(name)) 
[18:41:39.700]                               next
[18:41:39.700]                             if (!grepl(pattern, name)) 
[18:41:39.700]                               next
[18:41:39.700]                             invokeRestart(restart)
[18:41:39.700]                             muffled <- TRUE
[18:41:39.700]                             break
[18:41:39.700]                           }
[18:41:39.700]                         }
[18:41:39.700]                       }
[18:41:39.700]                       invisible(muffled)
[18:41:39.700]                     }
[18:41:39.700]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.700]                   }
[18:41:39.700]                 }
[18:41:39.700]             }
[18:41:39.700]         }))
[18:41:39.700]     }, error = function(ex) {
[18:41:39.700]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.700]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.700]                 ...future.rng), started = ...future.startTime, 
[18:41:39.700]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.700]             version = "1.8"), class = "FutureResult")
[18:41:39.700]     }, finally = {
[18:41:39.700]         if (!identical(...future.workdir, getwd())) 
[18:41:39.700]             setwd(...future.workdir)
[18:41:39.700]         {
[18:41:39.700]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.700]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.700]             }
[18:41:39.700]             base::options(...future.oldOptions)
[18:41:39.700]             if (.Platform$OS.type == "windows") {
[18:41:39.700]                 old_names <- names(...future.oldEnvVars)
[18:41:39.700]                 envs <- base::Sys.getenv()
[18:41:39.700]                 names <- names(envs)
[18:41:39.700]                 common <- intersect(names, old_names)
[18:41:39.700]                 added <- setdiff(names, old_names)
[18:41:39.700]                 removed <- setdiff(old_names, names)
[18:41:39.700]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.700]                   envs[common]]
[18:41:39.700]                 NAMES <- toupper(changed)
[18:41:39.700]                 args <- list()
[18:41:39.700]                 for (kk in seq_along(NAMES)) {
[18:41:39.700]                   name <- changed[[kk]]
[18:41:39.700]                   NAME <- NAMES[[kk]]
[18:41:39.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.700]                     next
[18:41:39.700]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.700]                 }
[18:41:39.700]                 NAMES <- toupper(added)
[18:41:39.700]                 for (kk in seq_along(NAMES)) {
[18:41:39.700]                   name <- added[[kk]]
[18:41:39.700]                   NAME <- NAMES[[kk]]
[18:41:39.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.700]                     next
[18:41:39.700]                   args[[name]] <- ""
[18:41:39.700]                 }
[18:41:39.700]                 NAMES <- toupper(removed)
[18:41:39.700]                 for (kk in seq_along(NAMES)) {
[18:41:39.700]                   name <- removed[[kk]]
[18:41:39.700]                   NAME <- NAMES[[kk]]
[18:41:39.700]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.700]                     next
[18:41:39.700]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.700]                 }
[18:41:39.700]                 if (length(args) > 0) 
[18:41:39.700]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.700]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.700]             }
[18:41:39.700]             else {
[18:41:39.700]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.700]             }
[18:41:39.700]             {
[18:41:39.700]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.700]                   0L) {
[18:41:39.700]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.700]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.700]                   base::options(opts)
[18:41:39.700]                 }
[18:41:39.700]                 {
[18:41:39.700]                   {
[18:41:39.700]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.700]                     NULL
[18:41:39.700]                   }
[18:41:39.700]                   options(future.plan = NULL)
[18:41:39.700]                   if (is.na(NA_character_)) 
[18:41:39.700]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.700]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.700]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.700]                     .init = FALSE)
[18:41:39.700]                 }
[18:41:39.700]             }
[18:41:39.700]         }
[18:41:39.700]     })
[18:41:39.700]     if (TRUE) {
[18:41:39.700]         base::sink(type = "output", split = FALSE)
[18:41:39.700]         if (TRUE) {
[18:41:39.700]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.700]         }
[18:41:39.700]         else {
[18:41:39.700]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.700]         }
[18:41:39.700]         base::close(...future.stdout)
[18:41:39.700]         ...future.stdout <- NULL
[18:41:39.700]     }
[18:41:39.700]     ...future.result$conditions <- ...future.conditions
[18:41:39.700]     ...future.result$finished <- base::Sys.time()
[18:41:39.700]     ...future.result
[18:41:39.700] }
[18:41:39.705] Exporting 5 global objects (890 bytes) to cluster node #1 ...
[18:41:39.705] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.706] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.706] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.706] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.706] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.707] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.707] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.707] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.707] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.708] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.708] Exporting 5 global objects (890 bytes) to cluster node #1 ... DONE
[18:41:39.709] MultisessionFuture started
[18:41:39.709] - Launch lazy future ... done
[18:41:39.709] run() for 'MultisessionFuture' ... done
[18:41:39.709] Created future:
[18:41:39.722] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.723] - Validating connection of MultisessionFuture
[18:41:39.723] - received message: FutureResult
[18:41:39.723] - Received FutureResult
[18:41:39.723] - Erased future from FutureRegistry
[18:41:39.723] result() for ClusterFuture ...
[18:41:39.724] - result already collected: FutureResult
[18:41:39.724] result() for ClusterFuture ... done
[18:41:39.724] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.709] MultisessionFuture:
[18:41:39.709] Label: 'future_replicate-1'
[18:41:39.709] Expression:
[18:41:39.709] {
[18:41:39.709]     do.call(function(...) {
[18:41:39.709]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.709]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.709]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.709]             on.exit(options(oopts), add = TRUE)
[18:41:39.709]         }
[18:41:39.709]         {
[18:41:39.709]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.709]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.709]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.709]                   envir = globalenv(), inherits = FALSE)
[18:41:39.709]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.709]             })
[18:41:39.709]         }
[18:41:39.709]     }, args = future.call.arguments)
[18:41:39.709] }
[18:41:39.709] Lazy evaluation: FALSE
[18:41:39.709] Asynchronous evaluation: TRUE
[18:41:39.709] Local evaluation: TRUE
[18:41:39.709] Environment: R_GlobalEnv
[18:41:39.709] Capture standard output: TRUE
[18:41:39.709] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.709] Globals: 5 objects totaling 414 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, list '...future.seeds_ii' of 103 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.709] Packages: <none>
[18:41:39.709] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.709] Resolved: TRUE
[18:41:39.709] Value: <not collected>
[18:41:39.709] Conditions captured: <none>
[18:41:39.709] Early signaling: FALSE
[18:41:39.709] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.709] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.724] Chunk #1 of 2 ... DONE
[18:41:39.725] Chunk #2 of 2 ...
[18:41:39.725]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.725] getGlobalsAndPackages() ...
[18:41:39.725] Searching for globals...
[18:41:39.725] 
[18:41:39.726] Searching for globals ... DONE
[18:41:39.726] - globals: [0] <none>
[18:41:39.726] getGlobalsAndPackages() ... DONE
[18:41:39.726]    + additional globals found: [n=0] 
[18:41:39.726]    + additional namespaces needed: [n=0] 
[18:41:39.726]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.726]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.727]  - seeds: [3] <seeds>
[18:41:39.727]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.727] getGlobalsAndPackages() ...
[18:41:39.727] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.727] Resolving globals: FALSE
[18:41:39.728] Tweak future expression to call with '...' arguments ...
[18:41:39.728] {
[18:41:39.728]     do.call(function(...) {
[18:41:39.728]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.728]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.728]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.728]             on.exit(options(oopts), add = TRUE)
[18:41:39.728]         }
[18:41:39.728]         {
[18:41:39.728]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.728]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.728]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.728]                   envir = globalenv(), inherits = FALSE)
[18:41:39.728]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.728]             })
[18:41:39.728]         }
[18:41:39.728]     }, args = future.call.arguments)
[18:41:39.728] }
[18:41:39.728] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.729] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.729] 
[18:41:39.729] getGlobalsAndPackages() ... DONE
[18:41:39.729] run() for 'Future' ...
[18:41:39.730] - state: 'created'
[18:41:39.730] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.745] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.745] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.746]   - Field: 'node'
[18:41:39.746]   - Field: 'label'
[18:41:39.746]   - Field: 'local'
[18:41:39.746]   - Field: 'owner'
[18:41:39.746]   - Field: 'envir'
[18:41:39.747]   - Field: 'workers'
[18:41:39.747]   - Field: 'packages'
[18:41:39.747]   - Field: 'gc'
[18:41:39.747]   - Field: 'conditions'
[18:41:39.747]   - Field: 'persistent'
[18:41:39.747]   - Field: 'expr'
[18:41:39.748]   - Field: 'uuid'
[18:41:39.748]   - Field: 'seed'
[18:41:39.748]   - Field: 'version'
[18:41:39.748]   - Field: 'result'
[18:41:39.748]   - Field: 'asynchronous'
[18:41:39.748]   - Field: 'calls'
[18:41:39.749]   - Field: 'globals'
[18:41:39.749]   - Field: 'stdout'
[18:41:39.749]   - Field: 'earlySignal'
[18:41:39.749]   - Field: 'lazy'
[18:41:39.749]   - Field: 'state'
[18:41:39.749] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.750] - Launch lazy future ...
[18:41:39.750] Packages needed by the future expression (n = 0): <none>
[18:41:39.750] Packages needed by future strategies (n = 0): <none>
[18:41:39.751] {
[18:41:39.751]     {
[18:41:39.751]         {
[18:41:39.751]             ...future.startTime <- base::Sys.time()
[18:41:39.751]             {
[18:41:39.751]                 {
[18:41:39.751]                   {
[18:41:39.751]                     {
[18:41:39.751]                       base::local({
[18:41:39.751]                         has_future <- base::requireNamespace("future", 
[18:41:39.751]                           quietly = TRUE)
[18:41:39.751]                         if (has_future) {
[18:41:39.751]                           ns <- base::getNamespace("future")
[18:41:39.751]                           version <- ns[[".package"]][["version"]]
[18:41:39.751]                           if (is.null(version)) 
[18:41:39.751]                             version <- utils::packageVersion("future")
[18:41:39.751]                         }
[18:41:39.751]                         else {
[18:41:39.751]                           version <- NULL
[18:41:39.751]                         }
[18:41:39.751]                         if (!has_future || version < "1.8.0") {
[18:41:39.751]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.751]                             "", base::R.version$version.string), 
[18:41:39.751]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.751]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.751]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.751]                               "release", "version")], collapse = " "), 
[18:41:39.751]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.751]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.751]                             info)
[18:41:39.751]                           info <- base::paste(info, collapse = "; ")
[18:41:39.751]                           if (!has_future) {
[18:41:39.751]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.751]                               info)
[18:41:39.751]                           }
[18:41:39.751]                           else {
[18:41:39.751]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.751]                               info, version)
[18:41:39.751]                           }
[18:41:39.751]                           base::stop(msg)
[18:41:39.751]                         }
[18:41:39.751]                       })
[18:41:39.751]                     }
[18:41:39.751]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.751]                     base::options(mc.cores = 1L)
[18:41:39.751]                   }
[18:41:39.751]                   ...future.strategy.old <- future::plan("list")
[18:41:39.751]                   options(future.plan = NULL)
[18:41:39.751]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.751]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.751]                 }
[18:41:39.751]                 ...future.workdir <- getwd()
[18:41:39.751]             }
[18:41:39.751]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.751]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.751]         }
[18:41:39.751]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.751]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.751]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.751]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.751]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.751]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.751]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.751]             base::names(...future.oldOptions))
[18:41:39.751]     }
[18:41:39.751]     if (FALSE) {
[18:41:39.751]     }
[18:41:39.751]     else {
[18:41:39.751]         if (TRUE) {
[18:41:39.751]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.751]                 open = "w")
[18:41:39.751]         }
[18:41:39.751]         else {
[18:41:39.751]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.751]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.751]         }
[18:41:39.751]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.751]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.751]             base::sink(type = "output", split = FALSE)
[18:41:39.751]             base::close(...future.stdout)
[18:41:39.751]         }, add = TRUE)
[18:41:39.751]     }
[18:41:39.751]     ...future.frame <- base::sys.nframe()
[18:41:39.751]     ...future.conditions <- base::list()
[18:41:39.751]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.751]     if (FALSE) {
[18:41:39.751]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.751]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.751]     }
[18:41:39.751]     ...future.result <- base::tryCatch({
[18:41:39.751]         base::withCallingHandlers({
[18:41:39.751]             ...future.value <- base::withVisible(base::local({
[18:41:39.751]                 ...future.makeSendCondition <- base::local({
[18:41:39.751]                   sendCondition <- NULL
[18:41:39.751]                   function(frame = 1L) {
[18:41:39.751]                     if (is.function(sendCondition)) 
[18:41:39.751]                       return(sendCondition)
[18:41:39.751]                     ns <- getNamespace("parallel")
[18:41:39.751]                     if (exists("sendData", mode = "function", 
[18:41:39.751]                       envir = ns)) {
[18:41:39.751]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.751]                         envir = ns)
[18:41:39.751]                       envir <- sys.frame(frame)
[18:41:39.751]                       master <- NULL
[18:41:39.751]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.751]                         !identical(envir, emptyenv())) {
[18:41:39.751]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.751]                           inherits = FALSE)) {
[18:41:39.751]                           master <- get("master", mode = "list", 
[18:41:39.751]                             envir = envir, inherits = FALSE)
[18:41:39.751]                           if (inherits(master, c("SOCKnode", 
[18:41:39.751]                             "SOCK0node"))) {
[18:41:39.751]                             sendCondition <<- function(cond) {
[18:41:39.751]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.751]                                 success = TRUE)
[18:41:39.751]                               parallel_sendData(master, data)
[18:41:39.751]                             }
[18:41:39.751]                             return(sendCondition)
[18:41:39.751]                           }
[18:41:39.751]                         }
[18:41:39.751]                         frame <- frame + 1L
[18:41:39.751]                         envir <- sys.frame(frame)
[18:41:39.751]                       }
[18:41:39.751]                     }
[18:41:39.751]                     sendCondition <<- function(cond) NULL
[18:41:39.751]                   }
[18:41:39.751]                 })
[18:41:39.751]                 withCallingHandlers({
[18:41:39.751]                   {
[18:41:39.751]                     do.call(function(...) {
[18:41:39.751]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.751]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.751]                         ...future.globals.maxSize)) {
[18:41:39.751]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.751]                         on.exit(options(oopts), add = TRUE)
[18:41:39.751]                       }
[18:41:39.751]                       {
[18:41:39.751]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.751]                           FUN = function(jj) {
[18:41:39.751]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.751]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.751]                               envir = globalenv(), inherits = FALSE)
[18:41:39.751]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.751]                           })
[18:41:39.751]                       }
[18:41:39.751]                     }, args = future.call.arguments)
[18:41:39.751]                   }
[18:41:39.751]                 }, immediateCondition = function(cond) {
[18:41:39.751]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.751]                   sendCondition(cond)
[18:41:39.751]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.751]                   {
[18:41:39.751]                     inherits <- base::inherits
[18:41:39.751]                     invokeRestart <- base::invokeRestart
[18:41:39.751]                     is.null <- base::is.null
[18:41:39.751]                     muffled <- FALSE
[18:41:39.751]                     if (inherits(cond, "message")) {
[18:41:39.751]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.751]                       if (muffled) 
[18:41:39.751]                         invokeRestart("muffleMessage")
[18:41:39.751]                     }
[18:41:39.751]                     else if (inherits(cond, "warning")) {
[18:41:39.751]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.751]                       if (muffled) 
[18:41:39.751]                         invokeRestart("muffleWarning")
[18:41:39.751]                     }
[18:41:39.751]                     else if (inherits(cond, "condition")) {
[18:41:39.751]                       if (!is.null(pattern)) {
[18:41:39.751]                         computeRestarts <- base::computeRestarts
[18:41:39.751]                         grepl <- base::grepl
[18:41:39.751]                         restarts <- computeRestarts(cond)
[18:41:39.751]                         for (restart in restarts) {
[18:41:39.751]                           name <- restart$name
[18:41:39.751]                           if (is.null(name)) 
[18:41:39.751]                             next
[18:41:39.751]                           if (!grepl(pattern, name)) 
[18:41:39.751]                             next
[18:41:39.751]                           invokeRestart(restart)
[18:41:39.751]                           muffled <- TRUE
[18:41:39.751]                           break
[18:41:39.751]                         }
[18:41:39.751]                       }
[18:41:39.751]                     }
[18:41:39.751]                     invisible(muffled)
[18:41:39.751]                   }
[18:41:39.751]                   muffleCondition(cond)
[18:41:39.751]                 })
[18:41:39.751]             }))
[18:41:39.751]             future::FutureResult(value = ...future.value$value, 
[18:41:39.751]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.751]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.751]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.751]                     ...future.globalenv.names))
[18:41:39.751]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.751]         }, condition = base::local({
[18:41:39.751]             c <- base::c
[18:41:39.751]             inherits <- base::inherits
[18:41:39.751]             invokeRestart <- base::invokeRestart
[18:41:39.751]             length <- base::length
[18:41:39.751]             list <- base::list
[18:41:39.751]             seq.int <- base::seq.int
[18:41:39.751]             signalCondition <- base::signalCondition
[18:41:39.751]             sys.calls <- base::sys.calls
[18:41:39.751]             `[[` <- base::`[[`
[18:41:39.751]             `+` <- base::`+`
[18:41:39.751]             `<<-` <- base::`<<-`
[18:41:39.751]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.751]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.751]                   3L)]
[18:41:39.751]             }
[18:41:39.751]             function(cond) {
[18:41:39.751]                 is_error <- inherits(cond, "error")
[18:41:39.751]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.751]                   NULL)
[18:41:39.751]                 if (is_error) {
[18:41:39.751]                   sessionInformation <- function() {
[18:41:39.751]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.751]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.751]                       search = base::search(), system = base::Sys.info())
[18:41:39.751]                   }
[18:41:39.751]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.751]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.751]                     cond$call), session = sessionInformation(), 
[18:41:39.751]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.751]                   signalCondition(cond)
[18:41:39.751]                 }
[18:41:39.751]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.751]                 "immediateCondition"))) {
[18:41:39.751]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.751]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.751]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.751]                   if (TRUE && !signal) {
[18:41:39.751]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.751]                     {
[18:41:39.751]                       inherits <- base::inherits
[18:41:39.751]                       invokeRestart <- base::invokeRestart
[18:41:39.751]                       is.null <- base::is.null
[18:41:39.751]                       muffled <- FALSE
[18:41:39.751]                       if (inherits(cond, "message")) {
[18:41:39.751]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.751]                         if (muffled) 
[18:41:39.751]                           invokeRestart("muffleMessage")
[18:41:39.751]                       }
[18:41:39.751]                       else if (inherits(cond, "warning")) {
[18:41:39.751]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.751]                         if (muffled) 
[18:41:39.751]                           invokeRestart("muffleWarning")
[18:41:39.751]                       }
[18:41:39.751]                       else if (inherits(cond, "condition")) {
[18:41:39.751]                         if (!is.null(pattern)) {
[18:41:39.751]                           computeRestarts <- base::computeRestarts
[18:41:39.751]                           grepl <- base::grepl
[18:41:39.751]                           restarts <- computeRestarts(cond)
[18:41:39.751]                           for (restart in restarts) {
[18:41:39.751]                             name <- restart$name
[18:41:39.751]                             if (is.null(name)) 
[18:41:39.751]                               next
[18:41:39.751]                             if (!grepl(pattern, name)) 
[18:41:39.751]                               next
[18:41:39.751]                             invokeRestart(restart)
[18:41:39.751]                             muffled <- TRUE
[18:41:39.751]                             break
[18:41:39.751]                           }
[18:41:39.751]                         }
[18:41:39.751]                       }
[18:41:39.751]                       invisible(muffled)
[18:41:39.751]                     }
[18:41:39.751]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.751]                   }
[18:41:39.751]                 }
[18:41:39.751]                 else {
[18:41:39.751]                   if (TRUE) {
[18:41:39.751]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.751]                     {
[18:41:39.751]                       inherits <- base::inherits
[18:41:39.751]                       invokeRestart <- base::invokeRestart
[18:41:39.751]                       is.null <- base::is.null
[18:41:39.751]                       muffled <- FALSE
[18:41:39.751]                       if (inherits(cond, "message")) {
[18:41:39.751]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.751]                         if (muffled) 
[18:41:39.751]                           invokeRestart("muffleMessage")
[18:41:39.751]                       }
[18:41:39.751]                       else if (inherits(cond, "warning")) {
[18:41:39.751]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.751]                         if (muffled) 
[18:41:39.751]                           invokeRestart("muffleWarning")
[18:41:39.751]                       }
[18:41:39.751]                       else if (inherits(cond, "condition")) {
[18:41:39.751]                         if (!is.null(pattern)) {
[18:41:39.751]                           computeRestarts <- base::computeRestarts
[18:41:39.751]                           grepl <- base::grepl
[18:41:39.751]                           restarts <- computeRestarts(cond)
[18:41:39.751]                           for (restart in restarts) {
[18:41:39.751]                             name <- restart$name
[18:41:39.751]                             if (is.null(name)) 
[18:41:39.751]                               next
[18:41:39.751]                             if (!grepl(pattern, name)) 
[18:41:39.751]                               next
[18:41:39.751]                             invokeRestart(restart)
[18:41:39.751]                             muffled <- TRUE
[18:41:39.751]                             break
[18:41:39.751]                           }
[18:41:39.751]                         }
[18:41:39.751]                       }
[18:41:39.751]                       invisible(muffled)
[18:41:39.751]                     }
[18:41:39.751]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.751]                   }
[18:41:39.751]                 }
[18:41:39.751]             }
[18:41:39.751]         }))
[18:41:39.751]     }, error = function(ex) {
[18:41:39.751]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.751]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.751]                 ...future.rng), started = ...future.startTime, 
[18:41:39.751]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.751]             version = "1.8"), class = "FutureResult")
[18:41:39.751]     }, finally = {
[18:41:39.751]         if (!identical(...future.workdir, getwd())) 
[18:41:39.751]             setwd(...future.workdir)
[18:41:39.751]         {
[18:41:39.751]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.751]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.751]             }
[18:41:39.751]             base::options(...future.oldOptions)
[18:41:39.751]             if (.Platform$OS.type == "windows") {
[18:41:39.751]                 old_names <- names(...future.oldEnvVars)
[18:41:39.751]                 envs <- base::Sys.getenv()
[18:41:39.751]                 names <- names(envs)
[18:41:39.751]                 common <- intersect(names, old_names)
[18:41:39.751]                 added <- setdiff(names, old_names)
[18:41:39.751]                 removed <- setdiff(old_names, names)
[18:41:39.751]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.751]                   envs[common]]
[18:41:39.751]                 NAMES <- toupper(changed)
[18:41:39.751]                 args <- list()
[18:41:39.751]                 for (kk in seq_along(NAMES)) {
[18:41:39.751]                   name <- changed[[kk]]
[18:41:39.751]                   NAME <- NAMES[[kk]]
[18:41:39.751]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.751]                     next
[18:41:39.751]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.751]                 }
[18:41:39.751]                 NAMES <- toupper(added)
[18:41:39.751]                 for (kk in seq_along(NAMES)) {
[18:41:39.751]                   name <- added[[kk]]
[18:41:39.751]                   NAME <- NAMES[[kk]]
[18:41:39.751]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.751]                     next
[18:41:39.751]                   args[[name]] <- ""
[18:41:39.751]                 }
[18:41:39.751]                 NAMES <- toupper(removed)
[18:41:39.751]                 for (kk in seq_along(NAMES)) {
[18:41:39.751]                   name <- removed[[kk]]
[18:41:39.751]                   NAME <- NAMES[[kk]]
[18:41:39.751]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.751]                     next
[18:41:39.751]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.751]                 }
[18:41:39.751]                 if (length(args) > 0) 
[18:41:39.751]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.751]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.751]             }
[18:41:39.751]             else {
[18:41:39.751]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.751]             }
[18:41:39.751]             {
[18:41:39.751]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.751]                   0L) {
[18:41:39.751]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.751]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.751]                   base::options(opts)
[18:41:39.751]                 }
[18:41:39.751]                 {
[18:41:39.751]                   {
[18:41:39.751]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.751]                     NULL
[18:41:39.751]                   }
[18:41:39.751]                   options(future.plan = NULL)
[18:41:39.751]                   if (is.na(NA_character_)) 
[18:41:39.751]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.751]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.751]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.751]                     .init = FALSE)
[18:41:39.751]                 }
[18:41:39.751]             }
[18:41:39.751]         }
[18:41:39.751]     })
[18:41:39.751]     if (TRUE) {
[18:41:39.751]         base::sink(type = "output", split = FALSE)
[18:41:39.751]         if (TRUE) {
[18:41:39.751]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.751]         }
[18:41:39.751]         else {
[18:41:39.751]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.751]         }
[18:41:39.751]         base::close(...future.stdout)
[18:41:39.751]         ...future.stdout <- NULL
[18:41:39.751]     }
[18:41:39.751]     ...future.result$conditions <- ...future.conditions
[18:41:39.751]     ...future.result$finished <- base::Sys.time()
[18:41:39.751]     ...future.result
[18:41:39.751] }
[18:41:39.756] Exporting 5 global objects (938 bytes) to cluster node #1 ...
[18:41:39.756] Exporting '...future.FUN' (132 bytes) to cluster node #1 ...
[18:41:39.757] Exporting '...future.FUN' (132 bytes) to cluster node #1 ... DONE
[18:41:39.757] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.757] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.757] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.758] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.758] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.759] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.759] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.759] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.759] Exporting 5 global objects (938 bytes) to cluster node #1 ... DONE
[18:41:39.760] MultisessionFuture started
[18:41:39.760] - Launch lazy future ... done
[18:41:39.760] run() for 'MultisessionFuture' ... done
[18:41:39.760] Created future:
[18:41:39.775] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.775] - Validating connection of MultisessionFuture
[18:41:39.776] - received message: FutureResult
[18:41:39.776] - Received FutureResult
[18:41:39.776] - Erased future from FutureRegistry
[18:41:39.776] result() for ClusterFuture ...
[18:41:39.776] - result already collected: FutureResult
[18:41:39.777] result() for ClusterFuture ... done
[18:41:39.777] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.761] MultisessionFuture:
[18:41:39.761] Label: 'future_replicate-2'
[18:41:39.761] Expression:
[18:41:39.761] {
[18:41:39.761]     do.call(function(...) {
[18:41:39.761]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.761]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.761]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.761]             on.exit(options(oopts), add = TRUE)
[18:41:39.761]         }
[18:41:39.761]         {
[18:41:39.761]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.761]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.761]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.761]                   envir = globalenv(), inherits = FALSE)
[18:41:39.761]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.761]             })
[18:41:39.761]         }
[18:41:39.761]     }, args = future.call.arguments)
[18:41:39.761] }
[18:41:39.761] Lazy evaluation: FALSE
[18:41:39.761] Asynchronous evaluation: TRUE
[18:41:39.761] Local evaluation: TRUE
[18:41:39.761] Environment: R_GlobalEnv
[18:41:39.761] Capture standard output: TRUE
[18:41:39.761] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.761] Globals: 5 objects totaling 462 bytes (function '...future.FUN' of 132 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, list '...future.seeds_ii' of 139 bytes, NULL '...future.globals.maxSize' of 27 bytes)
[18:41:39.761] Packages: <none>
[18:41:39.761] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.761] Resolved: TRUE
[18:41:39.761] Value: <not collected>
[18:41:39.761] Conditions captured: <none>
[18:41:39.761] Early signaling: FALSE
[18:41:39.761] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.761] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.777] Chunk #2 of 2 ... DONE
[18:41:39.777] Launching 2 futures (chunks) ... DONE
[18:41:39.778] Resolving 2 futures (chunks) ...
[18:41:39.778] resolve() on list ...
[18:41:39.778]  recursive: 0
[18:41:39.778]  length: 2
[18:41:39.778] 
[18:41:39.778] Future #1
[18:41:39.778] result() for ClusterFuture ...
[18:41:39.779] - result already collected: FutureResult
[18:41:39.779] result() for ClusterFuture ... done
[18:41:39.779] result() for ClusterFuture ...
[18:41:39.779] - result already collected: FutureResult
[18:41:39.779] result() for ClusterFuture ... done
[18:41:39.779] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.780] - nx: 2
[18:41:39.780] - relay: TRUE
[18:41:39.780] - stdout: TRUE
[18:41:39.780] - signal: TRUE
[18:41:39.780] - resignal: FALSE
[18:41:39.780] - force: TRUE
[18:41:39.780] - relayed: [n=2] FALSE, FALSE
[18:41:39.781] - queued futures: [n=2] FALSE, FALSE
[18:41:39.781]  - until=1
[18:41:39.781]  - relaying element #1
[18:41:39.781] result() for ClusterFuture ...
[18:41:39.781] - result already collected: FutureResult
[18:41:39.781] result() for ClusterFuture ... done
[18:41:39.782] result() for ClusterFuture ...
[18:41:39.782] - result already collected: FutureResult
[18:41:39.782] result() for ClusterFuture ... done
[18:41:39.782] result() for ClusterFuture ...
[18:41:39.782] - result already collected: FutureResult
[18:41:39.782] result() for ClusterFuture ... done
[18:41:39.783] result() for ClusterFuture ...
[18:41:39.783] - result already collected: FutureResult
[18:41:39.783] result() for ClusterFuture ... done
[18:41:39.783] - relayed: [n=2] TRUE, FALSE
[18:41:39.783] - queued futures: [n=2] TRUE, FALSE
[18:41:39.783] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.784]  length: 1 (resolved future 1)
[18:41:39.784] Future #2
[18:41:39.784] result() for ClusterFuture ...
[18:41:39.784] - result already collected: FutureResult
[18:41:39.784] result() for ClusterFuture ... done
[18:41:39.784] result() for ClusterFuture ...
[18:41:39.785] - result already collected: FutureResult
[18:41:39.785] result() for ClusterFuture ... done
[18:41:39.785] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.785] - nx: 2
[18:41:39.785] - relay: TRUE
[18:41:39.785] - stdout: TRUE
[18:41:39.785] - signal: TRUE
[18:41:39.786] - resignal: FALSE
[18:41:39.786] - force: TRUE
[18:41:39.786] - relayed: [n=2] TRUE, FALSE
[18:41:39.786] - queued futures: [n=2] TRUE, FALSE
[18:41:39.786]  - until=2
[18:41:39.786]  - relaying element #2
[18:41:39.787] result() for ClusterFuture ...
[18:41:39.787] - result already collected: FutureResult
[18:41:39.787] result() for ClusterFuture ... done
[18:41:39.787] result() for ClusterFuture ...
[18:41:39.787] - result already collected: FutureResult
[18:41:39.787] result() for ClusterFuture ... done
[18:41:39.787] result() for ClusterFuture ...
[18:41:39.788] - result already collected: FutureResult
[18:41:39.788] result() for ClusterFuture ... done
[18:41:39.788] result() for ClusterFuture ...
[18:41:39.788] - result already collected: FutureResult
[18:41:39.788] result() for ClusterFuture ... done
[18:41:39.788] - relayed: [n=2] TRUE, TRUE
[18:41:39.789] - queued futures: [n=2] TRUE, TRUE
[18:41:39.789] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.789]  length: 0 (resolved future 2)
[18:41:39.789] Relaying remaining futures
[18:41:39.789] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.789] - nx: 2
[18:41:39.789] - relay: TRUE
[18:41:39.790] - stdout: TRUE
[18:41:39.790] - signal: TRUE
[18:41:39.790] - resignal: FALSE
[18:41:39.790] - force: TRUE
[18:41:39.790] - relayed: [n=2] TRUE, TRUE
[18:41:39.790] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.791] - relayed: [n=2] TRUE, TRUE
[18:41:39.791] - queued futures: [n=2] TRUE, TRUE
[18:41:39.791] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.791] resolve() on list ... DONE
[18:41:39.791] result() for ClusterFuture ...
[18:41:39.791] - result already collected: FutureResult
[18:41:39.792] result() for ClusterFuture ... done
[18:41:39.792] result() for ClusterFuture ...
[18:41:39.792] - result already collected: FutureResult
[18:41:39.792] result() for ClusterFuture ... done
[18:41:39.792] result() for ClusterFuture ...
[18:41:39.792] - result already collected: FutureResult
[18:41:39.792] result() for ClusterFuture ... done
[18:41:39.793] result() for ClusterFuture ...
[18:41:39.793] - result already collected: FutureResult
[18:41:39.793] result() for ClusterFuture ... done
[18:41:39.793]  - Number of value chunks collected: 2
[18:41:39.793] Resolving 2 futures (chunks) ... DONE
[18:41:39.793] Reducing values from 2 chunks ...
[18:41:39.794]  - Number of values collected after concatenation: 5
[18:41:39.794]  - Number of values expected: 5
[18:41:39.794] Reducing values from 2 chunks ... DONE
[18:41:39.794] future_lapply() ... DONE
- example(replicate) ...
[18:41:39.794] future_lapply() ...
[18:41:39.795] Generating random seeds ...
[18:41:39.795] Generating random seed streams for 5 elements ...
[18:41:39.795] Generating random seed streams for 5 elements ... DONE
[18:41:39.796] Generating random seeds ... DONE
[18:41:39.796] 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
[18:41:39.799] Number of chunks: 2
[18:41:39.799] getGlobalsAndPackagesXApply() ...
[18:41:39.799]  - future.globals: TRUE
[18:41:39.799] getGlobalsAndPackages() ...
[18:41:39.800] Searching for globals...
[18:41:39.804] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[18:41:39.804] Searching for globals ... DONE
[18:41:39.804] Resolving globals: FALSE
[18:41:39.805] The total size of the 3 globals is 617 bytes (617 bytes)
[18:41:39.805] The total size of the 3 globals exported for future expression ('FUN()') is 617 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (399 bytes of class 'function'), 'FUN' (179 bytes of class 'function') and 'x' (39 bytes of class 'numeric')
[18:41:39.805] - globals: [3] 'FUN', 'foo', 'x'
[18:41:39.806] 
[18:41:39.806] getGlobalsAndPackages() ... DONE
[18:41:39.806]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[18:41:39.806]  - needed namespaces: [n=0] 
[18:41:39.806] Finding globals ... DONE
[18:41:39.806]  - use_args: TRUE
[18:41:39.807]  - Getting '...' globals ...
[18:41:39.807] resolve() on list ...
[18:41:39.807]  recursive: 0
[18:41:39.807]  length: 1
[18:41:39.808]  elements: '...'
[18:41:39.808]  length: 0 (resolved future 1)
[18:41:39.808] resolve() on list ... DONE
[18:41:39.808]    - '...' content: [n=0] 
[18:41:39.808] List of 1
[18:41:39.808]  $ ...: list()
[18:41:39.808]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.808]  - attr(*, "where")=List of 1
[18:41:39.808]   ..$ ...:<environment: 0x0000028c00391258> 
[18:41:39.808]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.808]  - attr(*, "resolved")= logi TRUE
[18:41:39.808]  - attr(*, "total_size")= num NA
[18:41:39.811]  - Getting '...' globals ... DONE
[18:41:39.811] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[18:41:39.812] List of 4
[18:41:39.812]  $ ...future.FUN:function (...)  
[18:41:39.812]  $ foo          :function (x = 1, y = 2)  
[18:41:39.812]  $ x            : num 3
[18:41:39.812]  $ ...          : list()
[18:41:39.812]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[18:41:39.812]  - attr(*, "where")=List of 4
[18:41:39.812]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[18:41:39.812]   ..$ foo          :<environment: R_EmptyEnv> 
[18:41:39.812]   ..$ x            :<environment: R_EmptyEnv> 
[18:41:39.812]   ..$ ...          :<environment: 0x0000028c00391258> 
[18:41:39.812]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[18:41:39.812]  - attr(*, "resolved")= logi FALSE
[18:41:39.812]  - attr(*, "total_size")= int 7967
[18:41:39.817] Packages to be attached in all futures: [n=0] 
[18:41:39.818] getGlobalsAndPackagesXApply() ... DONE
[18:41:39.818] Number of futures (= number of chunks): 2
[18:41:39.818] Launching 2 futures (chunks) ...
[18:41:39.818] Chunk #1 of 2 ...
[18:41:39.818]  - Finding globals in 'X' for chunk #1 ...
[18:41:39.819] getGlobalsAndPackages() ...
[18:41:39.819] Searching for globals...
[18:41:39.819] 
[18:41:39.819] Searching for globals ... DONE
[18:41:39.819] - globals: [0] <none>
[18:41:39.820] getGlobalsAndPackages() ... DONE
[18:41:39.820]    + additional globals found: [n=0] 
[18:41:39.820]    + additional namespaces needed: [n=0] 
[18:41:39.820]  - Finding globals in 'X' for chunk #1 ... DONE
[18:41:39.820]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.820]  - seeds: [2] <seeds>
[18:41:39.821]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.821] getGlobalsAndPackages() ...
[18:41:39.821] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.821] Resolving globals: FALSE
[18:41:39.821] Tweak future expression to call with '...' arguments ...
[18:41:39.821] {
[18:41:39.821]     do.call(function(...) {
[18:41:39.821]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.821]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.821]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.821]             on.exit(options(oopts), add = TRUE)
[18:41:39.821]         }
[18:41:39.821]         {
[18:41:39.821]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.821]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.821]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.821]                   envir = globalenv(), inherits = FALSE)
[18:41:39.821]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.821]             })
[18:41:39.821]         }
[18:41:39.821]     }, args = future.call.arguments)
[18:41:39.821] }
[18:41:39.822] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.822] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.823] 
[18:41:39.823] getGlobalsAndPackages() ... DONE
[18:41:39.823] run() for 'Future' ...
[18:41:39.823] - state: 'created'
[18:41:39.824] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.840] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.840] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.840]   - Field: 'node'
[18:41:39.840]   - Field: 'label'
[18:41:39.840]   - Field: 'local'
[18:41:39.841]   - Field: 'owner'
[18:41:39.841]   - Field: 'envir'
[18:41:39.841]   - Field: 'workers'
[18:41:39.841]   - Field: 'packages'
[18:41:39.841]   - Field: 'gc'
[18:41:39.841]   - Field: 'conditions'
[18:41:39.842]   - Field: 'persistent'
[18:41:39.842]   - Field: 'expr'
[18:41:39.842]   - Field: 'uuid'
[18:41:39.842]   - Field: 'seed'
[18:41:39.842]   - Field: 'version'
[18:41:39.842]   - Field: 'result'
[18:41:39.843]   - Field: 'asynchronous'
[18:41:39.843]   - Field: 'calls'
[18:41:39.843]   - Field: 'globals'
[18:41:39.843]   - Field: 'stdout'
[18:41:39.843]   - Field: 'earlySignal'
[18:41:39.844]   - Field: 'lazy'
[18:41:39.844]   - Field: 'state'
[18:41:39.844] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.844] - Launch lazy future ...
[18:41:39.844] Packages needed by the future expression (n = 0): <none>
[18:41:39.845] Packages needed by future strategies (n = 0): <none>
[18:41:39.845] {
[18:41:39.845]     {
[18:41:39.845]         {
[18:41:39.845]             ...future.startTime <- base::Sys.time()
[18:41:39.845]             {
[18:41:39.845]                 {
[18:41:39.845]                   {
[18:41:39.845]                     {
[18:41:39.845]                       base::local({
[18:41:39.845]                         has_future <- base::requireNamespace("future", 
[18:41:39.845]                           quietly = TRUE)
[18:41:39.845]                         if (has_future) {
[18:41:39.845]                           ns <- base::getNamespace("future")
[18:41:39.845]                           version <- ns[[".package"]][["version"]]
[18:41:39.845]                           if (is.null(version)) 
[18:41:39.845]                             version <- utils::packageVersion("future")
[18:41:39.845]                         }
[18:41:39.845]                         else {
[18:41:39.845]                           version <- NULL
[18:41:39.845]                         }
[18:41:39.845]                         if (!has_future || version < "1.8.0") {
[18:41:39.845]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.845]                             "", base::R.version$version.string), 
[18:41:39.845]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.845]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.845]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.845]                               "release", "version")], collapse = " "), 
[18:41:39.845]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.845]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.845]                             info)
[18:41:39.845]                           info <- base::paste(info, collapse = "; ")
[18:41:39.845]                           if (!has_future) {
[18:41:39.845]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.845]                               info)
[18:41:39.845]                           }
[18:41:39.845]                           else {
[18:41:39.845]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.845]                               info, version)
[18:41:39.845]                           }
[18:41:39.845]                           base::stop(msg)
[18:41:39.845]                         }
[18:41:39.845]                       })
[18:41:39.845]                     }
[18:41:39.845]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.845]                     base::options(mc.cores = 1L)
[18:41:39.845]                   }
[18:41:39.845]                   ...future.strategy.old <- future::plan("list")
[18:41:39.845]                   options(future.plan = NULL)
[18:41:39.845]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.845]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.845]                 }
[18:41:39.845]                 ...future.workdir <- getwd()
[18:41:39.845]             }
[18:41:39.845]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.845]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.845]         }
[18:41:39.845]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.845]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.845]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.845]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.845]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.845]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.845]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.845]             base::names(...future.oldOptions))
[18:41:39.845]     }
[18:41:39.845]     if (FALSE) {
[18:41:39.845]     }
[18:41:39.845]     else {
[18:41:39.845]         if (TRUE) {
[18:41:39.845]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.845]                 open = "w")
[18:41:39.845]         }
[18:41:39.845]         else {
[18:41:39.845]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.845]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.845]         }
[18:41:39.845]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.845]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.845]             base::sink(type = "output", split = FALSE)
[18:41:39.845]             base::close(...future.stdout)
[18:41:39.845]         }, add = TRUE)
[18:41:39.845]     }
[18:41:39.845]     ...future.frame <- base::sys.nframe()
[18:41:39.845]     ...future.conditions <- base::list()
[18:41:39.845]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.845]     if (FALSE) {
[18:41:39.845]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.845]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.845]     }
[18:41:39.845]     ...future.result <- base::tryCatch({
[18:41:39.845]         base::withCallingHandlers({
[18:41:39.845]             ...future.value <- base::withVisible(base::local({
[18:41:39.845]                 ...future.makeSendCondition <- base::local({
[18:41:39.845]                   sendCondition <- NULL
[18:41:39.845]                   function(frame = 1L) {
[18:41:39.845]                     if (is.function(sendCondition)) 
[18:41:39.845]                       return(sendCondition)
[18:41:39.845]                     ns <- getNamespace("parallel")
[18:41:39.845]                     if (exists("sendData", mode = "function", 
[18:41:39.845]                       envir = ns)) {
[18:41:39.845]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.845]                         envir = ns)
[18:41:39.845]                       envir <- sys.frame(frame)
[18:41:39.845]                       master <- NULL
[18:41:39.845]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.845]                         !identical(envir, emptyenv())) {
[18:41:39.845]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.845]                           inherits = FALSE)) {
[18:41:39.845]                           master <- get("master", mode = "list", 
[18:41:39.845]                             envir = envir, inherits = FALSE)
[18:41:39.845]                           if (inherits(master, c("SOCKnode", 
[18:41:39.845]                             "SOCK0node"))) {
[18:41:39.845]                             sendCondition <<- function(cond) {
[18:41:39.845]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.845]                                 success = TRUE)
[18:41:39.845]                               parallel_sendData(master, data)
[18:41:39.845]                             }
[18:41:39.845]                             return(sendCondition)
[18:41:39.845]                           }
[18:41:39.845]                         }
[18:41:39.845]                         frame <- frame + 1L
[18:41:39.845]                         envir <- sys.frame(frame)
[18:41:39.845]                       }
[18:41:39.845]                     }
[18:41:39.845]                     sendCondition <<- function(cond) NULL
[18:41:39.845]                   }
[18:41:39.845]                 })
[18:41:39.845]                 withCallingHandlers({
[18:41:39.845]                   {
[18:41:39.845]                     do.call(function(...) {
[18:41:39.845]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.845]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.845]                         ...future.globals.maxSize)) {
[18:41:39.845]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.845]                         on.exit(options(oopts), add = TRUE)
[18:41:39.845]                       }
[18:41:39.845]                       {
[18:41:39.845]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.845]                           FUN = function(jj) {
[18:41:39.845]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.845]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.845]                               envir = globalenv(), inherits = FALSE)
[18:41:39.845]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.845]                           })
[18:41:39.845]                       }
[18:41:39.845]                     }, args = future.call.arguments)
[18:41:39.845]                   }
[18:41:39.845]                 }, immediateCondition = function(cond) {
[18:41:39.845]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.845]                   sendCondition(cond)
[18:41:39.845]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.845]                   {
[18:41:39.845]                     inherits <- base::inherits
[18:41:39.845]                     invokeRestart <- base::invokeRestart
[18:41:39.845]                     is.null <- base::is.null
[18:41:39.845]                     muffled <- FALSE
[18:41:39.845]                     if (inherits(cond, "message")) {
[18:41:39.845]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.845]                       if (muffled) 
[18:41:39.845]                         invokeRestart("muffleMessage")
[18:41:39.845]                     }
[18:41:39.845]                     else if (inherits(cond, "warning")) {
[18:41:39.845]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.845]                       if (muffled) 
[18:41:39.845]                         invokeRestart("muffleWarning")
[18:41:39.845]                     }
[18:41:39.845]                     else if (inherits(cond, "condition")) {
[18:41:39.845]                       if (!is.null(pattern)) {
[18:41:39.845]                         computeRestarts <- base::computeRestarts
[18:41:39.845]                         grepl <- base::grepl
[18:41:39.845]                         restarts <- computeRestarts(cond)
[18:41:39.845]                         for (restart in restarts) {
[18:41:39.845]                           name <- restart$name
[18:41:39.845]                           if (is.null(name)) 
[18:41:39.845]                             next
[18:41:39.845]                           if (!grepl(pattern, name)) 
[18:41:39.845]                             next
[18:41:39.845]                           invokeRestart(restart)
[18:41:39.845]                           muffled <- TRUE
[18:41:39.845]                           break
[18:41:39.845]                         }
[18:41:39.845]                       }
[18:41:39.845]                     }
[18:41:39.845]                     invisible(muffled)
[18:41:39.845]                   }
[18:41:39.845]                   muffleCondition(cond)
[18:41:39.845]                 })
[18:41:39.845]             }))
[18:41:39.845]             future::FutureResult(value = ...future.value$value, 
[18:41:39.845]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.845]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.845]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.845]                     ...future.globalenv.names))
[18:41:39.845]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.845]         }, condition = base::local({
[18:41:39.845]             c <- base::c
[18:41:39.845]             inherits <- base::inherits
[18:41:39.845]             invokeRestart <- base::invokeRestart
[18:41:39.845]             length <- base::length
[18:41:39.845]             list <- base::list
[18:41:39.845]             seq.int <- base::seq.int
[18:41:39.845]             signalCondition <- base::signalCondition
[18:41:39.845]             sys.calls <- base::sys.calls
[18:41:39.845]             `[[` <- base::`[[`
[18:41:39.845]             `+` <- base::`+`
[18:41:39.845]             `<<-` <- base::`<<-`
[18:41:39.845]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.845]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.845]                   3L)]
[18:41:39.845]             }
[18:41:39.845]             function(cond) {
[18:41:39.845]                 is_error <- inherits(cond, "error")
[18:41:39.845]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.845]                   NULL)
[18:41:39.845]                 if (is_error) {
[18:41:39.845]                   sessionInformation <- function() {
[18:41:39.845]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.845]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.845]                       search = base::search(), system = base::Sys.info())
[18:41:39.845]                   }
[18:41:39.845]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.845]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.845]                     cond$call), session = sessionInformation(), 
[18:41:39.845]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.845]                   signalCondition(cond)
[18:41:39.845]                 }
[18:41:39.845]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.845]                 "immediateCondition"))) {
[18:41:39.845]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.845]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.845]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.845]                   if (TRUE && !signal) {
[18:41:39.845]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.845]                     {
[18:41:39.845]                       inherits <- base::inherits
[18:41:39.845]                       invokeRestart <- base::invokeRestart
[18:41:39.845]                       is.null <- base::is.null
[18:41:39.845]                       muffled <- FALSE
[18:41:39.845]                       if (inherits(cond, "message")) {
[18:41:39.845]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.845]                         if (muffled) 
[18:41:39.845]                           invokeRestart("muffleMessage")
[18:41:39.845]                       }
[18:41:39.845]                       else if (inherits(cond, "warning")) {
[18:41:39.845]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.845]                         if (muffled) 
[18:41:39.845]                           invokeRestart("muffleWarning")
[18:41:39.845]                       }
[18:41:39.845]                       else if (inherits(cond, "condition")) {
[18:41:39.845]                         if (!is.null(pattern)) {
[18:41:39.845]                           computeRestarts <- base::computeRestarts
[18:41:39.845]                           grepl <- base::grepl
[18:41:39.845]                           restarts <- computeRestarts(cond)
[18:41:39.845]                           for (restart in restarts) {
[18:41:39.845]                             name <- restart$name
[18:41:39.845]                             if (is.null(name)) 
[18:41:39.845]                               next
[18:41:39.845]                             if (!grepl(pattern, name)) 
[18:41:39.845]                               next
[18:41:39.845]                             invokeRestart(restart)
[18:41:39.845]                             muffled <- TRUE
[18:41:39.845]                             break
[18:41:39.845]                           }
[18:41:39.845]                         }
[18:41:39.845]                       }
[18:41:39.845]                       invisible(muffled)
[18:41:39.845]                     }
[18:41:39.845]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.845]                   }
[18:41:39.845]                 }
[18:41:39.845]                 else {
[18:41:39.845]                   if (TRUE) {
[18:41:39.845]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.845]                     {
[18:41:39.845]                       inherits <- base::inherits
[18:41:39.845]                       invokeRestart <- base::invokeRestart
[18:41:39.845]                       is.null <- base::is.null
[18:41:39.845]                       muffled <- FALSE
[18:41:39.845]                       if (inherits(cond, "message")) {
[18:41:39.845]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.845]                         if (muffled) 
[18:41:39.845]                           invokeRestart("muffleMessage")
[18:41:39.845]                       }
[18:41:39.845]                       else if (inherits(cond, "warning")) {
[18:41:39.845]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.845]                         if (muffled) 
[18:41:39.845]                           invokeRestart("muffleWarning")
[18:41:39.845]                       }
[18:41:39.845]                       else if (inherits(cond, "condition")) {
[18:41:39.845]                         if (!is.null(pattern)) {
[18:41:39.845]                           computeRestarts <- base::computeRestarts
[18:41:39.845]                           grepl <- base::grepl
[18:41:39.845]                           restarts <- computeRestarts(cond)
[18:41:39.845]                           for (restart in restarts) {
[18:41:39.845]                             name <- restart$name
[18:41:39.845]                             if (is.null(name)) 
[18:41:39.845]                               next
[18:41:39.845]                             if (!grepl(pattern, name)) 
[18:41:39.845]                               next
[18:41:39.845]                             invokeRestart(restart)
[18:41:39.845]                             muffled <- TRUE
[18:41:39.845]                             break
[18:41:39.845]                           }
[18:41:39.845]                         }
[18:41:39.845]                       }
[18:41:39.845]                       invisible(muffled)
[18:41:39.845]                     }
[18:41:39.845]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.845]                   }
[18:41:39.845]                 }
[18:41:39.845]             }
[18:41:39.845]         }))
[18:41:39.845]     }, error = function(ex) {
[18:41:39.845]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.845]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.845]                 ...future.rng), started = ...future.startTime, 
[18:41:39.845]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.845]             version = "1.8"), class = "FutureResult")
[18:41:39.845]     }, finally = {
[18:41:39.845]         if (!identical(...future.workdir, getwd())) 
[18:41:39.845]             setwd(...future.workdir)
[18:41:39.845]         {
[18:41:39.845]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.845]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.845]             }
[18:41:39.845]             base::options(...future.oldOptions)
[18:41:39.845]             if (.Platform$OS.type == "windows") {
[18:41:39.845]                 old_names <- names(...future.oldEnvVars)
[18:41:39.845]                 envs <- base::Sys.getenv()
[18:41:39.845]                 names <- names(envs)
[18:41:39.845]                 common <- intersect(names, old_names)
[18:41:39.845]                 added <- setdiff(names, old_names)
[18:41:39.845]                 removed <- setdiff(old_names, names)
[18:41:39.845]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.845]                   envs[common]]
[18:41:39.845]                 NAMES <- toupper(changed)
[18:41:39.845]                 args <- list()
[18:41:39.845]                 for (kk in seq_along(NAMES)) {
[18:41:39.845]                   name <- changed[[kk]]
[18:41:39.845]                   NAME <- NAMES[[kk]]
[18:41:39.845]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.845]                     next
[18:41:39.845]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.845]                 }
[18:41:39.845]                 NAMES <- toupper(added)
[18:41:39.845]                 for (kk in seq_along(NAMES)) {
[18:41:39.845]                   name <- added[[kk]]
[18:41:39.845]                   NAME <- NAMES[[kk]]
[18:41:39.845]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.845]                     next
[18:41:39.845]                   args[[name]] <- ""
[18:41:39.845]                 }
[18:41:39.845]                 NAMES <- toupper(removed)
[18:41:39.845]                 for (kk in seq_along(NAMES)) {
[18:41:39.845]                   name <- removed[[kk]]
[18:41:39.845]                   NAME <- NAMES[[kk]]
[18:41:39.845]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.845]                     next
[18:41:39.845]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.845]                 }
[18:41:39.845]                 if (length(args) > 0) 
[18:41:39.845]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.845]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.845]             }
[18:41:39.845]             else {
[18:41:39.845]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.845]             }
[18:41:39.845]             {
[18:41:39.845]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.845]                   0L) {
[18:41:39.845]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.845]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.845]                   base::options(opts)
[18:41:39.845]                 }
[18:41:39.845]                 {
[18:41:39.845]                   {
[18:41:39.845]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.845]                     NULL
[18:41:39.845]                   }
[18:41:39.845]                   options(future.plan = NULL)
[18:41:39.845]                   if (is.na(NA_character_)) 
[18:41:39.845]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.845]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.845]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.845]                     .init = FALSE)
[18:41:39.845]                 }
[18:41:39.845]             }
[18:41:39.845]         }
[18:41:39.845]     })
[18:41:39.845]     if (TRUE) {
[18:41:39.845]         base::sink(type = "output", split = FALSE)
[18:41:39.845]         if (TRUE) {
[18:41:39.845]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.845]         }
[18:41:39.845]         else {
[18:41:39.845]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.845]         }
[18:41:39.845]         base::close(...future.stdout)
[18:41:39.845]         ...future.stdout <- NULL
[18:41:39.845]     }
[18:41:39.845]     ...future.result$conditions <- ...future.conditions
[18:41:39.845]     ...future.result$finished <- base::Sys.time()
[18:41:39.845]     ...future.result
[18:41:39.845] }
[18:41:39.850] Exporting 7 global objects (1.32 KiB) to cluster node #1 ...
[18:41:39.851] Exporting '...future.FUN' (179 bytes) to cluster node #1 ...
[18:41:39.851] Exporting '...future.FUN' (179 bytes) to cluster node #1 ... DONE
[18:41:39.851] Exporting 'foo' (399 bytes) to cluster node #1 ...
[18:41:39.852] Exporting 'foo' (399 bytes) to cluster node #1 ... DONE
[18:41:39.852] Exporting 'x' (39 bytes) to cluster node #1 ...
[18:41:39.852] Exporting 'x' (39 bytes) to cluster node #1 ... DONE
[18:41:39.852] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.853] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.853] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ...
[18:41:39.853] Exporting '...future.elements_ii' (55 bytes) to cluster node #1 ... DONE
[18:41:39.854] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ...
[18:41:39.854] Exporting '...future.seeds_ii' (103 bytes) to cluster node #1 ... DONE
[18:41:39.854] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.854] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.855] Exporting 7 global objects (1.32 KiB) to cluster node #1 ... DONE
[18:41:39.855] MultisessionFuture started
[18:41:39.855] - Launch lazy future ... done
[18:41:39.855] run() for 'MultisessionFuture' ... done
[18:41:39.856] Created future:
[18:41:39.872] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.872] - Validating connection of MultisessionFuture
[18:41:39.872] - received message: FutureResult
[18:41:39.873] - Received FutureResult
[18:41:39.873] - Erased future from FutureRegistry
[18:41:39.873] result() for ClusterFuture ...
[18:41:39.873] - result already collected: FutureResult
[18:41:39.873] result() for ClusterFuture ... done
[18:41:39.873] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.856] MultisessionFuture:
[18:41:39.856] Label: 'future_replicate-1'
[18:41:39.856] Expression:
[18:41:39.856] {
[18:41:39.856]     do.call(function(...) {
[18:41:39.856]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.856]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.856]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.856]             on.exit(options(oopts), add = TRUE)
[18:41:39.856]         }
[18:41:39.856]         {
[18:41:39.856]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.856]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.856]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.856]                   envir = globalenv(), inherits = FALSE)
[18:41:39.856]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.856]             })
[18:41:39.856]         }
[18:41:39.856]     }, args = future.call.arguments)
[18:41:39.856] }
[18:41:39.856] Lazy evaluation: FALSE
[18:41:39.856] Asynchronous evaluation: TRUE
[18:41:39.856] Local evaluation: TRUE
[18:41:39.856] Environment: 0x0000028c00392ae8
[18:41:39.856] Capture standard output: TRUE
[18:41:39.856] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.856] Globals: 7 objects totaling 899 bytes (function '...future.FUN' of 179 bytes, function 'foo' of 399 bytes, numeric 'x' of 39 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 55 bytes, ...)
[18:41:39.856] Packages: <none>
[18:41:39.856] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.856] Resolved: TRUE
[18:41:39.856] Value: <not collected>
[18:41:39.856] Conditions captured: <none>
[18:41:39.856] Early signaling: FALSE
[18:41:39.856] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.856] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.874] Chunk #1 of 2 ... DONE
[18:41:39.874] Chunk #2 of 2 ...
[18:41:39.874]  - Finding globals in 'X' for chunk #2 ...
[18:41:39.874] getGlobalsAndPackages() ...
[18:41:39.874] Searching for globals...
[18:41:39.875] 
[18:41:39.875] Searching for globals ... DONE
[18:41:39.875] - globals: [0] <none>
[18:41:39.875] getGlobalsAndPackages() ... DONE
[18:41:39.875]    + additional globals found: [n=0] 
[18:41:39.876]    + additional namespaces needed: [n=0] 
[18:41:39.876]  - Finding globals in 'X' for chunk #2 ... DONE
[18:41:39.876]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[18:41:39.876]  - seeds: [3] <seeds>
[18:41:39.876]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.876] getGlobalsAndPackages() ...
[18:41:39.877] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.877] Resolving globals: FALSE
[18:41:39.877] Tweak future expression to call with '...' arguments ...
[18:41:39.877] {
[18:41:39.877]     do.call(function(...) {
[18:41:39.877]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.877]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.877]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.877]             on.exit(options(oopts), add = TRUE)
[18:41:39.877]         }
[18:41:39.877]         {
[18:41:39.877]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.877]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.877]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.877]                   envir = globalenv(), inherits = FALSE)
[18:41:39.877]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.877]             })
[18:41:39.877]         }
[18:41:39.877]     }, args = future.call.arguments)
[18:41:39.877] }
[18:41:39.878] Tweak future expression to call with '...' arguments ... DONE
[18:41:39.878] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[18:41:39.878] 
[18:41:39.879] getGlobalsAndPackages() ... DONE
[18:41:39.879] run() for 'Future' ...
[18:41:39.879] - state: 'created'
[18:41:39.879] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[18:41:39.895] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.895] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[18:41:39.895]   - Field: 'node'
[18:41:39.896]   - Field: 'label'
[18:41:39.896]   - Field: 'local'
[18:41:39.896]   - Field: 'owner'
[18:41:39.896]   - Field: 'envir'
[18:41:39.896]   - Field: 'workers'
[18:41:39.897]   - Field: 'packages'
[18:41:39.897]   - Field: 'gc'
[18:41:39.897]   - Field: 'conditions'
[18:41:39.897]   - Field: 'persistent'
[18:41:39.897]   - Field: 'expr'
[18:41:39.897]   - Field: 'uuid'
[18:41:39.898]   - Field: 'seed'
[18:41:39.898]   - Field: 'version'
[18:41:39.898]   - Field: 'result'
[18:41:39.898]   - Field: 'asynchronous'
[18:41:39.898]   - Field: 'calls'
[18:41:39.898]   - Field: 'globals'
[18:41:39.899]   - Field: 'stdout'
[18:41:39.899]   - Field: 'earlySignal'
[18:41:39.899]   - Field: 'lazy'
[18:41:39.899]   - Field: 'state'
[18:41:39.899] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[18:41:39.900] - Launch lazy future ...
[18:41:39.900] Packages needed by the future expression (n = 0): <none>
[18:41:39.900] Packages needed by future strategies (n = 0): <none>
[18:41:39.901] {
[18:41:39.901]     {
[18:41:39.901]         {
[18:41:39.901]             ...future.startTime <- base::Sys.time()
[18:41:39.901]             {
[18:41:39.901]                 {
[18:41:39.901]                   {
[18:41:39.901]                     {
[18:41:39.901]                       base::local({
[18:41:39.901]                         has_future <- base::requireNamespace("future", 
[18:41:39.901]                           quietly = TRUE)
[18:41:39.901]                         if (has_future) {
[18:41:39.901]                           ns <- base::getNamespace("future")
[18:41:39.901]                           version <- ns[[".package"]][["version"]]
[18:41:39.901]                           if (is.null(version)) 
[18:41:39.901]                             version <- utils::packageVersion("future")
[18:41:39.901]                         }
[18:41:39.901]                         else {
[18:41:39.901]                           version <- NULL
[18:41:39.901]                         }
[18:41:39.901]                         if (!has_future || version < "1.8.0") {
[18:41:39.901]                           info <- base::c(r_version = base::gsub("R version ", 
[18:41:39.901]                             "", base::R.version$version.string), 
[18:41:39.901]                             platform = base::sprintf("%s (%s-bit)", 
[18:41:39.901]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[18:41:39.901]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[18:41:39.901]                               "release", "version")], collapse = " "), 
[18:41:39.901]                             hostname = base::Sys.info()[["nodename"]])
[18:41:39.901]                           info <- base::sprintf("%s: %s", base::names(info), 
[18:41:39.901]                             info)
[18:41:39.901]                           info <- base::paste(info, collapse = "; ")
[18:41:39.901]                           if (!has_future) {
[18:41:39.901]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[18:41:39.901]                               info)
[18:41:39.901]                           }
[18:41:39.901]                           else {
[18:41:39.901]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[18:41:39.901]                               info, version)
[18:41:39.901]                           }
[18:41:39.901]                           base::stop(msg)
[18:41:39.901]                         }
[18:41:39.901]                       })
[18:41:39.901]                     }
[18:41:39.901]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[18:41:39.901]                     base::options(mc.cores = 1L)
[18:41:39.901]                   }
[18:41:39.901]                   ...future.strategy.old <- future::plan("list")
[18:41:39.901]                   options(future.plan = NULL)
[18:41:39.901]                   Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.901]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[18:41:39.901]                 }
[18:41:39.901]                 ...future.workdir <- getwd()
[18:41:39.901]             }
[18:41:39.901]             ...future.oldOptions <- base::as.list(base::.Options)
[18:41:39.901]             ...future.oldEnvVars <- base::Sys.getenv()
[18:41:39.901]         }
[18:41:39.901]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[18:41:39.901]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[18:41:39.901]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[18:41:39.901]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[18:41:39.901]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[18:41:39.901]             future.stdout.windows.reencode = NULL, width = 80L)
[18:41:39.901]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[18:41:39.901]             base::names(...future.oldOptions))
[18:41:39.901]     }
[18:41:39.901]     if (FALSE) {
[18:41:39.901]     }
[18:41:39.901]     else {
[18:41:39.901]         if (TRUE) {
[18:41:39.901]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[18:41:39.901]                 open = "w")
[18:41:39.901]         }
[18:41:39.901]         else {
[18:41:39.901]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[18:41:39.901]                 windows = "NUL", "/dev/null"), open = "w")
[18:41:39.901]         }
[18:41:39.901]         base::sink(...future.stdout, type = "output", split = FALSE)
[18:41:39.901]         base::on.exit(if (!base::is.null(...future.stdout)) {
[18:41:39.901]             base::sink(type = "output", split = FALSE)
[18:41:39.901]             base::close(...future.stdout)
[18:41:39.901]         }, add = TRUE)
[18:41:39.901]     }
[18:41:39.901]     ...future.frame <- base::sys.nframe()
[18:41:39.901]     ...future.conditions <- base::list()
[18:41:39.901]     ...future.rng <- base::globalenv()$.Random.seed
[18:41:39.901]     if (FALSE) {
[18:41:39.901]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[18:41:39.901]             "...future.value", "...future.globalenv.names", ".Random.seed")
[18:41:39.901]     }
[18:41:39.901]     ...future.result <- base::tryCatch({
[18:41:39.901]         base::withCallingHandlers({
[18:41:39.901]             ...future.value <- base::withVisible(base::local({
[18:41:39.901]                 ...future.makeSendCondition <- base::local({
[18:41:39.901]                   sendCondition <- NULL
[18:41:39.901]                   function(frame = 1L) {
[18:41:39.901]                     if (is.function(sendCondition)) 
[18:41:39.901]                       return(sendCondition)
[18:41:39.901]                     ns <- getNamespace("parallel")
[18:41:39.901]                     if (exists("sendData", mode = "function", 
[18:41:39.901]                       envir = ns)) {
[18:41:39.901]                       parallel_sendData <- get("sendData", mode = "function", 
[18:41:39.901]                         envir = ns)
[18:41:39.901]                       envir <- sys.frame(frame)
[18:41:39.901]                       master <- NULL
[18:41:39.901]                       while (!identical(envir, .GlobalEnv) && 
[18:41:39.901]                         !identical(envir, emptyenv())) {
[18:41:39.901]                         if (exists("master", mode = "list", envir = envir, 
[18:41:39.901]                           inherits = FALSE)) {
[18:41:39.901]                           master <- get("master", mode = "list", 
[18:41:39.901]                             envir = envir, inherits = FALSE)
[18:41:39.901]                           if (inherits(master, c("SOCKnode", 
[18:41:39.901]                             "SOCK0node"))) {
[18:41:39.901]                             sendCondition <<- function(cond) {
[18:41:39.901]                               data <- list(type = "VALUE", value = cond, 
[18:41:39.901]                                 success = TRUE)
[18:41:39.901]                               parallel_sendData(master, data)
[18:41:39.901]                             }
[18:41:39.901]                             return(sendCondition)
[18:41:39.901]                           }
[18:41:39.901]                         }
[18:41:39.901]                         frame <- frame + 1L
[18:41:39.901]                         envir <- sys.frame(frame)
[18:41:39.901]                       }
[18:41:39.901]                     }
[18:41:39.901]                     sendCondition <<- function(cond) NULL
[18:41:39.901]                   }
[18:41:39.901]                 })
[18:41:39.901]                 withCallingHandlers({
[18:41:39.901]                   {
[18:41:39.901]                     do.call(function(...) {
[18:41:39.901]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.901]                       if (!identical(...future.globals.maxSize.org, 
[18:41:39.901]                         ...future.globals.maxSize)) {
[18:41:39.901]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.901]                         on.exit(options(oopts), add = TRUE)
[18:41:39.901]                       }
[18:41:39.901]                       {
[18:41:39.901]                         lapply(seq_along(...future.elements_ii), 
[18:41:39.901]                           FUN = function(jj) {
[18:41:39.901]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.901]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.901]                               envir = globalenv(), inherits = FALSE)
[18:41:39.901]                             ...future.FUN(...future.X_jj, ...)
[18:41:39.901]                           })
[18:41:39.901]                       }
[18:41:39.901]                     }, args = future.call.arguments)
[18:41:39.901]                   }
[18:41:39.901]                 }, immediateCondition = function(cond) {
[18:41:39.901]                   sendCondition <- ...future.makeSendCondition()
[18:41:39.901]                   sendCondition(cond)
[18:41:39.901]                   muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.901]                   {
[18:41:39.901]                     inherits <- base::inherits
[18:41:39.901]                     invokeRestart <- base::invokeRestart
[18:41:39.901]                     is.null <- base::is.null
[18:41:39.901]                     muffled <- FALSE
[18:41:39.901]                     if (inherits(cond, "message")) {
[18:41:39.901]                       muffled <- grepl(pattern, "muffleMessage")
[18:41:39.901]                       if (muffled) 
[18:41:39.901]                         invokeRestart("muffleMessage")
[18:41:39.901]                     }
[18:41:39.901]                     else if (inherits(cond, "warning")) {
[18:41:39.901]                       muffled <- grepl(pattern, "muffleWarning")
[18:41:39.901]                       if (muffled) 
[18:41:39.901]                         invokeRestart("muffleWarning")
[18:41:39.901]                     }
[18:41:39.901]                     else if (inherits(cond, "condition")) {
[18:41:39.901]                       if (!is.null(pattern)) {
[18:41:39.901]                         computeRestarts <- base::computeRestarts
[18:41:39.901]                         grepl <- base::grepl
[18:41:39.901]                         restarts <- computeRestarts(cond)
[18:41:39.901]                         for (restart in restarts) {
[18:41:39.901]                           name <- restart$name
[18:41:39.901]                           if (is.null(name)) 
[18:41:39.901]                             next
[18:41:39.901]                           if (!grepl(pattern, name)) 
[18:41:39.901]                             next
[18:41:39.901]                           invokeRestart(restart)
[18:41:39.901]                           muffled <- TRUE
[18:41:39.901]                           break
[18:41:39.901]                         }
[18:41:39.901]                       }
[18:41:39.901]                     }
[18:41:39.901]                     invisible(muffled)
[18:41:39.901]                   }
[18:41:39.901]                   muffleCondition(cond)
[18:41:39.901]                 })
[18:41:39.901]             }))
[18:41:39.901]             future::FutureResult(value = ...future.value$value, 
[18:41:39.901]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.901]                   ...future.rng), globalenv = if (FALSE) 
[18:41:39.901]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[18:41:39.901]                     ...future.globalenv.names))
[18:41:39.901]                 else NULL, started = ...future.startTime, version = "1.8")
[18:41:39.901]         }, condition = base::local({
[18:41:39.901]             c <- base::c
[18:41:39.901]             inherits <- base::inherits
[18:41:39.901]             invokeRestart <- base::invokeRestart
[18:41:39.901]             length <- base::length
[18:41:39.901]             list <- base::list
[18:41:39.901]             seq.int <- base::seq.int
[18:41:39.901]             signalCondition <- base::signalCondition
[18:41:39.901]             sys.calls <- base::sys.calls
[18:41:39.901]             `[[` <- base::`[[`
[18:41:39.901]             `+` <- base::`+`
[18:41:39.901]             `<<-` <- base::`<<-`
[18:41:39.901]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[18:41:39.901]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[18:41:39.901]                   3L)]
[18:41:39.901]             }
[18:41:39.901]             function(cond) {
[18:41:39.901]                 is_error <- inherits(cond, "error")
[18:41:39.901]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[18:41:39.901]                   NULL)
[18:41:39.901]                 if (is_error) {
[18:41:39.901]                   sessionInformation <- function() {
[18:41:39.901]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[18:41:39.901]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[18:41:39.901]                       search = base::search(), system = base::Sys.info())
[18:41:39.901]                   }
[18:41:39.901]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.901]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[18:41:39.901]                     cond$call), session = sessionInformation(), 
[18:41:39.901]                     timestamp = base::Sys.time(), signaled = 0L)
[18:41:39.901]                   signalCondition(cond)
[18:41:39.901]                 }
[18:41:39.901]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[18:41:39.901]                 "immediateCondition"))) {
[18:41:39.901]                   signal <- TRUE && inherits(cond, "immediateCondition")
[18:41:39.901]                   ...future.conditions[[length(...future.conditions) + 
[18:41:39.901]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[18:41:39.901]                   if (TRUE && !signal) {
[18:41:39.901]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.901]                     {
[18:41:39.901]                       inherits <- base::inherits
[18:41:39.901]                       invokeRestart <- base::invokeRestart
[18:41:39.901]                       is.null <- base::is.null
[18:41:39.901]                       muffled <- FALSE
[18:41:39.901]                       if (inherits(cond, "message")) {
[18:41:39.901]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.901]                         if (muffled) 
[18:41:39.901]                           invokeRestart("muffleMessage")
[18:41:39.901]                       }
[18:41:39.901]                       else if (inherits(cond, "warning")) {
[18:41:39.901]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.901]                         if (muffled) 
[18:41:39.901]                           invokeRestart("muffleWarning")
[18:41:39.901]                       }
[18:41:39.901]                       else if (inherits(cond, "condition")) {
[18:41:39.901]                         if (!is.null(pattern)) {
[18:41:39.901]                           computeRestarts <- base::computeRestarts
[18:41:39.901]                           grepl <- base::grepl
[18:41:39.901]                           restarts <- computeRestarts(cond)
[18:41:39.901]                           for (restart in restarts) {
[18:41:39.901]                             name <- restart$name
[18:41:39.901]                             if (is.null(name)) 
[18:41:39.901]                               next
[18:41:39.901]                             if (!grepl(pattern, name)) 
[18:41:39.901]                               next
[18:41:39.901]                             invokeRestart(restart)
[18:41:39.901]                             muffled <- TRUE
[18:41:39.901]                             break
[18:41:39.901]                           }
[18:41:39.901]                         }
[18:41:39.901]                       }
[18:41:39.901]                       invisible(muffled)
[18:41:39.901]                     }
[18:41:39.901]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.901]                   }
[18:41:39.901]                 }
[18:41:39.901]                 else {
[18:41:39.901]                   if (TRUE) {
[18:41:39.901]                     muffleCondition <- function (cond, pattern = "^muffle") 
[18:41:39.901]                     {
[18:41:39.901]                       inherits <- base::inherits
[18:41:39.901]                       invokeRestart <- base::invokeRestart
[18:41:39.901]                       is.null <- base::is.null
[18:41:39.901]                       muffled <- FALSE
[18:41:39.901]                       if (inherits(cond, "message")) {
[18:41:39.901]                         muffled <- grepl(pattern, "muffleMessage")
[18:41:39.901]                         if (muffled) 
[18:41:39.901]                           invokeRestart("muffleMessage")
[18:41:39.901]                       }
[18:41:39.901]                       else if (inherits(cond, "warning")) {
[18:41:39.901]                         muffled <- grepl(pattern, "muffleWarning")
[18:41:39.901]                         if (muffled) 
[18:41:39.901]                           invokeRestart("muffleWarning")
[18:41:39.901]                       }
[18:41:39.901]                       else if (inherits(cond, "condition")) {
[18:41:39.901]                         if (!is.null(pattern)) {
[18:41:39.901]                           computeRestarts <- base::computeRestarts
[18:41:39.901]                           grepl <- base::grepl
[18:41:39.901]                           restarts <- computeRestarts(cond)
[18:41:39.901]                           for (restart in restarts) {
[18:41:39.901]                             name <- restart$name
[18:41:39.901]                             if (is.null(name)) 
[18:41:39.901]                               next
[18:41:39.901]                             if (!grepl(pattern, name)) 
[18:41:39.901]                               next
[18:41:39.901]                             invokeRestart(restart)
[18:41:39.901]                             muffled <- TRUE
[18:41:39.901]                             break
[18:41:39.901]                           }
[18:41:39.901]                         }
[18:41:39.901]                       }
[18:41:39.901]                       invisible(muffled)
[18:41:39.901]                     }
[18:41:39.901]                     muffleCondition(cond, pattern = "^muffle")
[18:41:39.901]                   }
[18:41:39.901]                 }
[18:41:39.901]             }
[18:41:39.901]         }))
[18:41:39.901]     }, error = function(ex) {
[18:41:39.901]         base::structure(base::list(value = NULL, visible = NULL, 
[18:41:39.901]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[18:41:39.901]                 ...future.rng), started = ...future.startTime, 
[18:41:39.901]             finished = Sys.time(), session_uuid = NA_character_, 
[18:41:39.901]             version = "1.8"), class = "FutureResult")
[18:41:39.901]     }, finally = {
[18:41:39.901]         if (!identical(...future.workdir, getwd())) 
[18:41:39.901]             setwd(...future.workdir)
[18:41:39.901]         {
[18:41:39.901]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[18:41:39.901]                 ...future.oldOptions$nwarnings <- NULL
[18:41:39.901]             }
[18:41:39.901]             base::options(...future.oldOptions)
[18:41:39.901]             if (.Platform$OS.type == "windows") {
[18:41:39.901]                 old_names <- names(...future.oldEnvVars)
[18:41:39.901]                 envs <- base::Sys.getenv()
[18:41:39.901]                 names <- names(envs)
[18:41:39.901]                 common <- intersect(names, old_names)
[18:41:39.901]                 added <- setdiff(names, old_names)
[18:41:39.901]                 removed <- setdiff(old_names, names)
[18:41:39.901]                 changed <- common[...future.oldEnvVars[common] != 
[18:41:39.901]                   envs[common]]
[18:41:39.901]                 NAMES <- toupper(changed)
[18:41:39.901]                 args <- list()
[18:41:39.901]                 for (kk in seq_along(NAMES)) {
[18:41:39.901]                   name <- changed[[kk]]
[18:41:39.901]                   NAME <- NAMES[[kk]]
[18:41:39.901]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.901]                     next
[18:41:39.901]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.901]                 }
[18:41:39.901]                 NAMES <- toupper(added)
[18:41:39.901]                 for (kk in seq_along(NAMES)) {
[18:41:39.901]                   name <- added[[kk]]
[18:41:39.901]                   NAME <- NAMES[[kk]]
[18:41:39.901]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.901]                     next
[18:41:39.901]                   args[[name]] <- ""
[18:41:39.901]                 }
[18:41:39.901]                 NAMES <- toupper(removed)
[18:41:39.901]                 for (kk in seq_along(NAMES)) {
[18:41:39.901]                   name <- removed[[kk]]
[18:41:39.901]                   NAME <- NAMES[[kk]]
[18:41:39.901]                   if (name != NAME && is.element(NAME, old_names)) 
[18:41:39.901]                     next
[18:41:39.901]                   args[[name]] <- ...future.oldEnvVars[[name]]
[18:41:39.901]                 }
[18:41:39.901]                 if (length(args) > 0) 
[18:41:39.901]                   base::do.call(base::Sys.setenv, args = args)
[18:41:39.901]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[18:41:39.901]             }
[18:41:39.901]             else {
[18:41:39.901]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[18:41:39.901]             }
[18:41:39.901]             {
[18:41:39.901]                 if (base::length(...future.futureOptionsAdded) > 
[18:41:39.901]                   0L) {
[18:41:39.901]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[18:41:39.901]                   base::names(opts) <- ...future.futureOptionsAdded
[18:41:39.901]                   base::options(opts)
[18:41:39.901]                 }
[18:41:39.901]                 {
[18:41:39.901]                   {
[18:41:39.901]                     base::options(mc.cores = ...future.mc.cores.old)
[18:41:39.901]                     NULL
[18:41:39.901]                   }
[18:41:39.901]                   options(future.plan = NULL)
[18:41:39.901]                   if (is.na(NA_character_)) 
[18:41:39.901]                     Sys.unsetenv("R_FUTURE_PLAN")
[18:41:39.901]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[18:41:39.901]                   future::plan(...future.strategy.old, .cleanup = FALSE, 
[18:41:39.901]                     .init = FALSE)
[18:41:39.901]                 }
[18:41:39.901]             }
[18:41:39.901]         }
[18:41:39.901]     })
[18:41:39.901]     if (TRUE) {
[18:41:39.901]         base::sink(type = "output", split = FALSE)
[18:41:39.901]         if (TRUE) {
[18:41:39.901]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[18:41:39.901]         }
[18:41:39.901]         else {
[18:41:39.901]             ...future.result["stdout"] <- base::list(NULL)
[18:41:39.901]         }
[18:41:39.901]         base::close(...future.stdout)
[18:41:39.901]         ...future.stdout <- NULL
[18:41:39.901]     }
[18:41:39.901]     ...future.result$conditions <- ...future.conditions
[18:41:39.901]     ...future.result$finished <- base::Sys.time()
[18:41:39.901]     ...future.result
[18:41:39.901] }
[18:41:39.906] Exporting 7 global objects (1.37 KiB) to cluster node #1 ...
[18:41:39.906] Exporting '...future.FUN' (179 bytes) to cluster node #1 ...
[18:41:39.906] Exporting '...future.FUN' (179 bytes) to cluster node #1 ... DONE
[18:41:39.907] Exporting 'foo' (399 bytes) to cluster node #1 ...
[18:41:39.907] Exporting 'foo' (399 bytes) to cluster node #1 ... DONE
[18:41:39.907] Exporting 'x' (39 bytes) to cluster node #1 ...
[18:41:39.907] Exporting 'x' (39 bytes) to cluster node #1 ... DONE
[18:41:39.908] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ...
[18:41:39.908] Exporting 'future.call.arguments' (97 bytes) to cluster node #1 ... DONE
[18:41:39.908] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ...
[18:41:39.909] Exporting '...future.elements_ii' (67 bytes) to cluster node #1 ... DONE
[18:41:39.909] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ...
[18:41:39.909] Exporting '...future.seeds_ii' (139 bytes) to cluster node #1 ... DONE
[18:41:39.909] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ...
[18:41:39.910] Exporting '...future.globals.maxSize' (27 bytes) to cluster node #1 ... DONE
[18:41:39.910] Exporting 7 global objects (1.37 KiB) to cluster node #1 ... DONE
[18:41:39.910] MultisessionFuture started
[18:41:39.911] - Launch lazy future ... done
[18:41:39.911] run() for 'MultisessionFuture' ... done
[18:41:39.911] Created future:
[18:41:39.924] receiveMessageFromWorker() for ClusterFuture ...
[18:41:39.924] - Validating connection of MultisessionFuture
[18:41:39.924] - received message: FutureResult
[18:41:39.925] - Received FutureResult
[18:41:39.925] - Erased future from FutureRegistry
[18:41:39.925] result() for ClusterFuture ...
[18:41:39.925] - result already collected: FutureResult
[18:41:39.925] result() for ClusterFuture ... done
[18:41:39.925] receiveMessageFromWorker() for ClusterFuture ... done
[18:41:39.911] MultisessionFuture:
[18:41:39.911] Label: 'future_replicate-2'
[18:41:39.911] Expression:
[18:41:39.911] {
[18:41:39.911]     do.call(function(...) {
[18:41:39.911]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[18:41:39.911]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[18:41:39.911]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[18:41:39.911]             on.exit(options(oopts), add = TRUE)
[18:41:39.911]         }
[18:41:39.911]         {
[18:41:39.911]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[18:41:39.911]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[18:41:39.911]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[18:41:39.911]                   envir = globalenv(), inherits = FALSE)
[18:41:39.911]                 ...future.FUN(...future.X_jj, ...)
[18:41:39.911]             })
[18:41:39.911]         }
[18:41:39.911]     }, args = future.call.arguments)
[18:41:39.911] }
[18:41:39.911] Lazy evaluation: FALSE
[18:41:39.911] Asynchronous evaluation: TRUE
[18:41:39.911] Local evaluation: TRUE
[18:41:39.911] Environment: 0x0000028c00392ae8
[18:41:39.911] Capture standard output: TRUE
[18:41:39.911] Capture condition classes: 'condition' (excluding 'nothing')
[18:41:39.911] Globals: 7 objects totaling 947 bytes (function '...future.FUN' of 179 bytes, function 'foo' of 399 bytes, numeric 'x' of 39 bytes, DotDotDotList 'future.call.arguments' of 97 bytes, list '...future.elements_ii' of 67 bytes, ...)
[18:41:39.911] Packages: <none>
[18:41:39.911] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[18:41:39.911] Resolved: TRUE
[18:41:39.911] Value: <not collected>
[18:41:39.911] Conditions captured: <none>
[18:41:39.911] Early signaling: FALSE
[18:41:39.911] Owner process: c48c5314-e7ea-df74-db9e-3dcaa6a2bcaf
[18:41:39.911] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[18:41:39.926] Chunk #2 of 2 ... DONE
[18:41:39.926] Launching 2 futures (chunks) ... DONE
[18:41:39.926] Resolving 2 futures (chunks) ...
[18:41:39.926] resolve() on list ...
[18:41:39.927]  recursive: 0
[18:41:39.927]  length: 2
[18:41:39.927] 
[18:41:39.927] Future #1
[18:41:39.927] result() for ClusterFuture ...
[18:41:39.927] - result already collected: FutureResult
[18:41:39.927] result() for ClusterFuture ... done
[18:41:39.928] result() for ClusterFuture ...
[18:41:39.928] - result already collected: FutureResult
[18:41:39.928] result() for ClusterFuture ... done
[18:41:39.928] signalConditionsASAP(MultisessionFuture, pos=1) ...
[18:41:39.928] - nx: 2
[18:41:39.928] - relay: TRUE
[18:41:39.929] - stdout: TRUE
[18:41:39.929] - signal: TRUE
[18:41:39.929] - resignal: FALSE
[18:41:39.929] - force: TRUE
[18:41:39.929] - relayed: [n=2] FALSE, FALSE
[18:41:39.929] - queued futures: [n=2] FALSE, FALSE
[18:41:39.930]  - until=1
[18:41:39.930]  - relaying element #1
[18:41:39.930] result() for ClusterFuture ...
[18:41:39.930] - result already collected: FutureResult
[18:41:39.930] result() for ClusterFuture ... done
[18:41:39.930] result() for ClusterFuture ...
[18:41:39.930] - result already collected: FutureResult
[18:41:39.931] result() for ClusterFuture ... done
[18:41:39.931] result() for ClusterFuture ...
[18:41:39.931] - result already collected: FutureResult
[18:41:39.931] result() for ClusterFuture ... done
[18:41:39.931] result() for ClusterFuture ...
[18:41:39.931] - result already collected: FutureResult
[18:41:39.932] result() for ClusterFuture ... done
[18:41:39.932] - relayed: [n=2] TRUE, FALSE
[18:41:39.932] - queued futures: [n=2] TRUE, FALSE
[18:41:39.932] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[18:41:39.932]  length: 1 (resolved future 1)
[18:41:39.932] Future #2
[18:41:39.933] result() for ClusterFuture ...
[18:41:39.933] - result already collected: FutureResult
[18:41:39.933] result() for ClusterFuture ... done
[18:41:39.933] result() for ClusterFuture ...
[18:41:39.933] - result already collected: FutureResult
[18:41:39.933] result() for ClusterFuture ... done
[18:41:39.934] signalConditionsASAP(MultisessionFuture, pos=2) ...
[18:41:39.934] - nx: 2
[18:41:39.934] - relay: TRUE
[18:41:39.934] - stdout: TRUE
[18:41:39.934] - signal: TRUE
[18:41:39.934] - resignal: FALSE
[18:41:39.934] - force: TRUE
[18:41:39.935] - relayed: [n=2] TRUE, FALSE
[18:41:39.935] - queued futures: [n=2] TRUE, FALSE
[18:41:39.935]  - until=2
[18:41:39.935]  - relaying element #2
[18:41:39.935] result() for ClusterFuture ...
[18:41:39.935] - result already collected: FutureResult
[18:41:39.936] result() for ClusterFuture ... done
[18:41:39.936] result() for ClusterFuture ...
[18:41:39.936] - result already collected: FutureResult
[18:41:39.936] result() for ClusterFuture ... done
[18:41:39.936] result() for ClusterFuture ...
[18:41:39.936] - result already collected: FutureResult
[18:41:39.937] result() for ClusterFuture ... done
[18:41:39.937] result() for ClusterFuture ...
[18:41:39.937] - result already collected: FutureResult
[18:41:39.937] result() for ClusterFuture ... done
[18:41:39.937] - relayed: [n=2] TRUE, TRUE
[18:41:39.937] - queued futures: [n=2] TRUE, TRUE
[18:41:39.937] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[18:41:39.938]  length: 0 (resolved future 2)
[18:41:39.938] Relaying remaining futures
[18:41:39.938] signalConditionsASAP(NULL, pos=0) ...
[18:41:39.938] - nx: 2
[18:41:39.938] - relay: TRUE
[18:41:39.938] - stdout: TRUE
[18:41:39.939] - signal: TRUE
[18:41:39.939] - resignal: FALSE
[18:41:39.939] - force: TRUE
[18:41:39.939] - relayed: [n=2] TRUE, TRUE
[18:41:39.939] - queued futures: [n=2] TRUE, TRUE
 - flush all
[18:41:39.939] - relayed: [n=2] TRUE, TRUE
[18:41:39.940] - queued futures: [n=2] TRUE, TRUE
[18:41:39.940] signalConditionsASAP(NULL, pos=0) ... done
[18:41:39.940] resolve() on list ... DONE
[18:41:39.940] result() for ClusterFuture ...
[18:41:39.940] - result already collected: FutureResult
[18:41:39.940] result() for ClusterFuture ... done
[18:41:39.941] result() for ClusterFuture ...
[18:41:39.941] - result already collected: FutureResult
[18:41:39.941] result() for ClusterFuture ... done
[18:41:39.941] result() for ClusterFuture ...
[18:41:39.941] - result already collected: FutureResult
[18:41:39.941] result() for ClusterFuture ... done
[18:41:39.942] result() for ClusterFuture ...
[18:41:39.942] - result already collected: FutureResult
[18:41:39.942] result() for ClusterFuture ... done
[18:41:39.942]  - Number of value chunks collected: 2
[18:41:39.942] Resolving 2 futures (chunks) ... DONE
[18:41:39.942] Reducing values from 2 chunks ...
[18:41:39.942]  - Number of values collected after concatenation: 5
[18:41:39.943]  - Number of values expected: 5
[18:41:39.943] Reducing values from 2 chunks ... DONE
[18:41:39.943] future_lapply() ... DONE
[18:41:39.943] plan(): Setting new future strategy stack:
[18:41:39.944] List of future strategies:
[18:41:39.944] 1. sequential:
[18:41:39.944]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:39.944]    - tweaked: FALSE
[18:41:39.944]    - call: plan(sequential)
[18:41:39.952] plan(): nbrOfWorkers() = 1
*** strategy = 'multisession' ... done
> 
> message("*** future_replicate() ... DONE")
*** future_replicate() ... DONE
> 
> source("incl/end.R")
[18:41:39.953] plan(): Setting new future strategy stack:
[18:41:39.953] List of future strategies:
[18:41:39.953] 1. FutureStrategy:
[18:41:39.953]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[18:41:39.953]    - tweaked: FALSE
[18:41:39.953]    - call: future::plan(oplan)
[18:41:39.954] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   1.42    0.14    2.65