R Under development (unstable) (2023-12-20 r85711 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

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

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

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

> source("incl/start.R")
Loading required package: future
[13:13:57.619] plan(): Setting new future strategy stack:
[13:13:57.620] List of future strategies:
[13:13:57.620] 1. sequential:
[13:13:57.620]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.620]    - tweaked: FALSE
[13:13:57.620]    - call: future::plan("sequential")
[13:13:57.635] 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' ...
[13:13:57.661] plan(): Setting new future strategy stack:
[13:13:57.662] List of future strategies:
[13:13:57.662] 1. sequential:
[13:13:57.662]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.662]    - tweaked: FALSE
[13:13:57.662]    - call: plan(strategy)
[13:13:57.674] plan(): nbrOfWorkers() = 1
[13:13:57.676] future_lapply() ...
[13:13:57.680] Generating random seeds ...
[13:13:57.681] Generating random seed streams for 5 elements ...
[13:13:57.681] Generating random seed streams for 5 elements ... DONE
[13:13:57.682] Generating random seeds ... DONE
[13:13:57.682] Will set RNG state on exit: 10403, 11, -1246949059, -428181065, 659881566, -2042030184, -896985349, -544678247, 2014562088, 46726614, -1542413743, -1320290045, 75953298, -562214364, 783226087, -1475458755, -1753145932, 1679254042, -339826331, 1895897087, -1338225018, -1816799728, 1154223283, -473364655, -403870976, -1035103778, -2047165911, 206141915, 1272440554, -1669430132, -60486705, -2093202555, 1460244540, -1801035502, 1069360653, -474729145, -1993810130, -808799608, -934718581, 1020674921, -925713096, 1208602598, 1304463233, 899686163, -97965886, -490863756, 1941491575, -806438803, -977266940, -1090951638, 845400981, 1591668783, 113150262, 1825810784, -791779421, -1731071807, -1762738000, -743469106, 608142137, -1810969781, -273932038, 2036242940, -362055105, -1826468075, -1117610964, -260340478, -121066019, 508538071, -169625666, 1722655224, -1898080805, -688112583, 1754074504, 1876478262, -479390863, 573510051, 311184626, 1788678212, -1849130233, -1427156259, 1129593812, -887457030, -1728078267, 1409943199, -979313626, -848496464, 1165279571, -657998735, 147276192, 1375083838, -417924023, -1726318341, -1216646966, -1184217556, 1420204591, -1602120987, 525641628, 297341426, -122782611, -1257419353, 646690766, 513611048, -1335752917, -1089204919, -1572236712, 660515590, 1606485729, 1304826483, 1438259938, 267167316, -689672361, -1540766899, 714188516, -1794218294, -917149899, 923094415, 59763350, -710852032, 604685059, 515552033, 2041705488, 747099118, 1005298585, -921838549, -2038453990, -318993444, 1491037663, 152287669, 1442453324, -1689809502, -1572987651, -4226569, 2144620318, 1676169688, 255298363, -106283815, 1891659880, -967699050, 569945361, 726261443, 349028050, -195590300, -559261017, 435414013, 1728738804, -30321958, -2012724187, -1639765697, -353636666, 363324240, 498989939, 725798289, -19476544, 820447646, 1150522217, 2090907, -1288393046, -1257805620, -1055622769, 878718405, 1465774460, 2027299282, -1164018355, -1888288761, 633548782, 835278536, -1402639925, 202734633, -518239624, 1615042470, -621796927, 543258195, -1517052670, 353971252, -432321097, 997188013, -418078012, 388970218, 1294424405, 1913073391, 1085607158, -181158880, -1495335453, -155558271, 1002854640, -1656334450, 671820025, 1996337803, -2120510790, 1423990204, -915306753, 906545749, 1132359020, -1405721150, 1981351453, 1974517399, -132532226, -963083336, 1474043803, -1861466631, 1410745672, -218967946, -689480271, 874087395, -1090993998, 1094053124, 1143123527, 757963037, 167516052, -156116166, -470030459, -389622689, 945757926, 1526490480, -1869328749, -1944258767, 579808736, 1000299134, 1598867721, -1367168197, 1387979530, 18459372, 1009821551, 92899493, 444883548, 1504367154, 1463851309, -200450073, -1671944434, 1178376532, -1154459886, -650709600, -1319953716, 1817990752, -2051424318, -36904152, 1658449324, 1726116156, -217473166, -303791824, -1451733212, -1562270408, -267248934, 1548830608, 579408636, 993267604, 2138802242, 1530887424, -1081545668, -555520688, -1099556702, 1484470088, -376228084, 1248086748, 2079814482, -962645376, -48375724, 1078848488, -1396066566, -722654896, -1047330004, -179353740, -1382947950, 1193981536, -1786466420, 1951109984, 496322530, 1605025704, 1939184844, -1420194308, 1030695858, 1796983280, -1133237820, -66100904, -983513734, 1900278192, -1667608644, -680423340, 876848066, -1365638112, 831102140, 1108580944, -1019772958, 1408112232, -1774183860, -1111269124, -1426608142, 170433792, 1554544500, 1812078600, -702732870, 1921547728, -771308564, 1612316564, 1893546962, 2029533024, 442672460, 1851968800, -1580268670, -8111384, 2097489132, 885008956, 238095218, -1110578576, 798636068, 82315064, -1859294054, -1348406576, -870104900, 720901780, 756885122, 1491819712, -837357252, -658657136, -2807262, -1072142840, 1111146764, 544379548, -614158830, 689384832, -1072554476, -138455512, -1062083270, -1298577456, 102077036, 1523885876, -1601101166, -795035296, 1226166604, 1737027552, -19259486, 10958760, 1558137740, -1724356932, 561711986, -1979598608, 1204508740, 34708824, -148220870, -1282325648, -1656568772, 1019685652, 1693534658, -127205152, -953550980, -1058316592, 112559778, -539900888, 983935244, -1772555332, -1395147470, 1485840320, -105967052, -310584376, 1913038010, -209473648, -911698452, 1563869268, -537862510, -1609532640, 2056195532, -440730656, -176864574, -1884120536, -1486471508, -1866296644, 2054287858, -1638840016, -1999688540, 1964548792, 1148021594, -209179248, -1325911684, 637193492, -989648574, 1629545216, 567663548, -2114790576, 116039970, 768171336, 1400600588, -100239268, 1384637650, 1964132352, -571221164, 884359656, 39417850, -1584122160, 816260396, 1730750708, -20682862, -1149363104, 379559180, 1106495200, 1176960354, 1913561768, 635656780, 2044417916, 1182411570, 2039717488, 970726724, 1911077848, 900788346, 813442608, 250890940, -1035532460, 117455426, -1093080160, -65984324, 420389328, -99588766, -1477340184, -1247766580, -909191428, 247336946, 1690696832, 220723444, 1039479944, 568452410, -152812720, -1368904596, -1745002348, 1196439890, 224902880, -1696886580, -738994016, -2137368190, -1673725720, -226420500, 1231984700, 166404210, 920397936, 1479303716, -1443487176, 758950426, -258961200, -2011220420, 1003506836, -1517054846, -1556445248, 1014607164, 1694875280, -1275309022, -1984294904, 322059404, -1908162532, -1561647982, -674313088, 1109509140, -2047646936, 1241060410, -917721904, 2034775148, -1886710092, -421797870, 956088288, 1327802992, 1411719193, -1176126965, 2075578620, 1392856362, 1085707103, -863575319, -2016777730, 518239724, 523765053, -1654362873, 2130840816, -1970401138, 1786669755, 174572189, -386492854, 1672731752, -117984175, 589881155, 1726810692, -444659470, 880161991, 1391349393, 975179798, 1020746356, -1759830779, -528182449, 1764916552, 1516712166, 163456531, -1840563851, 157973842, -1047695968, 1927568521, 1553837243, 341098252, 1907840666, -1544565745, 17287257, -1116969746, -1632608388, -1173779475, 778171543, 1880424288, -465127618, 352430091, 922030221, 495815098, -1234884616, -1344420959, -494846637, -441715596, 1380722178, 1874081943, 1740466785, 1869046438, -966727004, 699096917, 387884031, -519921000, 375392182, 1800006723, 1003619717, 1189994018, 2083849488, -1164655431, 1962232171, -1756010404, 6817162, 196796799, -718455607, -1597570722, 33395212, -1412475427, -142291737, -1397614320, 562120750, 357281499, -1337808963, 1227489578, 1390437832, -1462134031, 1616655459, 885805156, -1289823342, 1334857831, -784863183, -1731772042, 789008020, 1006208165, 2031835567, 1762968168, -1811178938, 187572211, -379142315, -1157570254, 680527104, 1727993321, -247545765, -1201442132, 10996922, 1328959087, 2138020857, -1256922482, -1756294308, -1556316211, -96985289, -1380672064, 2129363614, 160209771, -782916883, 2096158554, 2008558616, -1831224959, -1730990285, 597574996, -1460129950, -642309129, -1318843327, -2004170554, -204540412, 150725045, 1517969055, 484478712, -483257642, -714766493, -165593307, 1167865026, 46391728, 756079065, -766347445, -2038964804, -1834013206, 1645812255, -2127892311, 697849918, -551839444, -1567763587, -1866036793, 881757360, 1462823630, -217849861, -371021731, 2081755018, 1523498920, 629470481, 768175107, -1164916988, -139916494, -1633760889, 230379473, -1836031658, -579436748, -940481979, 352972431, 13879304, 1021991974, -1505454893, -220563915, -2039149166, 1661161824, 1343162569, -1027200005, -2056959028, 949560922, -677958833, 1068163609, -1201004498, 1143156284, -2052844685
[13:13:57.684] Number of chunks: 1
[13:13:57.684] getGlobalsAndPackagesXApply() ...
[13:13:57.684]  - future.globals: TRUE
[13:13:57.685] getGlobalsAndPackages() ...
[13:13:57.685] Searching for globals...
[13:13:57.688] - globals found: [2] 'FUN', 'sample'
[13:13:57.688] Searching for globals ... DONE
[13:13:57.688] Resolving globals: FALSE
[13:13:57.689] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:57.690] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:57.690] - globals: [1] 'FUN'
[13:13:57.690] 
[13:13:57.690] getGlobalsAndPackages() ... DONE
[13:13:57.690]  - globals found/used: [n=1] 'FUN'
[13:13:57.691]  - needed namespaces: [n=0] 
[13:13:57.691] Finding globals ... DONE
[13:13:57.691]  - use_args: TRUE
[13:13:57.691]  - Getting '...' globals ...
[13:13:57.692] resolve() on list ...
[13:13:57.692]  recursive: 0
[13:13:57.693]  length: 1
[13:13:57.693]  elements: '...'
[13:13:57.693]  length: 0 (resolved future 1)
[13:13:57.693] resolve() on list ... DONE
[13:13:57.693]    - '...' content: [n=0] 
[13:13:57.694] List of 1
[13:13:57.694]  $ ...: list()
[13:13:57.694]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.694]  - attr(*, "where")=List of 1
[13:13:57.694]   ..$ ...:<environment: 0x0000019eca94acd8> 
[13:13:57.694]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.694]  - attr(*, "resolved")= logi TRUE
[13:13:57.694]  - attr(*, "total_size")= num NA
[13:13:57.699]  - Getting '...' globals ... DONE
[13:13:57.700] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:57.700] List of 2
[13:13:57.700]  $ ...future.FUN:function (...)  
[13:13:57.700]  $ ...          : list()
[13:13:57.700]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.700]  - attr(*, "where")=List of 2
[13:13:57.700]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.700]   ..$ ...          :<environment: 0x0000019eca94acd8> 
[13:13:57.700]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.700]  - attr(*, "resolved")= logi FALSE
[13:13:57.700]  - attr(*, "total_size")= num 616
[13:13:57.703] Packages to be attached in all futures: [n=0] 
[13:13:57.703] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.704] Number of futures (= number of chunks): 1
[13:13:57.704] Launching 1 futures (chunks) ...
[13:13:57.704] Chunk #1 of 1 ...
[13:13:57.704]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.705] getGlobalsAndPackages() ...
[13:13:57.705] Searching for globals...
[13:13:57.705] 
[13:13:57.705] Searching for globals ... DONE
[13:13:57.706] - globals: [0] <none>
[13:13:57.706] getGlobalsAndPackages() ... DONE
[13:13:57.706]    + additional globals found: [n=0] 
[13:13:57.706]    + additional namespaces needed: [n=0] 
[13:13:57.706]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.706]  - seeds: [5] <seeds>
[13:13:57.707]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.707] getGlobalsAndPackages() ...
[13:13:57.707] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.707] Resolving globals: FALSE
[13:13:57.707] Tweak future expression to call with '...' arguments ...
[13:13:57.708] {
[13:13:57.708]     do.call(function(...) {
[13:13:57.708]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.708]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.708]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.708]             on.exit(options(oopts), add = TRUE)
[13:13:57.708]         }
[13:13:57.708]         {
[13:13:57.708]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.708]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.708]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.708]                   envir = globalenv(), inherits = FALSE)
[13:13:57.708]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.708]             })
[13:13:57.708]         }
[13:13:57.708]     }, args = future.call.arguments)
[13:13:57.708] }
[13:13:57.708] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.709] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.709] 
[13:13:57.709] getGlobalsAndPackages() ... DONE
[13:13:57.710] run() for 'Future' ...
[13:13:57.710] - state: 'created'
[13:13:57.710] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.711] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.711] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.711]   - Field: 'label'
[13:13:57.711]   - Field: 'local'
[13:13:57.712]   - Field: 'owner'
[13:13:57.712]   - Field: 'envir'
[13:13:57.712]   - Field: 'packages'
[13:13:57.712]   - Field: 'gc'
[13:13:57.712]   - Field: 'conditions'
[13:13:57.712]   - Field: 'expr'
[13:13:57.713]   - Field: 'uuid'
[13:13:57.713]   - Field: 'seed'
[13:13:57.713]   - Field: 'version'
[13:13:57.713]   - Field: 'result'
[13:13:57.713]   - Field: 'asynchronous'
[13:13:57.713]   - Field: 'calls'
[13:13:57.714]   - Field: 'globals'
[13:13:57.714]   - Field: 'stdout'
[13:13:57.714]   - Field: 'earlySignal'
[13:13:57.714]   - Field: 'lazy'
[13:13:57.714]   - Field: 'state'
[13:13:57.715] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:57.715] - Launch lazy future ...
[13:13:57.716] Packages needed by the future expression (n = 0): <none>
[13:13:57.716] Packages needed by future strategies (n = 0): <none>
[13:13:57.717] {
[13:13:57.717]     {
[13:13:57.717]         {
[13:13:57.717]             ...future.startTime <- base::Sys.time()
[13:13:57.717]             {
[13:13:57.717]                 {
[13:13:57.717]                   {
[13:13:57.717]                     base::local({
[13:13:57.717]                       has_future <- base::requireNamespace("future", 
[13:13:57.717]                         quietly = TRUE)
[13:13:57.717]                       if (has_future) {
[13:13:57.717]                         ns <- base::getNamespace("future")
[13:13:57.717]                         version <- ns[[".package"]][["version"]]
[13:13:57.717]                         if (is.null(version)) 
[13:13:57.717]                           version <- utils::packageVersion("future")
[13:13:57.717]                       }
[13:13:57.717]                       else {
[13:13:57.717]                         version <- NULL
[13:13:57.717]                       }
[13:13:57.717]                       if (!has_future || version < "1.8.0") {
[13:13:57.717]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.717]                           "", base::R.version$version.string), 
[13:13:57.717]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:57.717]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.717]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.717]                             "release", "version")], collapse = " "), 
[13:13:57.717]                           hostname = base::Sys.info()[["nodename"]])
[13:13:57.717]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.717]                           info)
[13:13:57.717]                         info <- base::paste(info, collapse = "; ")
[13:13:57.717]                         if (!has_future) {
[13:13:57.717]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.717]                             info)
[13:13:57.717]                         }
[13:13:57.717]                         else {
[13:13:57.717]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.717]                             info, version)
[13:13:57.717]                         }
[13:13:57.717]                         base::stop(msg)
[13:13:57.717]                       }
[13:13:57.717]                     })
[13:13:57.717]                   }
[13:13:57.717]                   options(future.plan = NULL)
[13:13:57.717]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.717]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.717]                 }
[13:13:57.717]                 ...future.workdir <- getwd()
[13:13:57.717]             }
[13:13:57.717]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.717]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.717]         }
[13:13:57.717]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.717]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:57.717]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.717]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.717]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.717]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.717]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.717]             base::names(...future.oldOptions))
[13:13:57.717]     }
[13:13:57.717]     if (FALSE) {
[13:13:57.717]     }
[13:13:57.717]     else {
[13:13:57.717]         if (TRUE) {
[13:13:57.717]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.717]                 open = "w")
[13:13:57.717]         }
[13:13:57.717]         else {
[13:13:57.717]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.717]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.717]         }
[13:13:57.717]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.717]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.717]             base::sink(type = "output", split = FALSE)
[13:13:57.717]             base::close(...future.stdout)
[13:13:57.717]         }, add = TRUE)
[13:13:57.717]     }
[13:13:57.717]     ...future.frame <- base::sys.nframe()
[13:13:57.717]     ...future.conditions <- base::list()
[13:13:57.717]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.717]     if (FALSE) {
[13:13:57.717]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.717]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.717]     }
[13:13:57.717]     ...future.result <- base::tryCatch({
[13:13:57.717]         base::withCallingHandlers({
[13:13:57.717]             ...future.value <- base::withVisible(base::local({
[13:13:57.717]                 do.call(function(...) {
[13:13:57.717]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.717]                   if (!identical(...future.globals.maxSize.org, 
[13:13:57.717]                     ...future.globals.maxSize)) {
[13:13:57.717]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.717]                     on.exit(options(oopts), add = TRUE)
[13:13:57.717]                   }
[13:13:57.717]                   {
[13:13:57.717]                     lapply(seq_along(...future.elements_ii), 
[13:13:57.717]                       FUN = function(jj) {
[13:13:57.717]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.717]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.717]                           envir = globalenv(), inherits = FALSE)
[13:13:57.717]                         ...future.FUN(...future.X_jj, ...)
[13:13:57.717]                       })
[13:13:57.717]                   }
[13:13:57.717]                 }, args = future.call.arguments)
[13:13:57.717]             }))
[13:13:57.717]             future::FutureResult(value = ...future.value$value, 
[13:13:57.717]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.717]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.717]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.717]                     ...future.globalenv.names))
[13:13:57.717]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.717]         }, condition = base::local({
[13:13:57.717]             c <- base::c
[13:13:57.717]             inherits <- base::inherits
[13:13:57.717]             invokeRestart <- base::invokeRestart
[13:13:57.717]             length <- base::length
[13:13:57.717]             list <- base::list
[13:13:57.717]             seq.int <- base::seq.int
[13:13:57.717]             signalCondition <- base::signalCondition
[13:13:57.717]             sys.calls <- base::sys.calls
[13:13:57.717]             `[[` <- base::`[[`
[13:13:57.717]             `+` <- base::`+`
[13:13:57.717]             `<<-` <- base::`<<-`
[13:13:57.717]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.717]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.717]                   3L)]
[13:13:57.717]             }
[13:13:57.717]             function(cond) {
[13:13:57.717]                 is_error <- inherits(cond, "error")
[13:13:57.717]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.717]                   NULL)
[13:13:57.717]                 if (is_error) {
[13:13:57.717]                   sessionInformation <- function() {
[13:13:57.717]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.717]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.717]                       search = base::search(), system = base::Sys.info())
[13:13:57.717]                   }
[13:13:57.717]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.717]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.717]                     cond$call), session = sessionInformation(), 
[13:13:57.717]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.717]                   signalCondition(cond)
[13:13:57.717]                 }
[13:13:57.717]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.717]                 "immediateCondition"))) {
[13:13:57.717]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.717]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.717]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.717]                   if (TRUE && !signal) {
[13:13:57.717]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.717]                     {
[13:13:57.717]                       inherits <- base::inherits
[13:13:57.717]                       invokeRestart <- base::invokeRestart
[13:13:57.717]                       is.null <- base::is.null
[13:13:57.717]                       muffled <- FALSE
[13:13:57.717]                       if (inherits(cond, "message")) {
[13:13:57.717]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.717]                         if (muffled) 
[13:13:57.717]                           invokeRestart("muffleMessage")
[13:13:57.717]                       }
[13:13:57.717]                       else if (inherits(cond, "warning")) {
[13:13:57.717]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.717]                         if (muffled) 
[13:13:57.717]                           invokeRestart("muffleWarning")
[13:13:57.717]                       }
[13:13:57.717]                       else if (inherits(cond, "condition")) {
[13:13:57.717]                         if (!is.null(pattern)) {
[13:13:57.717]                           computeRestarts <- base::computeRestarts
[13:13:57.717]                           grepl <- base::grepl
[13:13:57.717]                           restarts <- computeRestarts(cond)
[13:13:57.717]                           for (restart in restarts) {
[13:13:57.717]                             name <- restart$name
[13:13:57.717]                             if (is.null(name)) 
[13:13:57.717]                               next
[13:13:57.717]                             if (!grepl(pattern, name)) 
[13:13:57.717]                               next
[13:13:57.717]                             invokeRestart(restart)
[13:13:57.717]                             muffled <- TRUE
[13:13:57.717]                             break
[13:13:57.717]                           }
[13:13:57.717]                         }
[13:13:57.717]                       }
[13:13:57.717]                       invisible(muffled)
[13:13:57.717]                     }
[13:13:57.717]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.717]                   }
[13:13:57.717]                 }
[13:13:57.717]                 else {
[13:13:57.717]                   if (TRUE) {
[13:13:57.717]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.717]                     {
[13:13:57.717]                       inherits <- base::inherits
[13:13:57.717]                       invokeRestart <- base::invokeRestart
[13:13:57.717]                       is.null <- base::is.null
[13:13:57.717]                       muffled <- FALSE
[13:13:57.717]                       if (inherits(cond, "message")) {
[13:13:57.717]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.717]                         if (muffled) 
[13:13:57.717]                           invokeRestart("muffleMessage")
[13:13:57.717]                       }
[13:13:57.717]                       else if (inherits(cond, "warning")) {
[13:13:57.717]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.717]                         if (muffled) 
[13:13:57.717]                           invokeRestart("muffleWarning")
[13:13:57.717]                       }
[13:13:57.717]                       else if (inherits(cond, "condition")) {
[13:13:57.717]                         if (!is.null(pattern)) {
[13:13:57.717]                           computeRestarts <- base::computeRestarts
[13:13:57.717]                           grepl <- base::grepl
[13:13:57.717]                           restarts <- computeRestarts(cond)
[13:13:57.717]                           for (restart in restarts) {
[13:13:57.717]                             name <- restart$name
[13:13:57.717]                             if (is.null(name)) 
[13:13:57.717]                               next
[13:13:57.717]                             if (!grepl(pattern, name)) 
[13:13:57.717]                               next
[13:13:57.717]                             invokeRestart(restart)
[13:13:57.717]                             muffled <- TRUE
[13:13:57.717]                             break
[13:13:57.717]                           }
[13:13:57.717]                         }
[13:13:57.717]                       }
[13:13:57.717]                       invisible(muffled)
[13:13:57.717]                     }
[13:13:57.717]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.717]                   }
[13:13:57.717]                 }
[13:13:57.717]             }
[13:13:57.717]         }))
[13:13:57.717]     }, error = function(ex) {
[13:13:57.717]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.717]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.717]                 ...future.rng), started = ...future.startTime, 
[13:13:57.717]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.717]             version = "1.8"), class = "FutureResult")
[13:13:57.717]     }, finally = {
[13:13:57.717]         if (!identical(...future.workdir, getwd())) 
[13:13:57.717]             setwd(...future.workdir)
[13:13:57.717]         {
[13:13:57.717]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.717]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.717]             }
[13:13:57.717]             base::options(...future.oldOptions)
[13:13:57.717]             if (.Platform$OS.type == "windows") {
[13:13:57.717]                 old_names <- names(...future.oldEnvVars)
[13:13:57.717]                 envs <- base::Sys.getenv()
[13:13:57.717]                 names <- names(envs)
[13:13:57.717]                 common <- intersect(names, old_names)
[13:13:57.717]                 added <- setdiff(names, old_names)
[13:13:57.717]                 removed <- setdiff(old_names, names)
[13:13:57.717]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.717]                   envs[common]]
[13:13:57.717]                 NAMES <- toupper(changed)
[13:13:57.717]                 args <- list()
[13:13:57.717]                 for (kk in seq_along(NAMES)) {
[13:13:57.717]                   name <- changed[[kk]]
[13:13:57.717]                   NAME <- NAMES[[kk]]
[13:13:57.717]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.717]                     next
[13:13:57.717]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.717]                 }
[13:13:57.717]                 NAMES <- toupper(added)
[13:13:57.717]                 for (kk in seq_along(NAMES)) {
[13:13:57.717]                   name <- added[[kk]]
[13:13:57.717]                   NAME <- NAMES[[kk]]
[13:13:57.717]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.717]                     next
[13:13:57.717]                   args[[name]] <- ""
[13:13:57.717]                 }
[13:13:57.717]                 NAMES <- toupper(removed)
[13:13:57.717]                 for (kk in seq_along(NAMES)) {
[13:13:57.717]                   name <- removed[[kk]]
[13:13:57.717]                   NAME <- NAMES[[kk]]
[13:13:57.717]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.717]                     next
[13:13:57.717]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.717]                 }
[13:13:57.717]                 if (length(args) > 0) 
[13:13:57.717]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.717]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.717]             }
[13:13:57.717]             else {
[13:13:57.717]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.717]             }
[13:13:57.717]             {
[13:13:57.717]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.717]                   0L) {
[13:13:57.717]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.717]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.717]                   base::options(opts)
[13:13:57.717]                 }
[13:13:57.717]                 {
[13:13:57.717]                   {
[13:13:57.717]                     base::assign(".Random.seed", c(10403L, 11L, 
[13:13:57.717]                     -1246949059L, -428181065L, 659881566L, -2042030184L, 
[13:13:57.717]                     -896985349L, -544678247L, 2014562088L, 46726614L, 
[13:13:57.717]                     -1542413743L, -1320290045L, 75953298L, -562214364L, 
[13:13:57.717]                     783226087L, -1475458755L, -1753145932L, 1679254042L, 
[13:13:57.717]                     -339826331L, 1895897087L, -1338225018L, -1816799728L, 
[13:13:57.717]                     1154223283L, -473364655L, -403870976L, -1035103778L, 
[13:13:57.717]                     -2047165911L, 206141915L, 1272440554L, -1669430132L, 
[13:13:57.717]                     -60486705L, -2093202555L, 1460244540L, -1801035502L, 
[13:13:57.717]                     1069360653L, -474729145L, -1993810130L, -808799608L, 
[13:13:57.717]                     -934718581L, 1020674921L, -925713096L, 1208602598L, 
[13:13:57.717]                     1304463233L, 899686163L, -97965886L, -490863756L, 
[13:13:57.717]                     1941491575L, -806438803L, -977266940L, -1090951638L, 
[13:13:57.717]                     845400981L, 1591668783L, 113150262L, 1825810784L, 
[13:13:57.717]                     -791779421L, -1731071807L, -1762738000L, 
[13:13:57.717]                     -743469106L, 608142137L, -1810969781L, -273932038L, 
[13:13:57.717]                     2036242940L, -362055105L, -1826468075L, -1117610964L, 
[13:13:57.717]                     -260340478L, -121066019L, 508538071L, -169625666L, 
[13:13:57.717]                     1722655224L, -1898080805L, -688112583L, 1754074504L, 
[13:13:57.717]                     1876478262L, -479390863L, 573510051L, 311184626L, 
[13:13:57.717]                     1788678212L, -1849130233L, -1427156259L, 
[13:13:57.717]                     1129593812L, -887457030L, -1728078267L, 1409943199L, 
[13:13:57.717]                     -979313626L, -848496464L, 1165279571L, -657998735L, 
[13:13:57.717]                     147276192L, 1375083838L, -417924023L, -1726318341L, 
[13:13:57.717]                     -1216646966L, -1184217556L, 1420204591L, 
[13:13:57.717]                     -1602120987L, 525641628L, 297341426L, -122782611L, 
[13:13:57.717]                     -1257419353L, 646690766L, 513611048L, -1335752917L, 
[13:13:57.717]                     -1089204919L, -1572236712L, 660515590L, 1606485729L, 
[13:13:57.717]                     1304826483L, 1438259938L, 267167316L, -689672361L, 
[13:13:57.717]                     -1540766899L, 714188516L, -1794218294L, -917149899L, 
[13:13:57.717]                     923094415L, 59763350L, -710852032L, 604685059L, 
[13:13:57.717]                     515552033L, 2041705488L, 747099118L, 1005298585L, 
[13:13:57.717]                     -921838549L, -2038453990L, -318993444L, 1491037663L, 
[13:13:57.717]                     152287669L, 1442453324L, -1689809502L, -1572987651L, 
[13:13:57.717]                     -4226569L, 2144620318L, 1676169688L, 255298363L, 
[13:13:57.717]                     -106283815L, 1891659880L, -967699050L, 569945361L, 
[13:13:57.717]                     726261443L, 349028050L, -195590300L, -559261017L, 
[13:13:57.717]                     435414013L, 1728738804L, -30321958L, -2012724187L, 
[13:13:57.717]                     -1639765697L, -353636666L, 363324240L, 498989939L, 
[13:13:57.717]                     725798289L, -19476544L, 820447646L, 1150522217L, 
[13:13:57.717]                     2090907L, -1288393046L, -1257805620L, -1055622769L, 
[13:13:57.717]                     878718405L, 1465774460L, 2027299282L, -1164018355L, 
[13:13:57.717]                     -1888288761L, 633548782L, 835278536L, -1402639925L, 
[13:13:57.717]                     202734633L, -518239624L, 1615042470L, -621796927L, 
[13:13:57.717]                     543258195L, -1517052670L, 353971252L, -432321097L, 
[13:13:57.717]                     997188013L, -418078012L, 388970218L, 1294424405L, 
[13:13:57.717]                     1913073391L, 1085607158L, -181158880L, -1495335453L, 
[13:13:57.717]                     -155558271L, 1002854640L, -1656334450L, 671820025L, 
[13:13:57.717]                     1996337803L, -2120510790L, 1423990204L, -915306753L, 
[13:13:57.717]                     906545749L, 1132359020L, -1405721150L, 1981351453L, 
[13:13:57.717]                     1974517399L, -132532226L, -963083336L, 1474043803L, 
[13:13:57.717]                     -1861466631L, 1410745672L, -218967946L, -689480271L, 
[13:13:57.717]                     874087395L, -1090993998L, 1094053124L, 1143123527L, 
[13:13:57.717]                     757963037L, 167516052L, -156116166L, -470030459L, 
[13:13:57.717]                     -389622689L, 945757926L, 1526490480L, -1869328749L, 
[13:13:57.717]                     -1944258767L, 579808736L, 1000299134L, 1598867721L, 
[13:13:57.717]                     -1367168197L, 1387979530L, 18459372L, 1009821551L, 
[13:13:57.717]                     92899493L, 444883548L, 1504367154L, 1463851309L, 
[13:13:57.717]                     -200450073L, -1671944434L, 1178376532L, -1154459886L, 
[13:13:57.717]                     -650709600L, -1319953716L, 1817990752L, -2051424318L, 
[13:13:57.717]                     -36904152L, 1658449324L, 1726116156L, -217473166L, 
[13:13:57.717]                     -303791824L, -1451733212L, -1562270408L, 
[13:13:57.717]                     -267248934L, 1548830608L, 579408636L, 993267604L, 
[13:13:57.717]                     2138802242L, 1530887424L, -1081545668L, -555520688L, 
[13:13:57.717]                     -1099556702L, 1484470088L, -376228084L, 1248086748L, 
[13:13:57.717]                     2079814482L, -962645376L, -48375724L, 1078848488L, 
[13:13:57.717]                     -1396066566L, -722654896L, -1047330004L, 
[13:13:57.717]                     -179353740L, -1382947950L, 1193981536L, -1786466420L, 
[13:13:57.717]                     1951109984L, 496322530L, 1605025704L, 1939184844L, 
[13:13:57.717]                     -1420194308L, 1030695858L, 1796983280L, -1133237820L, 
[13:13:57.717]                     -66100904L, -983513734L, 1900278192L, -1667608644L, 
[13:13:57.717]                     -680423340L, 876848066L, -1365638112L, 831102140L, 
[13:13:57.717]                     1108580944L, -1019772958L, 1408112232L, -1774183860L, 
[13:13:57.717]                     -1111269124L, -1426608142L, 170433792L, 1554544500L, 
[13:13:57.717]                     1812078600L, -702732870L, 1921547728L, -771308564L, 
[13:13:57.717]                     1612316564L, 1893546962L, 2029533024L, 442672460L, 
[13:13:57.717]                     1851968800L, -1580268670L, -8111384L, 2097489132L, 
[13:13:57.717]                     885008956L, 238095218L, -1110578576L, 798636068L, 
[13:13:57.717]                     82315064L, -1859294054L, -1348406576L, -870104900L, 
[13:13:57.717]                     720901780L, 756885122L, 1491819712L, -837357252L, 
[13:13:57.717]                     -658657136L, -2807262L, -1072142840L, 1111146764L, 
[13:13:57.717]                     544379548L, -614158830L, 689384832L, -1072554476L, 
[13:13:57.717]                     -138455512L, -1062083270L, -1298577456L, 
[13:13:57.717]                     102077036L, 1523885876L, -1601101166L, -795035296L, 
[13:13:57.717]                     1226166604L, 1737027552L, -19259486L, 10958760L, 
[13:13:57.717]                     1558137740L, -1724356932L, 561711986L, -1979598608L, 
[13:13:57.717]                     1204508740L, 34708824L, -148220870L, -1282325648L, 
[13:13:57.717]                     -1656568772L, 1019685652L, 1693534658L, -127205152L, 
[13:13:57.717]                     -953550980L, -1058316592L, 112559778L, -539900888L, 
[13:13:57.717]                     983935244L, -1772555332L, -1395147470L, 1485840320L, 
[13:13:57.717]                     -105967052L, -310584376L, 1913038010L, -209473648L, 
[13:13:57.717]                     -911698452L, 1563869268L, -537862510L, -1609532640L, 
[13:13:57.717]                     2056195532L, -440730656L, -176864574L, -1884120536L, 
[13:13:57.717]                     -1486471508L, -1866296644L, 2054287858L, 
[13:13:57.717]                     -1638840016L, -1999688540L, 1964548792L, 
[13:13:57.717]                     1148021594L, -209179248L, -1325911684L, 637193492L, 
[13:13:57.717]                     -989648574L, 1629545216L, 567663548L, -2114790576L, 
[13:13:57.717]                     116039970L, 768171336L, 1400600588L, -100239268L, 
[13:13:57.717]                     1384637650L, 1964132352L, -571221164L, 884359656L, 
[13:13:57.717]                     39417850L, -1584122160L, 816260396L, 1730750708L, 
[13:13:57.717]                     -20682862L, -1149363104L, 379559180L, 1106495200L, 
[13:13:57.717]                     1176960354L, 1913561768L, 635656780L, 2044417916L, 
[13:13:57.717]                     1182411570L, 2039717488L, 970726724L, 1911077848L, 
[13:13:57.717]                     900788346L, 813442608L, 250890940L, -1035532460L, 
[13:13:57.717]                     117455426L, -1093080160L, -65984324L, 420389328L, 
[13:13:57.717]                     -99588766L, -1477340184L, -1247766580L, -909191428L, 
[13:13:57.717]                     247336946L, 1690696832L, 220723444L, 1039479944L, 
[13:13:57.717]                     568452410L, -152812720L, -1368904596L, -1745002348L, 
[13:13:57.717]                     1196439890L, 224902880L, -1696886580L, -738994016L, 
[13:13:57.717]                     -2137368190L, -1673725720L, -226420500L, 
[13:13:57.717]                     1231984700L, 166404210L, 920397936L, 1479303716L, 
[13:13:57.717]                     -1443487176L, 758950426L, -258961200L, -2011220420L, 
[13:13:57.717]                     1003506836L, -1517054846L, -1556445248L, 
[13:13:57.717]                     1014607164L, 1694875280L, -1275309022L, -1984294904L, 
[13:13:57.717]                     322059404L, -1908162532L, -1561647982L, -674313088L, 
[13:13:57.717]                     1109509140L, -2047646936L, 1241060410L, -917721904L, 
[13:13:57.717]                     2034775148L, -1886710092L, -421797870L, 956088288L, 
[13:13:57.717]                     1327802992L, 1411719193L, -1176126965L, 2075578620L, 
[13:13:57.717]                     1392856362L, 1085707103L, -863575319L, -2016777730L, 
[13:13:57.717]                     518239724L, 523765053L, -1654362873L, 2130840816L, 
[13:13:57.717]                     -1970401138L, 1786669755L, 174572189L, -386492854L, 
[13:13:57.717]                     1672731752L, -117984175L, 589881155L, 1726810692L, 
[13:13:57.717]                     -444659470L, 880161991L, 1391349393L, 975179798L, 
[13:13:57.717]                     1020746356L, -1759830779L, -528182449L, 1764916552L, 
[13:13:57.717]                     1516712166L, 163456531L, -1840563851L, 157973842L, 
[13:13:57.717]                     -1047695968L, 1927568521L, 1553837243L, 341098252L, 
[13:13:57.717]                     1907840666L, -1544565745L, 17287257L, -1116969746L, 
[13:13:57.717]                     -1632608388L, -1173779475L, 778171543L, 1880424288L, 
[13:13:57.717]                     -465127618L, 352430091L, 922030221L, 495815098L, 
[13:13:57.717]                     -1234884616L, -1344420959L, -494846637L, 
[13:13:57.717]                     -441715596L, 1380722178L, 1874081943L, 1740466785L, 
[13:13:57.717]                     1869046438L, -966727004L, 699096917L, 387884031L, 
[13:13:57.717]                     -519921000L, 375392182L, 1800006723L, 1003619717L, 
[13:13:57.717]                     1189994018L, 2083849488L, -1164655431L, 1962232171L, 
[13:13:57.717]                     -1756010404L, 6817162L, 196796799L, -718455607L, 
[13:13:57.717]                     -1597570722L, 33395212L, -1412475427L, -142291737L, 
[13:13:57.717]                     -1397614320L, 562120750L, 357281499L, -1337808963L, 
[13:13:57.717]                     1227489578L, 1390437832L, -1462134031L, 1616655459L, 
[13:13:57.717]                     885805156L, -1289823342L, 1334857831L, -784863183L, 
[13:13:57.717]                     -1731772042L, 789008020L, 1006208165L, 2031835567L, 
[13:13:57.717]                     1762968168L, -1811178938L, 187572211L, -379142315L, 
[13:13:57.717]                     -1157570254L, 680527104L, 1727993321L, -247545765L, 
[13:13:57.717]                     -1201442132L, 10996922L, 1328959087L, 2138020857L, 
[13:13:57.717]                     -1256922482L, -1756294308L, -1556316211L, 
[13:13:57.717]                     -96985289L, -1380672064L, 2129363614L, 160209771L, 
[13:13:57.717]                     -782916883L, 2096158554L, 2008558616L, -1831224959L, 
[13:13:57.717]                     -1730990285L, 597574996L, -1460129950L, -642309129L, 
[13:13:57.717]                     -1318843327L, -2004170554L, -204540412L, 
[13:13:57.717]                     150725045L, 1517969055L, 484478712L, -483257642L, 
[13:13:57.717]                     -714766493L, -165593307L, 1167865026L, 46391728L, 
[13:13:57.717]                     756079065L, -766347445L, -2038964804L, -1834013206L, 
[13:13:57.717]                     1645812255L, -2127892311L, 697849918L, -551839444L, 
[13:13:57.717]                     -1567763587L, -1866036793L, 881757360L, 1462823630L, 
[13:13:57.717]                     -217849861L, -371021731L, 2081755018L, 1523498920L, 
[13:13:57.717]                     629470481L, 768175107L, -1164916988L, -139916494L, 
[13:13:57.717]                     -1633760889L, 230379473L, -1836031658L, -579436748L, 
[13:13:57.717]                     -940481979L, 352972431L, 13879304L, 1021991974L, 
[13:13:57.717]                     -1505454893L, -220563915L, -2039149166L, 
[13:13:57.717]                     1661161824L, 1343162569L, -1027200005L, -2056959028L, 
[13:13:57.717]                     949560922L, -677958833L, 1068163609L, -1201004498L, 
[13:13:57.717]                     1143156284L, -2052844685L), envir = base::globalenv(), 
[13:13:57.717]                       inherits = FALSE)
[13:13:57.717]                     NULL
[13:13:57.717]                   }
[13:13:57.717]                   options(future.plan = NULL)
[13:13:57.717]                   if (is.na(NA_character_)) 
[13:13:57.717]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.717]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.717]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:57.717]                   {
[13:13:57.717]                     future <- SequentialFuture(..., envir = envir)
[13:13:57.717]                     if (!future$lazy) 
[13:13:57.717]                       future <- run(future)
[13:13:57.717]                     invisible(future)
[13:13:57.717]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.717]                 }
[13:13:57.717]             }
[13:13:57.717]         }
[13:13:57.717]     })
[13:13:57.717]     if (TRUE) {
[13:13:57.717]         base::sink(type = "output", split = FALSE)
[13:13:57.717]         if (TRUE) {
[13:13:57.717]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.717]         }
[13:13:57.717]         else {
[13:13:57.717]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.717]         }
[13:13:57.717]         base::close(...future.stdout)
[13:13:57.717]         ...future.stdout <- NULL
[13:13:57.717]     }
[13:13:57.717]     ...future.result$conditions <- ...future.conditions
[13:13:57.717]     ...future.result$finished <- base::Sys.time()
[13:13:57.717]     ...future.result
[13:13:57.717] }
[13:13:57.723] assign_globals() ...
[13:13:57.723] List of 5
[13:13:57.723]  $ ...future.FUN            :function (...)  
[13:13:57.723]  $ future.call.arguments    : list()
[13:13:57.723]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.723]  $ ...future.elements_ii    :List of 5
[13:13:57.723]   ..$ : int 0
[13:13:57.723]   ..$ : int 0
[13:13:57.723]   ..$ : int 0
[13:13:57.723]   ..$ : int 0
[13:13:57.723]   ..$ : int 0
[13:13:57.723]  $ ...future.seeds_ii       :List of 5
[13:13:57.723]   ..$ : int [1:7] 10407 -1123629564 1480832767 749753039 1835724914 -1805692522 257641056
[13:13:57.723]   ..$ : int [1:7] 10407 -1403873743 -1299803345 1544837298 -1002514236 -370958805 -1910584925
[13:13:57.723]   ..$ : int [1:7] 10407 -1469547843 328319643 -932665312 -767681831 958503495 -864866447
[13:13:57.723]   ..$ : int [1:7] 10407 -124181392 701423648 673465484 -1490271616 2046888817 1893589147
[13:13:57.723]   ..$ : int [1:7] 10407 -1777203896 909271392 94209102 -664132223 -697716967 -1581193528
[13:13:57.723]  $ ...future.globals.maxSize: NULL
[13:13:57.723]  - attr(*, "where")=List of 5
[13:13:57.723]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:57.723]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:57.723]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:57.723]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:57.723]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:57.723]  - attr(*, "resolved")= logi FALSE
[13:13:57.723]  - attr(*, "total_size")= num 616
[13:13:57.723]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.723]  - attr(*, "already-done")= logi TRUE
[13:13:57.733] - reassign environment for '...future.FUN'
[13:13:57.733] - copied '...future.FUN' to environment
[13:13:57.734] - copied 'future.call.arguments' to environment
[13:13:57.734] - copied '...future.elements_ii' to environment
[13:13:57.734] - copied '...future.seeds_ii' to environment
[13:13:57.734] - copied '...future.globals.maxSize' to environment
[13:13:57.734] assign_globals() ... done
[13:13:57.735] plan(): Setting new future strategy stack:
[13:13:57.735] List of future strategies:
[13:13:57.735] 1. sequential:
[13:13:57.735]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.735]    - tweaked: FALSE
[13:13:57.735]    - call: NULL
[13:13:57.735] plan(): nbrOfWorkers() = 1
[13:13:57.737] plan(): Setting new future strategy stack:
[13:13:57.738] List of future strategies:
[13:13:57.738] 1. sequential:
[13:13:57.738]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.738]    - tweaked: FALSE
[13:13:57.738]    - call: plan(strategy)
[13:13:57.738] plan(): nbrOfWorkers() = 1
[13:13:57.739] SequentialFuture started (and completed)
[13:13:57.739] - Launch lazy future ... done
[13:13:57.739] run() for 'SequentialFuture' ... done
[13:13:57.740] Created future:
[13:13:57.740] SequentialFuture:
[13:13:57.740] Label: 'future_replicate-1'
[13:13:57.740] Expression:
[13:13:57.740] {
[13:13:57.740]     do.call(function(...) {
[13:13:57.740]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.740]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.740]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.740]             on.exit(options(oopts), add = TRUE)
[13:13:57.740]         }
[13:13:57.740]         {
[13:13:57.740]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.740]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.740]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.740]                   envir = globalenv(), inherits = FALSE)
[13:13:57.740]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.740]             })
[13:13:57.740]         }
[13:13:57.740]     }, args = future.call.arguments)
[13:13:57.740] }
[13:13:57.740] Lazy evaluation: FALSE
[13:13:57.740] Asynchronous evaluation: FALSE
[13:13:57.740] Local evaluation: TRUE
[13:13:57.740] Environment: R_GlobalEnv
[13:13:57.740] Capture standard output: TRUE
[13:13:57.740] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.740] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.740] Packages: <none>
[13:13:57.740] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:57.740] Resolved: TRUE
[13:13:57.740] Value: 280 bytes of class 'list'
[13:13:57.740] Early signaling: FALSE
[13:13:57.740] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:57.740] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.742] Chunk #1 of 1 ... DONE
[13:13:57.742] Launching 1 futures (chunks) ... DONE
[13:13:57.742] Resolving 1 futures (chunks) ...
[13:13:57.742] resolve() on list ...
[13:13:57.742]  recursive: 0
[13:13:57.743]  length: 1
[13:13:57.743] 
[13:13:57.743] resolved() for 'SequentialFuture' ...
[13:13:57.743] - state: 'finished'
[13:13:57.743] - run: TRUE
[13:13:57.743] - result: 'FutureResult'
[13:13:57.744] resolved() for 'SequentialFuture' ... done
[13:13:57.744] Future #1
[13:13:57.744] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:57.745] - nx: 1
[13:13:57.745] - relay: TRUE
[13:13:57.745] - stdout: TRUE
[13:13:57.745] - signal: TRUE
[13:13:57.745] - resignal: FALSE
[13:13:57.745] - force: TRUE
[13:13:57.745] - relayed: [n=1] FALSE
[13:13:57.746] - queued futures: [n=1] FALSE
[13:13:57.746]  - until=1
[13:13:57.746]  - relaying element #1
[13:13:57.746] - relayed: [n=1] TRUE
[13:13:57.746] - queued futures: [n=1] TRUE
[13:13:57.747] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:57.747]  length: 0 (resolved future 1)
[13:13:57.747] Relaying remaining futures
[13:13:57.747] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.747] - nx: 1
[13:13:57.747] - relay: TRUE
[13:13:57.748] - stdout: TRUE
[13:13:57.748] - signal: TRUE
[13:13:57.748] - resignal: FALSE
[13:13:57.748] - force: TRUE
[13:13:57.748] - relayed: [n=1] TRUE
[13:13:57.748] - queued futures: [n=1] TRUE
 - flush all
[13:13:57.749] - relayed: [n=1] TRUE
[13:13:57.749] - queued futures: [n=1] TRUE
[13:13:57.749] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.749] resolve() on list ... DONE
[13:13:57.749]  - Number of value chunks collected: 1
[13:13:57.749] Resolving 1 futures (chunks) ... DONE
[13:13:57.750] Reducing values from 1 chunks ...
[13:13:57.750]  - Number of values collected after concatenation: 5
[13:13:57.750]  - Number of values expected: 5
[13:13:57.750] Reducing values from 1 chunks ... DONE
[13:13:57.750] future_lapply() ... DONE
[13:13:57.751] future_lapply() ...
[13:13:57.751] Generating random seeds ...
[13:13:57.751] Generating random seed streams for 5 elements ...
[13:13:57.751] Generating random seed streams for 5 elements ... DONE
[13:13:57.752] Generating random seeds ... DONE
[13:13:57.752] 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
[13:13:57.753] Number of chunks: 1
[13:13:57.753] getGlobalsAndPackagesXApply() ...
[13:13:57.753]  - future.globals: TRUE
[13:13:57.753] getGlobalsAndPackages() ...
[13:13:57.753] Searching for globals...
[13:13:57.755] - globals found: [2] 'FUN', 'sample'
[13:13:57.755] Searching for globals ... DONE
[13:13:57.755] Resolving globals: FALSE
[13:13:57.755] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:57.756] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:57.756] - globals: [1] 'FUN'
[13:13:57.757] 
[13:13:57.757] getGlobalsAndPackages() ... DONE
[13:13:57.757]  - globals found/used: [n=1] 'FUN'
[13:13:57.758]  - needed namespaces: [n=0] 
[13:13:57.758] Finding globals ... DONE
[13:13:57.758]  - use_args: TRUE
[13:13:57.758]  - Getting '...' globals ...
[13:13:57.758] resolve() on list ...
[13:13:57.759]  recursive: 0
[13:13:57.759]  length: 1
[13:13:57.759]  elements: '...'
[13:13:57.759]  length: 0 (resolved future 1)
[13:13:57.759] resolve() on list ... DONE
[13:13:57.759]    - '...' content: [n=0] 
[13:13:57.760] List of 1
[13:13:57.760]  $ ...: list()
[13:13:57.760]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.760]  - attr(*, "where")=List of 1
[13:13:57.760]   ..$ ...:<environment: 0x0000019eca644878> 
[13:13:57.760]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.760]  - attr(*, "resolved")= logi TRUE
[13:13:57.760]  - attr(*, "total_size")= num NA
[13:13:57.763]  - Getting '...' globals ... DONE
[13:13:57.763] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:57.763] List of 2
[13:13:57.763]  $ ...future.FUN:function (...)  
[13:13:57.763]  $ ...          : list()
[13:13:57.763]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.763]  - attr(*, "where")=List of 2
[13:13:57.763]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.763]   ..$ ...          :<environment: 0x0000019eca644878> 
[13:13:57.763]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.763]  - attr(*, "resolved")= logi FALSE
[13:13:57.763]  - attr(*, "total_size")= num 616
[13:13:57.766] Packages to be attached in all futures: [n=0] 
[13:13:57.766] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.767] Number of futures (= number of chunks): 1
[13:13:57.767] Launching 1 futures (chunks) ...
[13:13:57.767] Chunk #1 of 1 ...
[13:13:57.767]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.767] getGlobalsAndPackages() ...
[13:13:57.767] Searching for globals...
[13:13:57.768] 
[13:13:57.768] Searching for globals ... DONE
[13:13:57.768] - globals: [0] <none>
[13:13:57.768] getGlobalsAndPackages() ... DONE
[13:13:57.768]    + additional globals found: [n=0] 
[13:13:57.769]    + additional namespaces needed: [n=0] 
[13:13:57.769]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.769]  - seeds: [5] <seeds>
[13:13:57.769]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.769] getGlobalsAndPackages() ...
[13:13:57.770] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.770] Resolving globals: FALSE
[13:13:57.770] Tweak future expression to call with '...' arguments ...
[13:13:57.770] {
[13:13:57.770]     do.call(function(...) {
[13:13:57.770]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.770]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.770]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.770]             on.exit(options(oopts), add = TRUE)
[13:13:57.770]         }
[13:13:57.770]         {
[13:13:57.770]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.770]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.770]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.770]                   envir = globalenv(), inherits = FALSE)
[13:13:57.770]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.770]             })
[13:13:57.770]         }
[13:13:57.770]     }, args = future.call.arguments)
[13:13:57.770] }
[13:13:57.771] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.771] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.771] 
[13:13:57.772] getGlobalsAndPackages() ... DONE
[13:13:57.772] run() for 'Future' ...
[13:13:57.772] - state: 'created'
[13:13:57.772] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.773] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.773] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.773]   - Field: 'label'
[13:13:57.773]   - Field: 'local'
[13:13:57.773]   - Field: 'owner'
[13:13:57.774]   - Field: 'envir'
[13:13:57.774]   - Field: 'packages'
[13:13:57.774]   - Field: 'gc'
[13:13:57.774]   - Field: 'conditions'
[13:13:57.774]   - Field: 'expr'
[13:13:57.775]   - Field: 'uuid'
[13:13:57.775]   - Field: 'seed'
[13:13:57.775]   - Field: 'version'
[13:13:57.775]   - Field: 'result'
[13:13:57.775]   - Field: 'asynchronous'
[13:13:57.775]   - Field: 'calls'
[13:13:57.776]   - Field: 'globals'
[13:13:57.776]   - Field: 'stdout'
[13:13:57.776]   - Field: 'earlySignal'
[13:13:57.776]   - Field: 'lazy'
[13:13:57.776]   - Field: 'state'
[13:13:57.776] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:57.777] - Launch lazy future ...
[13:13:57.777] Packages needed by the future expression (n = 0): <none>
[13:13:57.777] Packages needed by future strategies (n = 0): <none>
[13:13:57.778] {
[13:13:57.778]     {
[13:13:57.778]         {
[13:13:57.778]             ...future.startTime <- base::Sys.time()
[13:13:57.778]             {
[13:13:57.778]                 {
[13:13:57.778]                   {
[13:13:57.778]                     base::local({
[13:13:57.778]                       has_future <- base::requireNamespace("future", 
[13:13:57.778]                         quietly = TRUE)
[13:13:57.778]                       if (has_future) {
[13:13:57.778]                         ns <- base::getNamespace("future")
[13:13:57.778]                         version <- ns[[".package"]][["version"]]
[13:13:57.778]                         if (is.null(version)) 
[13:13:57.778]                           version <- utils::packageVersion("future")
[13:13:57.778]                       }
[13:13:57.778]                       else {
[13:13:57.778]                         version <- NULL
[13:13:57.778]                       }
[13:13:57.778]                       if (!has_future || version < "1.8.0") {
[13:13:57.778]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.778]                           "", base::R.version$version.string), 
[13:13:57.778]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:57.778]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.778]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.778]                             "release", "version")], collapse = " "), 
[13:13:57.778]                           hostname = base::Sys.info()[["nodename"]])
[13:13:57.778]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.778]                           info)
[13:13:57.778]                         info <- base::paste(info, collapse = "; ")
[13:13:57.778]                         if (!has_future) {
[13:13:57.778]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.778]                             info)
[13:13:57.778]                         }
[13:13:57.778]                         else {
[13:13:57.778]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.778]                             info, version)
[13:13:57.778]                         }
[13:13:57.778]                         base::stop(msg)
[13:13:57.778]                       }
[13:13:57.778]                     })
[13:13:57.778]                   }
[13:13:57.778]                   options(future.plan = NULL)
[13:13:57.778]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.778]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.778]                 }
[13:13:57.778]                 ...future.workdir <- getwd()
[13:13:57.778]             }
[13:13:57.778]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.778]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.778]         }
[13:13:57.778]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.778]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:57.778]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.778]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.778]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.778]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.778]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.778]             base::names(...future.oldOptions))
[13:13:57.778]     }
[13:13:57.778]     if (FALSE) {
[13:13:57.778]     }
[13:13:57.778]     else {
[13:13:57.778]         if (TRUE) {
[13:13:57.778]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.778]                 open = "w")
[13:13:57.778]         }
[13:13:57.778]         else {
[13:13:57.778]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.778]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.778]         }
[13:13:57.778]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.778]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.778]             base::sink(type = "output", split = FALSE)
[13:13:57.778]             base::close(...future.stdout)
[13:13:57.778]         }, add = TRUE)
[13:13:57.778]     }
[13:13:57.778]     ...future.frame <- base::sys.nframe()
[13:13:57.778]     ...future.conditions <- base::list()
[13:13:57.778]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.778]     if (FALSE) {
[13:13:57.778]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.778]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.778]     }
[13:13:57.778]     ...future.result <- base::tryCatch({
[13:13:57.778]         base::withCallingHandlers({
[13:13:57.778]             ...future.value <- base::withVisible(base::local({
[13:13:57.778]                 do.call(function(...) {
[13:13:57.778]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.778]                   if (!identical(...future.globals.maxSize.org, 
[13:13:57.778]                     ...future.globals.maxSize)) {
[13:13:57.778]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.778]                     on.exit(options(oopts), add = TRUE)
[13:13:57.778]                   }
[13:13:57.778]                   {
[13:13:57.778]                     lapply(seq_along(...future.elements_ii), 
[13:13:57.778]                       FUN = function(jj) {
[13:13:57.778]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.778]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.778]                           envir = globalenv(), inherits = FALSE)
[13:13:57.778]                         ...future.FUN(...future.X_jj, ...)
[13:13:57.778]                       })
[13:13:57.778]                   }
[13:13:57.778]                 }, args = future.call.arguments)
[13:13:57.778]             }))
[13:13:57.778]             future::FutureResult(value = ...future.value$value, 
[13:13:57.778]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.778]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.778]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.778]                     ...future.globalenv.names))
[13:13:57.778]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.778]         }, condition = base::local({
[13:13:57.778]             c <- base::c
[13:13:57.778]             inherits <- base::inherits
[13:13:57.778]             invokeRestart <- base::invokeRestart
[13:13:57.778]             length <- base::length
[13:13:57.778]             list <- base::list
[13:13:57.778]             seq.int <- base::seq.int
[13:13:57.778]             signalCondition <- base::signalCondition
[13:13:57.778]             sys.calls <- base::sys.calls
[13:13:57.778]             `[[` <- base::`[[`
[13:13:57.778]             `+` <- base::`+`
[13:13:57.778]             `<<-` <- base::`<<-`
[13:13:57.778]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.778]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.778]                   3L)]
[13:13:57.778]             }
[13:13:57.778]             function(cond) {
[13:13:57.778]                 is_error <- inherits(cond, "error")
[13:13:57.778]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.778]                   NULL)
[13:13:57.778]                 if (is_error) {
[13:13:57.778]                   sessionInformation <- function() {
[13:13:57.778]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.778]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.778]                       search = base::search(), system = base::Sys.info())
[13:13:57.778]                   }
[13:13:57.778]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.778]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.778]                     cond$call), session = sessionInformation(), 
[13:13:57.778]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.778]                   signalCondition(cond)
[13:13:57.778]                 }
[13:13:57.778]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.778]                 "immediateCondition"))) {
[13:13:57.778]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.778]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.778]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.778]                   if (TRUE && !signal) {
[13:13:57.778]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.778]                     {
[13:13:57.778]                       inherits <- base::inherits
[13:13:57.778]                       invokeRestart <- base::invokeRestart
[13:13:57.778]                       is.null <- base::is.null
[13:13:57.778]                       muffled <- FALSE
[13:13:57.778]                       if (inherits(cond, "message")) {
[13:13:57.778]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.778]                         if (muffled) 
[13:13:57.778]                           invokeRestart("muffleMessage")
[13:13:57.778]                       }
[13:13:57.778]                       else if (inherits(cond, "warning")) {
[13:13:57.778]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.778]                         if (muffled) 
[13:13:57.778]                           invokeRestart("muffleWarning")
[13:13:57.778]                       }
[13:13:57.778]                       else if (inherits(cond, "condition")) {
[13:13:57.778]                         if (!is.null(pattern)) {
[13:13:57.778]                           computeRestarts <- base::computeRestarts
[13:13:57.778]                           grepl <- base::grepl
[13:13:57.778]                           restarts <- computeRestarts(cond)
[13:13:57.778]                           for (restart in restarts) {
[13:13:57.778]                             name <- restart$name
[13:13:57.778]                             if (is.null(name)) 
[13:13:57.778]                               next
[13:13:57.778]                             if (!grepl(pattern, name)) 
[13:13:57.778]                               next
[13:13:57.778]                             invokeRestart(restart)
[13:13:57.778]                             muffled <- TRUE
[13:13:57.778]                             break
[13:13:57.778]                           }
[13:13:57.778]                         }
[13:13:57.778]                       }
[13:13:57.778]                       invisible(muffled)
[13:13:57.778]                     }
[13:13:57.778]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.778]                   }
[13:13:57.778]                 }
[13:13:57.778]                 else {
[13:13:57.778]                   if (TRUE) {
[13:13:57.778]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.778]                     {
[13:13:57.778]                       inherits <- base::inherits
[13:13:57.778]                       invokeRestart <- base::invokeRestart
[13:13:57.778]                       is.null <- base::is.null
[13:13:57.778]                       muffled <- FALSE
[13:13:57.778]                       if (inherits(cond, "message")) {
[13:13:57.778]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.778]                         if (muffled) 
[13:13:57.778]                           invokeRestart("muffleMessage")
[13:13:57.778]                       }
[13:13:57.778]                       else if (inherits(cond, "warning")) {
[13:13:57.778]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.778]                         if (muffled) 
[13:13:57.778]                           invokeRestart("muffleWarning")
[13:13:57.778]                       }
[13:13:57.778]                       else if (inherits(cond, "condition")) {
[13:13:57.778]                         if (!is.null(pattern)) {
[13:13:57.778]                           computeRestarts <- base::computeRestarts
[13:13:57.778]                           grepl <- base::grepl
[13:13:57.778]                           restarts <- computeRestarts(cond)
[13:13:57.778]                           for (restart in restarts) {
[13:13:57.778]                             name <- restart$name
[13:13:57.778]                             if (is.null(name)) 
[13:13:57.778]                               next
[13:13:57.778]                             if (!grepl(pattern, name)) 
[13:13:57.778]                               next
[13:13:57.778]                             invokeRestart(restart)
[13:13:57.778]                             muffled <- TRUE
[13:13:57.778]                             break
[13:13:57.778]                           }
[13:13:57.778]                         }
[13:13:57.778]                       }
[13:13:57.778]                       invisible(muffled)
[13:13:57.778]                     }
[13:13:57.778]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.778]                   }
[13:13:57.778]                 }
[13:13:57.778]             }
[13:13:57.778]         }))
[13:13:57.778]     }, error = function(ex) {
[13:13:57.778]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.778]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.778]                 ...future.rng), started = ...future.startTime, 
[13:13:57.778]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.778]             version = "1.8"), class = "FutureResult")
[13:13:57.778]     }, finally = {
[13:13:57.778]         if (!identical(...future.workdir, getwd())) 
[13:13:57.778]             setwd(...future.workdir)
[13:13:57.778]         {
[13:13:57.778]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.778]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.778]             }
[13:13:57.778]             base::options(...future.oldOptions)
[13:13:57.778]             if (.Platform$OS.type == "windows") {
[13:13:57.778]                 old_names <- names(...future.oldEnvVars)
[13:13:57.778]                 envs <- base::Sys.getenv()
[13:13:57.778]                 names <- names(envs)
[13:13:57.778]                 common <- intersect(names, old_names)
[13:13:57.778]                 added <- setdiff(names, old_names)
[13:13:57.778]                 removed <- setdiff(old_names, names)
[13:13:57.778]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.778]                   envs[common]]
[13:13:57.778]                 NAMES <- toupper(changed)
[13:13:57.778]                 args <- list()
[13:13:57.778]                 for (kk in seq_along(NAMES)) {
[13:13:57.778]                   name <- changed[[kk]]
[13:13:57.778]                   NAME <- NAMES[[kk]]
[13:13:57.778]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.778]                     next
[13:13:57.778]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.778]                 }
[13:13:57.778]                 NAMES <- toupper(added)
[13:13:57.778]                 for (kk in seq_along(NAMES)) {
[13:13:57.778]                   name <- added[[kk]]
[13:13:57.778]                   NAME <- NAMES[[kk]]
[13:13:57.778]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.778]                     next
[13:13:57.778]                   args[[name]] <- ""
[13:13:57.778]                 }
[13:13:57.778]                 NAMES <- toupper(removed)
[13:13:57.778]                 for (kk in seq_along(NAMES)) {
[13:13:57.778]                   name <- removed[[kk]]
[13:13:57.778]                   NAME <- NAMES[[kk]]
[13:13:57.778]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.778]                     next
[13:13:57.778]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.778]                 }
[13:13:57.778]                 if (length(args) > 0) 
[13:13:57.778]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.778]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.778]             }
[13:13:57.778]             else {
[13:13:57.778]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.778]             }
[13:13:57.778]             {
[13:13:57.778]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.778]                   0L) {
[13:13:57.778]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.778]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.778]                   base::options(opts)
[13:13:57.778]                 }
[13:13:57.778]                 {
[13:13:57.778]                   {
[13:13:57.778]                     base::assign(".Random.seed", c(10403L, 2L, 
[13:13:57.778]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[13:13:57.778]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[13:13:57.778]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[13:13:57.778]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[13:13:57.778]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[13:13:57.778]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[13:13:57.778]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[13:13:57.778]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[13:13:57.778]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[13:13:57.778]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[13:13:57.778]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[13:13:57.778]                     -1512233174L, -1985955764L, -425390065L, 
[13:13:57.778]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[13:13:57.778]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[13:13:57.778]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[13:13:57.778]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[13:13:57.778]                     1818328109L, -1284085436L, -1981489558L, 
[13:13:57.778]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[13:13:57.778]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[13:13:57.778]                     -1718567047L, -793788661L, -1133789126L, 
[13:13:57.778]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[13:13:57.778]                     -1823521982L, -1345991523L, -1672661737L, 
[13:13:57.778]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[13:13:57.778]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[13:13:57.778]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[13:13:57.778]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[13:13:57.778]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[13:13:57.778]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[13:13:57.778]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[13:13:57.778]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[13:13:57.778]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[13:13:57.778]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[13:13:57.778]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[13:13:57.778]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[13:13:57.778]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[13:13:57.778]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[13:13:57.778]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[13:13:57.778]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[13:13:57.778]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[13:13:57.778]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[13:13:57.778]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[13:13:57.778]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[13:13:57.778]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[13:13:57.778]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[13:13:57.778]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[13:13:57.778]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[13:13:57.778]                     -1119334354L, -1521015416L, -2041922421L, 
[13:13:57.778]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[13:13:57.778]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[13:13:57.778]                     1232111981L, -1801753084L, -1608606422L, 
[13:13:57.778]                     -1172096363L, 1420874031L, -1210473418L, 
[13:13:57.778]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[13:13:57.778]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[13:13:57.778]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[13:13:57.778]                     679371266L, -591318819L, -104578089L, -172818754L, 
[13:13:57.778]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[13:13:57.778]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[13:13:57.778]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[13:13:57.778]                     -332493318L, -1978392251L, -1691039632L, 
[13:13:57.778]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[13:13:57.778]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[13:13:57.778]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[13:13:57.778]                     87560756L, -87565624L, 426345146L, -699970416L, 
[13:13:57.778]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[13:13:57.778]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[13:13:57.778]                     -1178330196L, -687617348L, -1701912078L, 
[13:13:57.778]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[13:13:57.778]                     -1345416048L, 1816730492L, -1570431212L, 
[13:13:57.778]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[13:13:57.778]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[13:13:57.778]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[13:13:57.778]                     -1493184262L, -1943836976L, -590788308L, 
[13:13:57.778]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[13:13:57.778]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[13:13:57.778]                     1274857340L, -1205842638L, -1938479504L, 
[13:13:57.778]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[13:13:57.778]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[13:13:57.778]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[13:13:57.778]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[13:13:57.778]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[13:13:57.778]                     -1460751252L, 1201879444L, -1459788718L, 
[13:13:57.778]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[13:13:57.778]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[13:13:57.778]                     -420945808L, -1997735900L, -1838404552L, 
[13:13:57.778]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[13:13:57.778]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[13:13:57.778]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[13:13:57.778]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[13:13:57.778]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[13:13:57.778]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[13:13:57.778]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[13:13:57.778]                     942193650L, 751741680L, 689743428L, -18455976L, 
[13:13:57.778]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[13:13:57.778]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[13:13:57.778]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[13:13:57.778]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[13:13:57.778]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[13:13:57.778]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[13:13:57.778]                     -1357570110L, 1896595240L, -2066952276L, 
[13:13:57.778]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[13:13:57.778]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[13:13:57.778]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[13:13:57.778]                     769655120L, 236357794L, 181393736L, -13334772L, 
[13:13:57.778]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[13:13:57.778]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[13:13:57.778]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[13:13:57.778]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[13:13:57.778]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[13:13:57.778]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[13:13:57.778]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[13:13:57.778]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[13:13:57.778]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[13:13:57.778]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[13:13:57.778]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[13:13:57.778]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[13:13:57.778]                     -1365842884L, -438961294L, -1851472272L, 
[13:13:57.778]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[13:13:57.778]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[13:13:57.778]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[13:13:57.778]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[13:13:57.778]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[13:13:57.778]                     -594809770L, -2146766621L, -2013964635L, 
[13:13:57.778]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[13:13:57.778]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[13:13:57.778]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[13:13:57.778]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[13:13:57.778]                     -1426021878L, -1285634264L, 1507547537L, 
[13:13:57.778]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[13:13:57.778]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[13:13:57.778]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[13:13:57.778]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[13:13:57.778]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[13:13:57.778]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[13:13:57.778]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[13:13:57.778]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[13:13:57.778]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[13:13:57.778]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[13:13:57.778]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[13:13:57.778]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[13:13:57.778]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[13:13:57.778]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[13:13:57.778]                     -1604604761L, 1421229008L, -1268333714L, 
[13:13:57.778]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[13:13:57.778]                     -2070476623L, -2099222749L, 1141171236L, 
[13:13:57.778]                     -146426158L, -1797385433L, -1129376399L, 
[13:13:57.778]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[13:13:57.778]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[13:13:57.778]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[13:13:57.778]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[13:13:57.778]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[13:13:57.778]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[13:13:57.778]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[13:13:57.778]                     -1092079724L, -1765622238L, -1882554057L, 
[13:13:57.778]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[13:13:57.778]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[13:13:57.778]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[13:13:57.778]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[13:13:57.778]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[13:13:57.778]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[13:13:57.778]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[13:13:57.778]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[13:13:57.778]                     865377681L, -1127426242L), envir = base::globalenv(), 
[13:13:57.778]                       inherits = FALSE)
[13:13:57.778]                     NULL
[13:13:57.778]                   }
[13:13:57.778]                   options(future.plan = NULL)
[13:13:57.778]                   if (is.na(NA_character_)) 
[13:13:57.778]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.778]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.778]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:57.778]                   {
[13:13:57.778]                     future <- SequentialFuture(..., envir = envir)
[13:13:57.778]                     if (!future$lazy) 
[13:13:57.778]                       future <- run(future)
[13:13:57.778]                     invisible(future)
[13:13:57.778]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.778]                 }
[13:13:57.778]             }
[13:13:57.778]         }
[13:13:57.778]     })
[13:13:57.778]     if (TRUE) {
[13:13:57.778]         base::sink(type = "output", split = FALSE)
[13:13:57.778]         if (TRUE) {
[13:13:57.778]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.778]         }
[13:13:57.778]         else {
[13:13:57.778]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.778]         }
[13:13:57.778]         base::close(...future.stdout)
[13:13:57.778]         ...future.stdout <- NULL
[13:13:57.778]     }
[13:13:57.778]     ...future.result$conditions <- ...future.conditions
[13:13:57.778]     ...future.result$finished <- base::Sys.time()
[13:13:57.778]     ...future.result
[13:13:57.778] }
[13:13:57.783] assign_globals() ...
[13:13:57.783] List of 5
[13:13:57.783]  $ ...future.FUN            :function (...)  
[13:13:57.783]  $ future.call.arguments    : list()
[13:13:57.783]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.783]  $ ...future.elements_ii    :List of 5
[13:13:57.783]   ..$ : int 0
[13:13:57.783]   ..$ : int 0
[13:13:57.783]   ..$ : int 0
[13:13:57.783]   ..$ : int 0
[13:13:57.783]   ..$ : int 0
[13:13:57.783]  $ ...future.seeds_ii       :List of 5
[13:13:57.783]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[13:13:57.783]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[13:13:57.783]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[13:13:57.783]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[13:13:57.783]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[13:13:57.783]  $ ...future.globals.maxSize: NULL
[13:13:57.783]  - attr(*, "where")=List of 5
[13:13:57.783]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:57.783]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:57.783]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:57.783]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:57.783]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:57.783]  - attr(*, "resolved")= logi FALSE
[13:13:57.783]  - attr(*, "total_size")= num 616
[13:13:57.783]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.783]  - attr(*, "already-done")= logi TRUE
[13:13:57.793] - reassign environment for '...future.FUN'
[13:13:57.793] - copied '...future.FUN' to environment
[13:13:57.793] - copied 'future.call.arguments' to environment
[13:13:57.793] - copied '...future.elements_ii' to environment
[13:13:57.794] - copied '...future.seeds_ii' to environment
[13:13:57.794] - copied '...future.globals.maxSize' to environment
[13:13:57.794] assign_globals() ... done
[13:13:57.794] plan(): Setting new future strategy stack:
[13:13:57.794] List of future strategies:
[13:13:57.794] 1. sequential:
[13:13:57.794]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.794]    - tweaked: FALSE
[13:13:57.794]    - call: NULL
[13:13:57.795] plan(): nbrOfWorkers() = 1
[13:13:57.796] plan(): Setting new future strategy stack:
[13:13:57.796] List of future strategies:
[13:13:57.796] 1. sequential:
[13:13:57.796]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.796]    - tweaked: FALSE
[13:13:57.796]    - call: plan(strategy)
[13:13:57.797] plan(): nbrOfWorkers() = 1
[13:13:57.797] SequentialFuture started (and completed)
[13:13:57.797] - Launch lazy future ... done
[13:13:57.798] run() for 'SequentialFuture' ... done
[13:13:57.798] Created future:
[13:13:57.798] SequentialFuture:
[13:13:57.798] Label: 'future_replicate-1'
[13:13:57.798] Expression:
[13:13:57.798] {
[13:13:57.798]     do.call(function(...) {
[13:13:57.798]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.798]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.798]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.798]             on.exit(options(oopts), add = TRUE)
[13:13:57.798]         }
[13:13:57.798]         {
[13:13:57.798]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.798]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.798]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.798]                   envir = globalenv(), inherits = FALSE)
[13:13:57.798]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.798]             })
[13:13:57.798]         }
[13:13:57.798]     }, args = future.call.arguments)
[13:13:57.798] }
[13:13:57.798] Lazy evaluation: FALSE
[13:13:57.798] Asynchronous evaluation: FALSE
[13:13:57.798] Local evaluation: TRUE
[13:13:57.798] Environment: R_GlobalEnv
[13:13:57.798] Capture standard output: TRUE
[13:13:57.798] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.798] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.798] Packages: <none>
[13:13:57.798] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:57.798] Resolved: TRUE
[13:13:57.798] Value: 280 bytes of class 'list'
[13:13:57.798] Early signaling: FALSE
[13:13:57.798] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:57.798] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.799] Chunk #1 of 1 ... DONE
[13:13:57.799] Launching 1 futures (chunks) ... DONE
[13:13:57.800] Resolving 1 futures (chunks) ...
[13:13:57.800] resolve() on list ...
[13:13:57.800]  recursive: 0
[13:13:57.800]  length: 1
[13:13:57.800] 
[13:13:57.800] resolved() for 'SequentialFuture' ...
[13:13:57.801] - state: 'finished'
[13:13:57.801] - run: TRUE
[13:13:57.801] - result: 'FutureResult'
[13:13:57.801] resolved() for 'SequentialFuture' ... done
[13:13:57.801] Future #1
[13:13:57.802] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:57.802] - nx: 1
[13:13:57.802] - relay: TRUE
[13:13:57.802] - stdout: TRUE
[13:13:57.802] - signal: TRUE
[13:13:57.802] - resignal: FALSE
[13:13:57.802] - force: TRUE
[13:13:57.803] - relayed: [n=1] FALSE
[13:13:57.803] - queued futures: [n=1] FALSE
[13:13:57.803]  - until=1
[13:13:57.803]  - relaying element #1
[13:13:57.803] - relayed: [n=1] TRUE
[13:13:57.804] - queued futures: [n=1] TRUE
[13:13:57.804] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:57.804]  length: 0 (resolved future 1)
[13:13:57.804] Relaying remaining futures
[13:13:57.804] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.804] - nx: 1
[13:13:57.804] - relay: TRUE
[13:13:57.805] - stdout: TRUE
[13:13:57.805] - signal: TRUE
[13:13:57.805] - resignal: FALSE
[13:13:57.805] - force: TRUE
[13:13:57.805] - relayed: [n=1] TRUE
[13:13:57.805] - queued futures: [n=1] TRUE
 - flush all
[13:13:57.806] - relayed: [n=1] TRUE
[13:13:57.806] - queued futures: [n=1] TRUE
[13:13:57.806] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.806] resolve() on list ... DONE
[13:13:57.806]  - Number of value chunks collected: 1
[13:13:57.806] Resolving 1 futures (chunks) ... DONE
[13:13:57.807] Reducing values from 1 chunks ...
[13:13:57.807]  - Number of values collected after concatenation: 5
[13:13:57.807]  - Number of values expected: 5
[13:13:57.807] Reducing values from 1 chunks ... DONE
[13:13:57.807] future_lapply() ... DONE
[13:13:57.807] future_lapply() ...
[13:13:57.808] Generating random seeds ...
[13:13:57.808] Generating random seed streams for 5 elements ...
[13:13:57.808] Generating random seed streams for 5 elements ... DONE
[13:13:57.808] Generating random seeds ... DONE
[13:13:57.809] 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
[13:13:57.809] Number of chunks: 1
[13:13:57.810] getGlobalsAndPackagesXApply() ...
[13:13:57.810]  - future.globals: TRUE
[13:13:57.810] getGlobalsAndPackages() ...
[13:13:57.810] Searching for globals...
[13:13:57.811] - globals found: [2] 'FUN', 'sample'
[13:13:57.811] Searching for globals ... DONE
[13:13:57.812] Resolving globals: FALSE
[13:13:57.812] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:57.812] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:57.813] - globals: [1] 'FUN'
[13:13:57.813] 
[13:13:57.813] getGlobalsAndPackages() ... DONE
[13:13:57.813]  - globals found/used: [n=1] 'FUN'
[13:13:57.813]  - needed namespaces: [n=0] 
[13:13:57.813] Finding globals ... DONE
[13:13:57.814]  - use_args: TRUE
[13:13:57.814]  - Getting '...' globals ...
[13:13:57.814] resolve() on list ...
[13:13:57.814]  recursive: 0
[13:13:57.814]  length: 1
[13:13:57.815]  elements: '...'
[13:13:57.815]  length: 0 (resolved future 1)
[13:13:57.815] resolve() on list ... DONE
[13:13:57.815]    - '...' content: [n=0] 
[13:13:57.815] List of 1
[13:13:57.815]  $ ...: list()
[13:13:57.815]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.815]  - attr(*, "where")=List of 1
[13:13:57.815]   ..$ ...:<environment: 0x0000019eca45f068> 
[13:13:57.815]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.815]  - attr(*, "resolved")= logi TRUE
[13:13:57.815]  - attr(*, "total_size")= num NA
[13:13:57.819]  - Getting '...' globals ... DONE
[13:13:57.819] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:57.819] List of 2
[13:13:57.819]  $ ...future.FUN:function (...)  
[13:13:57.819]  $ ...          : list()
[13:13:57.819]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.819]  - attr(*, "where")=List of 2
[13:13:57.819]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.819]   ..$ ...          :<environment: 0x0000019eca45f068> 
[13:13:57.819]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.819]  - attr(*, "resolved")= logi FALSE
[13:13:57.819]  - attr(*, "total_size")= num 616
[13:13:57.823] Packages to be attached in all futures: [n=0] 
[13:13:57.823] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.823] Number of futures (= number of chunks): 1
[13:13:57.823] Launching 1 futures (chunks) ...
[13:13:57.823] Chunk #1 of 1 ...
[13:13:57.824]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.824] getGlobalsAndPackages() ...
[13:13:57.824] Searching for globals...
[13:13:57.824] 
[13:13:57.824] Searching for globals ... DONE
[13:13:57.824] - globals: [0] <none>
[13:13:57.825] getGlobalsAndPackages() ... DONE
[13:13:57.825]    + additional globals found: [n=0] 
[13:13:57.825]    + additional namespaces needed: [n=0] 
[13:13:57.825]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.825]  - seeds: [5] <seeds>
[13:13:57.825]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.826] getGlobalsAndPackages() ...
[13:13:57.826] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.826] Resolving globals: FALSE
[13:13:57.826] Tweak future expression to call with '...' arguments ...
[13:13:57.826] {
[13:13:57.826]     do.call(function(...) {
[13:13:57.826]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.826]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.826]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.826]             on.exit(options(oopts), add = TRUE)
[13:13:57.826]         }
[13:13:57.826]         {
[13:13:57.826]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.826]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.826]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.826]                   envir = globalenv(), inherits = FALSE)
[13:13:57.826]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.826]             })
[13:13:57.826]         }
[13:13:57.826]     }, args = future.call.arguments)
[13:13:57.826] }
[13:13:57.827] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.827] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.827] 
[13:13:57.828] getGlobalsAndPackages() ... DONE
[13:13:57.828] run() for 'Future' ...
[13:13:57.828] - state: 'created'
[13:13:57.828] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.829] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.829] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.829]   - Field: 'label'
[13:13:57.829]   - Field: 'local'
[13:13:57.829]   - Field: 'owner'
[13:13:57.830]   - Field: 'envir'
[13:13:57.830]   - Field: 'packages'
[13:13:57.830]   - Field: 'gc'
[13:13:57.830]   - Field: 'conditions'
[13:13:57.830]   - Field: 'expr'
[13:13:57.830]   - Field: 'uuid'
[13:13:57.831]   - Field: 'seed'
[13:13:57.831]   - Field: 'version'
[13:13:57.831]   - Field: 'result'
[13:13:57.831]   - Field: 'asynchronous'
[13:13:57.831]   - Field: 'calls'
[13:13:57.831]   - Field: 'globals'
[13:13:57.832]   - Field: 'stdout'
[13:13:57.832]   - Field: 'earlySignal'
[13:13:57.832]   - Field: 'lazy'
[13:13:57.832]   - Field: 'state'
[13:13:57.832] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:57.832] - Launch lazy future ...
[13:13:57.833] Packages needed by the future expression (n = 0): <none>
[13:13:57.833] Packages needed by future strategies (n = 0): <none>
[13:13:57.833] {
[13:13:57.833]     {
[13:13:57.833]         {
[13:13:57.833]             ...future.startTime <- base::Sys.time()
[13:13:57.833]             {
[13:13:57.833]                 {
[13:13:57.833]                   {
[13:13:57.833]                     base::local({
[13:13:57.833]                       has_future <- base::requireNamespace("future", 
[13:13:57.833]                         quietly = TRUE)
[13:13:57.833]                       if (has_future) {
[13:13:57.833]                         ns <- base::getNamespace("future")
[13:13:57.833]                         version <- ns[[".package"]][["version"]]
[13:13:57.833]                         if (is.null(version)) 
[13:13:57.833]                           version <- utils::packageVersion("future")
[13:13:57.833]                       }
[13:13:57.833]                       else {
[13:13:57.833]                         version <- NULL
[13:13:57.833]                       }
[13:13:57.833]                       if (!has_future || version < "1.8.0") {
[13:13:57.833]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.833]                           "", base::R.version$version.string), 
[13:13:57.833]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:57.833]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.833]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.833]                             "release", "version")], collapse = " "), 
[13:13:57.833]                           hostname = base::Sys.info()[["nodename"]])
[13:13:57.833]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.833]                           info)
[13:13:57.833]                         info <- base::paste(info, collapse = "; ")
[13:13:57.833]                         if (!has_future) {
[13:13:57.833]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.833]                             info)
[13:13:57.833]                         }
[13:13:57.833]                         else {
[13:13:57.833]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.833]                             info, version)
[13:13:57.833]                         }
[13:13:57.833]                         base::stop(msg)
[13:13:57.833]                       }
[13:13:57.833]                     })
[13:13:57.833]                   }
[13:13:57.833]                   options(future.plan = NULL)
[13:13:57.833]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.833]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.833]                 }
[13:13:57.833]                 ...future.workdir <- getwd()
[13:13:57.833]             }
[13:13:57.833]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.833]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.833]         }
[13:13:57.833]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.833]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:57.833]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.833]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.833]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.833]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.833]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.833]             base::names(...future.oldOptions))
[13:13:57.833]     }
[13:13:57.833]     if (FALSE) {
[13:13:57.833]     }
[13:13:57.833]     else {
[13:13:57.833]         if (TRUE) {
[13:13:57.833]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.833]                 open = "w")
[13:13:57.833]         }
[13:13:57.833]         else {
[13:13:57.833]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.833]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.833]         }
[13:13:57.833]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.833]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.833]             base::sink(type = "output", split = FALSE)
[13:13:57.833]             base::close(...future.stdout)
[13:13:57.833]         }, add = TRUE)
[13:13:57.833]     }
[13:13:57.833]     ...future.frame <- base::sys.nframe()
[13:13:57.833]     ...future.conditions <- base::list()
[13:13:57.833]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.833]     if (FALSE) {
[13:13:57.833]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.833]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.833]     }
[13:13:57.833]     ...future.result <- base::tryCatch({
[13:13:57.833]         base::withCallingHandlers({
[13:13:57.833]             ...future.value <- base::withVisible(base::local({
[13:13:57.833]                 do.call(function(...) {
[13:13:57.833]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.833]                   if (!identical(...future.globals.maxSize.org, 
[13:13:57.833]                     ...future.globals.maxSize)) {
[13:13:57.833]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.833]                     on.exit(options(oopts), add = TRUE)
[13:13:57.833]                   }
[13:13:57.833]                   {
[13:13:57.833]                     lapply(seq_along(...future.elements_ii), 
[13:13:57.833]                       FUN = function(jj) {
[13:13:57.833]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.833]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.833]                           envir = globalenv(), inherits = FALSE)
[13:13:57.833]                         ...future.FUN(...future.X_jj, ...)
[13:13:57.833]                       })
[13:13:57.833]                   }
[13:13:57.833]                 }, args = future.call.arguments)
[13:13:57.833]             }))
[13:13:57.833]             future::FutureResult(value = ...future.value$value, 
[13:13:57.833]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.833]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.833]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.833]                     ...future.globalenv.names))
[13:13:57.833]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.833]         }, condition = base::local({
[13:13:57.833]             c <- base::c
[13:13:57.833]             inherits <- base::inherits
[13:13:57.833]             invokeRestart <- base::invokeRestart
[13:13:57.833]             length <- base::length
[13:13:57.833]             list <- base::list
[13:13:57.833]             seq.int <- base::seq.int
[13:13:57.833]             signalCondition <- base::signalCondition
[13:13:57.833]             sys.calls <- base::sys.calls
[13:13:57.833]             `[[` <- base::`[[`
[13:13:57.833]             `+` <- base::`+`
[13:13:57.833]             `<<-` <- base::`<<-`
[13:13:57.833]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.833]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.833]                   3L)]
[13:13:57.833]             }
[13:13:57.833]             function(cond) {
[13:13:57.833]                 is_error <- inherits(cond, "error")
[13:13:57.833]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.833]                   NULL)
[13:13:57.833]                 if (is_error) {
[13:13:57.833]                   sessionInformation <- function() {
[13:13:57.833]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.833]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.833]                       search = base::search(), system = base::Sys.info())
[13:13:57.833]                   }
[13:13:57.833]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.833]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.833]                     cond$call), session = sessionInformation(), 
[13:13:57.833]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.833]                   signalCondition(cond)
[13:13:57.833]                 }
[13:13:57.833]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.833]                 "immediateCondition"))) {
[13:13:57.833]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.833]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.833]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.833]                   if (TRUE && !signal) {
[13:13:57.833]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.833]                     {
[13:13:57.833]                       inherits <- base::inherits
[13:13:57.833]                       invokeRestart <- base::invokeRestart
[13:13:57.833]                       is.null <- base::is.null
[13:13:57.833]                       muffled <- FALSE
[13:13:57.833]                       if (inherits(cond, "message")) {
[13:13:57.833]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.833]                         if (muffled) 
[13:13:57.833]                           invokeRestart("muffleMessage")
[13:13:57.833]                       }
[13:13:57.833]                       else if (inherits(cond, "warning")) {
[13:13:57.833]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.833]                         if (muffled) 
[13:13:57.833]                           invokeRestart("muffleWarning")
[13:13:57.833]                       }
[13:13:57.833]                       else if (inherits(cond, "condition")) {
[13:13:57.833]                         if (!is.null(pattern)) {
[13:13:57.833]                           computeRestarts <- base::computeRestarts
[13:13:57.833]                           grepl <- base::grepl
[13:13:57.833]                           restarts <- computeRestarts(cond)
[13:13:57.833]                           for (restart in restarts) {
[13:13:57.833]                             name <- restart$name
[13:13:57.833]                             if (is.null(name)) 
[13:13:57.833]                               next
[13:13:57.833]                             if (!grepl(pattern, name)) 
[13:13:57.833]                               next
[13:13:57.833]                             invokeRestart(restart)
[13:13:57.833]                             muffled <- TRUE
[13:13:57.833]                             break
[13:13:57.833]                           }
[13:13:57.833]                         }
[13:13:57.833]                       }
[13:13:57.833]                       invisible(muffled)
[13:13:57.833]                     }
[13:13:57.833]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.833]                   }
[13:13:57.833]                 }
[13:13:57.833]                 else {
[13:13:57.833]                   if (TRUE) {
[13:13:57.833]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.833]                     {
[13:13:57.833]                       inherits <- base::inherits
[13:13:57.833]                       invokeRestart <- base::invokeRestart
[13:13:57.833]                       is.null <- base::is.null
[13:13:57.833]                       muffled <- FALSE
[13:13:57.833]                       if (inherits(cond, "message")) {
[13:13:57.833]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.833]                         if (muffled) 
[13:13:57.833]                           invokeRestart("muffleMessage")
[13:13:57.833]                       }
[13:13:57.833]                       else if (inherits(cond, "warning")) {
[13:13:57.833]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.833]                         if (muffled) 
[13:13:57.833]                           invokeRestart("muffleWarning")
[13:13:57.833]                       }
[13:13:57.833]                       else if (inherits(cond, "condition")) {
[13:13:57.833]                         if (!is.null(pattern)) {
[13:13:57.833]                           computeRestarts <- base::computeRestarts
[13:13:57.833]                           grepl <- base::grepl
[13:13:57.833]                           restarts <- computeRestarts(cond)
[13:13:57.833]                           for (restart in restarts) {
[13:13:57.833]                             name <- restart$name
[13:13:57.833]                             if (is.null(name)) 
[13:13:57.833]                               next
[13:13:57.833]                             if (!grepl(pattern, name)) 
[13:13:57.833]                               next
[13:13:57.833]                             invokeRestart(restart)
[13:13:57.833]                             muffled <- TRUE
[13:13:57.833]                             break
[13:13:57.833]                           }
[13:13:57.833]                         }
[13:13:57.833]                       }
[13:13:57.833]                       invisible(muffled)
[13:13:57.833]                     }
[13:13:57.833]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.833]                   }
[13:13:57.833]                 }
[13:13:57.833]             }
[13:13:57.833]         }))
[13:13:57.833]     }, error = function(ex) {
[13:13:57.833]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.833]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.833]                 ...future.rng), started = ...future.startTime, 
[13:13:57.833]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.833]             version = "1.8"), class = "FutureResult")
[13:13:57.833]     }, finally = {
[13:13:57.833]         if (!identical(...future.workdir, getwd())) 
[13:13:57.833]             setwd(...future.workdir)
[13:13:57.833]         {
[13:13:57.833]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.833]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.833]             }
[13:13:57.833]             base::options(...future.oldOptions)
[13:13:57.833]             if (.Platform$OS.type == "windows") {
[13:13:57.833]                 old_names <- names(...future.oldEnvVars)
[13:13:57.833]                 envs <- base::Sys.getenv()
[13:13:57.833]                 names <- names(envs)
[13:13:57.833]                 common <- intersect(names, old_names)
[13:13:57.833]                 added <- setdiff(names, old_names)
[13:13:57.833]                 removed <- setdiff(old_names, names)
[13:13:57.833]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.833]                   envs[common]]
[13:13:57.833]                 NAMES <- toupper(changed)
[13:13:57.833]                 args <- list()
[13:13:57.833]                 for (kk in seq_along(NAMES)) {
[13:13:57.833]                   name <- changed[[kk]]
[13:13:57.833]                   NAME <- NAMES[[kk]]
[13:13:57.833]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.833]                     next
[13:13:57.833]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.833]                 }
[13:13:57.833]                 NAMES <- toupper(added)
[13:13:57.833]                 for (kk in seq_along(NAMES)) {
[13:13:57.833]                   name <- added[[kk]]
[13:13:57.833]                   NAME <- NAMES[[kk]]
[13:13:57.833]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.833]                     next
[13:13:57.833]                   args[[name]] <- ""
[13:13:57.833]                 }
[13:13:57.833]                 NAMES <- toupper(removed)
[13:13:57.833]                 for (kk in seq_along(NAMES)) {
[13:13:57.833]                   name <- removed[[kk]]
[13:13:57.833]                   NAME <- NAMES[[kk]]
[13:13:57.833]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.833]                     next
[13:13:57.833]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.833]                 }
[13:13:57.833]                 if (length(args) > 0) 
[13:13:57.833]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.833]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.833]             }
[13:13:57.833]             else {
[13:13:57.833]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.833]             }
[13:13:57.833]             {
[13:13:57.833]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.833]                   0L) {
[13:13:57.833]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.833]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.833]                   base::options(opts)
[13:13:57.833]                 }
[13:13:57.833]                 {
[13:13:57.833]                   {
[13:13:57.833]                     base::assign(".Random.seed", c(10403L, 2L, 
[13:13:57.833]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[13:13:57.833]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[13:13:57.833]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[13:13:57.833]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[13:13:57.833]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[13:13:57.833]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[13:13:57.833]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[13:13:57.833]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[13:13:57.833]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[13:13:57.833]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[13:13:57.833]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[13:13:57.833]                     -1512233174L, -1985955764L, -425390065L, 
[13:13:57.833]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[13:13:57.833]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[13:13:57.833]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[13:13:57.833]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[13:13:57.833]                     1818328109L, -1284085436L, -1981489558L, 
[13:13:57.833]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[13:13:57.833]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[13:13:57.833]                     -1718567047L, -793788661L, -1133789126L, 
[13:13:57.833]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[13:13:57.833]                     -1823521982L, -1345991523L, -1672661737L, 
[13:13:57.833]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[13:13:57.833]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[13:13:57.833]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[13:13:57.833]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[13:13:57.833]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[13:13:57.833]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[13:13:57.833]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[13:13:57.833]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[13:13:57.833]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[13:13:57.833]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[13:13:57.833]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[13:13:57.833]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[13:13:57.833]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[13:13:57.833]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[13:13:57.833]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[13:13:57.833]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[13:13:57.833]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[13:13:57.833]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[13:13:57.833]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[13:13:57.833]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[13:13:57.833]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[13:13:57.833]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[13:13:57.833]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[13:13:57.833]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[13:13:57.833]                     -1119334354L, -1521015416L, -2041922421L, 
[13:13:57.833]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[13:13:57.833]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[13:13:57.833]                     1232111981L, -1801753084L, -1608606422L, 
[13:13:57.833]                     -1172096363L, 1420874031L, -1210473418L, 
[13:13:57.833]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[13:13:57.833]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[13:13:57.833]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[13:13:57.833]                     679371266L, -591318819L, -104578089L, -172818754L, 
[13:13:57.833]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[13:13:57.833]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[13:13:57.833]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[13:13:57.833]                     -332493318L, -1978392251L, -1691039632L, 
[13:13:57.833]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[13:13:57.833]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[13:13:57.833]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[13:13:57.833]                     87560756L, -87565624L, 426345146L, -699970416L, 
[13:13:57.833]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[13:13:57.833]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[13:13:57.833]                     -1178330196L, -687617348L, -1701912078L, 
[13:13:57.833]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[13:13:57.833]                     -1345416048L, 1816730492L, -1570431212L, 
[13:13:57.833]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[13:13:57.833]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[13:13:57.833]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[13:13:57.833]                     -1493184262L, -1943836976L, -590788308L, 
[13:13:57.833]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[13:13:57.833]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[13:13:57.833]                     1274857340L, -1205842638L, -1938479504L, 
[13:13:57.833]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[13:13:57.833]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[13:13:57.833]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[13:13:57.833]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[13:13:57.833]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[13:13:57.833]                     -1460751252L, 1201879444L, -1459788718L, 
[13:13:57.833]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[13:13:57.833]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[13:13:57.833]                     -420945808L, -1997735900L, -1838404552L, 
[13:13:57.833]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[13:13:57.833]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[13:13:57.833]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[13:13:57.833]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[13:13:57.833]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[13:13:57.833]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[13:13:57.833]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[13:13:57.833]                     942193650L, 751741680L, 689743428L, -18455976L, 
[13:13:57.833]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[13:13:57.833]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[13:13:57.833]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[13:13:57.833]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[13:13:57.833]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[13:13:57.833]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[13:13:57.833]                     -1357570110L, 1896595240L, -2066952276L, 
[13:13:57.833]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[13:13:57.833]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[13:13:57.833]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[13:13:57.833]                     769655120L, 236357794L, 181393736L, -13334772L, 
[13:13:57.833]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[13:13:57.833]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[13:13:57.833]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[13:13:57.833]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[13:13:57.833]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[13:13:57.833]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[13:13:57.833]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[13:13:57.833]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[13:13:57.833]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[13:13:57.833]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[13:13:57.833]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[13:13:57.833]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[13:13:57.833]                     -1365842884L, -438961294L, -1851472272L, 
[13:13:57.833]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[13:13:57.833]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[13:13:57.833]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[13:13:57.833]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[13:13:57.833]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[13:13:57.833]                     -594809770L, -2146766621L, -2013964635L, 
[13:13:57.833]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[13:13:57.833]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[13:13:57.833]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[13:13:57.833]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[13:13:57.833]                     -1426021878L, -1285634264L, 1507547537L, 
[13:13:57.833]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[13:13:57.833]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[13:13:57.833]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[13:13:57.833]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[13:13:57.833]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[13:13:57.833]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[13:13:57.833]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[13:13:57.833]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[13:13:57.833]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[13:13:57.833]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[13:13:57.833]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[13:13:57.833]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[13:13:57.833]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[13:13:57.833]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[13:13:57.833]                     -1604604761L, 1421229008L, -1268333714L, 
[13:13:57.833]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[13:13:57.833]                     -2070476623L, -2099222749L, 1141171236L, 
[13:13:57.833]                     -146426158L, -1797385433L, -1129376399L, 
[13:13:57.833]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[13:13:57.833]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[13:13:57.833]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[13:13:57.833]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[13:13:57.833]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[13:13:57.833]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[13:13:57.833]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[13:13:57.833]                     -1092079724L, -1765622238L, -1882554057L, 
[13:13:57.833]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[13:13:57.833]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[13:13:57.833]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[13:13:57.833]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[13:13:57.833]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[13:13:57.833]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[13:13:57.833]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[13:13:57.833]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[13:13:57.833]                     865377681L, -1127426242L), envir = base::globalenv(), 
[13:13:57.833]                       inherits = FALSE)
[13:13:57.833]                     NULL
[13:13:57.833]                   }
[13:13:57.833]                   options(future.plan = NULL)
[13:13:57.833]                   if (is.na(NA_character_)) 
[13:13:57.833]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.833]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.833]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:57.833]                   {
[13:13:57.833]                     future <- SequentialFuture(..., envir = envir)
[13:13:57.833]                     if (!future$lazy) 
[13:13:57.833]                       future <- run(future)
[13:13:57.833]                     invisible(future)
[13:13:57.833]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.833]                 }
[13:13:57.833]             }
[13:13:57.833]         }
[13:13:57.833]     })
[13:13:57.833]     if (TRUE) {
[13:13:57.833]         base::sink(type = "output", split = FALSE)
[13:13:57.833]         if (TRUE) {
[13:13:57.833]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.833]         }
[13:13:57.833]         else {
[13:13:57.833]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.833]         }
[13:13:57.833]         base::close(...future.stdout)
[13:13:57.833]         ...future.stdout <- NULL
[13:13:57.833]     }
[13:13:57.833]     ...future.result$conditions <- ...future.conditions
[13:13:57.833]     ...future.result$finished <- base::Sys.time()
[13:13:57.833]     ...future.result
[13:13:57.833] }
[13:13:57.839] assign_globals() ...
[13:13:57.839] List of 5
[13:13:57.839]  $ ...future.FUN            :function (...)  
[13:13:57.839]  $ future.call.arguments    : list()
[13:13:57.839]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.839]  $ ...future.elements_ii    :List of 5
[13:13:57.839]   ..$ : int 0
[13:13:57.839]   ..$ : int 0
[13:13:57.839]   ..$ : int 0
[13:13:57.839]   ..$ : int 0
[13:13:57.839]   ..$ : int 0
[13:13:57.839]  $ ...future.seeds_ii       :List of 5
[13:13:57.839]   ..$ : int [1:7] 10407 424279327 242013539 -50536943 1949045882 -966354368 52785545
[13:13:57.839]   ..$ : int [1:7] 10407 1259015031 702630336 336295781 836592074 1678845563 -511089912
[13:13:57.839]   ..$ : int [1:7] 10407 1164394434 449220430 -1497007122 58661922 77957643 -850372858
[13:13:57.839]   ..$ : int [1:7] 10407 -102834055 -568341906 440844328 496378464 1781291461 1929965415
[13:13:57.839]   ..$ : int [1:7] 10407 -1584691803 1955381789 -562762208 1163324668 -1514628943 475545435
[13:13:57.839]  $ ...future.globals.maxSize: NULL
[13:13:57.839]  - attr(*, "where")=List of 5
[13:13:57.839]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:57.839]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:57.839]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:57.839]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:57.839]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:57.839]  - attr(*, "resolved")= logi FALSE
[13:13:57.839]  - attr(*, "total_size")= num 616
[13:13:57.839]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.839]  - attr(*, "already-done")= logi TRUE
[13:13:57.848] - reassign environment for '...future.FUN'
[13:13:57.849] - copied '...future.FUN' to environment
[13:13:57.849] - copied 'future.call.arguments' to environment
[13:13:57.849] - copied '...future.elements_ii' to environment
[13:13:57.849] - copied '...future.seeds_ii' to environment
[13:13:57.849] - copied '...future.globals.maxSize' to environment
[13:13:57.849] assign_globals() ... done
[13:13:57.850] plan(): Setting new future strategy stack:
[13:13:57.850] List of future strategies:
[13:13:57.850] 1. sequential:
[13:13:57.850]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.850]    - tweaked: FALSE
[13:13:57.850]    - call: NULL
[13:13:57.851] plan(): nbrOfWorkers() = 1
[13:13:57.852] plan(): Setting new future strategy stack:
[13:13:57.852] List of future strategies:
[13:13:57.852] 1. sequential:
[13:13:57.852]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.852]    - tweaked: FALSE
[13:13:57.852]    - call: plan(strategy)
[13:13:57.852] plan(): nbrOfWorkers() = 1
[13:13:57.853] SequentialFuture started (and completed)
[13:13:57.853] - Launch lazy future ... done
[13:13:57.853] run() for 'SequentialFuture' ... done
[13:13:57.853] Created future:
[13:13:57.853] SequentialFuture:
[13:13:57.853] Label: 'future_replicate-1'
[13:13:57.853] Expression:
[13:13:57.853] {
[13:13:57.853]     do.call(function(...) {
[13:13:57.853]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.853]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.853]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.853]             on.exit(options(oopts), add = TRUE)
[13:13:57.853]         }
[13:13:57.853]         {
[13:13:57.853]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.853]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.853]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.853]                   envir = globalenv(), inherits = FALSE)
[13:13:57.853]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.853]             })
[13:13:57.853]         }
[13:13:57.853]     }, args = future.call.arguments)
[13:13:57.853] }
[13:13:57.853] Lazy evaluation: FALSE
[13:13:57.853] Asynchronous evaluation: FALSE
[13:13:57.853] Local evaluation: TRUE
[13:13:57.853] Environment: R_GlobalEnv
[13:13:57.853] Capture standard output: TRUE
[13:13:57.853] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.853] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.853] Packages: <none>
[13:13:57.853] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:57.853] Resolved: TRUE
[13:13:57.853] Value: 280 bytes of class 'list'
[13:13:57.853] Early signaling: FALSE
[13:13:57.853] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:57.853] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.855] Chunk #1 of 1 ... DONE
[13:13:57.855] Launching 1 futures (chunks) ... DONE
[13:13:57.855] Resolving 1 futures (chunks) ...
[13:13:57.855] resolve() on list ...
[13:13:57.855]  recursive: 0
[13:13:57.856]  length: 1
[13:13:57.856] 
[13:13:57.856] resolved() for 'SequentialFuture' ...
[13:13:57.856] - state: 'finished'
[13:13:57.856] - run: TRUE
[13:13:57.856] - result: 'FutureResult'
[13:13:57.857] resolved() for 'SequentialFuture' ... done
[13:13:57.857] Future #1
[13:13:57.857] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:57.857] - nx: 1
[13:13:57.857] - relay: TRUE
[13:13:57.858] - stdout: TRUE
[13:13:57.858] - signal: TRUE
[13:13:57.858] - resignal: FALSE
[13:13:57.858] - force: TRUE
[13:13:57.858] - relayed: [n=1] FALSE
[13:13:57.858] - queued futures: [n=1] FALSE
[13:13:57.858]  - until=1
[13:13:57.859]  - relaying element #1
[13:13:57.859] - relayed: [n=1] TRUE
[13:13:57.859] - queued futures: [n=1] TRUE
[13:13:57.859] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:57.859]  length: 0 (resolved future 1)
[13:13:57.859] Relaying remaining futures
[13:13:57.860] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.860] - nx: 1
[13:13:57.860] - relay: TRUE
[13:13:57.860] - stdout: TRUE
[13:13:57.860] - signal: TRUE
[13:13:57.860] - resignal: FALSE
[13:13:57.861] - force: TRUE
[13:13:57.861] - relayed: [n=1] TRUE
[13:13:57.861] - queued futures: [n=1] TRUE
 - flush all
[13:13:57.861] - relayed: [n=1] TRUE
[13:13:57.861] - queued futures: [n=1] TRUE
[13:13:57.861] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.862] resolve() on list ... DONE
[13:13:57.862]  - Number of value chunks collected: 1
[13:13:57.862] Resolving 1 futures (chunks) ... DONE
[13:13:57.862] Reducing values from 1 chunks ...
[13:13:57.862]  - Number of values collected after concatenation: 5
[13:13:57.862]  - Number of values expected: 5
[13:13:57.863] Reducing values from 1 chunks ... DONE
[13:13:57.863] future_lapply() ... DONE
[13:13:57.863] future_lapply() ...
[13:13:57.864] Generating random seeds ...
[13:13:57.864] Generating random seed streams for 5 elements ...
[13:13:57.864] Generating random seed streams for 5 elements ... DONE
[13:13:57.864] Generating random seeds ... DONE
[13:13:57.865] 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
[13:13:57.865] Number of chunks: 1
[13:13:57.865] getGlobalsAndPackagesXApply() ...
[13:13:57.866]  - future.globals: TRUE
[13:13:57.866] getGlobalsAndPackages() ...
[13:13:57.866] Searching for globals...
[13:13:57.867] - globals found: [2] 'FUN', 'sample'
[13:13:57.867] Searching for globals ... DONE
[13:13:57.868] Resolving globals: FALSE
[13:13:57.868] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:57.868] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:57.869] - globals: [1] 'FUN'
[13:13:57.869] 
[13:13:57.869] getGlobalsAndPackages() ... DONE
[13:13:57.869]  - globals found/used: [n=1] 'FUN'
[13:13:57.869]  - needed namespaces: [n=0] 
[13:13:57.869] Finding globals ... DONE
[13:13:57.870]  - use_args: TRUE
[13:13:57.870]  - Getting '...' globals ...
[13:13:57.870] resolve() on list ...
[13:13:57.870]  recursive: 0
[13:13:57.870]  length: 1
[13:13:57.871]  elements: '...'
[13:13:57.871]  length: 0 (resolved future 1)
[13:13:57.871] resolve() on list ... DONE
[13:13:57.871]    - '...' content: [n=0] 
[13:13:57.871] List of 1
[13:13:57.871]  $ ...: list()
[13:13:57.871]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.871]  - attr(*, "where")=List of 1
[13:13:57.871]   ..$ ...:<environment: 0x0000019ec9f4bb58> 
[13:13:57.871]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.871]  - attr(*, "resolved")= logi TRUE
[13:13:57.871]  - attr(*, "total_size")= num NA
[13:13:57.875]  - Getting '...' globals ... DONE
[13:13:57.875] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:57.876] List of 2
[13:13:57.876]  $ ...future.FUN:function (...)  
[13:13:57.876]  $ ...          : list()
[13:13:57.876]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.876]  - attr(*, "where")=List of 2
[13:13:57.876]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.876]   ..$ ...          :<environment: 0x0000019ec9f4bb58> 
[13:13:57.876]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.876]  - attr(*, "resolved")= logi FALSE
[13:13:57.876]  - attr(*, "total_size")= num 616
[13:13:57.879] Packages to be attached in all futures: [n=0] 
[13:13:57.879] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.879] Number of futures (= number of chunks): 1
[13:13:57.879] Launching 1 futures (chunks) ...
[13:13:57.880] Chunk #1 of 1 ...
[13:13:57.880]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.880] getGlobalsAndPackages() ...
[13:13:57.880] Searching for globals...
[13:13:57.880] 
[13:13:57.881] Searching for globals ... DONE
[13:13:57.881] - globals: [0] <none>
[13:13:57.881] getGlobalsAndPackages() ... DONE
[13:13:57.881]    + additional globals found: [n=0] 
[13:13:57.881]    + additional namespaces needed: [n=0] 
[13:13:57.881]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.882]  - seeds: [5] <seeds>
[13:13:57.882]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.882] getGlobalsAndPackages() ...
[13:13:57.882] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.882] Resolving globals: FALSE
[13:13:57.882] Tweak future expression to call with '...' arguments ...
[13:13:57.883] {
[13:13:57.883]     do.call(function(...) {
[13:13:57.883]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.883]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.883]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.883]             on.exit(options(oopts), add = TRUE)
[13:13:57.883]         }
[13:13:57.883]         {
[13:13:57.883]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.883]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.883]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.883]                   envir = globalenv(), inherits = FALSE)
[13:13:57.883]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.883]             })
[13:13:57.883]         }
[13:13:57.883]     }, args = future.call.arguments)
[13:13:57.883] }
[13:13:57.883] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.884] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.884] 
[13:13:57.884] getGlobalsAndPackages() ... DONE
[13:13:57.884] run() for 'Future' ...
[13:13:57.884] - state: 'created'
[13:13:57.885] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.885] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.885] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.885]   - Field: 'label'
[13:13:57.886]   - Field: 'local'
[13:13:57.886]   - Field: 'owner'
[13:13:57.886]   - Field: 'envir'
[13:13:57.886]   - Field: 'packages'
[13:13:57.886]   - Field: 'gc'
[13:13:57.886]   - Field: 'conditions'
[13:13:57.887]   - Field: 'expr'
[13:13:57.887]   - Field: 'uuid'
[13:13:57.887]   - Field: 'seed'
[13:13:57.887]   - Field: 'version'
[13:13:57.887]   - Field: 'result'
[13:13:57.887]   - Field: 'asynchronous'
[13:13:57.888]   - Field: 'calls'
[13:13:57.888]   - Field: 'globals'
[13:13:57.888]   - Field: 'stdout'
[13:13:57.888]   - Field: 'earlySignal'
[13:13:57.888]   - Field: 'lazy'
[13:13:57.888]   - Field: 'state'
[13:13:57.889] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:57.889] - Launch lazy future ...
[13:13:57.889] Packages needed by the future expression (n = 0): <none>
[13:13:57.889] Packages needed by future strategies (n = 0): <none>
[13:13:57.890] {
[13:13:57.890]     {
[13:13:57.890]         {
[13:13:57.890]             ...future.startTime <- base::Sys.time()
[13:13:57.890]             {
[13:13:57.890]                 {
[13:13:57.890]                   {
[13:13:57.890]                     base::local({
[13:13:57.890]                       has_future <- base::requireNamespace("future", 
[13:13:57.890]                         quietly = TRUE)
[13:13:57.890]                       if (has_future) {
[13:13:57.890]                         ns <- base::getNamespace("future")
[13:13:57.890]                         version <- ns[[".package"]][["version"]]
[13:13:57.890]                         if (is.null(version)) 
[13:13:57.890]                           version <- utils::packageVersion("future")
[13:13:57.890]                       }
[13:13:57.890]                       else {
[13:13:57.890]                         version <- NULL
[13:13:57.890]                       }
[13:13:57.890]                       if (!has_future || version < "1.8.0") {
[13:13:57.890]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.890]                           "", base::R.version$version.string), 
[13:13:57.890]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:57.890]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.890]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.890]                             "release", "version")], collapse = " "), 
[13:13:57.890]                           hostname = base::Sys.info()[["nodename"]])
[13:13:57.890]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.890]                           info)
[13:13:57.890]                         info <- base::paste(info, collapse = "; ")
[13:13:57.890]                         if (!has_future) {
[13:13:57.890]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.890]                             info)
[13:13:57.890]                         }
[13:13:57.890]                         else {
[13:13:57.890]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.890]                             info, version)
[13:13:57.890]                         }
[13:13:57.890]                         base::stop(msg)
[13:13:57.890]                       }
[13:13:57.890]                     })
[13:13:57.890]                   }
[13:13:57.890]                   options(future.plan = NULL)
[13:13:57.890]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.890]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.890]                 }
[13:13:57.890]                 ...future.workdir <- getwd()
[13:13:57.890]             }
[13:13:57.890]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.890]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.890]         }
[13:13:57.890]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.890]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:57.890]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.890]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.890]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.890]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.890]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.890]             base::names(...future.oldOptions))
[13:13:57.890]     }
[13:13:57.890]     if (FALSE) {
[13:13:57.890]     }
[13:13:57.890]     else {
[13:13:57.890]         if (TRUE) {
[13:13:57.890]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.890]                 open = "w")
[13:13:57.890]         }
[13:13:57.890]         else {
[13:13:57.890]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.890]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.890]         }
[13:13:57.890]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.890]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.890]             base::sink(type = "output", split = FALSE)
[13:13:57.890]             base::close(...future.stdout)
[13:13:57.890]         }, add = TRUE)
[13:13:57.890]     }
[13:13:57.890]     ...future.frame <- base::sys.nframe()
[13:13:57.890]     ...future.conditions <- base::list()
[13:13:57.890]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.890]     if (FALSE) {
[13:13:57.890]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.890]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.890]     }
[13:13:57.890]     ...future.result <- base::tryCatch({
[13:13:57.890]         base::withCallingHandlers({
[13:13:57.890]             ...future.value <- base::withVisible(base::local({
[13:13:57.890]                 do.call(function(...) {
[13:13:57.890]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.890]                   if (!identical(...future.globals.maxSize.org, 
[13:13:57.890]                     ...future.globals.maxSize)) {
[13:13:57.890]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.890]                     on.exit(options(oopts), add = TRUE)
[13:13:57.890]                   }
[13:13:57.890]                   {
[13:13:57.890]                     lapply(seq_along(...future.elements_ii), 
[13:13:57.890]                       FUN = function(jj) {
[13:13:57.890]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.890]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.890]                           envir = globalenv(), inherits = FALSE)
[13:13:57.890]                         ...future.FUN(...future.X_jj, ...)
[13:13:57.890]                       })
[13:13:57.890]                   }
[13:13:57.890]                 }, args = future.call.arguments)
[13:13:57.890]             }))
[13:13:57.890]             future::FutureResult(value = ...future.value$value, 
[13:13:57.890]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.890]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.890]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.890]                     ...future.globalenv.names))
[13:13:57.890]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.890]         }, condition = base::local({
[13:13:57.890]             c <- base::c
[13:13:57.890]             inherits <- base::inherits
[13:13:57.890]             invokeRestart <- base::invokeRestart
[13:13:57.890]             length <- base::length
[13:13:57.890]             list <- base::list
[13:13:57.890]             seq.int <- base::seq.int
[13:13:57.890]             signalCondition <- base::signalCondition
[13:13:57.890]             sys.calls <- base::sys.calls
[13:13:57.890]             `[[` <- base::`[[`
[13:13:57.890]             `+` <- base::`+`
[13:13:57.890]             `<<-` <- base::`<<-`
[13:13:57.890]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.890]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.890]                   3L)]
[13:13:57.890]             }
[13:13:57.890]             function(cond) {
[13:13:57.890]                 is_error <- inherits(cond, "error")
[13:13:57.890]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.890]                   NULL)
[13:13:57.890]                 if (is_error) {
[13:13:57.890]                   sessionInformation <- function() {
[13:13:57.890]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.890]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.890]                       search = base::search(), system = base::Sys.info())
[13:13:57.890]                   }
[13:13:57.890]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.890]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.890]                     cond$call), session = sessionInformation(), 
[13:13:57.890]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.890]                   signalCondition(cond)
[13:13:57.890]                 }
[13:13:57.890]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.890]                 "immediateCondition"))) {
[13:13:57.890]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.890]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.890]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.890]                   if (TRUE && !signal) {
[13:13:57.890]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.890]                     {
[13:13:57.890]                       inherits <- base::inherits
[13:13:57.890]                       invokeRestart <- base::invokeRestart
[13:13:57.890]                       is.null <- base::is.null
[13:13:57.890]                       muffled <- FALSE
[13:13:57.890]                       if (inherits(cond, "message")) {
[13:13:57.890]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.890]                         if (muffled) 
[13:13:57.890]                           invokeRestart("muffleMessage")
[13:13:57.890]                       }
[13:13:57.890]                       else if (inherits(cond, "warning")) {
[13:13:57.890]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.890]                         if (muffled) 
[13:13:57.890]                           invokeRestart("muffleWarning")
[13:13:57.890]                       }
[13:13:57.890]                       else if (inherits(cond, "condition")) {
[13:13:57.890]                         if (!is.null(pattern)) {
[13:13:57.890]                           computeRestarts <- base::computeRestarts
[13:13:57.890]                           grepl <- base::grepl
[13:13:57.890]                           restarts <- computeRestarts(cond)
[13:13:57.890]                           for (restart in restarts) {
[13:13:57.890]                             name <- restart$name
[13:13:57.890]                             if (is.null(name)) 
[13:13:57.890]                               next
[13:13:57.890]                             if (!grepl(pattern, name)) 
[13:13:57.890]                               next
[13:13:57.890]                             invokeRestart(restart)
[13:13:57.890]                             muffled <- TRUE
[13:13:57.890]                             break
[13:13:57.890]                           }
[13:13:57.890]                         }
[13:13:57.890]                       }
[13:13:57.890]                       invisible(muffled)
[13:13:57.890]                     }
[13:13:57.890]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.890]                   }
[13:13:57.890]                 }
[13:13:57.890]                 else {
[13:13:57.890]                   if (TRUE) {
[13:13:57.890]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.890]                     {
[13:13:57.890]                       inherits <- base::inherits
[13:13:57.890]                       invokeRestart <- base::invokeRestart
[13:13:57.890]                       is.null <- base::is.null
[13:13:57.890]                       muffled <- FALSE
[13:13:57.890]                       if (inherits(cond, "message")) {
[13:13:57.890]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.890]                         if (muffled) 
[13:13:57.890]                           invokeRestart("muffleMessage")
[13:13:57.890]                       }
[13:13:57.890]                       else if (inherits(cond, "warning")) {
[13:13:57.890]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.890]                         if (muffled) 
[13:13:57.890]                           invokeRestart("muffleWarning")
[13:13:57.890]                       }
[13:13:57.890]                       else if (inherits(cond, "condition")) {
[13:13:57.890]                         if (!is.null(pattern)) {
[13:13:57.890]                           computeRestarts <- base::computeRestarts
[13:13:57.890]                           grepl <- base::grepl
[13:13:57.890]                           restarts <- computeRestarts(cond)
[13:13:57.890]                           for (restart in restarts) {
[13:13:57.890]                             name <- restart$name
[13:13:57.890]                             if (is.null(name)) 
[13:13:57.890]                               next
[13:13:57.890]                             if (!grepl(pattern, name)) 
[13:13:57.890]                               next
[13:13:57.890]                             invokeRestart(restart)
[13:13:57.890]                             muffled <- TRUE
[13:13:57.890]                             break
[13:13:57.890]                           }
[13:13:57.890]                         }
[13:13:57.890]                       }
[13:13:57.890]                       invisible(muffled)
[13:13:57.890]                     }
[13:13:57.890]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.890]                   }
[13:13:57.890]                 }
[13:13:57.890]             }
[13:13:57.890]         }))
[13:13:57.890]     }, error = function(ex) {
[13:13:57.890]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.890]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.890]                 ...future.rng), started = ...future.startTime, 
[13:13:57.890]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.890]             version = "1.8"), class = "FutureResult")
[13:13:57.890]     }, finally = {
[13:13:57.890]         if (!identical(...future.workdir, getwd())) 
[13:13:57.890]             setwd(...future.workdir)
[13:13:57.890]         {
[13:13:57.890]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.890]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.890]             }
[13:13:57.890]             base::options(...future.oldOptions)
[13:13:57.890]             if (.Platform$OS.type == "windows") {
[13:13:57.890]                 old_names <- names(...future.oldEnvVars)
[13:13:57.890]                 envs <- base::Sys.getenv()
[13:13:57.890]                 names <- names(envs)
[13:13:57.890]                 common <- intersect(names, old_names)
[13:13:57.890]                 added <- setdiff(names, old_names)
[13:13:57.890]                 removed <- setdiff(old_names, names)
[13:13:57.890]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.890]                   envs[common]]
[13:13:57.890]                 NAMES <- toupper(changed)
[13:13:57.890]                 args <- list()
[13:13:57.890]                 for (kk in seq_along(NAMES)) {
[13:13:57.890]                   name <- changed[[kk]]
[13:13:57.890]                   NAME <- NAMES[[kk]]
[13:13:57.890]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.890]                     next
[13:13:57.890]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.890]                 }
[13:13:57.890]                 NAMES <- toupper(added)
[13:13:57.890]                 for (kk in seq_along(NAMES)) {
[13:13:57.890]                   name <- added[[kk]]
[13:13:57.890]                   NAME <- NAMES[[kk]]
[13:13:57.890]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.890]                     next
[13:13:57.890]                   args[[name]] <- ""
[13:13:57.890]                 }
[13:13:57.890]                 NAMES <- toupper(removed)
[13:13:57.890]                 for (kk in seq_along(NAMES)) {
[13:13:57.890]                   name <- removed[[kk]]
[13:13:57.890]                   NAME <- NAMES[[kk]]
[13:13:57.890]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.890]                     next
[13:13:57.890]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.890]                 }
[13:13:57.890]                 if (length(args) > 0) 
[13:13:57.890]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.890]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.890]             }
[13:13:57.890]             else {
[13:13:57.890]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.890]             }
[13:13:57.890]             {
[13:13:57.890]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.890]                   0L) {
[13:13:57.890]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.890]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.890]                   base::options(opts)
[13:13:57.890]                 }
[13:13:57.890]                 {
[13:13:57.890]                   {
[13:13:57.890]                     base::assign(".Random.seed", c(10403L, 4L, 
[13:13:57.890]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[13:13:57.890]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[13:13:57.890]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[13:13:57.890]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[13:13:57.890]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[13:13:57.890]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[13:13:57.890]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[13:13:57.890]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[13:13:57.890]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[13:13:57.890]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[13:13:57.890]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[13:13:57.890]                     -1512233174L, -1985955764L, -425390065L, 
[13:13:57.890]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[13:13:57.890]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[13:13:57.890]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[13:13:57.890]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[13:13:57.890]                     1818328109L, -1284085436L, -1981489558L, 
[13:13:57.890]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[13:13:57.890]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[13:13:57.890]                     -1718567047L, -793788661L, -1133789126L, 
[13:13:57.890]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[13:13:57.890]                     -1823521982L, -1345991523L, -1672661737L, 
[13:13:57.890]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[13:13:57.890]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[13:13:57.890]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[13:13:57.890]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[13:13:57.890]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[13:13:57.890]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[13:13:57.890]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[13:13:57.890]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[13:13:57.890]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[13:13:57.890]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[13:13:57.890]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[13:13:57.890]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[13:13:57.890]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[13:13:57.890]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[13:13:57.890]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[13:13:57.890]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[13:13:57.890]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[13:13:57.890]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[13:13:57.890]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[13:13:57.890]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[13:13:57.890]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[13:13:57.890]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[13:13:57.890]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[13:13:57.890]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[13:13:57.890]                     -1119334354L, -1521015416L, -2041922421L, 
[13:13:57.890]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[13:13:57.890]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[13:13:57.890]                     1232111981L, -1801753084L, -1608606422L, 
[13:13:57.890]                     -1172096363L, 1420874031L, -1210473418L, 
[13:13:57.890]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[13:13:57.890]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[13:13:57.890]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[13:13:57.890]                     679371266L, -591318819L, -104578089L, -172818754L, 
[13:13:57.890]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[13:13:57.890]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[13:13:57.890]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[13:13:57.890]                     -332493318L, -1978392251L, -1691039632L, 
[13:13:57.890]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[13:13:57.890]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[13:13:57.890]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[13:13:57.890]                     87560756L, -87565624L, 426345146L, -699970416L, 
[13:13:57.890]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[13:13:57.890]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[13:13:57.890]                     -1178330196L, -687617348L, -1701912078L, 
[13:13:57.890]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[13:13:57.890]                     -1345416048L, 1816730492L, -1570431212L, 
[13:13:57.890]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[13:13:57.890]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[13:13:57.890]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[13:13:57.890]                     -1493184262L, -1943836976L, -590788308L, 
[13:13:57.890]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[13:13:57.890]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[13:13:57.890]                     1274857340L, -1205842638L, -1938479504L, 
[13:13:57.890]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[13:13:57.890]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[13:13:57.890]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[13:13:57.890]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[13:13:57.890]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[13:13:57.890]                     -1460751252L, 1201879444L, -1459788718L, 
[13:13:57.890]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[13:13:57.890]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[13:13:57.890]                     -420945808L, -1997735900L, -1838404552L, 
[13:13:57.890]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[13:13:57.890]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[13:13:57.890]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[13:13:57.890]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[13:13:57.890]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[13:13:57.890]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[13:13:57.890]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[13:13:57.890]                     942193650L, 751741680L, 689743428L, -18455976L, 
[13:13:57.890]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[13:13:57.890]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[13:13:57.890]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[13:13:57.890]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[13:13:57.890]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[13:13:57.890]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[13:13:57.890]                     -1357570110L, 1896595240L, -2066952276L, 
[13:13:57.890]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[13:13:57.890]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[13:13:57.890]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[13:13:57.890]                     769655120L, 236357794L, 181393736L, -13334772L, 
[13:13:57.890]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[13:13:57.890]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[13:13:57.890]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[13:13:57.890]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[13:13:57.890]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[13:13:57.890]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[13:13:57.890]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[13:13:57.890]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[13:13:57.890]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[13:13:57.890]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[13:13:57.890]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[13:13:57.890]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[13:13:57.890]                     -1365842884L, -438961294L, -1851472272L, 
[13:13:57.890]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[13:13:57.890]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[13:13:57.890]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[13:13:57.890]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[13:13:57.890]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[13:13:57.890]                     -594809770L, -2146766621L, -2013964635L, 
[13:13:57.890]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[13:13:57.890]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[13:13:57.890]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[13:13:57.890]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[13:13:57.890]                     -1426021878L, -1285634264L, 1507547537L, 
[13:13:57.890]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[13:13:57.890]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[13:13:57.890]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[13:13:57.890]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[13:13:57.890]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[13:13:57.890]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[13:13:57.890]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[13:13:57.890]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[13:13:57.890]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[13:13:57.890]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[13:13:57.890]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[13:13:57.890]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[13:13:57.890]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[13:13:57.890]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[13:13:57.890]                     -1604604761L, 1421229008L, -1268333714L, 
[13:13:57.890]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[13:13:57.890]                     -2070476623L, -2099222749L, 1141171236L, 
[13:13:57.890]                     -146426158L, -1797385433L, -1129376399L, 
[13:13:57.890]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[13:13:57.890]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[13:13:57.890]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[13:13:57.890]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[13:13:57.890]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[13:13:57.890]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[13:13:57.890]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[13:13:57.890]                     -1092079724L, -1765622238L, -1882554057L, 
[13:13:57.890]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[13:13:57.890]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[13:13:57.890]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[13:13:57.890]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[13:13:57.890]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[13:13:57.890]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[13:13:57.890]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[13:13:57.890]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[13:13:57.890]                     865377681L, -1127426242L), envir = base::globalenv(), 
[13:13:57.890]                       inherits = FALSE)
[13:13:57.890]                     NULL
[13:13:57.890]                   }
[13:13:57.890]                   options(future.plan = NULL)
[13:13:57.890]                   if (is.na(NA_character_)) 
[13:13:57.890]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.890]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.890]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:57.890]                   {
[13:13:57.890]                     future <- SequentialFuture(..., envir = envir)
[13:13:57.890]                     if (!future$lazy) 
[13:13:57.890]                       future <- run(future)
[13:13:57.890]                     invisible(future)
[13:13:57.890]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.890]                 }
[13:13:57.890]             }
[13:13:57.890]         }
[13:13:57.890]     })
[13:13:57.890]     if (TRUE) {
[13:13:57.890]         base::sink(type = "output", split = FALSE)
[13:13:57.890]         if (TRUE) {
[13:13:57.890]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.890]         }
[13:13:57.890]         else {
[13:13:57.890]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.890]         }
[13:13:57.890]         base::close(...future.stdout)
[13:13:57.890]         ...future.stdout <- NULL
[13:13:57.890]     }
[13:13:57.890]     ...future.result$conditions <- ...future.conditions
[13:13:57.890]     ...future.result$finished <- base::Sys.time()
[13:13:57.890]     ...future.result
[13:13:57.890] }
[13:13:57.895] assign_globals() ...
[13:13:57.895] List of 5
[13:13:57.895]  $ ...future.FUN            :function (...)  
[13:13:57.895]  $ future.call.arguments    : list()
[13:13:57.895]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.895]  $ ...future.elements_ii    :List of 5
[13:13:57.895]   ..$ : int 0
[13:13:57.895]   ..$ : int 0
[13:13:57.895]   ..$ : int 0
[13:13:57.895]   ..$ : int 0
[13:13:57.895]   ..$ : int 0
[13:13:57.895]  $ ...future.seeds_ii       :List of 5
[13:13:57.895]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[13:13:57.895]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[13:13:57.895]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[13:13:57.895]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[13:13:57.895]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[13:13:57.895]  $ ...future.globals.maxSize: NULL
[13:13:57.895]  - attr(*, "where")=List of 5
[13:13:57.895]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:57.895]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:57.895]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:57.895]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:57.895]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:57.895]  - attr(*, "resolved")= logi FALSE
[13:13:57.895]  - attr(*, "total_size")= num 616
[13:13:57.895]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.895]  - attr(*, "already-done")= logi TRUE
[13:13:57.905] - reassign environment for '...future.FUN'
[13:13:57.905] - copied '...future.FUN' to environment
[13:13:57.905] - copied 'future.call.arguments' to environment
[13:13:57.905] - copied '...future.elements_ii' to environment
[13:13:57.906] - copied '...future.seeds_ii' to environment
[13:13:57.906] - copied '...future.globals.maxSize' to environment
[13:13:57.906] assign_globals() ... done
[13:13:57.906] plan(): Setting new future strategy stack:
[13:13:57.906] List of future strategies:
[13:13:57.906] 1. sequential:
[13:13:57.906]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.906]    - tweaked: FALSE
[13:13:57.906]    - call: NULL
[13:13:57.907] plan(): nbrOfWorkers() = 1
[13:13:57.908] plan(): Setting new future strategy stack:
[13:13:57.908] List of future strategies:
[13:13:57.908] 1. sequential:
[13:13:57.908]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.908]    - tweaked: FALSE
[13:13:57.908]    - call: plan(strategy)
[13:13:57.909] plan(): nbrOfWorkers() = 1
[13:13:57.909] SequentialFuture started (and completed)
[13:13:57.909] - Launch lazy future ... done
[13:13:57.910] run() for 'SequentialFuture' ... done
[13:13:57.910] Created future:
[13:13:57.910] SequentialFuture:
[13:13:57.910] Label: 'future_replicate-1'
[13:13:57.910] Expression:
[13:13:57.910] {
[13:13:57.910]     do.call(function(...) {
[13:13:57.910]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.910]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.910]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.910]             on.exit(options(oopts), add = TRUE)
[13:13:57.910]         }
[13:13:57.910]         {
[13:13:57.910]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.910]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.910]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.910]                   envir = globalenv(), inherits = FALSE)
[13:13:57.910]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.910]             })
[13:13:57.910]         }
[13:13:57.910]     }, args = future.call.arguments)
[13:13:57.910] }
[13:13:57.910] Lazy evaluation: FALSE
[13:13:57.910] Asynchronous evaluation: FALSE
[13:13:57.910] Local evaluation: TRUE
[13:13:57.910] Environment: R_GlobalEnv
[13:13:57.910] Capture standard output: TRUE
[13:13:57.910] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.910] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.910] Packages: <none>
[13:13:57.910] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:57.910] Resolved: TRUE
[13:13:57.910] Value: 280 bytes of class 'list'
[13:13:57.910] Early signaling: FALSE
[13:13:57.910] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:57.910] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.911] Chunk #1 of 1 ... DONE
[13:13:57.912] Launching 1 futures (chunks) ... DONE
[13:13:57.912] Resolving 1 futures (chunks) ...
[13:13:57.912] resolve() on list ...
[13:13:57.912]  recursive: 0
[13:13:57.912]  length: 1
[13:13:57.912] 
[13:13:57.912] resolved() for 'SequentialFuture' ...
[13:13:57.913] - state: 'finished'
[13:13:57.913] - run: TRUE
[13:13:57.913] - result: 'FutureResult'
[13:13:57.913] resolved() for 'SequentialFuture' ... done
[13:13:57.913] Future #1
[13:13:57.914] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:57.914] - nx: 1
[13:13:57.914] - relay: TRUE
[13:13:57.914] - stdout: TRUE
[13:13:57.914] - signal: TRUE
[13:13:57.914] - resignal: FALSE
[13:13:57.914] - force: TRUE
[13:13:57.915] - relayed: [n=1] FALSE
[13:13:57.915] - queued futures: [n=1] FALSE
[13:13:57.915]  - until=1
[13:13:57.915]  - relaying element #1
[13:13:57.915] - relayed: [n=1] TRUE
[13:13:57.916] - queued futures: [n=1] TRUE
[13:13:57.916] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:57.916]  length: 0 (resolved future 1)
[13:13:57.916] Relaying remaining futures
[13:13:57.916] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.916] - nx: 1
[13:13:57.916] - relay: TRUE
[13:13:57.917] - stdout: TRUE
[13:13:57.917] - signal: TRUE
[13:13:57.917] - resignal: FALSE
[13:13:57.917] - force: TRUE
[13:13:57.917] - relayed: [n=1] TRUE
[13:13:57.917] - queued futures: [n=1] TRUE
 - flush all
[13:13:57.918] - relayed: [n=1] TRUE
[13:13:57.918] - queued futures: [n=1] TRUE
[13:13:57.918] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.918] resolve() on list ... DONE
[13:13:57.918]  - Number of value chunks collected: 1
[13:13:57.918] Resolving 1 futures (chunks) ... DONE
[13:13:57.919] Reducing values from 1 chunks ...
[13:13:57.919]  - Number of values collected after concatenation: 5
[13:13:57.919]  - Number of values expected: 5
[13:13:57.919] Reducing values from 1 chunks ... DONE
[13:13:57.919] future_lapply() ... DONE
[13:13:57.919] future_lapply() ...
[13:13:57.920] Generating random seeds ...
[13:13:57.920] Generating random seed streams for 5 elements ...
[13:13:57.920] Generating random seed streams for 5 elements ... DONE
[13:13:57.920] Generating random seeds ... DONE
[13:13:57.921] 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
[13:13:57.921] Number of chunks: 1
[13:13:57.922] getGlobalsAndPackagesXApply() ...
[13:13:57.922]  - future.globals: TRUE
[13:13:57.922] getGlobalsAndPackages() ...
[13:13:57.922] Searching for globals...
[13:13:57.923] - globals found: [2] 'FUN', 'sample'
[13:13:57.923] Searching for globals ... DONE
[13:13:57.924] Resolving globals: FALSE
[13:13:57.924] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:57.924] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:57.925] - globals: [1] 'FUN'
[13:13:57.925] 
[13:13:57.925] getGlobalsAndPackages() ... DONE
[13:13:57.925]  - globals found/used: [n=1] 'FUN'
[13:13:57.925]  - needed namespaces: [n=0] 
[13:13:57.925] Finding globals ... DONE
[13:13:57.926]  - use_args: TRUE
[13:13:57.926]  - Getting '...' globals ...
[13:13:57.926] resolve() on list ...
[13:13:57.926]  recursive: 0
[13:13:57.926]  length: 1
[13:13:57.927]  elements: '...'
[13:13:57.927]  length: 0 (resolved future 1)
[13:13:57.927] resolve() on list ... DONE
[13:13:57.927]    - '...' content: [n=0] 
[13:13:57.927] List of 1
[13:13:57.927]  $ ...: list()
[13:13:57.927]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.927]  - attr(*, "where")=List of 1
[13:13:57.927]   ..$ ...:<environment: 0x0000019ec9eb8378> 
[13:13:57.927]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.927]  - attr(*, "resolved")= logi TRUE
[13:13:57.927]  - attr(*, "total_size")= num NA
[13:13:57.931]  - Getting '...' globals ... DONE
[13:13:57.931] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:57.931] List of 2
[13:13:57.931]  $ ...future.FUN:function (...)  
[13:13:57.931]  $ ...          : list()
[13:13:57.931]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.931]  - attr(*, "where")=List of 2
[13:13:57.931]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.931]   ..$ ...          :<environment: 0x0000019ec9eb8378> 
[13:13:57.931]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.931]  - attr(*, "resolved")= logi FALSE
[13:13:57.931]  - attr(*, "total_size")= num 616
[13:13:57.935] Packages to be attached in all futures: [n=0] 
[13:13:57.935] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.935] Number of futures (= number of chunks): 1
[13:13:57.935] Launching 1 futures (chunks) ...
[13:13:57.935] Chunk #1 of 1 ...
[13:13:57.936]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.936] getGlobalsAndPackages() ...
[13:13:57.936] Searching for globals...
[13:13:57.936] 
[13:13:57.936] Searching for globals ... DONE
[13:13:57.936] - globals: [0] <none>
[13:13:57.937] getGlobalsAndPackages() ... DONE
[13:13:57.937]    + additional globals found: [n=0] 
[13:13:57.937]    + additional namespaces needed: [n=0] 
[13:13:57.937]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.937]  - seeds: [5] <seeds>
[13:13:57.937]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.938] getGlobalsAndPackages() ...
[13:13:57.938] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.938] Resolving globals: FALSE
[13:13:57.938] Tweak future expression to call with '...' arguments ...
[13:13:57.938] {
[13:13:57.938]     do.call(function(...) {
[13:13:57.938]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.938]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.938]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.938]             on.exit(options(oopts), add = TRUE)
[13:13:57.938]         }
[13:13:57.938]         {
[13:13:57.938]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.938]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.938]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.938]                   envir = globalenv(), inherits = FALSE)
[13:13:57.938]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.938]             })
[13:13:57.938]         }
[13:13:57.938]     }, args = future.call.arguments)
[13:13:57.938] }
[13:13:57.939] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.939] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.939] 
[13:13:57.940] getGlobalsAndPackages() ... DONE
[13:13:57.940] run() for 'Future' ...
[13:13:57.940] - state: 'created'
[13:13:57.940] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.941] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.941] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.941]   - Field: 'label'
[13:13:57.941]   - Field: 'local'
[13:13:57.941]   - Field: 'owner'
[13:13:57.942]   - Field: 'envir'
[13:13:57.942]   - Field: 'packages'
[13:13:57.942]   - Field: 'gc'
[13:13:57.942]   - Field: 'conditions'
[13:13:57.942]   - Field: 'expr'
[13:13:57.942]   - Field: 'uuid'
[13:13:57.943]   - Field: 'seed'
[13:13:57.943]   - Field: 'version'
[13:13:57.943]   - Field: 'result'
[13:13:57.943]   - Field: 'asynchronous'
[13:13:57.943]   - Field: 'calls'
[13:13:57.943]   - Field: 'globals'
[13:13:57.944]   - Field: 'stdout'
[13:13:57.944]   - Field: 'earlySignal'
[13:13:57.944]   - Field: 'lazy'
[13:13:57.944]   - Field: 'state'
[13:13:57.944] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:57.945] - Launch lazy future ...
[13:13:57.945] Packages needed by the future expression (n = 0): <none>
[13:13:57.945] Packages needed by future strategies (n = 0): <none>
[13:13:57.945] {
[13:13:57.945]     {
[13:13:57.945]         {
[13:13:57.945]             ...future.startTime <- base::Sys.time()
[13:13:57.945]             {
[13:13:57.945]                 {
[13:13:57.945]                   {
[13:13:57.945]                     base::local({
[13:13:57.945]                       has_future <- base::requireNamespace("future", 
[13:13:57.945]                         quietly = TRUE)
[13:13:57.945]                       if (has_future) {
[13:13:57.945]                         ns <- base::getNamespace("future")
[13:13:57.945]                         version <- ns[[".package"]][["version"]]
[13:13:57.945]                         if (is.null(version)) 
[13:13:57.945]                           version <- utils::packageVersion("future")
[13:13:57.945]                       }
[13:13:57.945]                       else {
[13:13:57.945]                         version <- NULL
[13:13:57.945]                       }
[13:13:57.945]                       if (!has_future || version < "1.8.0") {
[13:13:57.945]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:57.945]                           "", base::R.version$version.string), 
[13:13:57.945]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:57.945]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:57.945]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:57.945]                             "release", "version")], collapse = " "), 
[13:13:57.945]                           hostname = base::Sys.info()[["nodename"]])
[13:13:57.945]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:57.945]                           info)
[13:13:57.945]                         info <- base::paste(info, collapse = "; ")
[13:13:57.945]                         if (!has_future) {
[13:13:57.945]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:57.945]                             info)
[13:13:57.945]                         }
[13:13:57.945]                         else {
[13:13:57.945]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:57.945]                             info, version)
[13:13:57.945]                         }
[13:13:57.945]                         base::stop(msg)
[13:13:57.945]                       }
[13:13:57.945]                     })
[13:13:57.945]                   }
[13:13:57.945]                   options(future.plan = NULL)
[13:13:57.945]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.945]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:57.945]                 }
[13:13:57.945]                 ...future.workdir <- getwd()
[13:13:57.945]             }
[13:13:57.945]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:57.945]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:57.945]         }
[13:13:57.945]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:57.945]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:57.945]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:57.945]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:57.945]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:57.945]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:57.945]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:57.945]             base::names(...future.oldOptions))
[13:13:57.945]     }
[13:13:57.945]     if (FALSE) {
[13:13:57.945]     }
[13:13:57.945]     else {
[13:13:57.945]         if (TRUE) {
[13:13:57.945]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:57.945]                 open = "w")
[13:13:57.945]         }
[13:13:57.945]         else {
[13:13:57.945]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:57.945]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:57.945]         }
[13:13:57.945]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:57.945]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:57.945]             base::sink(type = "output", split = FALSE)
[13:13:57.945]             base::close(...future.stdout)
[13:13:57.945]         }, add = TRUE)
[13:13:57.945]     }
[13:13:57.945]     ...future.frame <- base::sys.nframe()
[13:13:57.945]     ...future.conditions <- base::list()
[13:13:57.945]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:57.945]     if (FALSE) {
[13:13:57.945]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:57.945]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:57.945]     }
[13:13:57.945]     ...future.result <- base::tryCatch({
[13:13:57.945]         base::withCallingHandlers({
[13:13:57.945]             ...future.value <- base::withVisible(base::local({
[13:13:57.945]                 do.call(function(...) {
[13:13:57.945]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.945]                   if (!identical(...future.globals.maxSize.org, 
[13:13:57.945]                     ...future.globals.maxSize)) {
[13:13:57.945]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.945]                     on.exit(options(oopts), add = TRUE)
[13:13:57.945]                   }
[13:13:57.945]                   {
[13:13:57.945]                     lapply(seq_along(...future.elements_ii), 
[13:13:57.945]                       FUN = function(jj) {
[13:13:57.945]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.945]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.945]                           envir = globalenv(), inherits = FALSE)
[13:13:57.945]                         ...future.FUN(...future.X_jj, ...)
[13:13:57.945]                       })
[13:13:57.945]                   }
[13:13:57.945]                 }, args = future.call.arguments)
[13:13:57.945]             }))
[13:13:57.945]             future::FutureResult(value = ...future.value$value, 
[13:13:57.945]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.945]                   ...future.rng), globalenv = if (FALSE) 
[13:13:57.945]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:57.945]                     ...future.globalenv.names))
[13:13:57.945]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:57.945]         }, condition = base::local({
[13:13:57.945]             c <- base::c
[13:13:57.945]             inherits <- base::inherits
[13:13:57.945]             invokeRestart <- base::invokeRestart
[13:13:57.945]             length <- base::length
[13:13:57.945]             list <- base::list
[13:13:57.945]             seq.int <- base::seq.int
[13:13:57.945]             signalCondition <- base::signalCondition
[13:13:57.945]             sys.calls <- base::sys.calls
[13:13:57.945]             `[[` <- base::`[[`
[13:13:57.945]             `+` <- base::`+`
[13:13:57.945]             `<<-` <- base::`<<-`
[13:13:57.945]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:57.945]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:57.945]                   3L)]
[13:13:57.945]             }
[13:13:57.945]             function(cond) {
[13:13:57.945]                 is_error <- inherits(cond, "error")
[13:13:57.945]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:57.945]                   NULL)
[13:13:57.945]                 if (is_error) {
[13:13:57.945]                   sessionInformation <- function() {
[13:13:57.945]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:57.945]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:57.945]                       search = base::search(), system = base::Sys.info())
[13:13:57.945]                   }
[13:13:57.945]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.945]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:57.945]                     cond$call), session = sessionInformation(), 
[13:13:57.945]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:57.945]                   signalCondition(cond)
[13:13:57.945]                 }
[13:13:57.945]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:57.945]                 "immediateCondition"))) {
[13:13:57.945]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:57.945]                   ...future.conditions[[length(...future.conditions) + 
[13:13:57.945]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:57.945]                   if (TRUE && !signal) {
[13:13:57.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.945]                     {
[13:13:57.945]                       inherits <- base::inherits
[13:13:57.945]                       invokeRestart <- base::invokeRestart
[13:13:57.945]                       is.null <- base::is.null
[13:13:57.945]                       muffled <- FALSE
[13:13:57.945]                       if (inherits(cond, "message")) {
[13:13:57.945]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.945]                         if (muffled) 
[13:13:57.945]                           invokeRestart("muffleMessage")
[13:13:57.945]                       }
[13:13:57.945]                       else if (inherits(cond, "warning")) {
[13:13:57.945]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.945]                         if (muffled) 
[13:13:57.945]                           invokeRestart("muffleWarning")
[13:13:57.945]                       }
[13:13:57.945]                       else if (inherits(cond, "condition")) {
[13:13:57.945]                         if (!is.null(pattern)) {
[13:13:57.945]                           computeRestarts <- base::computeRestarts
[13:13:57.945]                           grepl <- base::grepl
[13:13:57.945]                           restarts <- computeRestarts(cond)
[13:13:57.945]                           for (restart in restarts) {
[13:13:57.945]                             name <- restart$name
[13:13:57.945]                             if (is.null(name)) 
[13:13:57.945]                               next
[13:13:57.945]                             if (!grepl(pattern, name)) 
[13:13:57.945]                               next
[13:13:57.945]                             invokeRestart(restart)
[13:13:57.945]                             muffled <- TRUE
[13:13:57.945]                             break
[13:13:57.945]                           }
[13:13:57.945]                         }
[13:13:57.945]                       }
[13:13:57.945]                       invisible(muffled)
[13:13:57.945]                     }
[13:13:57.945]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.945]                   }
[13:13:57.945]                 }
[13:13:57.945]                 else {
[13:13:57.945]                   if (TRUE) {
[13:13:57.945]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:57.945]                     {
[13:13:57.945]                       inherits <- base::inherits
[13:13:57.945]                       invokeRestart <- base::invokeRestart
[13:13:57.945]                       is.null <- base::is.null
[13:13:57.945]                       muffled <- FALSE
[13:13:57.945]                       if (inherits(cond, "message")) {
[13:13:57.945]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:57.945]                         if (muffled) 
[13:13:57.945]                           invokeRestart("muffleMessage")
[13:13:57.945]                       }
[13:13:57.945]                       else if (inherits(cond, "warning")) {
[13:13:57.945]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:57.945]                         if (muffled) 
[13:13:57.945]                           invokeRestart("muffleWarning")
[13:13:57.945]                       }
[13:13:57.945]                       else if (inherits(cond, "condition")) {
[13:13:57.945]                         if (!is.null(pattern)) {
[13:13:57.945]                           computeRestarts <- base::computeRestarts
[13:13:57.945]                           grepl <- base::grepl
[13:13:57.945]                           restarts <- computeRestarts(cond)
[13:13:57.945]                           for (restart in restarts) {
[13:13:57.945]                             name <- restart$name
[13:13:57.945]                             if (is.null(name)) 
[13:13:57.945]                               next
[13:13:57.945]                             if (!grepl(pattern, name)) 
[13:13:57.945]                               next
[13:13:57.945]                             invokeRestart(restart)
[13:13:57.945]                             muffled <- TRUE
[13:13:57.945]                             break
[13:13:57.945]                           }
[13:13:57.945]                         }
[13:13:57.945]                       }
[13:13:57.945]                       invisible(muffled)
[13:13:57.945]                     }
[13:13:57.945]                     muffleCondition(cond, pattern = "^muffle")
[13:13:57.945]                   }
[13:13:57.945]                 }
[13:13:57.945]             }
[13:13:57.945]         }))
[13:13:57.945]     }, error = function(ex) {
[13:13:57.945]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:57.945]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:57.945]                 ...future.rng), started = ...future.startTime, 
[13:13:57.945]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:57.945]             version = "1.8"), class = "FutureResult")
[13:13:57.945]     }, finally = {
[13:13:57.945]         if (!identical(...future.workdir, getwd())) 
[13:13:57.945]             setwd(...future.workdir)
[13:13:57.945]         {
[13:13:57.945]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:57.945]                 ...future.oldOptions$nwarnings <- NULL
[13:13:57.945]             }
[13:13:57.945]             base::options(...future.oldOptions)
[13:13:57.945]             if (.Platform$OS.type == "windows") {
[13:13:57.945]                 old_names <- names(...future.oldEnvVars)
[13:13:57.945]                 envs <- base::Sys.getenv()
[13:13:57.945]                 names <- names(envs)
[13:13:57.945]                 common <- intersect(names, old_names)
[13:13:57.945]                 added <- setdiff(names, old_names)
[13:13:57.945]                 removed <- setdiff(old_names, names)
[13:13:57.945]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:57.945]                   envs[common]]
[13:13:57.945]                 NAMES <- toupper(changed)
[13:13:57.945]                 args <- list()
[13:13:57.945]                 for (kk in seq_along(NAMES)) {
[13:13:57.945]                   name <- changed[[kk]]
[13:13:57.945]                   NAME <- NAMES[[kk]]
[13:13:57.945]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.945]                     next
[13:13:57.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.945]                 }
[13:13:57.945]                 NAMES <- toupper(added)
[13:13:57.945]                 for (kk in seq_along(NAMES)) {
[13:13:57.945]                   name <- added[[kk]]
[13:13:57.945]                   NAME <- NAMES[[kk]]
[13:13:57.945]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.945]                     next
[13:13:57.945]                   args[[name]] <- ""
[13:13:57.945]                 }
[13:13:57.945]                 NAMES <- toupper(removed)
[13:13:57.945]                 for (kk in seq_along(NAMES)) {
[13:13:57.945]                   name <- removed[[kk]]
[13:13:57.945]                   NAME <- NAMES[[kk]]
[13:13:57.945]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:57.945]                     next
[13:13:57.945]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:57.945]                 }
[13:13:57.945]                 if (length(args) > 0) 
[13:13:57.945]                   base::do.call(base::Sys.setenv, args = args)
[13:13:57.945]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:57.945]             }
[13:13:57.945]             else {
[13:13:57.945]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:57.945]             }
[13:13:57.945]             {
[13:13:57.945]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:57.945]                   0L) {
[13:13:57.945]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:57.945]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:57.945]                   base::options(opts)
[13:13:57.945]                 }
[13:13:57.945]                 {
[13:13:57.945]                   {
[13:13:57.945]                     base::assign(".Random.seed", c(10403L, 6L, 
[13:13:57.945]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[13:13:57.945]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[13:13:57.945]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[13:13:57.945]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[13:13:57.945]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[13:13:57.945]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[13:13:57.945]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[13:13:57.945]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[13:13:57.945]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[13:13:57.945]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[13:13:57.945]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[13:13:57.945]                     -1512233174L, -1985955764L, -425390065L, 
[13:13:57.945]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[13:13:57.945]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[13:13:57.945]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[13:13:57.945]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[13:13:57.945]                     1818328109L, -1284085436L, -1981489558L, 
[13:13:57.945]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[13:13:57.945]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[13:13:57.945]                     -1718567047L, -793788661L, -1133789126L, 
[13:13:57.945]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[13:13:57.945]                     -1823521982L, -1345991523L, -1672661737L, 
[13:13:57.945]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[13:13:57.945]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[13:13:57.945]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[13:13:57.945]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[13:13:57.945]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[13:13:57.945]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[13:13:57.945]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[13:13:57.945]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[13:13:57.945]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[13:13:57.945]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[13:13:57.945]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[13:13:57.945]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[13:13:57.945]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[13:13:57.945]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[13:13:57.945]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[13:13:57.945]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[13:13:57.945]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[13:13:57.945]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[13:13:57.945]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[13:13:57.945]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[13:13:57.945]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[13:13:57.945]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[13:13:57.945]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[13:13:57.945]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[13:13:57.945]                     -1119334354L, -1521015416L, -2041922421L, 
[13:13:57.945]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[13:13:57.945]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[13:13:57.945]                     1232111981L, -1801753084L, -1608606422L, 
[13:13:57.945]                     -1172096363L, 1420874031L, -1210473418L, 
[13:13:57.945]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[13:13:57.945]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[13:13:57.945]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[13:13:57.945]                     679371266L, -591318819L, -104578089L, -172818754L, 
[13:13:57.945]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[13:13:57.945]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[13:13:57.945]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[13:13:57.945]                     -332493318L, -1978392251L, -1691039632L, 
[13:13:57.945]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[13:13:57.945]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[13:13:57.945]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[13:13:57.945]                     87560756L, -87565624L, 426345146L, -699970416L, 
[13:13:57.945]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[13:13:57.945]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[13:13:57.945]                     -1178330196L, -687617348L, -1701912078L, 
[13:13:57.945]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[13:13:57.945]                     -1345416048L, 1816730492L, -1570431212L, 
[13:13:57.945]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[13:13:57.945]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[13:13:57.945]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[13:13:57.945]                     -1493184262L, -1943836976L, -590788308L, 
[13:13:57.945]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[13:13:57.945]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[13:13:57.945]                     1274857340L, -1205842638L, -1938479504L, 
[13:13:57.945]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[13:13:57.945]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[13:13:57.945]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[13:13:57.945]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[13:13:57.945]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[13:13:57.945]                     -1460751252L, 1201879444L, -1459788718L, 
[13:13:57.945]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[13:13:57.945]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[13:13:57.945]                     -420945808L, -1997735900L, -1838404552L, 
[13:13:57.945]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[13:13:57.945]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[13:13:57.945]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[13:13:57.945]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[13:13:57.945]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[13:13:57.945]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[13:13:57.945]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[13:13:57.945]                     942193650L, 751741680L, 689743428L, -18455976L, 
[13:13:57.945]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[13:13:57.945]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[13:13:57.945]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[13:13:57.945]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[13:13:57.945]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[13:13:57.945]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[13:13:57.945]                     -1357570110L, 1896595240L, -2066952276L, 
[13:13:57.945]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[13:13:57.945]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[13:13:57.945]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[13:13:57.945]                     769655120L, 236357794L, 181393736L, -13334772L, 
[13:13:57.945]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[13:13:57.945]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[13:13:57.945]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[13:13:57.945]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[13:13:57.945]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[13:13:57.945]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[13:13:57.945]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[13:13:57.945]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[13:13:57.945]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[13:13:57.945]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[13:13:57.945]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[13:13:57.945]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[13:13:57.945]                     -1365842884L, -438961294L, -1851472272L, 
[13:13:57.945]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[13:13:57.945]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[13:13:57.945]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[13:13:57.945]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[13:13:57.945]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[13:13:57.945]                     -594809770L, -2146766621L, -2013964635L, 
[13:13:57.945]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[13:13:57.945]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[13:13:57.945]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[13:13:57.945]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[13:13:57.945]                     -1426021878L, -1285634264L, 1507547537L, 
[13:13:57.945]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[13:13:57.945]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[13:13:57.945]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[13:13:57.945]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[13:13:57.945]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[13:13:57.945]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[13:13:57.945]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[13:13:57.945]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[13:13:57.945]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[13:13:57.945]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[13:13:57.945]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[13:13:57.945]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[13:13:57.945]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[13:13:57.945]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[13:13:57.945]                     -1604604761L, 1421229008L, -1268333714L, 
[13:13:57.945]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[13:13:57.945]                     -2070476623L, -2099222749L, 1141171236L, 
[13:13:57.945]                     -146426158L, -1797385433L, -1129376399L, 
[13:13:57.945]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[13:13:57.945]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[13:13:57.945]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[13:13:57.945]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[13:13:57.945]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[13:13:57.945]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[13:13:57.945]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[13:13:57.945]                     -1092079724L, -1765622238L, -1882554057L, 
[13:13:57.945]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[13:13:57.945]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[13:13:57.945]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[13:13:57.945]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[13:13:57.945]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[13:13:57.945]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[13:13:57.945]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[13:13:57.945]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[13:13:57.945]                     865377681L, -1127426242L), envir = base::globalenv(), 
[13:13:57.945]                       inherits = FALSE)
[13:13:57.945]                     NULL
[13:13:57.945]                   }
[13:13:57.945]                   options(future.plan = NULL)
[13:13:57.945]                   if (is.na(NA_character_)) 
[13:13:57.945]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:57.945]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:57.945]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:57.945]                   {
[13:13:57.945]                     future <- SequentialFuture(..., envir = envir)
[13:13:57.945]                     if (!future$lazy) 
[13:13:57.945]                       future <- run(future)
[13:13:57.945]                     invisible(future)
[13:13:57.945]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:57.945]                 }
[13:13:57.945]             }
[13:13:57.945]         }
[13:13:57.945]     })
[13:13:57.945]     if (TRUE) {
[13:13:57.945]         base::sink(type = "output", split = FALSE)
[13:13:57.945]         if (TRUE) {
[13:13:57.945]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:57.945]         }
[13:13:57.945]         else {
[13:13:57.945]             ...future.result["stdout"] <- base::list(NULL)
[13:13:57.945]         }
[13:13:57.945]         base::close(...future.stdout)
[13:13:57.945]         ...future.stdout <- NULL
[13:13:57.945]     }
[13:13:57.945]     ...future.result$conditions <- ...future.conditions
[13:13:57.945]     ...future.result$finished <- base::Sys.time()
[13:13:57.945]     ...future.result
[13:13:57.945] }
[13:13:57.951] assign_globals() ...
[13:13:57.951] List of 5
[13:13:57.951]  $ ...future.FUN            :function (...)  
[13:13:57.951]  $ future.call.arguments    : list()
[13:13:57.951]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.951]  $ ...future.elements_ii    :List of 5
[13:13:57.951]   ..$ : int 0
[13:13:57.951]   ..$ : int 0
[13:13:57.951]   ..$ : int 0
[13:13:57.951]   ..$ : int 0
[13:13:57.951]   ..$ : int 0
[13:13:57.951]  $ ...future.seeds_ii       :List of 5
[13:13:57.951]   ..$ : int [1:7] 10407 1242173061 -1150840343 -834448425 701050094 -1369558043 -650964284
[13:13:57.951]   ..$ : int [1:7] 10407 859061261 1088872332 -1371790091 -942478768 -889560561 1393381402
[13:13:57.951]   ..$ : int [1:7] 10407 -1977952646 362645338 -1927542548 -742448269 -2030870718 1472975712
[13:13:57.951]   ..$ : int [1:7] 10407 -781199300 -1470244364 -1435938985 -1154922760 795337516 2089908040
[13:13:57.951]   ..$ : int [1:7] 10407 -1281561623 1745663508 -502066495 1003795914 -1805763079 -205768335
[13:13:57.951]  $ ...future.globals.maxSize: NULL
[13:13:57.951]  - attr(*, "where")=List of 5
[13:13:57.951]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:57.951]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:57.951]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:57.951]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:57.951]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:57.951]  - attr(*, "resolved")= logi FALSE
[13:13:57.951]  - attr(*, "total_size")= num 616
[13:13:57.951]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.951]  - attr(*, "already-done")= logi TRUE
[13:13:57.960] - reassign environment for '...future.FUN'
[13:13:57.961] - copied '...future.FUN' to environment
[13:13:57.961] - copied 'future.call.arguments' to environment
[13:13:57.961] - copied '...future.elements_ii' to environment
[13:13:57.961] - copied '...future.seeds_ii' to environment
[13:13:57.961] - copied '...future.globals.maxSize' to environment
[13:13:57.961] assign_globals() ... done
[13:13:57.962] plan(): Setting new future strategy stack:
[13:13:57.962] List of future strategies:
[13:13:57.962] 1. sequential:
[13:13:57.962]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.962]    - tweaked: FALSE
[13:13:57.962]    - call: NULL
[13:13:57.962] plan(): nbrOfWorkers() = 1
[13:13:57.964] plan(): Setting new future strategy stack:
[13:13:57.964] List of future strategies:
[13:13:57.964] 1. sequential:
[13:13:57.964]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:57.964]    - tweaked: FALSE
[13:13:57.964]    - call: plan(strategy)
[13:13:57.964] plan(): nbrOfWorkers() = 1
[13:13:57.965] SequentialFuture started (and completed)
[13:13:57.965] - Launch lazy future ... done
[13:13:57.965] run() for 'SequentialFuture' ... done
[13:13:57.965] Created future:
[13:13:57.965] SequentialFuture:
[13:13:57.965] Label: 'future_replicate-1'
[13:13:57.965] Expression:
[13:13:57.965] {
[13:13:57.965]     do.call(function(...) {
[13:13:57.965]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.965]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.965]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.965]             on.exit(options(oopts), add = TRUE)
[13:13:57.965]         }
[13:13:57.965]         {
[13:13:57.965]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.965]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.965]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.965]                   envir = globalenv(), inherits = FALSE)
[13:13:57.965]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.965]             })
[13:13:57.965]         }
[13:13:57.965]     }, args = future.call.arguments)
[13:13:57.965] }
[13:13:57.965] Lazy evaluation: FALSE
[13:13:57.965] Asynchronous evaluation: FALSE
[13:13:57.965] Local evaluation: TRUE
[13:13:57.965] Environment: R_GlobalEnv
[13:13:57.965] Capture standard output: TRUE
[13:13:57.965] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:57.965] Globals: 5 objects totaling 1.27 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, list '...future.seeds_ii' of 400 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:57.965] Packages: <none>
[13:13:57.965] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:57.965] Resolved: TRUE
[13:13:57.965] Value: 280 bytes of class 'list'
[13:13:57.965] Early signaling: FALSE
[13:13:57.965] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:57.965] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.967] Chunk #1 of 1 ... DONE
[13:13:57.967] Launching 1 futures (chunks) ... DONE
[13:13:57.967] Resolving 1 futures (chunks) ...
[13:13:57.967] resolve() on list ...
[13:13:57.967]  recursive: 0
[13:13:57.968]  length: 1
[13:13:57.968] 
[13:13:57.968] resolved() for 'SequentialFuture' ...
[13:13:57.968] - state: 'finished'
[13:13:57.968] - run: TRUE
[13:13:57.968] - result: 'FutureResult'
[13:13:57.969] resolved() for 'SequentialFuture' ... done
[13:13:57.969] Future #1
[13:13:57.969] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:57.969] - nx: 1
[13:13:57.969] - relay: TRUE
[13:13:57.969] - stdout: TRUE
[13:13:57.970] - signal: TRUE
[13:13:57.970] - resignal: FALSE
[13:13:57.970] - force: TRUE
[13:13:57.970] - relayed: [n=1] FALSE
[13:13:57.970] - queued futures: [n=1] FALSE
[13:13:57.970]  - until=1
[13:13:57.970]  - relaying element #1
[13:13:57.971] - relayed: [n=1] TRUE
[13:13:57.971] - queued futures: [n=1] TRUE
[13:13:57.971] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:57.971]  length: 0 (resolved future 1)
[13:13:57.971] Relaying remaining futures
[13:13:57.972] signalConditionsASAP(NULL, pos=0) ...
[13:13:57.972] - nx: 1
[13:13:57.972] - relay: TRUE
[13:13:57.972] - stdout: TRUE
[13:13:57.972] - signal: TRUE
[13:13:57.972] - resignal: FALSE
[13:13:57.972] - force: TRUE
[13:13:57.973] - relayed: [n=1] TRUE
[13:13:57.973] - queued futures: [n=1] TRUE
 - flush all
[13:13:57.973] - relayed: [n=1] TRUE
[13:13:57.973] - queued futures: [n=1] TRUE
[13:13:57.973] signalConditionsASAP(NULL, pos=0) ... done
[13:13:57.973] resolve() on list ... DONE
[13:13:57.974]  - Number of value chunks collected: 1
[13:13:57.974] Resolving 1 futures (chunks) ... DONE
[13:13:57.974] Reducing values from 1 chunks ...
[13:13:57.974]  - Number of values collected after concatenation: 5
[13:13:57.974]  - Number of values expected: 5
[13:13:57.974] Reducing values from 1 chunks ... DONE
[13:13:57.975] future_lapply() ... DONE
- example(replicate) ...
[13:13:57.975] future_lapply() ...
[13:13:57.976] Generating random seeds ...
[13:13:57.976] Generating random seed streams for 5 elements ...
[13:13:57.976] Generating random seed streams for 5 elements ... DONE
[13:13:57.976] Generating random seeds ... DONE
[13:13:57.976] 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
[13:13:57.977] Number of chunks: 1
[13:13:57.977] getGlobalsAndPackagesXApply() ...
[13:13:57.977]  - future.globals: TRUE
[13:13:57.978] getGlobalsAndPackages() ...
[13:13:57.978] Searching for globals...
[13:13:57.980] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[13:13:57.980] Searching for globals ... DONE
[13:13:57.980] Resolving globals: FALSE
[13:13:57.981] The total size of the 3 globals is 2.15 KiB (2200 bytes)
[13:13:57.981] The total size of the 3 globals exported for future expression ('FUN()') is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (1.60 KiB of class 'function'), 'FUN' (504 bytes of class 'function') and 'x' (56 bytes of class 'numeric')
[13:13:57.981] - globals: [3] 'FUN', 'foo', 'x'
[13:13:57.982] 
[13:13:57.982] getGlobalsAndPackages() ... DONE
[13:13:57.982]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[13:13:57.982]  - needed namespaces: [n=0] 
[13:13:57.982] Finding globals ... DONE
[13:13:57.982]  - use_args: TRUE
[13:13:57.983]  - Getting '...' globals ...
[13:13:57.984] resolve() on list ...
[13:13:57.984]  recursive: 0
[13:13:57.984]  length: 1
[13:13:57.984]  elements: '...'
[13:13:57.984]  length: 0 (resolved future 1)
[13:13:57.985] resolve() on list ... DONE
[13:13:57.985]    - '...' content: [n=0] 
[13:13:57.985] List of 1
[13:13:57.985]  $ ...: list()
[13:13:57.985]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.985]  - attr(*, "where")=List of 1
[13:13:57.985]   ..$ ...:<environment: 0x0000019ec9f9b680> 
[13:13:57.985]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.985]  - attr(*, "resolved")= logi TRUE
[13:13:57.985]  - attr(*, "total_size")= num NA
[13:13:57.988]  - Getting '...' globals ... DONE
[13:13:57.988] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[13:13:57.988] List of 4
[13:13:57.988]  $ ...future.FUN:function (...)  
[13:13:57.988]  $ foo          :function (x = 1, y = 2)  
[13:13:57.988]  $ x            : num 3
[13:13:57.988]  $ ...          : list()
[13:13:57.988]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:57.988]  - attr(*, "where")=List of 4
[13:13:57.988]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:57.988]   ..$ foo          :<environment: R_EmptyEnv> 
[13:13:57.988]   ..$ x            :<environment: R_EmptyEnv> 
[13:13:57.988]   ..$ ...          :<environment: 0x0000019ec9f9b680> 
[13:13:57.988]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:57.988]  - attr(*, "resolved")= logi FALSE
[13:13:57.988]  - attr(*, "total_size")= num 2200
[13:13:57.993] Packages to be attached in all futures: [n=0] 
[13:13:57.993] getGlobalsAndPackagesXApply() ... DONE
[13:13:57.993] Number of futures (= number of chunks): 1
[13:13:57.993] Launching 1 futures (chunks) ...
[13:13:57.993] Chunk #1 of 1 ...
[13:13:57.994]  - Finding globals in 'X' for chunk #1 ...
[13:13:57.994] getGlobalsAndPackages() ...
[13:13:57.994] Searching for globals...
[13:13:57.994] 
[13:13:57.994] Searching for globals ... DONE
[13:13:57.994] - globals: [0] <none>
[13:13:57.995] getGlobalsAndPackages() ... DONE
[13:13:57.995]    + additional globals found: [n=0] 
[13:13:57.995]    + additional namespaces needed: [n=0] 
[13:13:57.995]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:57.995]  - seeds: [5] <seeds>
[13:13:57.995]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.996] getGlobalsAndPackages() ...
[13:13:57.996] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.996] Resolving globals: FALSE
[13:13:57.996] Tweak future expression to call with '...' arguments ...
[13:13:57.996] {
[13:13:57.996]     do.call(function(...) {
[13:13:57.996]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:57.996]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:57.996]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:57.996]             on.exit(options(oopts), add = TRUE)
[13:13:57.996]         }
[13:13:57.996]         {
[13:13:57.996]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:57.996]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:57.996]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:57.996]                   envir = globalenv(), inherits = FALSE)
[13:13:57.996]                 ...future.FUN(...future.X_jj, ...)
[13:13:57.996]             })
[13:13:57.996]         }
[13:13:57.996]     }, args = future.call.arguments)
[13:13:57.996] }
[13:13:57.997] Tweak future expression to call with '...' arguments ... DONE
[13:13:57.997] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:57.998] 
[13:13:57.998] getGlobalsAndPackages() ... DONE
[13:13:57.998] run() for 'Future' ...
[13:13:57.998] - state: 'created'
[13:13:57.998] - Future backend: 'FutureStrategy', 'sequential', 'uniprocess', 'future', 'function'
[13:13:57.999] - Future class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:57.999] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ...
[13:13:57.999]   - Field: 'label'
[13:13:57.999]   - Field: 'local'
[13:13:58.000]   - Field: 'owner'
[13:13:58.000]   - Field: 'envir'
[13:13:58.000]   - Field: 'packages'
[13:13:58.000]   - Field: 'gc'
[13:13:58.000]   - Field: 'conditions'
[13:13:58.000]   - Field: 'expr'
[13:13:58.001]   - Field: 'uuid'
[13:13:58.001]   - Field: 'seed'
[13:13:58.001]   - Field: 'version'
[13:13:58.001]   - Field: 'result'
[13:13:58.001]   - Field: 'asynchronous'
[13:13:58.001]   - Field: 'calls'
[13:13:58.002]   - Field: 'globals'
[13:13:58.002]   - Field: 'stdout'
[13:13:58.002]   - Field: 'earlySignal'
[13:13:58.002]   - Field: 'lazy'
[13:13:58.002]   - Field: 'state'
[13:13:58.002] - Copy elements of temporary 'SequentialFuture' to final 'Future' object ... done
[13:13:58.003] - Launch lazy future ...
[13:13:58.003] Packages needed by the future expression (n = 0): <none>
[13:13:58.003] Packages needed by future strategies (n = 0): <none>
[13:13:58.004] {
[13:13:58.004]     {
[13:13:58.004]         {
[13:13:58.004]             ...future.startTime <- base::Sys.time()
[13:13:58.004]             {
[13:13:58.004]                 {
[13:13:58.004]                   {
[13:13:58.004]                     base::local({
[13:13:58.004]                       has_future <- base::requireNamespace("future", 
[13:13:58.004]                         quietly = TRUE)
[13:13:58.004]                       if (has_future) {
[13:13:58.004]                         ns <- base::getNamespace("future")
[13:13:58.004]                         version <- ns[[".package"]][["version"]]
[13:13:58.004]                         if (is.null(version)) 
[13:13:58.004]                           version <- utils::packageVersion("future")
[13:13:58.004]                       }
[13:13:58.004]                       else {
[13:13:58.004]                         version <- NULL
[13:13:58.004]                       }
[13:13:58.004]                       if (!has_future || version < "1.8.0") {
[13:13:58.004]                         info <- base::c(r_version = base::gsub("R version ", 
[13:13:58.004]                           "", base::R.version$version.string), 
[13:13:58.004]                           platform = base::sprintf("%s (%s-bit)", 
[13:13:58.004]                             base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:58.004]                           os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:58.004]                             "release", "version")], collapse = " "), 
[13:13:58.004]                           hostname = base::Sys.info()[["nodename"]])
[13:13:58.004]                         info <- base::sprintf("%s: %s", base::names(info), 
[13:13:58.004]                           info)
[13:13:58.004]                         info <- base::paste(info, collapse = "; ")
[13:13:58.004]                         if (!has_future) {
[13:13:58.004]                           msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:58.004]                             info)
[13:13:58.004]                         }
[13:13:58.004]                         else {
[13:13:58.004]                           msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:58.004]                             info, version)
[13:13:58.004]                         }
[13:13:58.004]                         base::stop(msg)
[13:13:58.004]                       }
[13:13:58.004]                     })
[13:13:58.004]                   }
[13:13:58.004]                   options(future.plan = NULL)
[13:13:58.004]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.004]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:58.004]                 }
[13:13:58.004]                 ...future.workdir <- getwd()
[13:13:58.004]             }
[13:13:58.004]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:58.004]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:58.004]         }
[13:13:58.004]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:58.004]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:58.004]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:58.004]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:58.004]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:58.004]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:58.004]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:58.004]             base::names(...future.oldOptions))
[13:13:58.004]     }
[13:13:58.004]     if (FALSE) {
[13:13:58.004]     }
[13:13:58.004]     else {
[13:13:58.004]         if (TRUE) {
[13:13:58.004]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:58.004]                 open = "w")
[13:13:58.004]         }
[13:13:58.004]         else {
[13:13:58.004]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:58.004]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:58.004]         }
[13:13:58.004]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:58.004]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:58.004]             base::sink(type = "output", split = FALSE)
[13:13:58.004]             base::close(...future.stdout)
[13:13:58.004]         }, add = TRUE)
[13:13:58.004]     }
[13:13:58.004]     ...future.frame <- base::sys.nframe()
[13:13:58.004]     ...future.conditions <- base::list()
[13:13:58.004]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:58.004]     if (FALSE) {
[13:13:58.004]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:58.004]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:58.004]     }
[13:13:58.004]     ...future.result <- base::tryCatch({
[13:13:58.004]         base::withCallingHandlers({
[13:13:58.004]             ...future.value <- base::withVisible(base::local({
[13:13:58.004]                 do.call(function(...) {
[13:13:58.004]                   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.004]                   if (!identical(...future.globals.maxSize.org, 
[13:13:58.004]                     ...future.globals.maxSize)) {
[13:13:58.004]                     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.004]                     on.exit(options(oopts), add = TRUE)
[13:13:58.004]                   }
[13:13:58.004]                   {
[13:13:58.004]                     lapply(seq_along(...future.elements_ii), 
[13:13:58.004]                       FUN = function(jj) {
[13:13:58.004]                         ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.004]                         assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.004]                           envir = globalenv(), inherits = FALSE)
[13:13:58.004]                         ...future.FUN(...future.X_jj, ...)
[13:13:58.004]                       })
[13:13:58.004]                   }
[13:13:58.004]                 }, args = future.call.arguments)
[13:13:58.004]             }))
[13:13:58.004]             future::FutureResult(value = ...future.value$value, 
[13:13:58.004]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.004]                   ...future.rng), globalenv = if (FALSE) 
[13:13:58.004]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:58.004]                     ...future.globalenv.names))
[13:13:58.004]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:58.004]         }, condition = base::local({
[13:13:58.004]             c <- base::c
[13:13:58.004]             inherits <- base::inherits
[13:13:58.004]             invokeRestart <- base::invokeRestart
[13:13:58.004]             length <- base::length
[13:13:58.004]             list <- base::list
[13:13:58.004]             seq.int <- base::seq.int
[13:13:58.004]             signalCondition <- base::signalCondition
[13:13:58.004]             sys.calls <- base::sys.calls
[13:13:58.004]             `[[` <- base::`[[`
[13:13:58.004]             `+` <- base::`+`
[13:13:58.004]             `<<-` <- base::`<<-`
[13:13:58.004]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:58.004]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:58.004]                   3L)]
[13:13:58.004]             }
[13:13:58.004]             function(cond) {
[13:13:58.004]                 is_error <- inherits(cond, "error")
[13:13:58.004]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:58.004]                   NULL)
[13:13:58.004]                 if (is_error) {
[13:13:58.004]                   sessionInformation <- function() {
[13:13:58.004]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:58.004]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:58.004]                       search = base::search(), system = base::Sys.info())
[13:13:58.004]                   }
[13:13:58.004]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.004]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:58.004]                     cond$call), session = sessionInformation(), 
[13:13:58.004]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:58.004]                   signalCondition(cond)
[13:13:58.004]                 }
[13:13:58.004]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:58.004]                 "immediateCondition"))) {
[13:13:58.004]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:58.004]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.004]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:58.004]                   if (TRUE && !signal) {
[13:13:58.004]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.004]                     {
[13:13:58.004]                       inherits <- base::inherits
[13:13:58.004]                       invokeRestart <- base::invokeRestart
[13:13:58.004]                       is.null <- base::is.null
[13:13:58.004]                       muffled <- FALSE
[13:13:58.004]                       if (inherits(cond, "message")) {
[13:13:58.004]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.004]                         if (muffled) 
[13:13:58.004]                           invokeRestart("muffleMessage")
[13:13:58.004]                       }
[13:13:58.004]                       else if (inherits(cond, "warning")) {
[13:13:58.004]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.004]                         if (muffled) 
[13:13:58.004]                           invokeRestart("muffleWarning")
[13:13:58.004]                       }
[13:13:58.004]                       else if (inherits(cond, "condition")) {
[13:13:58.004]                         if (!is.null(pattern)) {
[13:13:58.004]                           computeRestarts <- base::computeRestarts
[13:13:58.004]                           grepl <- base::grepl
[13:13:58.004]                           restarts <- computeRestarts(cond)
[13:13:58.004]                           for (restart in restarts) {
[13:13:58.004]                             name <- restart$name
[13:13:58.004]                             if (is.null(name)) 
[13:13:58.004]                               next
[13:13:58.004]                             if (!grepl(pattern, name)) 
[13:13:58.004]                               next
[13:13:58.004]                             invokeRestart(restart)
[13:13:58.004]                             muffled <- TRUE
[13:13:58.004]                             break
[13:13:58.004]                           }
[13:13:58.004]                         }
[13:13:58.004]                       }
[13:13:58.004]                       invisible(muffled)
[13:13:58.004]                     }
[13:13:58.004]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.004]                   }
[13:13:58.004]                 }
[13:13:58.004]                 else {
[13:13:58.004]                   if (TRUE) {
[13:13:58.004]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.004]                     {
[13:13:58.004]                       inherits <- base::inherits
[13:13:58.004]                       invokeRestart <- base::invokeRestart
[13:13:58.004]                       is.null <- base::is.null
[13:13:58.004]                       muffled <- FALSE
[13:13:58.004]                       if (inherits(cond, "message")) {
[13:13:58.004]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.004]                         if (muffled) 
[13:13:58.004]                           invokeRestart("muffleMessage")
[13:13:58.004]                       }
[13:13:58.004]                       else if (inherits(cond, "warning")) {
[13:13:58.004]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.004]                         if (muffled) 
[13:13:58.004]                           invokeRestart("muffleWarning")
[13:13:58.004]                       }
[13:13:58.004]                       else if (inherits(cond, "condition")) {
[13:13:58.004]                         if (!is.null(pattern)) {
[13:13:58.004]                           computeRestarts <- base::computeRestarts
[13:13:58.004]                           grepl <- base::grepl
[13:13:58.004]                           restarts <- computeRestarts(cond)
[13:13:58.004]                           for (restart in restarts) {
[13:13:58.004]                             name <- restart$name
[13:13:58.004]                             if (is.null(name)) 
[13:13:58.004]                               next
[13:13:58.004]                             if (!grepl(pattern, name)) 
[13:13:58.004]                               next
[13:13:58.004]                             invokeRestart(restart)
[13:13:58.004]                             muffled <- TRUE
[13:13:58.004]                             break
[13:13:58.004]                           }
[13:13:58.004]                         }
[13:13:58.004]                       }
[13:13:58.004]                       invisible(muffled)
[13:13:58.004]                     }
[13:13:58.004]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.004]                   }
[13:13:58.004]                 }
[13:13:58.004]             }
[13:13:58.004]         }))
[13:13:58.004]     }, error = function(ex) {
[13:13:58.004]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:58.004]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.004]                 ...future.rng), started = ...future.startTime, 
[13:13:58.004]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:58.004]             version = "1.8"), class = "FutureResult")
[13:13:58.004]     }, finally = {
[13:13:58.004]         if (!identical(...future.workdir, getwd())) 
[13:13:58.004]             setwd(...future.workdir)
[13:13:58.004]         {
[13:13:58.004]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:58.004]                 ...future.oldOptions$nwarnings <- NULL
[13:13:58.004]             }
[13:13:58.004]             base::options(...future.oldOptions)
[13:13:58.004]             if (.Platform$OS.type == "windows") {
[13:13:58.004]                 old_names <- names(...future.oldEnvVars)
[13:13:58.004]                 envs <- base::Sys.getenv()
[13:13:58.004]                 names <- names(envs)
[13:13:58.004]                 common <- intersect(names, old_names)
[13:13:58.004]                 added <- setdiff(names, old_names)
[13:13:58.004]                 removed <- setdiff(old_names, names)
[13:13:58.004]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:58.004]                   envs[common]]
[13:13:58.004]                 NAMES <- toupper(changed)
[13:13:58.004]                 args <- list()
[13:13:58.004]                 for (kk in seq_along(NAMES)) {
[13:13:58.004]                   name <- changed[[kk]]
[13:13:58.004]                   NAME <- NAMES[[kk]]
[13:13:58.004]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.004]                     next
[13:13:58.004]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.004]                 }
[13:13:58.004]                 NAMES <- toupper(added)
[13:13:58.004]                 for (kk in seq_along(NAMES)) {
[13:13:58.004]                   name <- added[[kk]]
[13:13:58.004]                   NAME <- NAMES[[kk]]
[13:13:58.004]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.004]                     next
[13:13:58.004]                   args[[name]] <- ""
[13:13:58.004]                 }
[13:13:58.004]                 NAMES <- toupper(removed)
[13:13:58.004]                 for (kk in seq_along(NAMES)) {
[13:13:58.004]                   name <- removed[[kk]]
[13:13:58.004]                   NAME <- NAMES[[kk]]
[13:13:58.004]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.004]                     next
[13:13:58.004]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.004]                 }
[13:13:58.004]                 if (length(args) > 0) 
[13:13:58.004]                   base::do.call(base::Sys.setenv, args = args)
[13:13:58.004]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:58.004]             }
[13:13:58.004]             else {
[13:13:58.004]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:58.004]             }
[13:13:58.004]             {
[13:13:58.004]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:58.004]                   0L) {
[13:13:58.004]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:58.004]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:58.004]                   base::options(opts)
[13:13:58.004]                 }
[13:13:58.004]                 {
[13:13:58.004]                   {
[13:13:58.004]                     base::assign(".Random.seed", c(10403L, 8L, 
[13:13:58.004]                     133210212L, 1945833034L, 115858357L, -364452081L, 
[13:13:58.004]                     -390319082L, 926195392L, 2057013379L, -803887967L, 
[13:13:58.004]                     -1078998384L, 705296750L, -1682614503L, 830917547L, 
[13:13:58.004]                     -331376230L, 1352842588L, 1960957023L, 1997081653L, 
[13:13:58.004]                     374446028L, 1510359842L, 1146109309L, -1295266185L, 
[13:13:58.004]                     -1545472098L, 1268700760L, 1627111355L, -855092903L, 
[13:13:58.004]                     -215790872L, -1958931690L, 1906054289L, -782874301L, 
[13:13:58.004]                     -399096750L, -1740777756L, 1763676455L, -832683651L, 
[13:13:58.004]                     1369376884L, 430697050L, 1699587749L, -1503628097L, 
[13:13:58.004]                     856180550L, -242424368L, -2127251469L, 505777937L, 
[13:13:58.004]                     257347392L, -856180962L, 886024169L, -1464480485L, 
[13:13:58.004]                     -1512233174L, -1985955764L, -425390065L, 
[13:13:58.004]                     -589669563L, 381897980L, -790840494L, 1136483533L, 
[13:13:58.004]                     -1535370105L, -607934610L, 1641470280L, -1050403509L, 
[13:13:58.004]                     1965932713L, 362996216L, 1596838182L, -1829498303L, 
[13:13:58.004]                     -1824465965L, 1872669058L, -417374796L, -1713346249L, 
[13:13:58.004]                     1818328109L, -1284085436L, -1981489558L, 
[13:13:58.004]                     1940543701L, 1673049711L, -1514495114L, 467096736L, 
[13:13:58.004]                     943410531L, -1431020031L, 1115626864L, 965475598L, 
[13:13:58.004]                     -1718567047L, -793788661L, -1133789126L, 
[13:13:58.004]                     -80588996L, 2018258047L, 1866186709L, 42791404L, 
[13:13:58.004]                     -1823521982L, -1345991523L, -1672661737L, 
[13:13:58.004]                     -180777858L, -452713416L, 1448313627L, -1459492743L, 
[13:13:58.004]                     -600706872L, -909649674L, -2081822415L, -1697455773L, 
[13:13:58.004]                     1517613874L, -820020092L, 188336327L, -1149897827L, 
[13:13:58.004]                     -475203820L, -368005702L, 204442629L, 437854687L, 
[13:13:58.004]                     1163191398L, -760699920L, 104455443L, 819708593L, 
[13:13:58.004]                     1129180512L, 48636670L, 1066049161L, 398150075L, 
[13:13:58.004]                     -852036726L, -906028436L, -1265740817L, -1824646107L, 
[13:13:58.004]                     -2126068516L, 1815435954L, -146408019L, -860012185L, 
[13:13:58.004]                     -682500466L, 1443186536L, 1789394795L, -1078204151L, 
[13:13:58.004]                     809467800L, 1514112710L, -1097673695L, 919601331L, 
[13:13:58.004]                     -331916766L, 795008020L, 1042337943L, -371219827L, 
[13:13:58.004]                     1558967204L, 1563528586L, -2133607947L, -1904454577L, 
[13:13:58.004]                     -264006826L, 770017792L, 153477955L, 1189667553L, 
[13:13:58.004]                     -363253680L, 1882362030L, 967246937L, -793119637L, 
[13:13:58.004]                     -1401964070L, 2129232540L, -542810977L, -1277899019L, 
[13:13:58.004]                     -377097332L, -406748574L, -1722157507L, -1577740105L, 
[13:13:58.004]                     -455170210L, 372239000L, -1535936005L, -1332632679L, 
[13:13:58.004]                     -1623884760L, -359633706L, 935827793L, 1357445123L, 
[13:13:58.004]                     997040018L, -1506538204L, -147930137L, -166569923L, 
[13:13:58.004]                     -2103753036L, 1366641946L, 30482021L, 1876964095L, 
[13:13:58.004]                     2008557446L, 657856784L, -103814733L, 774877777L, 
[13:13:58.004]                     -486350336L, -555057442L, -1821756119L, -963495717L, 
[13:13:58.004]                     853311466L, 1671241612L, -942337841L, 409538693L, 
[13:13:58.004]                     1992831804L, 489867794L, 357105933L, -1611412921L, 
[13:13:58.004]                     -1119334354L, -1521015416L, -2041922421L, 
[13:13:58.004]                     2048874089L, -700216776L, 1651628774L, -10471807L, 
[13:13:58.004]                     736942611L, 380607938L, -1742088588L, 1124231287L, 
[13:13:58.004]                     1232111981L, -1801753084L, -1608606422L, 
[13:13:58.004]                     -1172096363L, 1420874031L, -1210473418L, 
[13:13:58.004]                     -18317216L, -571709789L, 1107403201L, 1952554416L, 
[13:13:58.004]                     1991660750L, -442973639L, 581522507L, -430787078L, 
[13:13:58.004]                     1105375484L, -1481218753L, -748152299L, -641535700L, 
[13:13:58.004]                     679371266L, -591318819L, -104578089L, -172818754L, 
[13:13:58.004]                     -1321694984L, -98191653L, 1709083961L, -344680312L, 
[13:13:58.004]                     -159571914L, 581309553L, -63938909L, 76420082L, 
[13:13:58.004]                     951019332L, -1797740537L, 1291470301L, -2079866156L, 
[13:13:58.004]                     -332493318L, -1978392251L, -1691039632L, 
[13:13:58.004]                     388791868L, -1101109484L, -1365177662L, 321737440L, 
[13:13:58.004]                     1812890748L, -133313328L, -1252731998L, 2044530216L, 
[13:13:58.004]                     1263927564L, 325388220L, 520794418L, 1449646272L, 
[13:13:58.004]                     87560756L, -87565624L, 426345146L, -699970416L, 
[13:13:58.004]                     240322284L, -1074080172L, -1536268654L, 1338615584L, 
[13:13:58.004]                     478476236L, -1933154080L, -192786750L, 1559942184L, 
[13:13:58.004]                     -1178330196L, -687617348L, -1701912078L, 
[13:13:58.004]                     352314928L, -999229532L, -2052800072L, -1913644198L, 
[13:13:58.004]                     -1345416048L, 1816730492L, -1570431212L, 
[13:13:58.004]                     -269427390L, -2122969344L, -520963140L, 1398087504L, 
[13:13:58.004]                     264692002L, -1682658744L, -1422452724L, -1601893284L, 
[13:13:58.004]                     -66383406L, 1443075584L, -456249004L, 943694056L, 
[13:13:58.004]                     -1493184262L, -1943836976L, -590788308L, 
[13:13:58.004]                     -405505804L, -1796837998L, 1991543136L, 1170376716L, 
[13:13:58.004]                     1707420384L, 1899700834L, -1643595096L, 47299148L, 
[13:13:58.004]                     1274857340L, -1205842638L, -1938479504L, 
[13:13:58.004]                     -1773978812L, 532695000L, 1306451834L, 258403888L, 
[13:13:58.004]                     -284747844L, -1780705708L, 1621936194L, 1129070752L, 
[13:13:58.004]                     540946108L, -294270512L, -1426480286L, -356302104L, 
[13:13:58.004]                     349847756L, 1849803260L, -1299125774L, 511654528L, 
[13:13:58.004]                     -1259964940L, -1879857528L, 535666490L, -2020097200L, 
[13:13:58.004]                     -1460751252L, 1201879444L, -1459788718L, 
[13:13:58.004]                     447195616L, -730891060L, -1875530592L, -2146183806L, 
[13:13:58.004]                     193274088L, -1224605972L, 1616153916L, -1896973198L, 
[13:13:58.004]                     -420945808L, -1997735900L, -1838404552L, 
[13:13:58.004]                     -413698278L, 1984019664L, -1760209092L, -1288743020L, 
[13:13:58.004]                     392579970L, -1382567488L, -1295004100L, -33348208L, 
[13:13:58.004]                     1536615970L, -428761848L, 643368588L, -1596336356L, 
[13:13:58.004]                     1797431442L, 352422272L, -1043800556L, 60591912L, 
[13:13:58.004]                     -1115663814L, 1043682768L, 521144684L, 4793268L, 
[13:13:58.004]                     -1924265966L, 978890208L, 370048972L, -1607474976L, 
[13:13:58.004]                     -1443637214L, -632405720L, 691912204L, 166321980L, 
[13:13:58.004]                     942193650L, 751741680L, 689743428L, -18455976L, 
[13:13:58.004]                     -1946329286L, -1619184144L, 239341244L, 371382548L, 
[13:13:58.004]                     -2069808446L, 154176608L, 385987452L, -385611824L, 
[13:13:58.004]                     1967391010L, 2140654248L, 1720087436L, -1591007044L, 
[13:13:58.004]                     -1612486862L, 1295747648L, 1726784692L, 597326408L, 
[13:13:58.004]                     -973152838L, 628505104L, -1089631508L, 3230036L, 
[13:13:58.004]                     -593837806L, 244006304L, 1357912780L, 1839234656L, 
[13:13:58.004]                     -1357570110L, 1896595240L, -2066952276L, 
[13:13:58.004]                     -1724304580L, 986188146L, -1200604368L, -279100124L, 
[13:13:58.004]                     131128120L, -1088465190L, 596533136L, 170602236L, 
[13:13:58.004]                     -1051262060L, 215660610L, -686217984L, 444449852L, 
[13:13:58.004]                     769655120L, 236357794L, 181393736L, -13334772L, 
[13:13:58.004]                     644690652L, -1969263278L, -2107982720L, 1429553236L, 
[13:13:58.004]                     794236904L, 1997299962L, -458224816L, 904978220L, 
[13:13:58.004]                     -537093772L, -842839150L, 1828989024L, -679303796L, 
[13:13:58.004]                     1396292448L, 76319202L, 1896098728L, 418430156L, 
[13:13:58.004]                     2005956604L, 1370351026L, -1178923536L, -1154073660L, 
[13:13:58.004]                     -1218863784L, 89928058L, 816597936L, -1141767748L, 
[13:13:58.004]                     1579714644L, 1343385538L, 371259424L, -245180228L, 
[13:13:58.004]                     365724240L, 1606388706L, -823678872L, 1281309772L, 
[13:13:58.004]                     1395210492L, 1217887218L, 1420531968L, 1349501300L, 
[13:13:58.004]                     271647752L, -69959750L, 360452560L, 1565334508L, 
[13:13:58.004]                     1956526484L, -930709038L, 1961808224L, -1745916084L, 
[13:13:58.004]                     443656480L, 1990137730L, 694374120L, -1050566420L, 
[13:13:58.004]                     -1365842884L, -438961294L, -1851472272L, 
[13:13:58.004]                     614534180L, 1401930552L, 3652762L, 1928284880L, 
[13:13:58.004]                     -1637703492L, 26107540L, -132725907L, -371944998L, 
[13:13:58.004]                     -1311388776L, 8516097L, 741008307L, -1149566252L, 
[13:13:58.004]                     -1802640414L, 2019636855L, 1587818433L, -151040698L, 
[13:13:58.004]                     1598381188L, -205462987L, 1911327L, -1382519432L, 
[13:13:58.004]                     -594809770L, -2146766621L, -2013964635L, 
[13:13:58.004]                     -965534910L, -2077626064L, 1964788057L, 1821395659L, 
[13:13:58.004]                     -1953549508L, -719348886L, 1442511263L, 1969287209L, 
[13:13:58.004]                     1754221246L, -442299476L, 1981692157L, 113456199L, 
[13:13:58.004]                     1587794736L, -1811033010L, 1149417595L, -1760887843L, 
[13:13:58.004]                     -1426021878L, -1285634264L, 1507547537L, 
[13:13:58.004]                     -1114120317L, 1897370756L, 1142575794L, -375814649L, 
[13:13:58.004]                     -1661041071L, 881081814L, -548925260L, 2073840837L, 
[13:13:58.004]                     1156484623L, 2011334280L, 1107815334L, 969024339L, 
[13:13:58.004]                     -55972683L, 2006780434L, -1486403616L, 1698650697L, 
[13:13:58.004]                     1813794939L, -1717763764L, 1268815066L, -1200630577L, 
[13:13:58.004]                     -773717863L, -12215122L, 1354639804L, 1213207085L, 
[13:13:58.004]                     -978295337L, 340143136L, 485429630L, -568148149L, 
[13:13:58.004]                     1257440589L, 930106234L, -883274312L, -1632538783L, 
[13:13:58.004]                     894748435L, -1592959180L, -596177598L, 120963415L, 
[13:13:58.004]                     -1174532959L, -561474202L, 1438545764L, 1429911189L, 
[13:13:58.004]                     1075965887L, 367866712L, -892333706L, -485158013L, 
[13:13:58.004]                     -682634811L, 963344098L, 2110199632L, 1990767225L, 
[13:13:58.004]                     1348335019L, 269581084L, -2040640438L, 1453561919L, 
[13:13:58.004]                     853952649L, 1195494558L, 1614051660L, 2040242461L, 
[13:13:58.004]                     -1604604761L, 1421229008L, -1268333714L, 
[13:13:58.004]                     174113307L, 2044969853L, 190112106L, -998776824L, 
[13:13:58.004]                     -2070476623L, -2099222749L, 1141171236L, 
[13:13:58.004]                     -146426158L, -1797385433L, -1129376399L, 
[13:13:58.004]                     -1496589386L, -419561644L, -613549595L, 1243456495L, 
[13:13:58.004]                     451212072L, 1923543942L, 1146113971L, 93579029L, 
[13:13:58.004]                     -397504142L, 597218752L, 459048489L, 1447221915L, 
[13:13:58.004]                     -272948372L, -373834886L, 934888623L, -2099351623L, 
[13:13:58.004]                     -1672042034L, 193924380L, -704518003L, 781993207L, 
[13:13:58.004]                     -258875392L, -1853783458L, 1315003691L, -41214419L, 
[13:13:58.004]                     -59447654L, 1203745368L, 426003905L, 452670067L, 
[13:13:58.004]                     -1092079724L, -1765622238L, -1882554057L, 
[13:13:58.004]                     1278087169L, -1994822394L, -124954300L, 1994460277L, 
[13:13:58.004]                     1816829407L, -1568282312L, 1563616022L, 1255996195L, 
[13:13:58.004]                     1702121701L, 1784032514L, 1842995056L, 748060441L, 
[13:13:58.004]                     1432229643L, -1905232900L, 2016890922L, 1403944031L, 
[13:13:58.004]                     351712233L, 1338932478L, -1359366932L, -803018691L, 
[13:13:58.004]                     -1551885305L, 248629232L, 1839395726L, 1411789243L, 
[13:13:58.004]                     840085405L, -1849000630L, -669518488L, -1453417647L, 
[13:13:58.004]                     -1527179197L, -377159356L, 1674525170L, -313742393L, 
[13:13:58.004]                     865377681L, -1127426242L), envir = base::globalenv(), 
[13:13:58.004]                       inherits = FALSE)
[13:13:58.004]                     NULL
[13:13:58.004]                   }
[13:13:58.004]                   options(future.plan = NULL)
[13:13:58.004]                   if (is.na(NA_character_)) 
[13:13:58.004]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.004]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:58.004]                   future::plan(list(function (..., envir = parent.frame()) 
[13:13:58.004]                   {
[13:13:58.004]                     future <- SequentialFuture(..., envir = envir)
[13:13:58.004]                     if (!future$lazy) 
[13:13:58.004]                       future <- run(future)
[13:13:58.004]                     invisible(future)
[13:13:58.004]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:58.004]                 }
[13:13:58.004]             }
[13:13:58.004]         }
[13:13:58.004]     })
[13:13:58.004]     if (TRUE) {
[13:13:58.004]         base::sink(type = "output", split = FALSE)
[13:13:58.004]         if (TRUE) {
[13:13:58.004]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:58.004]         }
[13:13:58.004]         else {
[13:13:58.004]             ...future.result["stdout"] <- base::list(NULL)
[13:13:58.004]         }
[13:13:58.004]         base::close(...future.stdout)
[13:13:58.004]         ...future.stdout <- NULL
[13:13:58.004]     }
[13:13:58.004]     ...future.result$conditions <- ...future.conditions
[13:13:58.004]     ...future.result$finished <- base::Sys.time()
[13:13:58.004]     ...future.result
[13:13:58.004] }
[13:13:58.009] assign_globals() ...
[13:13:58.009] List of 7
[13:13:58.009]  $ ...future.FUN            :function (...)  
[13:13:58.009]  $ foo                      :function (x = 1, y = 2)  
[13:13:58.009]  $ x                        : num 3
[13:13:58.009]  $ future.call.arguments    : list()
[13:13:58.009]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:58.009]  $ ...future.elements_ii    :List of 5
[13:13:58.009]   ..$ : int 0
[13:13:58.009]   ..$ : int 0
[13:13:58.009]   ..$ : int 0
[13:13:58.009]   ..$ : int 0
[13:13:58.009]   ..$ : int 0
[13:13:58.009]  $ ...future.seeds_ii       :List of 5
[13:13:58.009]   ..$ : int [1:7] 10407 2118672648 973015440 1612380474 -529784560 -1301423278 1609721430
[13:13:58.009]   ..$ : int [1:7] 10407 -919798402 -1810630142 -850731864 -613657701 1060945587 1656143537
[13:13:58.009]   ..$ : int [1:7] 10407 1666123668 -918032954 1563303830 744861469 2009520167 369843810
[13:13:58.009]   ..$ : int [1:7] 10407 1310441948 2080683693 652639441 1795850730 1953532141 354730309
[13:13:58.009]   ..$ : int [1:7] 10407 -346794781 -526954742 61882141 1694204077 -404066420 2102686045
[13:13:58.009]  $ ...future.globals.maxSize: NULL
[13:13:58.009]  - attr(*, "where")=List of 7
[13:13:58.009]   ..$ ...future.FUN            :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ foo                      :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ x                        :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ future.call.arguments    :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ ...future.elements_ii    :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ ...future.seeds_ii       :<environment: R_EmptyEnv> 
[13:13:58.009]   ..$ ...future.globals.maxSize:<environment: R_EmptyEnv> 
[13:13:58.009]  - attr(*, "resolved")= logi FALSE
[13:13:58.009]  - attr(*, "total_size")= num 2200
[13:13:58.009]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:58.009]  - attr(*, "already-done")= logi TRUE
[13:13:58.020] - reassign environment for '...future.FUN'
[13:13:58.020] - copied '...future.FUN' to environment
[13:13:58.020] - reassign environment for 'foo'
[13:13:58.020] - copied 'foo' to environment
[13:13:58.020] - copied 'x' to environment
[13:13:58.021] - copied 'future.call.arguments' to environment
[13:13:58.021] - copied '...future.elements_ii' to environment
[13:13:58.021] - copied '...future.seeds_ii' to environment
[13:13:58.021] - copied '...future.globals.maxSize' to environment
[13:13:58.021] assign_globals() ... done
[13:13:58.022] plan(): Setting new future strategy stack:
[13:13:58.022] List of future strategies:
[13:13:58.022] 1. sequential:
[13:13:58.022]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:58.022]    - tweaked: FALSE
[13:13:58.022]    - call: NULL
[13:13:58.022] plan(): nbrOfWorkers() = 1
[13:13:58.023] plan(): Setting new future strategy stack:
[13:13:58.024] List of future strategies:
[13:13:58.024] 1. sequential:
[13:13:58.024]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:58.024]    - tweaked: FALSE
[13:13:58.024]    - call: plan(strategy)
[13:13:58.024] plan(): nbrOfWorkers() = 1
[13:13:58.025] SequentialFuture started (and completed)
[13:13:58.025] - Launch lazy future ... done
[13:13:58.025] run() for 'SequentialFuture' ... done
[13:13:58.025] Created future:
[13:13:58.025] SequentialFuture:
[13:13:58.025] Label: 'future_replicate-1'
[13:13:58.025] Expression:
[13:13:58.025] {
[13:13:58.025]     do.call(function(...) {
[13:13:58.025]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.025]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:58.025]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.025]             on.exit(options(oopts), add = TRUE)
[13:13:58.025]         }
[13:13:58.025]         {
[13:13:58.025]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:58.025]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.025]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.025]                   envir = globalenv(), inherits = FALSE)
[13:13:58.025]                 ...future.FUN(...future.X_jj, ...)
[13:13:58.025]             })
[13:13:58.025]         }
[13:13:58.025]     }, args = future.call.arguments)
[13:13:58.025] }
[13:13:58.025] Lazy evaluation: FALSE
[13:13:58.025] Asynchronous evaluation: FALSE
[13:13:58.025] Local evaluation: TRUE
[13:13:58.025] Environment: 0x0000019ec9f951e8
[13:13:58.025] Capture standard output: TRUE
[13:13:58.025] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:58.025] Globals: 7 objects totaling 2.81 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 280 bytes, ...)
[13:13:58.025] Packages: <none>
[13:13:58.025] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:58.025] Resolved: TRUE
[13:13:58.025] Value: 320 bytes of class 'list'
[13:13:58.025] Early signaling: FALSE
[13:13:58.025] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:58.025] Class: 'SequentialFuture', 'UniprocessFuture', 'Future', 'environment'
[13:13:58.027] Chunk #1 of 1 ... DONE
[13:13:58.027] Launching 1 futures (chunks) ... DONE
[13:13:58.027] Resolving 1 futures (chunks) ...
[13:13:58.027] resolve() on list ...
[13:13:58.027]  recursive: 0
[13:13:58.028]  length: 1
[13:13:58.028] 
[13:13:58.028] resolved() for 'SequentialFuture' ...
[13:13:58.028] - state: 'finished'
[13:13:58.028] - run: TRUE
[13:13:58.028] - result: 'FutureResult'
[13:13:58.029] resolved() for 'SequentialFuture' ... done
[13:13:58.029] Future #1
[13:13:58.029] signalConditionsASAP(SequentialFuture, pos=1) ...
[13:13:58.029] - nx: 1
[13:13:58.029] - relay: TRUE
[13:13:58.029] - stdout: TRUE
[13:13:58.030] - signal: TRUE
[13:13:58.030] - resignal: FALSE
[13:13:58.030] - force: TRUE
[13:13:58.030] - relayed: [n=1] FALSE
[13:13:58.030] - queued futures: [n=1] FALSE
[13:13:58.030]  - until=1
[13:13:58.031]  - relaying element #1
[13:13:58.031] - relayed: [n=1] TRUE
[13:13:58.031] - queued futures: [n=1] TRUE
[13:13:58.031] signalConditionsASAP(SequentialFuture, pos=1) ... done
[13:13:58.031]  length: 0 (resolved future 1)
[13:13:58.031] Relaying remaining futures
[13:13:58.032] signalConditionsASAP(NULL, pos=0) ...
[13:13:58.032] - nx: 1
[13:13:58.032] - relay: TRUE
[13:13:58.032] - stdout: TRUE
[13:13:58.032] - signal: TRUE
[13:13:58.032] - resignal: FALSE
[13:13:58.032] - force: TRUE
[13:13:58.033] - relayed: [n=1] TRUE
[13:13:58.033] - queued futures: [n=1] TRUE
 - flush all
[13:13:58.033] - relayed: [n=1] TRUE
[13:13:58.033] - queued futures: [n=1] TRUE
[13:13:58.033] signalConditionsASAP(NULL, pos=0) ... done
[13:13:58.034] resolve() on list ... DONE
[13:13:58.034]  - Number of value chunks collected: 1
[13:13:58.034] Resolving 1 futures (chunks) ... DONE
[13:13:58.034] Reducing values from 1 chunks ...
[13:13:58.034]  - Number of values collected after concatenation: 5
[13:13:58.034]  - Number of values expected: 5
[13:13:58.035] Reducing values from 1 chunks ... DONE
[13:13:58.035] future_lapply() ... DONE
[13:13:58.036] plan(): Setting new future strategy stack:
[13:13:58.036] List of future strategies:
[13:13:58.036] 1. sequential:
[13:13:58.036]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:58.036]    - tweaked: FALSE
[13:13:58.036]    - call: plan(sequential)
[13:13:58.037] plan(): nbrOfWorkers() = 1
*** strategy = 'sequential' ... done
*** strategy = 'multisession' ...
[13:13:58.037] plan(): Setting new future strategy stack:
[13:13:58.038] List of future strategies:
[13:13:58.038] 1. multisession:
[13:13:58.038]    - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[13:13:58.038]    - tweaked: FALSE
[13:13:58.038]    - call: plan(strategy)
[13:13:58.038] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ...
[13:13:58.038] multisession:
[13:13:58.038] - args: function (..., workers = availableCores(), lazy = FALSE, rscript_libs = .libPaths(), envir = parent.frame())
[13:13:58.038] - tweaked: FALSE
[13:13:58.038] - call: plan(strategy)
[13:13:58.043] getGlobalsAndPackages() ...
[13:13:58.043] Not searching for globals
[13:13:58.043] - globals: [0] <none>
[13:13:58.043] getGlobalsAndPackages() ... DONE
[13:13:58.044] [local output] makeClusterPSOCK() ...
[13:13:58.076] [local output] Workers: [n = 2] 'localhost', 'localhost'
[13:13:58.083] [local output] Base port: 32154
[13:13:58.083] [local output] Getting setup options for 2 cluster nodes ...
[13:13:58.083] [local output]  - Node 1 of 2 ...
[13:13:58.083] [local output] localMachine=TRUE => revtunnel=FALSE

[13:13:58.085] Testing if worker's PID can be inferred: '"D:/RCompile/recent/R/bin/x64/Rscript" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmpk1L7Zb/worker.rank=1.parallelly.parent=8172.1fec33f915a5.pid\")), silent = TRUE)" -e "file.exists(\"D:/temp/Rtmpk1L7Zb/worker.rank=1.parallelly.parent=8172.1fec33f915a5.pid\")"'
[13:13:58.519] - Possible to infer worker's PID: TRUE
[13:13:58.520] [local output] Rscript port: 32154

[13:13:58.520] [local output]  - Node 2 of 2 ...
[13:13:58.521] [local output] localMachine=TRUE => revtunnel=FALSE

[13:13:58.522] [local output] Rscript port: 32154

[13:13:58.523] [local output] Getting setup options for 2 cluster nodes ... done
[13:13:58.523] [local output]  - Parallel setup requested for some PSOCK nodes
[13:13:58.524] [local output] Setting up PSOCK nodes in parallel
[13:13:58.524] List of 36
[13:13:58.524]  $ worker          : chr "localhost"
[13:13:58.524]   ..- attr(*, "localhost")= logi TRUE
[13:13:58.524]  $ master          : chr "localhost"
[13:13:58.524]  $ port            : int 32154
[13:13:58.524]  $ connectTimeout  : num 120
[13:13:58.524]  $ timeout         : num 120
[13:13:58.524]  $ rscript         : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\""
[13:13:58.524]  $ homogeneous     : logi TRUE
[13:13:58.524]  $ rscript_args    : chr "--default-packages=datasets,utils,grDevices,graphics,stats,methods -e \"#label=future_replicate.R:8172:CRANWIN3"| __truncated__
[13:13:58.524]  $ rscript_envs    : NULL
[13:13:58.524]  $ rscript_libs    : chr [1:2] "D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b" "D:/RCompile/recent/R/library"
[13:13:58.524]  $ rscript_startup : NULL
[13:13:58.524]  $ rscript_sh      : chr "cmd"
[13:13:58.524]  $ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[13:13:58.524]  $ methods         : logi TRUE
[13:13:58.524]  $ socketOptions   : chr "no-delay"
[13:13:58.524]  $ useXDR          : logi FALSE
[13:13:58.524]  $ outfile         : chr "/dev/null"
[13:13:58.524]  $ renice          : int NA
[13:13:58.524]  $ rshcmd          : NULL
[13:13:58.524]  $ user            : chr(0) 
[13:13:58.524]  $ revtunnel       : logi FALSE
[13:13:58.524]  $ rshlogfile      : NULL
[13:13:58.524]  $ rshopts         : chr(0) 
[13:13:58.524]  $ rank            : int 1
[13:13:58.524]  $ manual          : logi FALSE
[13:13:58.524]  $ dryrun          : logi FALSE
[13:13:58.524]  $ quiet           : logi FALSE
[13:13:58.524]  $ setup_strategy  : chr "parallel"
[13:13:58.524]  $ local_cmd       : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[13:13:58.524]  $ pidfile         : chr "D:/temp/Rtmpk1L7Zb/worker.rank=1.parallelly.parent=8172.1fec33f915a5.pid"
[13:13:58.524]  $ rshcmd_label    : NULL
[13:13:58.524]  $ rsh_call        : NULL
[13:13:58.524]  $ cmd             : chr "\"D:/RCompile/recent/R/bin/x64/Rscript\" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "| __truncated__
[13:13:58.524]  $ localMachine    : logi TRUE
[13:13:58.524]  $ make_fcn        :function (worker = getOption2("parallelly.localhost.hostname", "localhost"), 
[13:13:58.524]     master = NULL, port, connectTimeout = getOption2("parallelly.makeNodePSOCK.connectTimeout", 
[13:13:58.524]         2 * 60), timeout = getOption2("parallelly.makeNodePSOCK.timeout", 
[13:13:58.524]         30 * 24 * 60 * 60), rscript = NULL, homogeneous = NULL, rscript_args = NULL, 
[13:13:58.524]     rscript_envs = NULL, rscript_libs = NULL, rscript_startup = NULL, rscript_sh = c("auto", 
[13:13:58.524]         "cmd", "sh"), default_packages = c("datasets", "utils", "grDevices", 
[13:13:58.524]         "graphics", "stats", if (methods) "methods"), methods = TRUE, socketOptions = getOption2("parallelly.makeNodePSOCK.socketOptions", 
[13:13:58.524]         "no-delay"), useXDR = getOption2("parallelly.makeNodePSOCK.useXDR", 
[13:13:58.524]         FALSE), outfile = "/dev/null", renice = NA_integer_, rshcmd = getOption2("parallelly.makeNodePSOCK.rshcmd", 
[13:13:58.524]         NULL), user = NULL, revtunnel = NA, rshlogfile = NULL, rshopts = getOption2("parallelly.makeNodePSOCK.rshopts", 
[13:13:58.524]         NULL), rank = 1L, manual = FALSE, dryrun = FALSE, quiet = FALSE, 
[13:13:58.524]     setup_strategy = getOption2("parallelly.makeNodePSOCK.setup_strategy", 
[13:13:58.524]         "parallel"), action = c("launch", "options"), verbose = FALSE)  
[13:13:58.524]  $ arguments       :List of 28
[13:13:58.524]   ..$ worker          : chr "localhost"
[13:13:58.524]   ..$ master          : NULL
[13:13:58.524]   ..$ port            : int 32154
[13:13:58.524]   ..$ connectTimeout  : num 120
[13:13:58.524]   ..$ timeout         : num 120
[13:13:58.524]   ..$ rscript         : NULL
[13:13:58.524]   ..$ homogeneous     : NULL
[13:13:58.524]   ..$ rscript_args    : NULL
[13:13:58.524]   ..$ rscript_envs    : NULL
[13:13:58.524]   ..$ rscript_libs    : chr [1:2] "D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b" "D:/RCompile/recent/R/library"
[13:13:58.524]   ..$ rscript_startup : NULL
[13:13:58.524]   ..$ rscript_sh      : chr [1:3] "auto" "cmd" "sh"
[13:13:58.524]   ..$ default_packages: chr [1:6] "datasets" "utils" "grDevices" "graphics" ...
[13:13:58.524]   ..$ methods         : logi TRUE
[13:13:58.524]   ..$ socketOptions   : chr "no-delay"
[13:13:58.524]   ..$ useXDR          : logi FALSE
[13:13:58.524]   ..$ outfile         : chr "/dev/null"
[13:13:58.524]   ..$ renice          : int NA
[13:13:58.524]   ..$ rshcmd          : NULL
[13:13:58.524]   ..$ user            : NULL
[13:13:58.524]   ..$ revtunnel       : logi NA
[13:13:58.524]   ..$ rshlogfile      : NULL
[13:13:58.524]   ..$ rshopts         : NULL
[13:13:58.524]   ..$ rank            : int 1
[13:13:58.524]   ..$ manual          : logi FALSE
[13:13:58.524]   ..$ dryrun          : logi FALSE
[13:13:58.524]   ..$ quiet           : logi FALSE
[13:13:58.524]   ..$ setup_strategy  : chr "parallel"
[13:13:58.524]  - attr(*, "class")= chr [1:2] "makeNodePSOCKOptions" "makeNodeOptions"
[13:13:58.546] [local output] System call to launch all workers:
[13:13:58.547] [local output] "D:/RCompile/recent/R/bin/x64/Rscript" --default-packages=datasets,utils,grDevices,graphics,stats,methods -e "#label=future_replicate.R:8172:CRANWIN3:CRAN" -e "try(suppressWarnings(cat(Sys.getpid(),file=\"D:/temp/Rtmpk1L7Zb/worker.rank=1.parallelly.parent=8172.1fec33f915a5.pid\")), silent = TRUE)" -e "options(socketOptions = \"no-delay\")" -e ".libPaths(c(\"D:/temp/RtmpKkFYYg/RLIBS_20dc214b714b\",\"D:/RCompile/recent/R/library\"))" -e "workRSOCK <- tryCatch(parallel:::.workRSOCK, error=function(e) parallel:::.slaveRSOCK); workRSOCK()" MASTER=localhost PORT=32154 OUT=/dev/null TIMEOUT=120 XDR=FALSE SETUPTIMEOUT=120 SETUPSTRATEGY=parallel
[13:13:58.547] [local output] Starting PSOCK main server
[13:13:58.552] [local output] Workers launched
[13:13:58.553] [local output] Waiting for workers to connect back
[13:13:58.553]  - [local output] 0 workers out of 2 ready
[13:13:58.719]  - [local output] 0 workers out of 2 ready
[13:13:58.719]  - [local output] 1 workers out of 2 ready
[13:13:58.747]  - [local output] 1 workers out of 2 ready
[13:13:58.747]  - [local output] 2 workers out of 2 ready
[13:13:58.747] [local output] Launching of workers completed
[13:13:58.748] [local output] Collecting session information from workers
[13:13:58.749] [local output]  - Worker #1 of 2
[13:13:58.750] [local output]  - Worker #2 of 2
[13:13:58.750] [local output] makeClusterPSOCK() ... done
[13:13:58.763] Packages needed by the future expression (n = 0): <none>
[13:13:58.763] Packages needed by future strategies (n = 0): <none>
[13:13:58.764] {
[13:13:58.764]     {
[13:13:58.764]         {
[13:13:58.764]             ...future.startTime <- base::Sys.time()
[13:13:58.764]             {
[13:13:58.764]                 {
[13:13:58.764]                   {
[13:13:58.764]                     {
[13:13:58.764]                       base::local({
[13:13:58.764]                         has_future <- base::requireNamespace("future", 
[13:13:58.764]                           quietly = TRUE)
[13:13:58.764]                         if (has_future) {
[13:13:58.764]                           ns <- base::getNamespace("future")
[13:13:58.764]                           version <- ns[[".package"]][["version"]]
[13:13:58.764]                           if (is.null(version)) 
[13:13:58.764]                             version <- utils::packageVersion("future")
[13:13:58.764]                         }
[13:13:58.764]                         else {
[13:13:58.764]                           version <- NULL
[13:13:58.764]                         }
[13:13:58.764]                         if (!has_future || version < "1.8.0") {
[13:13:58.764]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:58.764]                             "", base::R.version$version.string), 
[13:13:58.764]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:58.764]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:58.764]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:58.764]                               "release", "version")], collapse = " "), 
[13:13:58.764]                             hostname = base::Sys.info()[["nodename"]])
[13:13:58.764]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:58.764]                             info)
[13:13:58.764]                           info <- base::paste(info, collapse = "; ")
[13:13:58.764]                           if (!has_future) {
[13:13:58.764]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:58.764]                               info)
[13:13:58.764]                           }
[13:13:58.764]                           else {
[13:13:58.764]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:58.764]                               info, version)
[13:13:58.764]                           }
[13:13:58.764]                           base::stop(msg)
[13:13:58.764]                         }
[13:13:58.764]                       })
[13:13:58.764]                     }
[13:13:58.764]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:58.764]                     base::options(mc.cores = 1L)
[13:13:58.764]                   }
[13:13:58.764]                   options(future.plan = NULL)
[13:13:58.764]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.764]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:58.764]                 }
[13:13:58.764]                 ...future.workdir <- getwd()
[13:13:58.764]             }
[13:13:58.764]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:58.764]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:58.764]         }
[13:13:58.764]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:58.764]             future.globals.maxSize = NULL, future.globals.method = NULL, 
[13:13:58.764]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:58.764]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:58.764]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:58.764]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:58.764]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:58.764]             base::names(...future.oldOptions))
[13:13:58.764]     }
[13:13:58.764]     if (FALSE) {
[13:13:58.764]     }
[13:13:58.764]     else {
[13:13:58.764]         if (TRUE) {
[13:13:58.764]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:58.764]                 open = "w")
[13:13:58.764]         }
[13:13:58.764]         else {
[13:13:58.764]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:58.764]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:58.764]         }
[13:13:58.764]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:58.764]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:58.764]             base::sink(type = "output", split = FALSE)
[13:13:58.764]             base::close(...future.stdout)
[13:13:58.764]         }, add = TRUE)
[13:13:58.764]     }
[13:13:58.764]     ...future.frame <- base::sys.nframe()
[13:13:58.764]     ...future.conditions <- base::list()
[13:13:58.764]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:58.764]     if (FALSE) {
[13:13:58.764]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:58.764]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:58.764]     }
[13:13:58.764]     ...future.result <- base::tryCatch({
[13:13:58.764]         base::withCallingHandlers({
[13:13:58.764]             ...future.value <- base::withVisible(base::local({
[13:13:58.764]                 ...future.makeSendCondition <- local({
[13:13:58.764]                   sendCondition <- NULL
[13:13:58.764]                   function(frame = 1L) {
[13:13:58.764]                     if (is.function(sendCondition)) 
[13:13:58.764]                       return(sendCondition)
[13:13:58.764]                     ns <- getNamespace("parallel")
[13:13:58.764]                     if (exists("sendData", mode = "function", 
[13:13:58.764]                       envir = ns)) {
[13:13:58.764]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:58.764]                         envir = ns)
[13:13:58.764]                       envir <- sys.frame(frame)
[13:13:58.764]                       master <- NULL
[13:13:58.764]                       while (!identical(envir, .GlobalEnv) && 
[13:13:58.764]                         !identical(envir, emptyenv())) {
[13:13:58.764]                         if (exists("master", mode = "list", envir = envir, 
[13:13:58.764]                           inherits = FALSE)) {
[13:13:58.764]                           master <- get("master", mode = "list", 
[13:13:58.764]                             envir = envir, inherits = FALSE)
[13:13:58.764]                           if (inherits(master, c("SOCKnode", 
[13:13:58.764]                             "SOCK0node"))) {
[13:13:58.764]                             sendCondition <<- function(cond) {
[13:13:58.764]                               data <- list(type = "VALUE", value = cond, 
[13:13:58.764]                                 success = TRUE)
[13:13:58.764]                               parallel_sendData(master, data)
[13:13:58.764]                             }
[13:13:58.764]                             return(sendCondition)
[13:13:58.764]                           }
[13:13:58.764]                         }
[13:13:58.764]                         frame <- frame + 1L
[13:13:58.764]                         envir <- sys.frame(frame)
[13:13:58.764]                       }
[13:13:58.764]                     }
[13:13:58.764]                     sendCondition <<- function(cond) NULL
[13:13:58.764]                   }
[13:13:58.764]                 })
[13:13:58.764]                 withCallingHandlers({
[13:13:58.764]                   NA
[13:13:58.764]                 }, immediateCondition = function(cond) {
[13:13:58.764]                   sendCondition <- ...future.makeSendCondition()
[13:13:58.764]                   sendCondition(cond)
[13:13:58.764]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.764]                   {
[13:13:58.764]                     inherits <- base::inherits
[13:13:58.764]                     invokeRestart <- base::invokeRestart
[13:13:58.764]                     is.null <- base::is.null
[13:13:58.764]                     muffled <- FALSE
[13:13:58.764]                     if (inherits(cond, "message")) {
[13:13:58.764]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:58.764]                       if (muffled) 
[13:13:58.764]                         invokeRestart("muffleMessage")
[13:13:58.764]                     }
[13:13:58.764]                     else if (inherits(cond, "warning")) {
[13:13:58.764]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:58.764]                       if (muffled) 
[13:13:58.764]                         invokeRestart("muffleWarning")
[13:13:58.764]                     }
[13:13:58.764]                     else if (inherits(cond, "condition")) {
[13:13:58.764]                       if (!is.null(pattern)) {
[13:13:58.764]                         computeRestarts <- base::computeRestarts
[13:13:58.764]                         grepl <- base::grepl
[13:13:58.764]                         restarts <- computeRestarts(cond)
[13:13:58.764]                         for (restart in restarts) {
[13:13:58.764]                           name <- restart$name
[13:13:58.764]                           if (is.null(name)) 
[13:13:58.764]                             next
[13:13:58.764]                           if (!grepl(pattern, name)) 
[13:13:58.764]                             next
[13:13:58.764]                           invokeRestart(restart)
[13:13:58.764]                           muffled <- TRUE
[13:13:58.764]                           break
[13:13:58.764]                         }
[13:13:58.764]                       }
[13:13:58.764]                     }
[13:13:58.764]                     invisible(muffled)
[13:13:58.764]                   }
[13:13:58.764]                   muffleCondition(cond)
[13:13:58.764]                 })
[13:13:58.764]             }))
[13:13:58.764]             future::FutureResult(value = ...future.value$value, 
[13:13:58.764]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.764]                   ...future.rng), globalenv = if (FALSE) 
[13:13:58.764]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:58.764]                     ...future.globalenv.names))
[13:13:58.764]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:58.764]         }, condition = base::local({
[13:13:58.764]             c <- base::c
[13:13:58.764]             inherits <- base::inherits
[13:13:58.764]             invokeRestart <- base::invokeRestart
[13:13:58.764]             length <- base::length
[13:13:58.764]             list <- base::list
[13:13:58.764]             seq.int <- base::seq.int
[13:13:58.764]             signalCondition <- base::signalCondition
[13:13:58.764]             sys.calls <- base::sys.calls
[13:13:58.764]             `[[` <- base::`[[`
[13:13:58.764]             `+` <- base::`+`
[13:13:58.764]             `<<-` <- base::`<<-`
[13:13:58.764]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:58.764]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:58.764]                   3L)]
[13:13:58.764]             }
[13:13:58.764]             function(cond) {
[13:13:58.764]                 is_error <- inherits(cond, "error")
[13:13:58.764]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:58.764]                   NULL)
[13:13:58.764]                 if (is_error) {
[13:13:58.764]                   sessionInformation <- function() {
[13:13:58.764]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:58.764]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:58.764]                       search = base::search(), system = base::Sys.info())
[13:13:58.764]                   }
[13:13:58.764]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.764]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:58.764]                     cond$call), session = sessionInformation(), 
[13:13:58.764]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:58.764]                   signalCondition(cond)
[13:13:58.764]                 }
[13:13:58.764]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:58.764]                 "immediateCondition"))) {
[13:13:58.764]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:58.764]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.764]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:58.764]                   if (TRUE && !signal) {
[13:13:58.764]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.764]                     {
[13:13:58.764]                       inherits <- base::inherits
[13:13:58.764]                       invokeRestart <- base::invokeRestart
[13:13:58.764]                       is.null <- base::is.null
[13:13:58.764]                       muffled <- FALSE
[13:13:58.764]                       if (inherits(cond, "message")) {
[13:13:58.764]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.764]                         if (muffled) 
[13:13:58.764]                           invokeRestart("muffleMessage")
[13:13:58.764]                       }
[13:13:58.764]                       else if (inherits(cond, "warning")) {
[13:13:58.764]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.764]                         if (muffled) 
[13:13:58.764]                           invokeRestart("muffleWarning")
[13:13:58.764]                       }
[13:13:58.764]                       else if (inherits(cond, "condition")) {
[13:13:58.764]                         if (!is.null(pattern)) {
[13:13:58.764]                           computeRestarts <- base::computeRestarts
[13:13:58.764]                           grepl <- base::grepl
[13:13:58.764]                           restarts <- computeRestarts(cond)
[13:13:58.764]                           for (restart in restarts) {
[13:13:58.764]                             name <- restart$name
[13:13:58.764]                             if (is.null(name)) 
[13:13:58.764]                               next
[13:13:58.764]                             if (!grepl(pattern, name)) 
[13:13:58.764]                               next
[13:13:58.764]                             invokeRestart(restart)
[13:13:58.764]                             muffled <- TRUE
[13:13:58.764]                             break
[13:13:58.764]                           }
[13:13:58.764]                         }
[13:13:58.764]                       }
[13:13:58.764]                       invisible(muffled)
[13:13:58.764]                     }
[13:13:58.764]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.764]                   }
[13:13:58.764]                 }
[13:13:58.764]                 else {
[13:13:58.764]                   if (TRUE) {
[13:13:58.764]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.764]                     {
[13:13:58.764]                       inherits <- base::inherits
[13:13:58.764]                       invokeRestart <- base::invokeRestart
[13:13:58.764]                       is.null <- base::is.null
[13:13:58.764]                       muffled <- FALSE
[13:13:58.764]                       if (inherits(cond, "message")) {
[13:13:58.764]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.764]                         if (muffled) 
[13:13:58.764]                           invokeRestart("muffleMessage")
[13:13:58.764]                       }
[13:13:58.764]                       else if (inherits(cond, "warning")) {
[13:13:58.764]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.764]                         if (muffled) 
[13:13:58.764]                           invokeRestart("muffleWarning")
[13:13:58.764]                       }
[13:13:58.764]                       else if (inherits(cond, "condition")) {
[13:13:58.764]                         if (!is.null(pattern)) {
[13:13:58.764]                           computeRestarts <- base::computeRestarts
[13:13:58.764]                           grepl <- base::grepl
[13:13:58.764]                           restarts <- computeRestarts(cond)
[13:13:58.764]                           for (restart in restarts) {
[13:13:58.764]                             name <- restart$name
[13:13:58.764]                             if (is.null(name)) 
[13:13:58.764]                               next
[13:13:58.764]                             if (!grepl(pattern, name)) 
[13:13:58.764]                               next
[13:13:58.764]                             invokeRestart(restart)
[13:13:58.764]                             muffled <- TRUE
[13:13:58.764]                             break
[13:13:58.764]                           }
[13:13:58.764]                         }
[13:13:58.764]                       }
[13:13:58.764]                       invisible(muffled)
[13:13:58.764]                     }
[13:13:58.764]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.764]                   }
[13:13:58.764]                 }
[13:13:58.764]             }
[13:13:58.764]         }))
[13:13:58.764]     }, error = function(ex) {
[13:13:58.764]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:58.764]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.764]                 ...future.rng), started = ...future.startTime, 
[13:13:58.764]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:58.764]             version = "1.8"), class = "FutureResult")
[13:13:58.764]     }, finally = {
[13:13:58.764]         if (!identical(...future.workdir, getwd())) 
[13:13:58.764]             setwd(...future.workdir)
[13:13:58.764]         {
[13:13:58.764]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:58.764]                 ...future.oldOptions$nwarnings <- NULL
[13:13:58.764]             }
[13:13:58.764]             base::options(...future.oldOptions)
[13:13:58.764]             if (.Platform$OS.type == "windows") {
[13:13:58.764]                 old_names <- names(...future.oldEnvVars)
[13:13:58.764]                 envs <- base::Sys.getenv()
[13:13:58.764]                 names <- names(envs)
[13:13:58.764]                 common <- intersect(names, old_names)
[13:13:58.764]                 added <- setdiff(names, old_names)
[13:13:58.764]                 removed <- setdiff(old_names, names)
[13:13:58.764]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:58.764]                   envs[common]]
[13:13:58.764]                 NAMES <- toupper(changed)
[13:13:58.764]                 args <- list()
[13:13:58.764]                 for (kk in seq_along(NAMES)) {
[13:13:58.764]                   name <- changed[[kk]]
[13:13:58.764]                   NAME <- NAMES[[kk]]
[13:13:58.764]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.764]                     next
[13:13:58.764]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.764]                 }
[13:13:58.764]                 NAMES <- toupper(added)
[13:13:58.764]                 for (kk in seq_along(NAMES)) {
[13:13:58.764]                   name <- added[[kk]]
[13:13:58.764]                   NAME <- NAMES[[kk]]
[13:13:58.764]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.764]                     next
[13:13:58.764]                   args[[name]] <- ""
[13:13:58.764]                 }
[13:13:58.764]                 NAMES <- toupper(removed)
[13:13:58.764]                 for (kk in seq_along(NAMES)) {
[13:13:58.764]                   name <- removed[[kk]]
[13:13:58.764]                   NAME <- NAMES[[kk]]
[13:13:58.764]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.764]                     next
[13:13:58.764]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.764]                 }
[13:13:58.764]                 if (length(args) > 0) 
[13:13:58.764]                   base::do.call(base::Sys.setenv, args = args)
[13:13:58.764]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:58.764]             }
[13:13:58.764]             else {
[13:13:58.764]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:58.764]             }
[13:13:58.764]             {
[13:13:58.764]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:58.764]                   0L) {
[13:13:58.764]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:58.764]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:58.764]                   base::options(opts)
[13:13:58.764]                 }
[13:13:58.764]                 {
[13:13:58.764]                   {
[13:13:58.764]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:58.764]                     NULL
[13:13:58.764]                   }
[13:13:58.764]                   options(future.plan = NULL)
[13:13:58.764]                   if (is.na(NA_character_)) 
[13:13:58.764]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.764]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:58.764]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:58.764]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:58.764]                     envir = parent.frame()) 
[13:13:58.764]                   {
[13:13:58.764]                     if (is.function(workers)) 
[13:13:58.764]                       workers <- workers()
[13:13:58.764]                     workers <- structure(as.integer(workers), 
[13:13:58.764]                       class = class(workers))
[13:13:58.764]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:58.764]                       workers >= 1)
[13:13:58.764]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:58.764]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:58.764]                     }
[13:13:58.764]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:58.764]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:58.764]                       envir = envir)
[13:13:58.764]                     if (!future$lazy) 
[13:13:58.764]                       future <- run(future)
[13:13:58.764]                     invisible(future)
[13:13:58.764]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:58.764]                 }
[13:13:58.764]             }
[13:13:58.764]         }
[13:13:58.764]     })
[13:13:58.764]     if (TRUE) {
[13:13:58.764]         base::sink(type = "output", split = FALSE)
[13:13:58.764]         if (TRUE) {
[13:13:58.764]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:58.764]         }
[13:13:58.764]         else {
[13:13:58.764]             ...future.result["stdout"] <- base::list(NULL)
[13:13:58.764]         }
[13:13:58.764]         base::close(...future.stdout)
[13:13:58.764]         ...future.stdout <- NULL
[13:13:58.764]     }
[13:13:58.764]     ...future.result$conditions <- ...future.conditions
[13:13:58.764]     ...future.result$finished <- base::Sys.time()
[13:13:58.764]     ...future.result
[13:13:58.764] }
[13:13:58.842] MultisessionFuture started
[13:13:58.842] result() for ClusterFuture ...
[13:13:58.843] receiveMessageFromWorker() for ClusterFuture ...
[13:13:58.843] - Validating connection of MultisessionFuture
[13:13:58.899] - received message: FutureResult
[13:13:58.900] - Received FutureResult
[13:13:58.903] - Erased future from FutureRegistry
[13:13:58.903] result() for ClusterFuture ...
[13:13:58.904] - result already collected: FutureResult
[13:13:58.904] result() for ClusterFuture ... done
[13:13:58.904] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:58.904] result() for ClusterFuture ... done
[13:13:58.904] result() for ClusterFuture ...
[13:13:58.904] - result already collected: FutureResult
[13:13:58.905] result() for ClusterFuture ... done
[13:13:58.905] plan(): plan_init() of 'multisession', 'cluster', 'multiprocess', 'future', 'function' ... DONE
[13:13:58.907] plan(): nbrOfWorkers() = 2
[13:13:58.908] future_lapply() ...
[13:13:58.908] Generating random seeds ...
[13:13:58.909] Generating random seed streams for 5 elements ...
[13:13:58.909] Generating random seed streams for 5 elements ... DONE
[13:13:58.909] Generating random seeds ... DONE
[13:13:58.909] 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
[13:13:58.914] Number of chunks: 2
[13:13:58.915] getGlobalsAndPackagesXApply() ...
[13:13:58.915]  - future.globals: TRUE
[13:13:58.915] getGlobalsAndPackages() ...
[13:13:58.915] Searching for globals...
[13:13:58.917] - globals found: [2] 'FUN', 'sample'
[13:13:58.917] Searching for globals ... DONE
[13:13:58.917] Resolving globals: FALSE
[13:13:58.918] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:58.918] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:58.918] - globals: [1] 'FUN'
[13:13:58.919] 
[13:13:58.919] getGlobalsAndPackages() ... DONE
[13:13:58.919]  - globals found/used: [n=1] 'FUN'
[13:13:58.919]  - needed namespaces: [n=0] 
[13:13:58.919] Finding globals ... DONE
[13:13:58.920]  - use_args: TRUE
[13:13:58.920]  - Getting '...' globals ...
[13:13:58.920] resolve() on list ...
[13:13:58.920]  recursive: 0
[13:13:58.921]  length: 1
[13:13:58.921]  elements: '...'
[13:13:58.921]  length: 0 (resolved future 1)
[13:13:58.921] resolve() on list ... DONE
[13:13:58.921]    - '...' content: [n=0] 
[13:13:58.922] List of 1
[13:13:58.922]  $ ...: list()
[13:13:58.922]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:58.922]  - attr(*, "where")=List of 1
[13:13:58.922]   ..$ ...:<environment: 0x0000019ecc96ce40> 
[13:13:58.922]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:58.922]  - attr(*, "resolved")= logi TRUE
[13:13:58.922]  - attr(*, "total_size")= num NA
[13:13:58.925]  - Getting '...' globals ... DONE
[13:13:58.925] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:58.926] List of 2
[13:13:58.926]  $ ...future.FUN:function (...)  
[13:13:58.926]  $ ...          : list()
[13:13:58.926]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:58.926]  - attr(*, "where")=List of 2
[13:13:58.926]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:58.926]   ..$ ...          :<environment: 0x0000019ecc96ce40> 
[13:13:58.926]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:58.926]  - attr(*, "resolved")= logi FALSE
[13:13:58.926]  - attr(*, "total_size")= num 616
[13:13:58.930] Packages to be attached in all futures: [n=0] 
[13:13:58.930] getGlobalsAndPackagesXApply() ... DONE
[13:13:58.930] Number of futures (= number of chunks): 2
[13:13:58.930] Launching 2 futures (chunks) ...
[13:13:58.930] Chunk #1 of 2 ...
[13:13:58.931]  - Finding globals in 'X' for chunk #1 ...
[13:13:58.931] getGlobalsAndPackages() ...
[13:13:58.931] Searching for globals...
[13:13:58.931] 
[13:13:58.932] Searching for globals ... DONE
[13:13:58.932] - globals: [0] <none>
[13:13:58.932] getGlobalsAndPackages() ... DONE
[13:13:58.932]    + additional globals found: [n=0] 
[13:13:58.932]    + additional namespaces needed: [n=0] 
[13:13:58.933]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:58.933]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:58.933]  - seeds: [2] <seeds>
[13:13:58.933]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.933] getGlobalsAndPackages() ...
[13:13:58.933] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.934] Resolving globals: FALSE
[13:13:58.934] Tweak future expression to call with '...' arguments ...
[13:13:58.934] {
[13:13:58.934]     do.call(function(...) {
[13:13:58.934]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.934]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:58.934]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.934]             on.exit(options(oopts), add = TRUE)
[13:13:58.934]         }
[13:13:58.934]         {
[13:13:58.934]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:58.934]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.934]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.934]                   envir = globalenv(), inherits = FALSE)
[13:13:58.934]                 ...future.FUN(...future.X_jj, ...)
[13:13:58.934]             })
[13:13:58.934]         }
[13:13:58.934]     }, args = future.call.arguments)
[13:13:58.934] }
[13:13:58.935] Tweak future expression to call with '...' arguments ... DONE
[13:13:58.935] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.935] 
[13:13:58.936] getGlobalsAndPackages() ... DONE
[13:13:58.936] run() for 'Future' ...
[13:13:58.936] - state: 'created'
[13:13:58.936] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:58.951] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:58.951] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:58.951]   - Field: 'node'
[13:13:58.952]   - Field: 'label'
[13:13:58.952]   - Field: 'local'
[13:13:58.952]   - Field: 'owner'
[13:13:58.952]   - Field: 'envir'
[13:13:58.952]   - Field: 'workers'
[13:13:58.953]   - Field: 'packages'
[13:13:58.953]   - Field: 'gc'
[13:13:58.953]   - Field: 'conditions'
[13:13:58.953]   - Field: 'persistent'
[13:13:58.953]   - Field: 'expr'
[13:13:58.954]   - Field: 'uuid'
[13:13:58.954]   - Field: 'seed'
[13:13:58.954]   - Field: 'version'
[13:13:58.954]   - Field: 'result'
[13:13:58.954]   - Field: 'asynchronous'
[13:13:58.955]   - Field: 'calls'
[13:13:58.955]   - Field: 'globals'
[13:13:58.955]   - Field: 'stdout'
[13:13:58.955]   - Field: 'earlySignal'
[13:13:58.955]   - Field: 'lazy'
[13:13:58.955]   - Field: 'state'
[13:13:58.956] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:58.956] - Launch lazy future ...
[13:13:58.956] Packages needed by the future expression (n = 0): <none>
[13:13:58.957] Packages needed by future strategies (n = 0): <none>
[13:13:58.957] {
[13:13:58.957]     {
[13:13:58.957]         {
[13:13:58.957]             ...future.startTime <- base::Sys.time()
[13:13:58.957]             {
[13:13:58.957]                 {
[13:13:58.957]                   {
[13:13:58.957]                     {
[13:13:58.957]                       base::local({
[13:13:58.957]                         has_future <- base::requireNamespace("future", 
[13:13:58.957]                           quietly = TRUE)
[13:13:58.957]                         if (has_future) {
[13:13:58.957]                           ns <- base::getNamespace("future")
[13:13:58.957]                           version <- ns[[".package"]][["version"]]
[13:13:58.957]                           if (is.null(version)) 
[13:13:58.957]                             version <- utils::packageVersion("future")
[13:13:58.957]                         }
[13:13:58.957]                         else {
[13:13:58.957]                           version <- NULL
[13:13:58.957]                         }
[13:13:58.957]                         if (!has_future || version < "1.8.0") {
[13:13:58.957]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:58.957]                             "", base::R.version$version.string), 
[13:13:58.957]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:58.957]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:58.957]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:58.957]                               "release", "version")], collapse = " "), 
[13:13:58.957]                             hostname = base::Sys.info()[["nodename"]])
[13:13:58.957]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:58.957]                             info)
[13:13:58.957]                           info <- base::paste(info, collapse = "; ")
[13:13:58.957]                           if (!has_future) {
[13:13:58.957]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:58.957]                               info)
[13:13:58.957]                           }
[13:13:58.957]                           else {
[13:13:58.957]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:58.957]                               info, version)
[13:13:58.957]                           }
[13:13:58.957]                           base::stop(msg)
[13:13:58.957]                         }
[13:13:58.957]                       })
[13:13:58.957]                     }
[13:13:58.957]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:58.957]                     base::options(mc.cores = 1L)
[13:13:58.957]                   }
[13:13:58.957]                   options(future.plan = NULL)
[13:13:58.957]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.957]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:58.957]                 }
[13:13:58.957]                 ...future.workdir <- getwd()
[13:13:58.957]             }
[13:13:58.957]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:58.957]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:58.957]         }
[13:13:58.957]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:58.957]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:58.957]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:58.957]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:58.957]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:58.957]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:58.957]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:58.957]             base::names(...future.oldOptions))
[13:13:58.957]     }
[13:13:58.957]     if (FALSE) {
[13:13:58.957]     }
[13:13:58.957]     else {
[13:13:58.957]         if (TRUE) {
[13:13:58.957]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:58.957]                 open = "w")
[13:13:58.957]         }
[13:13:58.957]         else {
[13:13:58.957]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:58.957]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:58.957]         }
[13:13:58.957]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:58.957]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:58.957]             base::sink(type = "output", split = FALSE)
[13:13:58.957]             base::close(...future.stdout)
[13:13:58.957]         }, add = TRUE)
[13:13:58.957]     }
[13:13:58.957]     ...future.frame <- base::sys.nframe()
[13:13:58.957]     ...future.conditions <- base::list()
[13:13:58.957]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:58.957]     if (FALSE) {
[13:13:58.957]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:58.957]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:58.957]     }
[13:13:58.957]     ...future.result <- base::tryCatch({
[13:13:58.957]         base::withCallingHandlers({
[13:13:58.957]             ...future.value <- base::withVisible(base::local({
[13:13:58.957]                 ...future.makeSendCondition <- local({
[13:13:58.957]                   sendCondition <- NULL
[13:13:58.957]                   function(frame = 1L) {
[13:13:58.957]                     if (is.function(sendCondition)) 
[13:13:58.957]                       return(sendCondition)
[13:13:58.957]                     ns <- getNamespace("parallel")
[13:13:58.957]                     if (exists("sendData", mode = "function", 
[13:13:58.957]                       envir = ns)) {
[13:13:58.957]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:58.957]                         envir = ns)
[13:13:58.957]                       envir <- sys.frame(frame)
[13:13:58.957]                       master <- NULL
[13:13:58.957]                       while (!identical(envir, .GlobalEnv) && 
[13:13:58.957]                         !identical(envir, emptyenv())) {
[13:13:58.957]                         if (exists("master", mode = "list", envir = envir, 
[13:13:58.957]                           inherits = FALSE)) {
[13:13:58.957]                           master <- get("master", mode = "list", 
[13:13:58.957]                             envir = envir, inherits = FALSE)
[13:13:58.957]                           if (inherits(master, c("SOCKnode", 
[13:13:58.957]                             "SOCK0node"))) {
[13:13:58.957]                             sendCondition <<- function(cond) {
[13:13:58.957]                               data <- list(type = "VALUE", value = cond, 
[13:13:58.957]                                 success = TRUE)
[13:13:58.957]                               parallel_sendData(master, data)
[13:13:58.957]                             }
[13:13:58.957]                             return(sendCondition)
[13:13:58.957]                           }
[13:13:58.957]                         }
[13:13:58.957]                         frame <- frame + 1L
[13:13:58.957]                         envir <- sys.frame(frame)
[13:13:58.957]                       }
[13:13:58.957]                     }
[13:13:58.957]                     sendCondition <<- function(cond) NULL
[13:13:58.957]                   }
[13:13:58.957]                 })
[13:13:58.957]                 withCallingHandlers({
[13:13:58.957]                   {
[13:13:58.957]                     do.call(function(...) {
[13:13:58.957]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.957]                       if (!identical(...future.globals.maxSize.org, 
[13:13:58.957]                         ...future.globals.maxSize)) {
[13:13:58.957]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.957]                         on.exit(options(oopts), add = TRUE)
[13:13:58.957]                       }
[13:13:58.957]                       {
[13:13:58.957]                         lapply(seq_along(...future.elements_ii), 
[13:13:58.957]                           FUN = function(jj) {
[13:13:58.957]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.957]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.957]                               envir = globalenv(), inherits = FALSE)
[13:13:58.957]                             ...future.FUN(...future.X_jj, ...)
[13:13:58.957]                           })
[13:13:58.957]                       }
[13:13:58.957]                     }, args = future.call.arguments)
[13:13:58.957]                   }
[13:13:58.957]                 }, immediateCondition = function(cond) {
[13:13:58.957]                   sendCondition <- ...future.makeSendCondition()
[13:13:58.957]                   sendCondition(cond)
[13:13:58.957]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.957]                   {
[13:13:58.957]                     inherits <- base::inherits
[13:13:58.957]                     invokeRestart <- base::invokeRestart
[13:13:58.957]                     is.null <- base::is.null
[13:13:58.957]                     muffled <- FALSE
[13:13:58.957]                     if (inherits(cond, "message")) {
[13:13:58.957]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:58.957]                       if (muffled) 
[13:13:58.957]                         invokeRestart("muffleMessage")
[13:13:58.957]                     }
[13:13:58.957]                     else if (inherits(cond, "warning")) {
[13:13:58.957]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:58.957]                       if (muffled) 
[13:13:58.957]                         invokeRestart("muffleWarning")
[13:13:58.957]                     }
[13:13:58.957]                     else if (inherits(cond, "condition")) {
[13:13:58.957]                       if (!is.null(pattern)) {
[13:13:58.957]                         computeRestarts <- base::computeRestarts
[13:13:58.957]                         grepl <- base::grepl
[13:13:58.957]                         restarts <- computeRestarts(cond)
[13:13:58.957]                         for (restart in restarts) {
[13:13:58.957]                           name <- restart$name
[13:13:58.957]                           if (is.null(name)) 
[13:13:58.957]                             next
[13:13:58.957]                           if (!grepl(pattern, name)) 
[13:13:58.957]                             next
[13:13:58.957]                           invokeRestart(restart)
[13:13:58.957]                           muffled <- TRUE
[13:13:58.957]                           break
[13:13:58.957]                         }
[13:13:58.957]                       }
[13:13:58.957]                     }
[13:13:58.957]                     invisible(muffled)
[13:13:58.957]                   }
[13:13:58.957]                   muffleCondition(cond)
[13:13:58.957]                 })
[13:13:58.957]             }))
[13:13:58.957]             future::FutureResult(value = ...future.value$value, 
[13:13:58.957]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.957]                   ...future.rng), globalenv = if (FALSE) 
[13:13:58.957]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:58.957]                     ...future.globalenv.names))
[13:13:58.957]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:58.957]         }, condition = base::local({
[13:13:58.957]             c <- base::c
[13:13:58.957]             inherits <- base::inherits
[13:13:58.957]             invokeRestart <- base::invokeRestart
[13:13:58.957]             length <- base::length
[13:13:58.957]             list <- base::list
[13:13:58.957]             seq.int <- base::seq.int
[13:13:58.957]             signalCondition <- base::signalCondition
[13:13:58.957]             sys.calls <- base::sys.calls
[13:13:58.957]             `[[` <- base::`[[`
[13:13:58.957]             `+` <- base::`+`
[13:13:58.957]             `<<-` <- base::`<<-`
[13:13:58.957]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:58.957]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:58.957]                   3L)]
[13:13:58.957]             }
[13:13:58.957]             function(cond) {
[13:13:58.957]                 is_error <- inherits(cond, "error")
[13:13:58.957]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:58.957]                   NULL)
[13:13:58.957]                 if (is_error) {
[13:13:58.957]                   sessionInformation <- function() {
[13:13:58.957]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:58.957]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:58.957]                       search = base::search(), system = base::Sys.info())
[13:13:58.957]                   }
[13:13:58.957]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.957]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:58.957]                     cond$call), session = sessionInformation(), 
[13:13:58.957]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:58.957]                   signalCondition(cond)
[13:13:58.957]                 }
[13:13:58.957]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:58.957]                 "immediateCondition"))) {
[13:13:58.957]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:58.957]                   ...future.conditions[[length(...future.conditions) + 
[13:13:58.957]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:58.957]                   if (TRUE && !signal) {
[13:13:58.957]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.957]                     {
[13:13:58.957]                       inherits <- base::inherits
[13:13:58.957]                       invokeRestart <- base::invokeRestart
[13:13:58.957]                       is.null <- base::is.null
[13:13:58.957]                       muffled <- FALSE
[13:13:58.957]                       if (inherits(cond, "message")) {
[13:13:58.957]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.957]                         if (muffled) 
[13:13:58.957]                           invokeRestart("muffleMessage")
[13:13:58.957]                       }
[13:13:58.957]                       else if (inherits(cond, "warning")) {
[13:13:58.957]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.957]                         if (muffled) 
[13:13:58.957]                           invokeRestart("muffleWarning")
[13:13:58.957]                       }
[13:13:58.957]                       else if (inherits(cond, "condition")) {
[13:13:58.957]                         if (!is.null(pattern)) {
[13:13:58.957]                           computeRestarts <- base::computeRestarts
[13:13:58.957]                           grepl <- base::grepl
[13:13:58.957]                           restarts <- computeRestarts(cond)
[13:13:58.957]                           for (restart in restarts) {
[13:13:58.957]                             name <- restart$name
[13:13:58.957]                             if (is.null(name)) 
[13:13:58.957]                               next
[13:13:58.957]                             if (!grepl(pattern, name)) 
[13:13:58.957]                               next
[13:13:58.957]                             invokeRestart(restart)
[13:13:58.957]                             muffled <- TRUE
[13:13:58.957]                             break
[13:13:58.957]                           }
[13:13:58.957]                         }
[13:13:58.957]                       }
[13:13:58.957]                       invisible(muffled)
[13:13:58.957]                     }
[13:13:58.957]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.957]                   }
[13:13:58.957]                 }
[13:13:58.957]                 else {
[13:13:58.957]                   if (TRUE) {
[13:13:58.957]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:58.957]                     {
[13:13:58.957]                       inherits <- base::inherits
[13:13:58.957]                       invokeRestart <- base::invokeRestart
[13:13:58.957]                       is.null <- base::is.null
[13:13:58.957]                       muffled <- FALSE
[13:13:58.957]                       if (inherits(cond, "message")) {
[13:13:58.957]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:58.957]                         if (muffled) 
[13:13:58.957]                           invokeRestart("muffleMessage")
[13:13:58.957]                       }
[13:13:58.957]                       else if (inherits(cond, "warning")) {
[13:13:58.957]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:58.957]                         if (muffled) 
[13:13:58.957]                           invokeRestart("muffleWarning")
[13:13:58.957]                       }
[13:13:58.957]                       else if (inherits(cond, "condition")) {
[13:13:58.957]                         if (!is.null(pattern)) {
[13:13:58.957]                           computeRestarts <- base::computeRestarts
[13:13:58.957]                           grepl <- base::grepl
[13:13:58.957]                           restarts <- computeRestarts(cond)
[13:13:58.957]                           for (restart in restarts) {
[13:13:58.957]                             name <- restart$name
[13:13:58.957]                             if (is.null(name)) 
[13:13:58.957]                               next
[13:13:58.957]                             if (!grepl(pattern, name)) 
[13:13:58.957]                               next
[13:13:58.957]                             invokeRestart(restart)
[13:13:58.957]                             muffled <- TRUE
[13:13:58.957]                             break
[13:13:58.957]                           }
[13:13:58.957]                         }
[13:13:58.957]                       }
[13:13:58.957]                       invisible(muffled)
[13:13:58.957]                     }
[13:13:58.957]                     muffleCondition(cond, pattern = "^muffle")
[13:13:58.957]                   }
[13:13:58.957]                 }
[13:13:58.957]             }
[13:13:58.957]         }))
[13:13:58.957]     }, error = function(ex) {
[13:13:58.957]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:58.957]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:58.957]                 ...future.rng), started = ...future.startTime, 
[13:13:58.957]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:58.957]             version = "1.8"), class = "FutureResult")
[13:13:58.957]     }, finally = {
[13:13:58.957]         if (!identical(...future.workdir, getwd())) 
[13:13:58.957]             setwd(...future.workdir)
[13:13:58.957]         {
[13:13:58.957]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:58.957]                 ...future.oldOptions$nwarnings <- NULL
[13:13:58.957]             }
[13:13:58.957]             base::options(...future.oldOptions)
[13:13:58.957]             if (.Platform$OS.type == "windows") {
[13:13:58.957]                 old_names <- names(...future.oldEnvVars)
[13:13:58.957]                 envs <- base::Sys.getenv()
[13:13:58.957]                 names <- names(envs)
[13:13:58.957]                 common <- intersect(names, old_names)
[13:13:58.957]                 added <- setdiff(names, old_names)
[13:13:58.957]                 removed <- setdiff(old_names, names)
[13:13:58.957]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:58.957]                   envs[common]]
[13:13:58.957]                 NAMES <- toupper(changed)
[13:13:58.957]                 args <- list()
[13:13:58.957]                 for (kk in seq_along(NAMES)) {
[13:13:58.957]                   name <- changed[[kk]]
[13:13:58.957]                   NAME <- NAMES[[kk]]
[13:13:58.957]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.957]                     next
[13:13:58.957]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.957]                 }
[13:13:58.957]                 NAMES <- toupper(added)
[13:13:58.957]                 for (kk in seq_along(NAMES)) {
[13:13:58.957]                   name <- added[[kk]]
[13:13:58.957]                   NAME <- NAMES[[kk]]
[13:13:58.957]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.957]                     next
[13:13:58.957]                   args[[name]] <- ""
[13:13:58.957]                 }
[13:13:58.957]                 NAMES <- toupper(removed)
[13:13:58.957]                 for (kk in seq_along(NAMES)) {
[13:13:58.957]                   name <- removed[[kk]]
[13:13:58.957]                   NAME <- NAMES[[kk]]
[13:13:58.957]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:58.957]                     next
[13:13:58.957]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:58.957]                 }
[13:13:58.957]                 if (length(args) > 0) 
[13:13:58.957]                   base::do.call(base::Sys.setenv, args = args)
[13:13:58.957]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:58.957]             }
[13:13:58.957]             else {
[13:13:58.957]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:58.957]             }
[13:13:58.957]             {
[13:13:58.957]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:58.957]                   0L) {
[13:13:58.957]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:58.957]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:58.957]                   base::options(opts)
[13:13:58.957]                 }
[13:13:58.957]                 {
[13:13:58.957]                   {
[13:13:58.957]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:58.957]                     NULL
[13:13:58.957]                   }
[13:13:58.957]                   options(future.plan = NULL)
[13:13:58.957]                   if (is.na(NA_character_)) 
[13:13:58.957]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:58.957]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:58.957]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:58.957]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:58.957]                     envir = parent.frame()) 
[13:13:58.957]                   {
[13:13:58.957]                     if (is.function(workers)) 
[13:13:58.957]                       workers <- workers()
[13:13:58.957]                     workers <- structure(as.integer(workers), 
[13:13:58.957]                       class = class(workers))
[13:13:58.957]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:58.957]                       workers >= 1)
[13:13:58.957]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:58.957]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:58.957]                     }
[13:13:58.957]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:58.957]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:58.957]                       envir = envir)
[13:13:58.957]                     if (!future$lazy) 
[13:13:58.957]                       future <- run(future)
[13:13:58.957]                     invisible(future)
[13:13:58.957]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:58.957]                 }
[13:13:58.957]             }
[13:13:58.957]         }
[13:13:58.957]     })
[13:13:58.957]     if (TRUE) {
[13:13:58.957]         base::sink(type = "output", split = FALSE)
[13:13:58.957]         if (TRUE) {
[13:13:58.957]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:58.957]         }
[13:13:58.957]         else {
[13:13:58.957]             ...future.result["stdout"] <- base::list(NULL)
[13:13:58.957]         }
[13:13:58.957]         base::close(...future.stdout)
[13:13:58.957]         ...future.stdout <- NULL
[13:13:58.957]     }
[13:13:58.957]     ...future.result$conditions <- ...future.conditions
[13:13:58.957]     ...future.result$finished <- base::Sys.time()
[13:13:58.957]     ...future.result
[13:13:58.957] }
[13:13:58.963] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:58.963] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:58.964] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:58.964] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:58.964] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:58.965] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:58.965] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:58.965] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:58.966] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:58.966] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:58.967] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:58.967] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:58.968] MultisessionFuture started
[13:13:58.968] - Launch lazy future ... done
[13:13:58.968] run() for 'MultisessionFuture' ... done
[13:13:58.968] Created future:
[13:13:58.985] receiveMessageFromWorker() for ClusterFuture ...
[13:13:58.986] - Validating connection of MultisessionFuture
[13:13:58.986] - received message: FutureResult
[13:13:58.986] - Received FutureResult
[13:13:58.986] - Erased future from FutureRegistry
[13:13:58.987] result() for ClusterFuture ...
[13:13:58.987] - result already collected: FutureResult
[13:13:58.987] result() for ClusterFuture ... done
[13:13:58.987] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:58.968] MultisessionFuture:
[13:13:58.968] Label: 'future_replicate-1'
[13:13:58.968] Expression:
[13:13:58.968] {
[13:13:58.968]     do.call(function(...) {
[13:13:58.968]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.968]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:58.968]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.968]             on.exit(options(oopts), add = TRUE)
[13:13:58.968]         }
[13:13:58.968]         {
[13:13:58.968]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:58.968]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.968]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.968]                   envir = globalenv(), inherits = FALSE)
[13:13:58.968]                 ...future.FUN(...future.X_jj, ...)
[13:13:58.968]             })
[13:13:58.968]         }
[13:13:58.968]     }, args = future.call.arguments)
[13:13:58.968] }
[13:13:58.968] Lazy evaluation: FALSE
[13:13:58.968] Asynchronous evaluation: TRUE
[13:13:58.968] Local evaluation: TRUE
[13:13:58.968] Environment: R_GlobalEnv
[13:13:58.968] Capture standard output: TRUE
[13:13:58.968] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:58.968] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:58.968] Packages: <none>
[13:13:58.968] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:58.968] Resolved: TRUE
[13:13:58.968] Value: <not collected>
[13:13:58.968] Conditions captured: <none>
[13:13:58.968] Early signaling: FALSE
[13:13:58.968] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:58.968] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:58.988] Chunk #1 of 2 ... DONE
[13:13:58.988] Chunk #2 of 2 ...
[13:13:58.988]  - Finding globals in 'X' for chunk #2 ...
[13:13:58.989] getGlobalsAndPackages() ...
[13:13:58.989] Searching for globals...
[13:13:58.989] 
[13:13:58.990] Searching for globals ... DONE
[13:13:58.990] - globals: [0] <none>
[13:13:58.990] getGlobalsAndPackages() ... DONE
[13:13:58.990]    + additional globals found: [n=0] 
[13:13:58.990]    + additional namespaces needed: [n=0] 
[13:13:58.991]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:58.991]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:58.991]  - seeds: [3] <seeds>
[13:13:58.991]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.991] getGlobalsAndPackages() ...
[13:13:58.992] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.992] Resolving globals: FALSE
[13:13:58.992] Tweak future expression to call with '...' arguments ...
[13:13:58.992] {
[13:13:58.992]     do.call(function(...) {
[13:13:58.992]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:58.992]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:58.992]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:58.992]             on.exit(options(oopts), add = TRUE)
[13:13:58.992]         }
[13:13:58.992]         {
[13:13:58.992]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:58.992]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:58.992]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:58.992]                   envir = globalenv(), inherits = FALSE)
[13:13:58.992]                 ...future.FUN(...future.X_jj, ...)
[13:13:58.992]             })
[13:13:58.992]         }
[13:13:58.992]     }, args = future.call.arguments)
[13:13:58.992] }
[13:13:58.993] Tweak future expression to call with '...' arguments ... DONE
[13:13:58.993] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:58.993] 
[13:13:58.994] getGlobalsAndPackages() ... DONE
[13:13:58.994] run() for 'Future' ...
[13:13:58.994] - state: 'created'
[13:13:58.994] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.009] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.009] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.009]   - Field: 'node'
[13:13:59.010]   - Field: 'label'
[13:13:59.010]   - Field: 'local'
[13:13:59.010]   - Field: 'owner'
[13:13:59.010]   - Field: 'envir'
[13:13:59.010]   - Field: 'workers'
[13:13:59.011]   - Field: 'packages'
[13:13:59.011]   - Field: 'gc'
[13:13:59.011]   - Field: 'conditions'
[13:13:59.011]   - Field: 'persistent'
[13:13:59.011]   - Field: 'expr'
[13:13:59.012]   - Field: 'uuid'
[13:13:59.012]   - Field: 'seed'
[13:13:59.012]   - Field: 'version'
[13:13:59.012]   - Field: 'result'
[13:13:59.012]   - Field: 'asynchronous'
[13:13:59.013]   - Field: 'calls'
[13:13:59.013]   - Field: 'globals'
[13:13:59.013]   - Field: 'stdout'
[13:13:59.013]   - Field: 'earlySignal'
[13:13:59.013]   - Field: 'lazy'
[13:13:59.014]   - Field: 'state'
[13:13:59.014] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.014] - Launch lazy future ...
[13:13:59.014] Packages needed by the future expression (n = 0): <none>
[13:13:59.015] Packages needed by future strategies (n = 0): <none>
[13:13:59.015] {
[13:13:59.015]     {
[13:13:59.015]         {
[13:13:59.015]             ...future.startTime <- base::Sys.time()
[13:13:59.015]             {
[13:13:59.015]                 {
[13:13:59.015]                   {
[13:13:59.015]                     {
[13:13:59.015]                       base::local({
[13:13:59.015]                         has_future <- base::requireNamespace("future", 
[13:13:59.015]                           quietly = TRUE)
[13:13:59.015]                         if (has_future) {
[13:13:59.015]                           ns <- base::getNamespace("future")
[13:13:59.015]                           version <- ns[[".package"]][["version"]]
[13:13:59.015]                           if (is.null(version)) 
[13:13:59.015]                             version <- utils::packageVersion("future")
[13:13:59.015]                         }
[13:13:59.015]                         else {
[13:13:59.015]                           version <- NULL
[13:13:59.015]                         }
[13:13:59.015]                         if (!has_future || version < "1.8.0") {
[13:13:59.015]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.015]                             "", base::R.version$version.string), 
[13:13:59.015]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.015]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.015]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.015]                               "release", "version")], collapse = " "), 
[13:13:59.015]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.015]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.015]                             info)
[13:13:59.015]                           info <- base::paste(info, collapse = "; ")
[13:13:59.015]                           if (!has_future) {
[13:13:59.015]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.015]                               info)
[13:13:59.015]                           }
[13:13:59.015]                           else {
[13:13:59.015]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.015]                               info, version)
[13:13:59.015]                           }
[13:13:59.015]                           base::stop(msg)
[13:13:59.015]                         }
[13:13:59.015]                       })
[13:13:59.015]                     }
[13:13:59.015]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.015]                     base::options(mc.cores = 1L)
[13:13:59.015]                   }
[13:13:59.015]                   options(future.plan = NULL)
[13:13:59.015]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.015]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.015]                 }
[13:13:59.015]                 ...future.workdir <- getwd()
[13:13:59.015]             }
[13:13:59.015]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.015]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.015]         }
[13:13:59.015]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.015]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.015]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.015]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.015]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.015]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.015]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.015]             base::names(...future.oldOptions))
[13:13:59.015]     }
[13:13:59.015]     if (FALSE) {
[13:13:59.015]     }
[13:13:59.015]     else {
[13:13:59.015]         if (TRUE) {
[13:13:59.015]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.015]                 open = "w")
[13:13:59.015]         }
[13:13:59.015]         else {
[13:13:59.015]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.015]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.015]         }
[13:13:59.015]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.015]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.015]             base::sink(type = "output", split = FALSE)
[13:13:59.015]             base::close(...future.stdout)
[13:13:59.015]         }, add = TRUE)
[13:13:59.015]     }
[13:13:59.015]     ...future.frame <- base::sys.nframe()
[13:13:59.015]     ...future.conditions <- base::list()
[13:13:59.015]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.015]     if (FALSE) {
[13:13:59.015]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.015]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.015]     }
[13:13:59.015]     ...future.result <- base::tryCatch({
[13:13:59.015]         base::withCallingHandlers({
[13:13:59.015]             ...future.value <- base::withVisible(base::local({
[13:13:59.015]                 ...future.makeSendCondition <- local({
[13:13:59.015]                   sendCondition <- NULL
[13:13:59.015]                   function(frame = 1L) {
[13:13:59.015]                     if (is.function(sendCondition)) 
[13:13:59.015]                       return(sendCondition)
[13:13:59.015]                     ns <- getNamespace("parallel")
[13:13:59.015]                     if (exists("sendData", mode = "function", 
[13:13:59.015]                       envir = ns)) {
[13:13:59.015]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.015]                         envir = ns)
[13:13:59.015]                       envir <- sys.frame(frame)
[13:13:59.015]                       master <- NULL
[13:13:59.015]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.015]                         !identical(envir, emptyenv())) {
[13:13:59.015]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.015]                           inherits = FALSE)) {
[13:13:59.015]                           master <- get("master", mode = "list", 
[13:13:59.015]                             envir = envir, inherits = FALSE)
[13:13:59.015]                           if (inherits(master, c("SOCKnode", 
[13:13:59.015]                             "SOCK0node"))) {
[13:13:59.015]                             sendCondition <<- function(cond) {
[13:13:59.015]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.015]                                 success = TRUE)
[13:13:59.015]                               parallel_sendData(master, data)
[13:13:59.015]                             }
[13:13:59.015]                             return(sendCondition)
[13:13:59.015]                           }
[13:13:59.015]                         }
[13:13:59.015]                         frame <- frame + 1L
[13:13:59.015]                         envir <- sys.frame(frame)
[13:13:59.015]                       }
[13:13:59.015]                     }
[13:13:59.015]                     sendCondition <<- function(cond) NULL
[13:13:59.015]                   }
[13:13:59.015]                 })
[13:13:59.015]                 withCallingHandlers({
[13:13:59.015]                   {
[13:13:59.015]                     do.call(function(...) {
[13:13:59.015]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.015]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.015]                         ...future.globals.maxSize)) {
[13:13:59.015]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.015]                         on.exit(options(oopts), add = TRUE)
[13:13:59.015]                       }
[13:13:59.015]                       {
[13:13:59.015]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.015]                           FUN = function(jj) {
[13:13:59.015]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.015]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.015]                               envir = globalenv(), inherits = FALSE)
[13:13:59.015]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.015]                           })
[13:13:59.015]                       }
[13:13:59.015]                     }, args = future.call.arguments)
[13:13:59.015]                   }
[13:13:59.015]                 }, immediateCondition = function(cond) {
[13:13:59.015]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.015]                   sendCondition(cond)
[13:13:59.015]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.015]                   {
[13:13:59.015]                     inherits <- base::inherits
[13:13:59.015]                     invokeRestart <- base::invokeRestart
[13:13:59.015]                     is.null <- base::is.null
[13:13:59.015]                     muffled <- FALSE
[13:13:59.015]                     if (inherits(cond, "message")) {
[13:13:59.015]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.015]                       if (muffled) 
[13:13:59.015]                         invokeRestart("muffleMessage")
[13:13:59.015]                     }
[13:13:59.015]                     else if (inherits(cond, "warning")) {
[13:13:59.015]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.015]                       if (muffled) 
[13:13:59.015]                         invokeRestart("muffleWarning")
[13:13:59.015]                     }
[13:13:59.015]                     else if (inherits(cond, "condition")) {
[13:13:59.015]                       if (!is.null(pattern)) {
[13:13:59.015]                         computeRestarts <- base::computeRestarts
[13:13:59.015]                         grepl <- base::grepl
[13:13:59.015]                         restarts <- computeRestarts(cond)
[13:13:59.015]                         for (restart in restarts) {
[13:13:59.015]                           name <- restart$name
[13:13:59.015]                           if (is.null(name)) 
[13:13:59.015]                             next
[13:13:59.015]                           if (!grepl(pattern, name)) 
[13:13:59.015]                             next
[13:13:59.015]                           invokeRestart(restart)
[13:13:59.015]                           muffled <- TRUE
[13:13:59.015]                           break
[13:13:59.015]                         }
[13:13:59.015]                       }
[13:13:59.015]                     }
[13:13:59.015]                     invisible(muffled)
[13:13:59.015]                   }
[13:13:59.015]                   muffleCondition(cond)
[13:13:59.015]                 })
[13:13:59.015]             }))
[13:13:59.015]             future::FutureResult(value = ...future.value$value, 
[13:13:59.015]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.015]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.015]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.015]                     ...future.globalenv.names))
[13:13:59.015]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.015]         }, condition = base::local({
[13:13:59.015]             c <- base::c
[13:13:59.015]             inherits <- base::inherits
[13:13:59.015]             invokeRestart <- base::invokeRestart
[13:13:59.015]             length <- base::length
[13:13:59.015]             list <- base::list
[13:13:59.015]             seq.int <- base::seq.int
[13:13:59.015]             signalCondition <- base::signalCondition
[13:13:59.015]             sys.calls <- base::sys.calls
[13:13:59.015]             `[[` <- base::`[[`
[13:13:59.015]             `+` <- base::`+`
[13:13:59.015]             `<<-` <- base::`<<-`
[13:13:59.015]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.015]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.015]                   3L)]
[13:13:59.015]             }
[13:13:59.015]             function(cond) {
[13:13:59.015]                 is_error <- inherits(cond, "error")
[13:13:59.015]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.015]                   NULL)
[13:13:59.015]                 if (is_error) {
[13:13:59.015]                   sessionInformation <- function() {
[13:13:59.015]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.015]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.015]                       search = base::search(), system = base::Sys.info())
[13:13:59.015]                   }
[13:13:59.015]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.015]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.015]                     cond$call), session = sessionInformation(), 
[13:13:59.015]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.015]                   signalCondition(cond)
[13:13:59.015]                 }
[13:13:59.015]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.015]                 "immediateCondition"))) {
[13:13:59.015]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.015]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.015]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.015]                   if (TRUE && !signal) {
[13:13:59.015]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.015]                     {
[13:13:59.015]                       inherits <- base::inherits
[13:13:59.015]                       invokeRestart <- base::invokeRestart
[13:13:59.015]                       is.null <- base::is.null
[13:13:59.015]                       muffled <- FALSE
[13:13:59.015]                       if (inherits(cond, "message")) {
[13:13:59.015]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.015]                         if (muffled) 
[13:13:59.015]                           invokeRestart("muffleMessage")
[13:13:59.015]                       }
[13:13:59.015]                       else if (inherits(cond, "warning")) {
[13:13:59.015]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.015]                         if (muffled) 
[13:13:59.015]                           invokeRestart("muffleWarning")
[13:13:59.015]                       }
[13:13:59.015]                       else if (inherits(cond, "condition")) {
[13:13:59.015]                         if (!is.null(pattern)) {
[13:13:59.015]                           computeRestarts <- base::computeRestarts
[13:13:59.015]                           grepl <- base::grepl
[13:13:59.015]                           restarts <- computeRestarts(cond)
[13:13:59.015]                           for (restart in restarts) {
[13:13:59.015]                             name <- restart$name
[13:13:59.015]                             if (is.null(name)) 
[13:13:59.015]                               next
[13:13:59.015]                             if (!grepl(pattern, name)) 
[13:13:59.015]                               next
[13:13:59.015]                             invokeRestart(restart)
[13:13:59.015]                             muffled <- TRUE
[13:13:59.015]                             break
[13:13:59.015]                           }
[13:13:59.015]                         }
[13:13:59.015]                       }
[13:13:59.015]                       invisible(muffled)
[13:13:59.015]                     }
[13:13:59.015]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.015]                   }
[13:13:59.015]                 }
[13:13:59.015]                 else {
[13:13:59.015]                   if (TRUE) {
[13:13:59.015]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.015]                     {
[13:13:59.015]                       inherits <- base::inherits
[13:13:59.015]                       invokeRestart <- base::invokeRestart
[13:13:59.015]                       is.null <- base::is.null
[13:13:59.015]                       muffled <- FALSE
[13:13:59.015]                       if (inherits(cond, "message")) {
[13:13:59.015]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.015]                         if (muffled) 
[13:13:59.015]                           invokeRestart("muffleMessage")
[13:13:59.015]                       }
[13:13:59.015]                       else if (inherits(cond, "warning")) {
[13:13:59.015]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.015]                         if (muffled) 
[13:13:59.015]                           invokeRestart("muffleWarning")
[13:13:59.015]                       }
[13:13:59.015]                       else if (inherits(cond, "condition")) {
[13:13:59.015]                         if (!is.null(pattern)) {
[13:13:59.015]                           computeRestarts <- base::computeRestarts
[13:13:59.015]                           grepl <- base::grepl
[13:13:59.015]                           restarts <- computeRestarts(cond)
[13:13:59.015]                           for (restart in restarts) {
[13:13:59.015]                             name <- restart$name
[13:13:59.015]                             if (is.null(name)) 
[13:13:59.015]                               next
[13:13:59.015]                             if (!grepl(pattern, name)) 
[13:13:59.015]                               next
[13:13:59.015]                             invokeRestart(restart)
[13:13:59.015]                             muffled <- TRUE
[13:13:59.015]                             break
[13:13:59.015]                           }
[13:13:59.015]                         }
[13:13:59.015]                       }
[13:13:59.015]                       invisible(muffled)
[13:13:59.015]                     }
[13:13:59.015]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.015]                   }
[13:13:59.015]                 }
[13:13:59.015]             }
[13:13:59.015]         }))
[13:13:59.015]     }, error = function(ex) {
[13:13:59.015]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.015]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.015]                 ...future.rng), started = ...future.startTime, 
[13:13:59.015]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.015]             version = "1.8"), class = "FutureResult")
[13:13:59.015]     }, finally = {
[13:13:59.015]         if (!identical(...future.workdir, getwd())) 
[13:13:59.015]             setwd(...future.workdir)
[13:13:59.015]         {
[13:13:59.015]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.015]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.015]             }
[13:13:59.015]             base::options(...future.oldOptions)
[13:13:59.015]             if (.Platform$OS.type == "windows") {
[13:13:59.015]                 old_names <- names(...future.oldEnvVars)
[13:13:59.015]                 envs <- base::Sys.getenv()
[13:13:59.015]                 names <- names(envs)
[13:13:59.015]                 common <- intersect(names, old_names)
[13:13:59.015]                 added <- setdiff(names, old_names)
[13:13:59.015]                 removed <- setdiff(old_names, names)
[13:13:59.015]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.015]                   envs[common]]
[13:13:59.015]                 NAMES <- toupper(changed)
[13:13:59.015]                 args <- list()
[13:13:59.015]                 for (kk in seq_along(NAMES)) {
[13:13:59.015]                   name <- changed[[kk]]
[13:13:59.015]                   NAME <- NAMES[[kk]]
[13:13:59.015]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.015]                     next
[13:13:59.015]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.015]                 }
[13:13:59.015]                 NAMES <- toupper(added)
[13:13:59.015]                 for (kk in seq_along(NAMES)) {
[13:13:59.015]                   name <- added[[kk]]
[13:13:59.015]                   NAME <- NAMES[[kk]]
[13:13:59.015]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.015]                     next
[13:13:59.015]                   args[[name]] <- ""
[13:13:59.015]                 }
[13:13:59.015]                 NAMES <- toupper(removed)
[13:13:59.015]                 for (kk in seq_along(NAMES)) {
[13:13:59.015]                   name <- removed[[kk]]
[13:13:59.015]                   NAME <- NAMES[[kk]]
[13:13:59.015]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.015]                     next
[13:13:59.015]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.015]                 }
[13:13:59.015]                 if (length(args) > 0) 
[13:13:59.015]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.015]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.015]             }
[13:13:59.015]             else {
[13:13:59.015]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.015]             }
[13:13:59.015]             {
[13:13:59.015]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.015]                   0L) {
[13:13:59.015]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.015]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.015]                   base::options(opts)
[13:13:59.015]                 }
[13:13:59.015]                 {
[13:13:59.015]                   {
[13:13:59.015]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.015]                     NULL
[13:13:59.015]                   }
[13:13:59.015]                   options(future.plan = NULL)
[13:13:59.015]                   if (is.na(NA_character_)) 
[13:13:59.015]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.015]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.015]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.015]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.015]                     envir = parent.frame()) 
[13:13:59.015]                   {
[13:13:59.015]                     if (is.function(workers)) 
[13:13:59.015]                       workers <- workers()
[13:13:59.015]                     workers <- structure(as.integer(workers), 
[13:13:59.015]                       class = class(workers))
[13:13:59.015]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.015]                       workers >= 1)
[13:13:59.015]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.015]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.015]                     }
[13:13:59.015]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.015]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.015]                       envir = envir)
[13:13:59.015]                     if (!future$lazy) 
[13:13:59.015]                       future <- run(future)
[13:13:59.015]                     invisible(future)
[13:13:59.015]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.015]                 }
[13:13:59.015]             }
[13:13:59.015]         }
[13:13:59.015]     })
[13:13:59.015]     if (TRUE) {
[13:13:59.015]         base::sink(type = "output", split = FALSE)
[13:13:59.015]         if (TRUE) {
[13:13:59.015]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.015]         }
[13:13:59.015]         else {
[13:13:59.015]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.015]         }
[13:13:59.015]         base::close(...future.stdout)
[13:13:59.015]         ...future.stdout <- NULL
[13:13:59.015]     }
[13:13:59.015]     ...future.result$conditions <- ...future.conditions
[13:13:59.015]     ...future.result$finished <- base::Sys.time()
[13:13:59.015]     ...future.result
[13:13:59.015] }
[13:13:59.023] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.023] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.024] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.024] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.024] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.025] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.025] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.025] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.026] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.026] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.026] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.027] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.027] MultisessionFuture started
[13:13:59.027] - Launch lazy future ... done
[13:13:59.028] run() for 'MultisessionFuture' ... done
[13:13:59.028] Created future:
[13:13:59.044] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.044] - Validating connection of MultisessionFuture
[13:13:59.044] - received message: FutureResult
[13:13:59.044] - Received FutureResult
[13:13:59.044] - Erased future from FutureRegistry
[13:13:59.045] result() for ClusterFuture ...
[13:13:59.045] - result already collected: FutureResult
[13:13:59.045] result() for ClusterFuture ... done
[13:13:59.045] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.028] MultisessionFuture:
[13:13:59.028] Label: 'future_replicate-2'
[13:13:59.028] Expression:
[13:13:59.028] {
[13:13:59.028]     do.call(function(...) {
[13:13:59.028]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.028]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.028]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.028]             on.exit(options(oopts), add = TRUE)
[13:13:59.028]         }
[13:13:59.028]         {
[13:13:59.028]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.028]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.028]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.028]                   envir = globalenv(), inherits = FALSE)
[13:13:59.028]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.028]             })
[13:13:59.028]         }
[13:13:59.028]     }, args = future.call.arguments)
[13:13:59.028] }
[13:13:59.028] Lazy evaluation: FALSE
[13:13:59.028] Asynchronous evaluation: TRUE
[13:13:59.028] Local evaluation: TRUE
[13:13:59.028] Environment: R_GlobalEnv
[13:13:59.028] Capture standard output: TRUE
[13:13:59.028] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.028] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.028] Packages: <none>
[13:13:59.028] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.028] Resolved: TRUE
[13:13:59.028] Value: <not collected>
[13:13:59.028] Conditions captured: <none>
[13:13:59.028] Early signaling: FALSE
[13:13:59.028] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.028] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.046] Chunk #2 of 2 ... DONE
[13:13:59.046] Launching 2 futures (chunks) ... DONE
[13:13:59.046] Resolving 2 futures (chunks) ...
[13:13:59.046] resolve() on list ...
[13:13:59.046]  recursive: 0
[13:13:59.046]  length: 2
[13:13:59.047] 
[13:13:59.047] Future #1
[13:13:59.047] result() for ClusterFuture ...
[13:13:59.047] - result already collected: FutureResult
[13:13:59.047] result() for ClusterFuture ... done
[13:13:59.047] result() for ClusterFuture ...
[13:13:59.047] - result already collected: FutureResult
[13:13:59.048] result() for ClusterFuture ... done
[13:13:59.048] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.048] - nx: 2
[13:13:59.048] - relay: TRUE
[13:13:59.048] - stdout: TRUE
[13:13:59.048] - signal: TRUE
[13:13:59.049] - resignal: FALSE
[13:13:59.049] - force: TRUE
[13:13:59.049] - relayed: [n=2] FALSE, FALSE
[13:13:59.049] - queued futures: [n=2] FALSE, FALSE
[13:13:59.049]  - until=1
[13:13:59.049]  - relaying element #1
[13:13:59.050] result() for ClusterFuture ...
[13:13:59.050] - result already collected: FutureResult
[13:13:59.050] result() for ClusterFuture ... done
[13:13:59.050] result() for ClusterFuture ...
[13:13:59.050] - result already collected: FutureResult
[13:13:59.050] result() for ClusterFuture ... done
[13:13:59.051] result() for ClusterFuture ...
[13:13:59.051] - result already collected: FutureResult
[13:13:59.051] result() for ClusterFuture ... done
[13:13:59.051] result() for ClusterFuture ...
[13:13:59.051] - result already collected: FutureResult
[13:13:59.051] result() for ClusterFuture ... done
[13:13:59.052] - relayed: [n=2] TRUE, FALSE
[13:13:59.052] - queued futures: [n=2] TRUE, FALSE
[13:13:59.052] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.052]  length: 1 (resolved future 1)
[13:13:59.052] Future #2
[13:13:59.052] result() for ClusterFuture ...
[13:13:59.053] - result already collected: FutureResult
[13:13:59.053] result() for ClusterFuture ... done
[13:13:59.053] result() for ClusterFuture ...
[13:13:59.053] - result already collected: FutureResult
[13:13:59.053] result() for ClusterFuture ... done
[13:13:59.053] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.053] - nx: 2
[13:13:59.054] - relay: TRUE
[13:13:59.054] - stdout: TRUE
[13:13:59.054] - signal: TRUE
[13:13:59.054] - resignal: FALSE
[13:13:59.054] - force: TRUE
[13:13:59.054] - relayed: [n=2] TRUE, FALSE
[13:13:59.055] - queued futures: [n=2] TRUE, FALSE
[13:13:59.055]  - until=2
[13:13:59.055]  - relaying element #2
[13:13:59.055] result() for ClusterFuture ...
[13:13:59.055] - result already collected: FutureResult
[13:13:59.055] result() for ClusterFuture ... done
[13:13:59.055] result() for ClusterFuture ...
[13:13:59.056] - result already collected: FutureResult
[13:13:59.056] result() for ClusterFuture ... done
[13:13:59.056] result() for ClusterFuture ...
[13:13:59.056] - result already collected: FutureResult
[13:13:59.056] result() for ClusterFuture ... done
[13:13:59.056] result() for ClusterFuture ...
[13:13:59.057] - result already collected: FutureResult
[13:13:59.057] result() for ClusterFuture ... done
[13:13:59.057] - relayed: [n=2] TRUE, TRUE
[13:13:59.057] - queued futures: [n=2] TRUE, TRUE
[13:13:59.057] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.057]  length: 0 (resolved future 2)
[13:13:59.058] Relaying remaining futures
[13:13:59.058] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.058] - nx: 2
[13:13:59.058] - relay: TRUE
[13:13:59.058] - stdout: TRUE
[13:13:59.058] - signal: TRUE
[13:13:59.058] - resignal: FALSE
[13:13:59.059] - force: TRUE
[13:13:59.059] - relayed: [n=2] TRUE, TRUE
[13:13:59.059] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.059] - relayed: [n=2] TRUE, TRUE
[13:13:59.059] - queued futures: [n=2] TRUE, TRUE
[13:13:59.060] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.060] resolve() on list ... DONE
[13:13:59.060] result() for ClusterFuture ...
[13:13:59.060] - result already collected: FutureResult
[13:13:59.060] result() for ClusterFuture ... done
[13:13:59.060] result() for ClusterFuture ...
[13:13:59.060] - result already collected: FutureResult
[13:13:59.061] result() for ClusterFuture ... done
[13:13:59.061] result() for ClusterFuture ...
[13:13:59.061] - result already collected: FutureResult
[13:13:59.061] result() for ClusterFuture ... done
[13:13:59.061] result() for ClusterFuture ...
[13:13:59.061] - result already collected: FutureResult
[13:13:59.062] result() for ClusterFuture ... done
[13:13:59.062]  - Number of value chunks collected: 2
[13:13:59.062] Resolving 2 futures (chunks) ... DONE
[13:13:59.062] Reducing values from 2 chunks ...
[13:13:59.062]  - Number of values collected after concatenation: 5
[13:13:59.062]  - Number of values expected: 5
[13:13:59.063] Reducing values from 2 chunks ... DONE
[13:13:59.063] future_lapply() ... DONE
[13:13:59.063] future_lapply() ...
[13:13:59.064] Generating random seeds ...
[13:13:59.064] Generating random seed streams for 5 elements ...
[13:13:59.064] Generating random seed streams for 5 elements ... DONE
[13:13:59.064] Generating random seeds ... DONE
[13:13:59.064] 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
[13:13:59.067] Number of chunks: 2
[13:13:59.067] getGlobalsAndPackagesXApply() ...
[13:13:59.068]  - future.globals: TRUE
[13:13:59.068] getGlobalsAndPackages() ...
[13:13:59.068] Searching for globals...
[13:13:59.069] - globals found: [2] 'FUN', 'sample'
[13:13:59.069] Searching for globals ... DONE
[13:13:59.070] Resolving globals: FALSE
[13:13:59.070] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:59.071] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:59.071] - globals: [1] 'FUN'
[13:13:59.071] 
[13:13:59.071] getGlobalsAndPackages() ... DONE
[13:13:59.071]  - globals found/used: [n=1] 'FUN'
[13:13:59.071]  - needed namespaces: [n=0] 
[13:13:59.072] Finding globals ... DONE
[13:13:59.072]  - use_args: TRUE
[13:13:59.072]  - Getting '...' globals ...
[13:13:59.072] resolve() on list ...
[13:13:59.072]  recursive: 0
[13:13:59.073]  length: 1
[13:13:59.073]  elements: '...'
[13:13:59.073]  length: 0 (resolved future 1)
[13:13:59.073] resolve() on list ... DONE
[13:13:59.073]    - '...' content: [n=0] 
[13:13:59.074] List of 1
[13:13:59.074]  $ ...: list()
[13:13:59.074]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.074]  - attr(*, "where")=List of 1
[13:13:59.074]   ..$ ...:<environment: 0x0000019ec9b600d0> 
[13:13:59.074]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.074]  - attr(*, "resolved")= logi TRUE
[13:13:59.074]  - attr(*, "total_size")= num NA
[13:13:59.077]  - Getting '...' globals ... DONE
[13:13:59.077] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:59.077] List of 2
[13:13:59.077]  $ ...future.FUN:function (...)  
[13:13:59.077]  $ ...          : list()
[13:13:59.077]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.077]  - attr(*, "where")=List of 2
[13:13:59.077]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:59.077]   ..$ ...          :<environment: 0x0000019ec9b600d0> 
[13:13:59.077]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.077]  - attr(*, "resolved")= logi FALSE
[13:13:59.077]  - attr(*, "total_size")= num 616
[13:13:59.080] Packages to be attached in all futures: [n=0] 
[13:13:59.081] getGlobalsAndPackagesXApply() ... DONE
[13:13:59.081] Number of futures (= number of chunks): 2
[13:13:59.081] Launching 2 futures (chunks) ...
[13:13:59.081] Chunk #1 of 2 ...
[13:13:59.081]  - Finding globals in 'X' for chunk #1 ...
[13:13:59.082] getGlobalsAndPackages() ...
[13:13:59.082] Searching for globals...
[13:13:59.082] 
[13:13:59.082] Searching for globals ... DONE
[13:13:59.082] - globals: [0] <none>
[13:13:59.083] getGlobalsAndPackages() ... DONE
[13:13:59.083]    + additional globals found: [n=0] 
[13:13:59.083]    + additional namespaces needed: [n=0] 
[13:13:59.083]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:59.083]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.083]  - seeds: [2] <seeds>
[13:13:59.084]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.084] getGlobalsAndPackages() ...
[13:13:59.084] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.084] Resolving globals: FALSE
[13:13:59.084] Tweak future expression to call with '...' arguments ...
[13:13:59.084] {
[13:13:59.084]     do.call(function(...) {
[13:13:59.084]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.084]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.084]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.084]             on.exit(options(oopts), add = TRUE)
[13:13:59.084]         }
[13:13:59.084]         {
[13:13:59.084]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.084]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.084]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.084]                   envir = globalenv(), inherits = FALSE)
[13:13:59.084]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.084]             })
[13:13:59.084]         }
[13:13:59.084]     }, args = future.call.arguments)
[13:13:59.084] }
[13:13:59.085] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.085] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.086] 
[13:13:59.086] getGlobalsAndPackages() ... DONE
[13:13:59.086] run() for 'Future' ...
[13:13:59.086] - state: 'created'
[13:13:59.087] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.101] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.101] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.101]   - Field: 'node'
[13:13:59.101]   - Field: 'label'
[13:13:59.101]   - Field: 'local'
[13:13:59.102]   - Field: 'owner'
[13:13:59.102]   - Field: 'envir'
[13:13:59.102]   - Field: 'workers'
[13:13:59.102]   - Field: 'packages'
[13:13:59.102]   - Field: 'gc'
[13:13:59.103]   - Field: 'conditions'
[13:13:59.103]   - Field: 'persistent'
[13:13:59.103]   - Field: 'expr'
[13:13:59.103]   - Field: 'uuid'
[13:13:59.103]   - Field: 'seed'
[13:13:59.103]   - Field: 'version'
[13:13:59.104]   - Field: 'result'
[13:13:59.104]   - Field: 'asynchronous'
[13:13:59.104]   - Field: 'calls'
[13:13:59.104]   - Field: 'globals'
[13:13:59.104]   - Field: 'stdout'
[13:13:59.104]   - Field: 'earlySignal'
[13:13:59.105]   - Field: 'lazy'
[13:13:59.105]   - Field: 'state'
[13:13:59.105] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.105] - Launch lazy future ...
[13:13:59.106] Packages needed by the future expression (n = 0): <none>
[13:13:59.106] Packages needed by future strategies (n = 0): <none>
[13:13:59.106] {
[13:13:59.106]     {
[13:13:59.106]         {
[13:13:59.106]             ...future.startTime <- base::Sys.time()
[13:13:59.106]             {
[13:13:59.106]                 {
[13:13:59.106]                   {
[13:13:59.106]                     {
[13:13:59.106]                       base::local({
[13:13:59.106]                         has_future <- base::requireNamespace("future", 
[13:13:59.106]                           quietly = TRUE)
[13:13:59.106]                         if (has_future) {
[13:13:59.106]                           ns <- base::getNamespace("future")
[13:13:59.106]                           version <- ns[[".package"]][["version"]]
[13:13:59.106]                           if (is.null(version)) 
[13:13:59.106]                             version <- utils::packageVersion("future")
[13:13:59.106]                         }
[13:13:59.106]                         else {
[13:13:59.106]                           version <- NULL
[13:13:59.106]                         }
[13:13:59.106]                         if (!has_future || version < "1.8.0") {
[13:13:59.106]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.106]                             "", base::R.version$version.string), 
[13:13:59.106]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.106]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.106]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.106]                               "release", "version")], collapse = " "), 
[13:13:59.106]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.106]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.106]                             info)
[13:13:59.106]                           info <- base::paste(info, collapse = "; ")
[13:13:59.106]                           if (!has_future) {
[13:13:59.106]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.106]                               info)
[13:13:59.106]                           }
[13:13:59.106]                           else {
[13:13:59.106]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.106]                               info, version)
[13:13:59.106]                           }
[13:13:59.106]                           base::stop(msg)
[13:13:59.106]                         }
[13:13:59.106]                       })
[13:13:59.106]                     }
[13:13:59.106]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.106]                     base::options(mc.cores = 1L)
[13:13:59.106]                   }
[13:13:59.106]                   options(future.plan = NULL)
[13:13:59.106]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.106]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.106]                 }
[13:13:59.106]                 ...future.workdir <- getwd()
[13:13:59.106]             }
[13:13:59.106]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.106]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.106]         }
[13:13:59.106]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.106]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.106]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.106]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.106]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.106]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.106]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.106]             base::names(...future.oldOptions))
[13:13:59.106]     }
[13:13:59.106]     if (FALSE) {
[13:13:59.106]     }
[13:13:59.106]     else {
[13:13:59.106]         if (TRUE) {
[13:13:59.106]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.106]                 open = "w")
[13:13:59.106]         }
[13:13:59.106]         else {
[13:13:59.106]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.106]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.106]         }
[13:13:59.106]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.106]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.106]             base::sink(type = "output", split = FALSE)
[13:13:59.106]             base::close(...future.stdout)
[13:13:59.106]         }, add = TRUE)
[13:13:59.106]     }
[13:13:59.106]     ...future.frame <- base::sys.nframe()
[13:13:59.106]     ...future.conditions <- base::list()
[13:13:59.106]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.106]     if (FALSE) {
[13:13:59.106]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.106]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.106]     }
[13:13:59.106]     ...future.result <- base::tryCatch({
[13:13:59.106]         base::withCallingHandlers({
[13:13:59.106]             ...future.value <- base::withVisible(base::local({
[13:13:59.106]                 ...future.makeSendCondition <- local({
[13:13:59.106]                   sendCondition <- NULL
[13:13:59.106]                   function(frame = 1L) {
[13:13:59.106]                     if (is.function(sendCondition)) 
[13:13:59.106]                       return(sendCondition)
[13:13:59.106]                     ns <- getNamespace("parallel")
[13:13:59.106]                     if (exists("sendData", mode = "function", 
[13:13:59.106]                       envir = ns)) {
[13:13:59.106]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.106]                         envir = ns)
[13:13:59.106]                       envir <- sys.frame(frame)
[13:13:59.106]                       master <- NULL
[13:13:59.106]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.106]                         !identical(envir, emptyenv())) {
[13:13:59.106]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.106]                           inherits = FALSE)) {
[13:13:59.106]                           master <- get("master", mode = "list", 
[13:13:59.106]                             envir = envir, inherits = FALSE)
[13:13:59.106]                           if (inherits(master, c("SOCKnode", 
[13:13:59.106]                             "SOCK0node"))) {
[13:13:59.106]                             sendCondition <<- function(cond) {
[13:13:59.106]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.106]                                 success = TRUE)
[13:13:59.106]                               parallel_sendData(master, data)
[13:13:59.106]                             }
[13:13:59.106]                             return(sendCondition)
[13:13:59.106]                           }
[13:13:59.106]                         }
[13:13:59.106]                         frame <- frame + 1L
[13:13:59.106]                         envir <- sys.frame(frame)
[13:13:59.106]                       }
[13:13:59.106]                     }
[13:13:59.106]                     sendCondition <<- function(cond) NULL
[13:13:59.106]                   }
[13:13:59.106]                 })
[13:13:59.106]                 withCallingHandlers({
[13:13:59.106]                   {
[13:13:59.106]                     do.call(function(...) {
[13:13:59.106]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.106]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.106]                         ...future.globals.maxSize)) {
[13:13:59.106]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.106]                         on.exit(options(oopts), add = TRUE)
[13:13:59.106]                       }
[13:13:59.106]                       {
[13:13:59.106]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.106]                           FUN = function(jj) {
[13:13:59.106]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.106]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.106]                               envir = globalenv(), inherits = FALSE)
[13:13:59.106]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.106]                           })
[13:13:59.106]                       }
[13:13:59.106]                     }, args = future.call.arguments)
[13:13:59.106]                   }
[13:13:59.106]                 }, immediateCondition = function(cond) {
[13:13:59.106]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.106]                   sendCondition(cond)
[13:13:59.106]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.106]                   {
[13:13:59.106]                     inherits <- base::inherits
[13:13:59.106]                     invokeRestart <- base::invokeRestart
[13:13:59.106]                     is.null <- base::is.null
[13:13:59.106]                     muffled <- FALSE
[13:13:59.106]                     if (inherits(cond, "message")) {
[13:13:59.106]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.106]                       if (muffled) 
[13:13:59.106]                         invokeRestart("muffleMessage")
[13:13:59.106]                     }
[13:13:59.106]                     else if (inherits(cond, "warning")) {
[13:13:59.106]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.106]                       if (muffled) 
[13:13:59.106]                         invokeRestart("muffleWarning")
[13:13:59.106]                     }
[13:13:59.106]                     else if (inherits(cond, "condition")) {
[13:13:59.106]                       if (!is.null(pattern)) {
[13:13:59.106]                         computeRestarts <- base::computeRestarts
[13:13:59.106]                         grepl <- base::grepl
[13:13:59.106]                         restarts <- computeRestarts(cond)
[13:13:59.106]                         for (restart in restarts) {
[13:13:59.106]                           name <- restart$name
[13:13:59.106]                           if (is.null(name)) 
[13:13:59.106]                             next
[13:13:59.106]                           if (!grepl(pattern, name)) 
[13:13:59.106]                             next
[13:13:59.106]                           invokeRestart(restart)
[13:13:59.106]                           muffled <- TRUE
[13:13:59.106]                           break
[13:13:59.106]                         }
[13:13:59.106]                       }
[13:13:59.106]                     }
[13:13:59.106]                     invisible(muffled)
[13:13:59.106]                   }
[13:13:59.106]                   muffleCondition(cond)
[13:13:59.106]                 })
[13:13:59.106]             }))
[13:13:59.106]             future::FutureResult(value = ...future.value$value, 
[13:13:59.106]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.106]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.106]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.106]                     ...future.globalenv.names))
[13:13:59.106]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.106]         }, condition = base::local({
[13:13:59.106]             c <- base::c
[13:13:59.106]             inherits <- base::inherits
[13:13:59.106]             invokeRestart <- base::invokeRestart
[13:13:59.106]             length <- base::length
[13:13:59.106]             list <- base::list
[13:13:59.106]             seq.int <- base::seq.int
[13:13:59.106]             signalCondition <- base::signalCondition
[13:13:59.106]             sys.calls <- base::sys.calls
[13:13:59.106]             `[[` <- base::`[[`
[13:13:59.106]             `+` <- base::`+`
[13:13:59.106]             `<<-` <- base::`<<-`
[13:13:59.106]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.106]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.106]                   3L)]
[13:13:59.106]             }
[13:13:59.106]             function(cond) {
[13:13:59.106]                 is_error <- inherits(cond, "error")
[13:13:59.106]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.106]                   NULL)
[13:13:59.106]                 if (is_error) {
[13:13:59.106]                   sessionInformation <- function() {
[13:13:59.106]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.106]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.106]                       search = base::search(), system = base::Sys.info())
[13:13:59.106]                   }
[13:13:59.106]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.106]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.106]                     cond$call), session = sessionInformation(), 
[13:13:59.106]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.106]                   signalCondition(cond)
[13:13:59.106]                 }
[13:13:59.106]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.106]                 "immediateCondition"))) {
[13:13:59.106]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.106]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.106]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.106]                   if (TRUE && !signal) {
[13:13:59.106]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.106]                     {
[13:13:59.106]                       inherits <- base::inherits
[13:13:59.106]                       invokeRestart <- base::invokeRestart
[13:13:59.106]                       is.null <- base::is.null
[13:13:59.106]                       muffled <- FALSE
[13:13:59.106]                       if (inherits(cond, "message")) {
[13:13:59.106]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.106]                         if (muffled) 
[13:13:59.106]                           invokeRestart("muffleMessage")
[13:13:59.106]                       }
[13:13:59.106]                       else if (inherits(cond, "warning")) {
[13:13:59.106]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.106]                         if (muffled) 
[13:13:59.106]                           invokeRestart("muffleWarning")
[13:13:59.106]                       }
[13:13:59.106]                       else if (inherits(cond, "condition")) {
[13:13:59.106]                         if (!is.null(pattern)) {
[13:13:59.106]                           computeRestarts <- base::computeRestarts
[13:13:59.106]                           grepl <- base::grepl
[13:13:59.106]                           restarts <- computeRestarts(cond)
[13:13:59.106]                           for (restart in restarts) {
[13:13:59.106]                             name <- restart$name
[13:13:59.106]                             if (is.null(name)) 
[13:13:59.106]                               next
[13:13:59.106]                             if (!grepl(pattern, name)) 
[13:13:59.106]                               next
[13:13:59.106]                             invokeRestart(restart)
[13:13:59.106]                             muffled <- TRUE
[13:13:59.106]                             break
[13:13:59.106]                           }
[13:13:59.106]                         }
[13:13:59.106]                       }
[13:13:59.106]                       invisible(muffled)
[13:13:59.106]                     }
[13:13:59.106]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.106]                   }
[13:13:59.106]                 }
[13:13:59.106]                 else {
[13:13:59.106]                   if (TRUE) {
[13:13:59.106]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.106]                     {
[13:13:59.106]                       inherits <- base::inherits
[13:13:59.106]                       invokeRestart <- base::invokeRestart
[13:13:59.106]                       is.null <- base::is.null
[13:13:59.106]                       muffled <- FALSE
[13:13:59.106]                       if (inherits(cond, "message")) {
[13:13:59.106]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.106]                         if (muffled) 
[13:13:59.106]                           invokeRestart("muffleMessage")
[13:13:59.106]                       }
[13:13:59.106]                       else if (inherits(cond, "warning")) {
[13:13:59.106]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.106]                         if (muffled) 
[13:13:59.106]                           invokeRestart("muffleWarning")
[13:13:59.106]                       }
[13:13:59.106]                       else if (inherits(cond, "condition")) {
[13:13:59.106]                         if (!is.null(pattern)) {
[13:13:59.106]                           computeRestarts <- base::computeRestarts
[13:13:59.106]                           grepl <- base::grepl
[13:13:59.106]                           restarts <- computeRestarts(cond)
[13:13:59.106]                           for (restart in restarts) {
[13:13:59.106]                             name <- restart$name
[13:13:59.106]                             if (is.null(name)) 
[13:13:59.106]                               next
[13:13:59.106]                             if (!grepl(pattern, name)) 
[13:13:59.106]                               next
[13:13:59.106]                             invokeRestart(restart)
[13:13:59.106]                             muffled <- TRUE
[13:13:59.106]                             break
[13:13:59.106]                           }
[13:13:59.106]                         }
[13:13:59.106]                       }
[13:13:59.106]                       invisible(muffled)
[13:13:59.106]                     }
[13:13:59.106]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.106]                   }
[13:13:59.106]                 }
[13:13:59.106]             }
[13:13:59.106]         }))
[13:13:59.106]     }, error = function(ex) {
[13:13:59.106]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.106]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.106]                 ...future.rng), started = ...future.startTime, 
[13:13:59.106]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.106]             version = "1.8"), class = "FutureResult")
[13:13:59.106]     }, finally = {
[13:13:59.106]         if (!identical(...future.workdir, getwd())) 
[13:13:59.106]             setwd(...future.workdir)
[13:13:59.106]         {
[13:13:59.106]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.106]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.106]             }
[13:13:59.106]             base::options(...future.oldOptions)
[13:13:59.106]             if (.Platform$OS.type == "windows") {
[13:13:59.106]                 old_names <- names(...future.oldEnvVars)
[13:13:59.106]                 envs <- base::Sys.getenv()
[13:13:59.106]                 names <- names(envs)
[13:13:59.106]                 common <- intersect(names, old_names)
[13:13:59.106]                 added <- setdiff(names, old_names)
[13:13:59.106]                 removed <- setdiff(old_names, names)
[13:13:59.106]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.106]                   envs[common]]
[13:13:59.106]                 NAMES <- toupper(changed)
[13:13:59.106]                 args <- list()
[13:13:59.106]                 for (kk in seq_along(NAMES)) {
[13:13:59.106]                   name <- changed[[kk]]
[13:13:59.106]                   NAME <- NAMES[[kk]]
[13:13:59.106]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.106]                     next
[13:13:59.106]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.106]                 }
[13:13:59.106]                 NAMES <- toupper(added)
[13:13:59.106]                 for (kk in seq_along(NAMES)) {
[13:13:59.106]                   name <- added[[kk]]
[13:13:59.106]                   NAME <- NAMES[[kk]]
[13:13:59.106]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.106]                     next
[13:13:59.106]                   args[[name]] <- ""
[13:13:59.106]                 }
[13:13:59.106]                 NAMES <- toupper(removed)
[13:13:59.106]                 for (kk in seq_along(NAMES)) {
[13:13:59.106]                   name <- removed[[kk]]
[13:13:59.106]                   NAME <- NAMES[[kk]]
[13:13:59.106]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.106]                     next
[13:13:59.106]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.106]                 }
[13:13:59.106]                 if (length(args) > 0) 
[13:13:59.106]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.106]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.106]             }
[13:13:59.106]             else {
[13:13:59.106]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.106]             }
[13:13:59.106]             {
[13:13:59.106]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.106]                   0L) {
[13:13:59.106]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.106]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.106]                   base::options(opts)
[13:13:59.106]                 }
[13:13:59.106]                 {
[13:13:59.106]                   {
[13:13:59.106]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.106]                     NULL
[13:13:59.106]                   }
[13:13:59.106]                   options(future.plan = NULL)
[13:13:59.106]                   if (is.na(NA_character_)) 
[13:13:59.106]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.106]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.106]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.106]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.106]                     envir = parent.frame()) 
[13:13:59.106]                   {
[13:13:59.106]                     if (is.function(workers)) 
[13:13:59.106]                       workers <- workers()
[13:13:59.106]                     workers <- structure(as.integer(workers), 
[13:13:59.106]                       class = class(workers))
[13:13:59.106]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.106]                       workers >= 1)
[13:13:59.106]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.106]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.106]                     }
[13:13:59.106]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.106]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.106]                       envir = envir)
[13:13:59.106]                     if (!future$lazy) 
[13:13:59.106]                       future <- run(future)
[13:13:59.106]                     invisible(future)
[13:13:59.106]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.106]                 }
[13:13:59.106]             }
[13:13:59.106]         }
[13:13:59.106]     })
[13:13:59.106]     if (TRUE) {
[13:13:59.106]         base::sink(type = "output", split = FALSE)
[13:13:59.106]         if (TRUE) {
[13:13:59.106]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.106]         }
[13:13:59.106]         else {
[13:13:59.106]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.106]         }
[13:13:59.106]         base::close(...future.stdout)
[13:13:59.106]         ...future.stdout <- NULL
[13:13:59.106]     }
[13:13:59.106]     ...future.result$conditions <- ...future.conditions
[13:13:59.106]     ...future.result$finished <- base::Sys.time()
[13:13:59.106]     ...future.result
[13:13:59.106] }
[13:13:59.112] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.112] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.112] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.113] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.113] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.113] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:59.114] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:59.114] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:59.114] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:59.115] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.115] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.115] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.116] MultisessionFuture started
[13:13:59.116] - Launch lazy future ... done
[13:13:59.116] run() for 'MultisessionFuture' ... done
[13:13:59.117] Created future:
[13:13:59.131] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.132] - Validating connection of MultisessionFuture
[13:13:59.132] - received message: FutureResult
[13:13:59.132] - Received FutureResult
[13:13:59.132] - Erased future from FutureRegistry
[13:13:59.132] result() for ClusterFuture ...
[13:13:59.133] - result already collected: FutureResult
[13:13:59.133] result() for ClusterFuture ... done
[13:13:59.133] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.117] MultisessionFuture:
[13:13:59.117] Label: 'future_replicate-1'
[13:13:59.117] Expression:
[13:13:59.117] {
[13:13:59.117]     do.call(function(...) {
[13:13:59.117]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.117]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.117]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.117]             on.exit(options(oopts), add = TRUE)
[13:13:59.117]         }
[13:13:59.117]         {
[13:13:59.117]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.117]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.117]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.117]                   envir = globalenv(), inherits = FALSE)
[13:13:59.117]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.117]             })
[13:13:59.117]         }
[13:13:59.117]     }, args = future.call.arguments)
[13:13:59.117] }
[13:13:59.117] Lazy evaluation: FALSE
[13:13:59.117] Asynchronous evaluation: TRUE
[13:13:59.117] Local evaluation: TRUE
[13:13:59.117] Environment: R_GlobalEnv
[13:13:59.117] Capture standard output: TRUE
[13:13:59.117] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.117] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.117] Packages: <none>
[13:13:59.117] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.117] Resolved: TRUE
[13:13:59.117] Value: <not collected>
[13:13:59.117] Conditions captured: <none>
[13:13:59.117] Early signaling: FALSE
[13:13:59.117] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.117] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.133] Chunk #1 of 2 ... DONE
[13:13:59.133] Chunk #2 of 2 ...
[13:13:59.134]  - Finding globals in 'X' for chunk #2 ...
[13:13:59.134] getGlobalsAndPackages() ...
[13:13:59.134] Searching for globals...
[13:13:59.134] 
[13:13:59.135] Searching for globals ... DONE
[13:13:59.135] - globals: [0] <none>
[13:13:59.135] getGlobalsAndPackages() ... DONE
[13:13:59.135]    + additional globals found: [n=0] 
[13:13:59.135]    + additional namespaces needed: [n=0] 
[13:13:59.135]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:59.135]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.136]  - seeds: [3] <seeds>
[13:13:59.136]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.136] getGlobalsAndPackages() ...
[13:13:59.136] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.136] Resolving globals: FALSE
[13:13:59.137] Tweak future expression to call with '...' arguments ...
[13:13:59.137] {
[13:13:59.137]     do.call(function(...) {
[13:13:59.137]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.137]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.137]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.137]             on.exit(options(oopts), add = TRUE)
[13:13:59.137]         }
[13:13:59.137]         {
[13:13:59.137]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.137]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.137]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.137]                   envir = globalenv(), inherits = FALSE)
[13:13:59.137]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.137]             })
[13:13:59.137]         }
[13:13:59.137]     }, args = future.call.arguments)
[13:13:59.137] }
[13:13:59.137] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.138] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.138] 
[13:13:59.138] getGlobalsAndPackages() ... DONE
[13:13:59.138] run() for 'Future' ...
[13:13:59.139] - state: 'created'
[13:13:59.139] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.153] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.153] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.153]   - Field: 'node'
[13:13:59.153]   - Field: 'label'
[13:13:59.153]   - Field: 'local'
[13:13:59.154]   - Field: 'owner'
[13:13:59.154]   - Field: 'envir'
[13:13:59.154]   - Field: 'workers'
[13:13:59.154]   - Field: 'packages'
[13:13:59.154]   - Field: 'gc'
[13:13:59.155]   - Field: 'conditions'
[13:13:59.155]   - Field: 'persistent'
[13:13:59.155]   - Field: 'expr'
[13:13:59.155]   - Field: 'uuid'
[13:13:59.155]   - Field: 'seed'
[13:13:59.155]   - Field: 'version'
[13:13:59.156]   - Field: 'result'
[13:13:59.156]   - Field: 'asynchronous'
[13:13:59.156]   - Field: 'calls'
[13:13:59.156]   - Field: 'globals'
[13:13:59.156]   - Field: 'stdout'
[13:13:59.156]   - Field: 'earlySignal'
[13:13:59.157]   - Field: 'lazy'
[13:13:59.157]   - Field: 'state'
[13:13:59.157] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.157] - Launch lazy future ...
[13:13:59.158] Packages needed by the future expression (n = 0): <none>
[13:13:59.158] Packages needed by future strategies (n = 0): <none>
[13:13:59.158] {
[13:13:59.158]     {
[13:13:59.158]         {
[13:13:59.158]             ...future.startTime <- base::Sys.time()
[13:13:59.158]             {
[13:13:59.158]                 {
[13:13:59.158]                   {
[13:13:59.158]                     {
[13:13:59.158]                       base::local({
[13:13:59.158]                         has_future <- base::requireNamespace("future", 
[13:13:59.158]                           quietly = TRUE)
[13:13:59.158]                         if (has_future) {
[13:13:59.158]                           ns <- base::getNamespace("future")
[13:13:59.158]                           version <- ns[[".package"]][["version"]]
[13:13:59.158]                           if (is.null(version)) 
[13:13:59.158]                             version <- utils::packageVersion("future")
[13:13:59.158]                         }
[13:13:59.158]                         else {
[13:13:59.158]                           version <- NULL
[13:13:59.158]                         }
[13:13:59.158]                         if (!has_future || version < "1.8.0") {
[13:13:59.158]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.158]                             "", base::R.version$version.string), 
[13:13:59.158]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.158]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.158]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.158]                               "release", "version")], collapse = " "), 
[13:13:59.158]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.158]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.158]                             info)
[13:13:59.158]                           info <- base::paste(info, collapse = "; ")
[13:13:59.158]                           if (!has_future) {
[13:13:59.158]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.158]                               info)
[13:13:59.158]                           }
[13:13:59.158]                           else {
[13:13:59.158]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.158]                               info, version)
[13:13:59.158]                           }
[13:13:59.158]                           base::stop(msg)
[13:13:59.158]                         }
[13:13:59.158]                       })
[13:13:59.158]                     }
[13:13:59.158]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.158]                     base::options(mc.cores = 1L)
[13:13:59.158]                   }
[13:13:59.158]                   options(future.plan = NULL)
[13:13:59.158]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.158]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.158]                 }
[13:13:59.158]                 ...future.workdir <- getwd()
[13:13:59.158]             }
[13:13:59.158]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.158]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.158]         }
[13:13:59.158]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.158]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.158]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.158]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.158]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.158]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.158]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.158]             base::names(...future.oldOptions))
[13:13:59.158]     }
[13:13:59.158]     if (FALSE) {
[13:13:59.158]     }
[13:13:59.158]     else {
[13:13:59.158]         if (TRUE) {
[13:13:59.158]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.158]                 open = "w")
[13:13:59.158]         }
[13:13:59.158]         else {
[13:13:59.158]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.158]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.158]         }
[13:13:59.158]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.158]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.158]             base::sink(type = "output", split = FALSE)
[13:13:59.158]             base::close(...future.stdout)
[13:13:59.158]         }, add = TRUE)
[13:13:59.158]     }
[13:13:59.158]     ...future.frame <- base::sys.nframe()
[13:13:59.158]     ...future.conditions <- base::list()
[13:13:59.158]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.158]     if (FALSE) {
[13:13:59.158]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.158]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.158]     }
[13:13:59.158]     ...future.result <- base::tryCatch({
[13:13:59.158]         base::withCallingHandlers({
[13:13:59.158]             ...future.value <- base::withVisible(base::local({
[13:13:59.158]                 ...future.makeSendCondition <- local({
[13:13:59.158]                   sendCondition <- NULL
[13:13:59.158]                   function(frame = 1L) {
[13:13:59.158]                     if (is.function(sendCondition)) 
[13:13:59.158]                       return(sendCondition)
[13:13:59.158]                     ns <- getNamespace("parallel")
[13:13:59.158]                     if (exists("sendData", mode = "function", 
[13:13:59.158]                       envir = ns)) {
[13:13:59.158]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.158]                         envir = ns)
[13:13:59.158]                       envir <- sys.frame(frame)
[13:13:59.158]                       master <- NULL
[13:13:59.158]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.158]                         !identical(envir, emptyenv())) {
[13:13:59.158]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.158]                           inherits = FALSE)) {
[13:13:59.158]                           master <- get("master", mode = "list", 
[13:13:59.158]                             envir = envir, inherits = FALSE)
[13:13:59.158]                           if (inherits(master, c("SOCKnode", 
[13:13:59.158]                             "SOCK0node"))) {
[13:13:59.158]                             sendCondition <<- function(cond) {
[13:13:59.158]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.158]                                 success = TRUE)
[13:13:59.158]                               parallel_sendData(master, data)
[13:13:59.158]                             }
[13:13:59.158]                             return(sendCondition)
[13:13:59.158]                           }
[13:13:59.158]                         }
[13:13:59.158]                         frame <- frame + 1L
[13:13:59.158]                         envir <- sys.frame(frame)
[13:13:59.158]                       }
[13:13:59.158]                     }
[13:13:59.158]                     sendCondition <<- function(cond) NULL
[13:13:59.158]                   }
[13:13:59.158]                 })
[13:13:59.158]                 withCallingHandlers({
[13:13:59.158]                   {
[13:13:59.158]                     do.call(function(...) {
[13:13:59.158]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.158]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.158]                         ...future.globals.maxSize)) {
[13:13:59.158]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.158]                         on.exit(options(oopts), add = TRUE)
[13:13:59.158]                       }
[13:13:59.158]                       {
[13:13:59.158]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.158]                           FUN = function(jj) {
[13:13:59.158]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.158]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.158]                               envir = globalenv(), inherits = FALSE)
[13:13:59.158]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.158]                           })
[13:13:59.158]                       }
[13:13:59.158]                     }, args = future.call.arguments)
[13:13:59.158]                   }
[13:13:59.158]                 }, immediateCondition = function(cond) {
[13:13:59.158]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.158]                   sendCondition(cond)
[13:13:59.158]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.158]                   {
[13:13:59.158]                     inherits <- base::inherits
[13:13:59.158]                     invokeRestart <- base::invokeRestart
[13:13:59.158]                     is.null <- base::is.null
[13:13:59.158]                     muffled <- FALSE
[13:13:59.158]                     if (inherits(cond, "message")) {
[13:13:59.158]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.158]                       if (muffled) 
[13:13:59.158]                         invokeRestart("muffleMessage")
[13:13:59.158]                     }
[13:13:59.158]                     else if (inherits(cond, "warning")) {
[13:13:59.158]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.158]                       if (muffled) 
[13:13:59.158]                         invokeRestart("muffleWarning")
[13:13:59.158]                     }
[13:13:59.158]                     else if (inherits(cond, "condition")) {
[13:13:59.158]                       if (!is.null(pattern)) {
[13:13:59.158]                         computeRestarts <- base::computeRestarts
[13:13:59.158]                         grepl <- base::grepl
[13:13:59.158]                         restarts <- computeRestarts(cond)
[13:13:59.158]                         for (restart in restarts) {
[13:13:59.158]                           name <- restart$name
[13:13:59.158]                           if (is.null(name)) 
[13:13:59.158]                             next
[13:13:59.158]                           if (!grepl(pattern, name)) 
[13:13:59.158]                             next
[13:13:59.158]                           invokeRestart(restart)
[13:13:59.158]                           muffled <- TRUE
[13:13:59.158]                           break
[13:13:59.158]                         }
[13:13:59.158]                       }
[13:13:59.158]                     }
[13:13:59.158]                     invisible(muffled)
[13:13:59.158]                   }
[13:13:59.158]                   muffleCondition(cond)
[13:13:59.158]                 })
[13:13:59.158]             }))
[13:13:59.158]             future::FutureResult(value = ...future.value$value, 
[13:13:59.158]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.158]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.158]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.158]                     ...future.globalenv.names))
[13:13:59.158]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.158]         }, condition = base::local({
[13:13:59.158]             c <- base::c
[13:13:59.158]             inherits <- base::inherits
[13:13:59.158]             invokeRestart <- base::invokeRestart
[13:13:59.158]             length <- base::length
[13:13:59.158]             list <- base::list
[13:13:59.158]             seq.int <- base::seq.int
[13:13:59.158]             signalCondition <- base::signalCondition
[13:13:59.158]             sys.calls <- base::sys.calls
[13:13:59.158]             `[[` <- base::`[[`
[13:13:59.158]             `+` <- base::`+`
[13:13:59.158]             `<<-` <- base::`<<-`
[13:13:59.158]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.158]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.158]                   3L)]
[13:13:59.158]             }
[13:13:59.158]             function(cond) {
[13:13:59.158]                 is_error <- inherits(cond, "error")
[13:13:59.158]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.158]                   NULL)
[13:13:59.158]                 if (is_error) {
[13:13:59.158]                   sessionInformation <- function() {
[13:13:59.158]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.158]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.158]                       search = base::search(), system = base::Sys.info())
[13:13:59.158]                   }
[13:13:59.158]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.158]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.158]                     cond$call), session = sessionInformation(), 
[13:13:59.158]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.158]                   signalCondition(cond)
[13:13:59.158]                 }
[13:13:59.158]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.158]                 "immediateCondition"))) {
[13:13:59.158]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.158]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.158]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.158]                   if (TRUE && !signal) {
[13:13:59.158]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.158]                     {
[13:13:59.158]                       inherits <- base::inherits
[13:13:59.158]                       invokeRestart <- base::invokeRestart
[13:13:59.158]                       is.null <- base::is.null
[13:13:59.158]                       muffled <- FALSE
[13:13:59.158]                       if (inherits(cond, "message")) {
[13:13:59.158]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.158]                         if (muffled) 
[13:13:59.158]                           invokeRestart("muffleMessage")
[13:13:59.158]                       }
[13:13:59.158]                       else if (inherits(cond, "warning")) {
[13:13:59.158]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.158]                         if (muffled) 
[13:13:59.158]                           invokeRestart("muffleWarning")
[13:13:59.158]                       }
[13:13:59.158]                       else if (inherits(cond, "condition")) {
[13:13:59.158]                         if (!is.null(pattern)) {
[13:13:59.158]                           computeRestarts <- base::computeRestarts
[13:13:59.158]                           grepl <- base::grepl
[13:13:59.158]                           restarts <- computeRestarts(cond)
[13:13:59.158]                           for (restart in restarts) {
[13:13:59.158]                             name <- restart$name
[13:13:59.158]                             if (is.null(name)) 
[13:13:59.158]                               next
[13:13:59.158]                             if (!grepl(pattern, name)) 
[13:13:59.158]                               next
[13:13:59.158]                             invokeRestart(restart)
[13:13:59.158]                             muffled <- TRUE
[13:13:59.158]                             break
[13:13:59.158]                           }
[13:13:59.158]                         }
[13:13:59.158]                       }
[13:13:59.158]                       invisible(muffled)
[13:13:59.158]                     }
[13:13:59.158]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.158]                   }
[13:13:59.158]                 }
[13:13:59.158]                 else {
[13:13:59.158]                   if (TRUE) {
[13:13:59.158]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.158]                     {
[13:13:59.158]                       inherits <- base::inherits
[13:13:59.158]                       invokeRestart <- base::invokeRestart
[13:13:59.158]                       is.null <- base::is.null
[13:13:59.158]                       muffled <- FALSE
[13:13:59.158]                       if (inherits(cond, "message")) {
[13:13:59.158]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.158]                         if (muffled) 
[13:13:59.158]                           invokeRestart("muffleMessage")
[13:13:59.158]                       }
[13:13:59.158]                       else if (inherits(cond, "warning")) {
[13:13:59.158]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.158]                         if (muffled) 
[13:13:59.158]                           invokeRestart("muffleWarning")
[13:13:59.158]                       }
[13:13:59.158]                       else if (inherits(cond, "condition")) {
[13:13:59.158]                         if (!is.null(pattern)) {
[13:13:59.158]                           computeRestarts <- base::computeRestarts
[13:13:59.158]                           grepl <- base::grepl
[13:13:59.158]                           restarts <- computeRestarts(cond)
[13:13:59.158]                           for (restart in restarts) {
[13:13:59.158]                             name <- restart$name
[13:13:59.158]                             if (is.null(name)) 
[13:13:59.158]                               next
[13:13:59.158]                             if (!grepl(pattern, name)) 
[13:13:59.158]                               next
[13:13:59.158]                             invokeRestart(restart)
[13:13:59.158]                             muffled <- TRUE
[13:13:59.158]                             break
[13:13:59.158]                           }
[13:13:59.158]                         }
[13:13:59.158]                       }
[13:13:59.158]                       invisible(muffled)
[13:13:59.158]                     }
[13:13:59.158]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.158]                   }
[13:13:59.158]                 }
[13:13:59.158]             }
[13:13:59.158]         }))
[13:13:59.158]     }, error = function(ex) {
[13:13:59.158]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.158]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.158]                 ...future.rng), started = ...future.startTime, 
[13:13:59.158]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.158]             version = "1.8"), class = "FutureResult")
[13:13:59.158]     }, finally = {
[13:13:59.158]         if (!identical(...future.workdir, getwd())) 
[13:13:59.158]             setwd(...future.workdir)
[13:13:59.158]         {
[13:13:59.158]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.158]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.158]             }
[13:13:59.158]             base::options(...future.oldOptions)
[13:13:59.158]             if (.Platform$OS.type == "windows") {
[13:13:59.158]                 old_names <- names(...future.oldEnvVars)
[13:13:59.158]                 envs <- base::Sys.getenv()
[13:13:59.158]                 names <- names(envs)
[13:13:59.158]                 common <- intersect(names, old_names)
[13:13:59.158]                 added <- setdiff(names, old_names)
[13:13:59.158]                 removed <- setdiff(old_names, names)
[13:13:59.158]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.158]                   envs[common]]
[13:13:59.158]                 NAMES <- toupper(changed)
[13:13:59.158]                 args <- list()
[13:13:59.158]                 for (kk in seq_along(NAMES)) {
[13:13:59.158]                   name <- changed[[kk]]
[13:13:59.158]                   NAME <- NAMES[[kk]]
[13:13:59.158]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.158]                     next
[13:13:59.158]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.158]                 }
[13:13:59.158]                 NAMES <- toupper(added)
[13:13:59.158]                 for (kk in seq_along(NAMES)) {
[13:13:59.158]                   name <- added[[kk]]
[13:13:59.158]                   NAME <- NAMES[[kk]]
[13:13:59.158]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.158]                     next
[13:13:59.158]                   args[[name]] <- ""
[13:13:59.158]                 }
[13:13:59.158]                 NAMES <- toupper(removed)
[13:13:59.158]                 for (kk in seq_along(NAMES)) {
[13:13:59.158]                   name <- removed[[kk]]
[13:13:59.158]                   NAME <- NAMES[[kk]]
[13:13:59.158]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.158]                     next
[13:13:59.158]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.158]                 }
[13:13:59.158]                 if (length(args) > 0) 
[13:13:59.158]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.158]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.158]             }
[13:13:59.158]             else {
[13:13:59.158]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.158]             }
[13:13:59.158]             {
[13:13:59.158]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.158]                   0L) {
[13:13:59.158]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.158]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.158]                   base::options(opts)
[13:13:59.158]                 }
[13:13:59.158]                 {
[13:13:59.158]                   {
[13:13:59.158]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.158]                     NULL
[13:13:59.158]                   }
[13:13:59.158]                   options(future.plan = NULL)
[13:13:59.158]                   if (is.na(NA_character_)) 
[13:13:59.158]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.158]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.158]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.158]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.158]                     envir = parent.frame()) 
[13:13:59.158]                   {
[13:13:59.158]                     if (is.function(workers)) 
[13:13:59.158]                       workers <- workers()
[13:13:59.158]                     workers <- structure(as.integer(workers), 
[13:13:59.158]                       class = class(workers))
[13:13:59.158]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.158]                       workers >= 1)
[13:13:59.158]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.158]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.158]                     }
[13:13:59.158]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.158]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.158]                       envir = envir)
[13:13:59.158]                     if (!future$lazy) 
[13:13:59.158]                       future <- run(future)
[13:13:59.158]                     invisible(future)
[13:13:59.158]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.158]                 }
[13:13:59.158]             }
[13:13:59.158]         }
[13:13:59.158]     })
[13:13:59.158]     if (TRUE) {
[13:13:59.158]         base::sink(type = "output", split = FALSE)
[13:13:59.158]         if (TRUE) {
[13:13:59.158]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.158]         }
[13:13:59.158]         else {
[13:13:59.158]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.158]         }
[13:13:59.158]         base::close(...future.stdout)
[13:13:59.158]         ...future.stdout <- NULL
[13:13:59.158]     }
[13:13:59.158]     ...future.result$conditions <- ...future.conditions
[13:13:59.158]     ...future.result$finished <- base::Sys.time()
[13:13:59.158]     ...future.result
[13:13:59.158] }
[13:13:59.164] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.164] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.164] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.165] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.165] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.165] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.166] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.166] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.166] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.167] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.167] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.167] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.168] MultisessionFuture started
[13:13:59.168] - Launch lazy future ... done
[13:13:59.168] run() for 'MultisessionFuture' ... done
[13:13:59.169] Created future:
[13:13:59.184] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.184] - Validating connection of MultisessionFuture
[13:13:59.185] - received message: FutureResult
[13:13:59.185] - Received FutureResult
[13:13:59.185] - Erased future from FutureRegistry
[13:13:59.185] result() for ClusterFuture ...
[13:13:59.185] - result already collected: FutureResult
[13:13:59.186] result() for ClusterFuture ... done
[13:13:59.186] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.169] MultisessionFuture:
[13:13:59.169] Label: 'future_replicate-2'
[13:13:59.169] Expression:
[13:13:59.169] {
[13:13:59.169]     do.call(function(...) {
[13:13:59.169]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.169]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.169]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.169]             on.exit(options(oopts), add = TRUE)
[13:13:59.169]         }
[13:13:59.169]         {
[13:13:59.169]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.169]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.169]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.169]                   envir = globalenv(), inherits = FALSE)
[13:13:59.169]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.169]             })
[13:13:59.169]         }
[13:13:59.169]     }, args = future.call.arguments)
[13:13:59.169] }
[13:13:59.169] Lazy evaluation: FALSE
[13:13:59.169] Asynchronous evaluation: TRUE
[13:13:59.169] Local evaluation: TRUE
[13:13:59.169] Environment: R_GlobalEnv
[13:13:59.169] Capture standard output: TRUE
[13:13:59.169] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.169] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.169] Packages: <none>
[13:13:59.169] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.169] Resolved: TRUE
[13:13:59.169] Value: <not collected>
[13:13:59.169] Conditions captured: <none>
[13:13:59.169] Early signaling: FALSE
[13:13:59.169] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.169] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.186] Chunk #2 of 2 ... DONE
[13:13:59.186] Launching 2 futures (chunks) ... DONE
[13:13:59.187] Resolving 2 futures (chunks) ...
[13:13:59.187] resolve() on list ...
[13:13:59.187]  recursive: 0
[13:13:59.187]  length: 2
[13:13:59.187] 
[13:13:59.187] Future #1
[13:13:59.188] result() for ClusterFuture ...
[13:13:59.188] - result already collected: FutureResult
[13:13:59.188] result() for ClusterFuture ... done
[13:13:59.188] result() for ClusterFuture ...
[13:13:59.188] - result already collected: FutureResult
[13:13:59.188] result() for ClusterFuture ... done
[13:13:59.188] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.189] - nx: 2
[13:13:59.189] - relay: TRUE
[13:13:59.189] - stdout: TRUE
[13:13:59.189] - signal: TRUE
[13:13:59.189] - resignal: FALSE
[13:13:59.189] - force: TRUE
[13:13:59.190] - relayed: [n=2] FALSE, FALSE
[13:13:59.190] - queued futures: [n=2] FALSE, FALSE
[13:13:59.190]  - until=1
[13:13:59.190]  - relaying element #1
[13:13:59.190] result() for ClusterFuture ...
[13:13:59.190] - result already collected: FutureResult
[13:13:59.191] result() for ClusterFuture ... done
[13:13:59.191] result() for ClusterFuture ...
[13:13:59.191] - result already collected: FutureResult
[13:13:59.191] result() for ClusterFuture ... done
[13:13:59.191] result() for ClusterFuture ...
[13:13:59.191] - result already collected: FutureResult
[13:13:59.192] result() for ClusterFuture ... done
[13:13:59.192] result() for ClusterFuture ...
[13:13:59.192] - result already collected: FutureResult
[13:13:59.192] result() for ClusterFuture ... done
[13:13:59.192] - relayed: [n=2] TRUE, FALSE
[13:13:59.192] - queued futures: [n=2] TRUE, FALSE
[13:13:59.192] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.193]  length: 1 (resolved future 1)
[13:13:59.193] Future #2
[13:13:59.193] result() for ClusterFuture ...
[13:13:59.193] - result already collected: FutureResult
[13:13:59.193] result() for ClusterFuture ... done
[13:13:59.194] result() for ClusterFuture ...
[13:13:59.194] - result already collected: FutureResult
[13:13:59.194] result() for ClusterFuture ... done
[13:13:59.194] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.194] - nx: 2
[13:13:59.194] - relay: TRUE
[13:13:59.194] - stdout: TRUE
[13:13:59.195] - signal: TRUE
[13:13:59.195] - resignal: FALSE
[13:13:59.195] - force: TRUE
[13:13:59.195] - relayed: [n=2] TRUE, FALSE
[13:13:59.195] - queued futures: [n=2] TRUE, FALSE
[13:13:59.195]  - until=2
[13:13:59.196]  - relaying element #2
[13:13:59.196] result() for ClusterFuture ...
[13:13:59.196] - result already collected: FutureResult
[13:13:59.196] result() for ClusterFuture ... done
[13:13:59.196] result() for ClusterFuture ...
[13:13:59.196] - result already collected: FutureResult
[13:13:59.196] result() for ClusterFuture ... done
[13:13:59.197] result() for ClusterFuture ...
[13:13:59.197] - result already collected: FutureResult
[13:13:59.197] result() for ClusterFuture ... done
[13:13:59.197] result() for ClusterFuture ...
[13:13:59.197] - result already collected: FutureResult
[13:13:59.197] result() for ClusterFuture ... done
[13:13:59.198] - relayed: [n=2] TRUE, TRUE
[13:13:59.198] - queued futures: [n=2] TRUE, TRUE
[13:13:59.198] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.198]  length: 0 (resolved future 2)
[13:13:59.198] Relaying remaining futures
[13:13:59.198] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.199] - nx: 2
[13:13:59.199] - relay: TRUE
[13:13:59.199] - stdout: TRUE
[13:13:59.199] - signal: TRUE
[13:13:59.199] - resignal: FALSE
[13:13:59.199] - force: TRUE
[13:13:59.199] - relayed: [n=2] TRUE, TRUE
[13:13:59.200] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.200] - relayed: [n=2] TRUE, TRUE
[13:13:59.200] - queued futures: [n=2] TRUE, TRUE
[13:13:59.200] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.200] resolve() on list ... DONE
[13:13:59.200] result() for ClusterFuture ...
[13:13:59.201] - result already collected: FutureResult
[13:13:59.201] result() for ClusterFuture ... done
[13:13:59.201] result() for ClusterFuture ...
[13:13:59.201] - result already collected: FutureResult
[13:13:59.201] result() for ClusterFuture ... done
[13:13:59.201] result() for ClusterFuture ...
[13:13:59.202] - result already collected: FutureResult
[13:13:59.202] result() for ClusterFuture ... done
[13:13:59.202] result() for ClusterFuture ...
[13:13:59.202] - result already collected: FutureResult
[13:13:59.202] result() for ClusterFuture ... done
[13:13:59.202]  - Number of value chunks collected: 2
[13:13:59.203] Resolving 2 futures (chunks) ... DONE
[13:13:59.203] Reducing values from 2 chunks ...
[13:13:59.203]  - Number of values collected after concatenation: 5
[13:13:59.203]  - Number of values expected: 5
[13:13:59.203] Reducing values from 2 chunks ... DONE
[13:13:59.203] future_lapply() ... DONE
[13:13:59.204] future_lapply() ...
[13:13:59.204] Generating random seeds ...
[13:13:59.204] Generating random seed streams for 5 elements ...
[13:13:59.205] Generating random seed streams for 5 elements ... DONE
[13:13:59.205] Generating random seeds ... DONE
[13:13:59.205] 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
[13:13:59.208] Number of chunks: 2
[13:13:59.208] getGlobalsAndPackagesXApply() ...
[13:13:59.208]  - future.globals: TRUE
[13:13:59.208] getGlobalsAndPackages() ...
[13:13:59.208] Searching for globals...
[13:13:59.210] - globals found: [2] 'FUN', 'sample'
[13:13:59.210] Searching for globals ... DONE
[13:13:59.210] Resolving globals: FALSE
[13:13:59.211] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:59.211] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:59.211] - globals: [1] 'FUN'
[13:13:59.211] 
[13:13:59.212] getGlobalsAndPackages() ... DONE
[13:13:59.212]  - globals found/used: [n=1] 'FUN'
[13:13:59.212]  - needed namespaces: [n=0] 
[13:13:59.212] Finding globals ... DONE
[13:13:59.212]  - use_args: TRUE
[13:13:59.213]  - Getting '...' globals ...
[13:13:59.215] resolve() on list ...
[13:13:59.215]  recursive: 0
[13:13:59.215]  length: 1
[13:13:59.215]  elements: '...'
[13:13:59.215]  length: 0 (resolved future 1)
[13:13:59.215] resolve() on list ... DONE
[13:13:59.216]    - '...' content: [n=0] 
[13:13:59.216] List of 1
[13:13:59.216]  $ ...: list()
[13:13:59.216]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.216]  - attr(*, "where")=List of 1
[13:13:59.216]   ..$ ...:<environment: 0x0000019ecdc78300> 
[13:13:59.216]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.216]  - attr(*, "resolved")= logi TRUE
[13:13:59.216]  - attr(*, "total_size")= num NA
[13:13:59.219]  - Getting '...' globals ... DONE
[13:13:59.219] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:59.219] List of 2
[13:13:59.219]  $ ...future.FUN:function (...)  
[13:13:59.219]  $ ...          : list()
[13:13:59.219]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.219]  - attr(*, "where")=List of 2
[13:13:59.219]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:59.219]   ..$ ...          :<environment: 0x0000019ecdc78300> 
[13:13:59.219]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.219]  - attr(*, "resolved")= logi FALSE
[13:13:59.219]  - attr(*, "total_size")= num 616
[13:13:59.223] Packages to be attached in all futures: [n=0] 
[13:13:59.223] getGlobalsAndPackagesXApply() ... DONE
[13:13:59.223] Number of futures (= number of chunks): 2
[13:13:59.223] Launching 2 futures (chunks) ...
[13:13:59.223] Chunk #1 of 2 ...
[13:13:59.224]  - Finding globals in 'X' for chunk #1 ...
[13:13:59.224] getGlobalsAndPackages() ...
[13:13:59.224] Searching for globals...
[13:13:59.224] 
[13:13:59.224] Searching for globals ... DONE
[13:13:59.225] - globals: [0] <none>
[13:13:59.225] getGlobalsAndPackages() ... DONE
[13:13:59.225]    + additional globals found: [n=0] 
[13:13:59.225]    + additional namespaces needed: [n=0] 
[13:13:59.225]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:59.225]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.226]  - seeds: [2] <seeds>
[13:13:59.226]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.226] getGlobalsAndPackages() ...
[13:13:59.226] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.226] Resolving globals: FALSE
[13:13:59.226] Tweak future expression to call with '...' arguments ...
[13:13:59.227] {
[13:13:59.227]     do.call(function(...) {
[13:13:59.227]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.227]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.227]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.227]             on.exit(options(oopts), add = TRUE)
[13:13:59.227]         }
[13:13:59.227]         {
[13:13:59.227]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.227]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.227]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.227]                   envir = globalenv(), inherits = FALSE)
[13:13:59.227]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.227]             })
[13:13:59.227]         }
[13:13:59.227]     }, args = future.call.arguments)
[13:13:59.227] }
[13:13:59.227] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.228] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.228] 
[13:13:59.228] getGlobalsAndPackages() ... DONE
[13:13:59.228] run() for 'Future' ...
[13:13:59.228] - state: 'created'
[13:13:59.229] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.243] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.243] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.244]   - Field: 'node'
[13:13:59.244]   - Field: 'label'
[13:13:59.244]   - Field: 'local'
[13:13:59.244]   - Field: 'owner'
[13:13:59.244]   - Field: 'envir'
[13:13:59.245]   - Field: 'workers'
[13:13:59.245]   - Field: 'packages'
[13:13:59.245]   - Field: 'gc'
[13:13:59.245]   - Field: 'conditions'
[13:13:59.245]   - Field: 'persistent'
[13:13:59.245]   - Field: 'expr'
[13:13:59.246]   - Field: 'uuid'
[13:13:59.246]   - Field: 'seed'
[13:13:59.246]   - Field: 'version'
[13:13:59.246]   - Field: 'result'
[13:13:59.246]   - Field: 'asynchronous'
[13:13:59.247]   - Field: 'calls'
[13:13:59.247]   - Field: 'globals'
[13:13:59.247]   - Field: 'stdout'
[13:13:59.247]   - Field: 'earlySignal'
[13:13:59.247]   - Field: 'lazy'
[13:13:59.247]   - Field: 'state'
[13:13:59.248] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.248] - Launch lazy future ...
[13:13:59.248] Packages needed by the future expression (n = 0): <none>
[13:13:59.248] Packages needed by future strategies (n = 0): <none>
[13:13:59.249] {
[13:13:59.249]     {
[13:13:59.249]         {
[13:13:59.249]             ...future.startTime <- base::Sys.time()
[13:13:59.249]             {
[13:13:59.249]                 {
[13:13:59.249]                   {
[13:13:59.249]                     {
[13:13:59.249]                       base::local({
[13:13:59.249]                         has_future <- base::requireNamespace("future", 
[13:13:59.249]                           quietly = TRUE)
[13:13:59.249]                         if (has_future) {
[13:13:59.249]                           ns <- base::getNamespace("future")
[13:13:59.249]                           version <- ns[[".package"]][["version"]]
[13:13:59.249]                           if (is.null(version)) 
[13:13:59.249]                             version <- utils::packageVersion("future")
[13:13:59.249]                         }
[13:13:59.249]                         else {
[13:13:59.249]                           version <- NULL
[13:13:59.249]                         }
[13:13:59.249]                         if (!has_future || version < "1.8.0") {
[13:13:59.249]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.249]                             "", base::R.version$version.string), 
[13:13:59.249]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.249]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.249]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.249]                               "release", "version")], collapse = " "), 
[13:13:59.249]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.249]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.249]                             info)
[13:13:59.249]                           info <- base::paste(info, collapse = "; ")
[13:13:59.249]                           if (!has_future) {
[13:13:59.249]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.249]                               info)
[13:13:59.249]                           }
[13:13:59.249]                           else {
[13:13:59.249]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.249]                               info, version)
[13:13:59.249]                           }
[13:13:59.249]                           base::stop(msg)
[13:13:59.249]                         }
[13:13:59.249]                       })
[13:13:59.249]                     }
[13:13:59.249]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.249]                     base::options(mc.cores = 1L)
[13:13:59.249]                   }
[13:13:59.249]                   options(future.plan = NULL)
[13:13:59.249]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.249]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.249]                 }
[13:13:59.249]                 ...future.workdir <- getwd()
[13:13:59.249]             }
[13:13:59.249]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.249]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.249]         }
[13:13:59.249]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.249]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.249]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.249]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.249]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.249]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.249]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.249]             base::names(...future.oldOptions))
[13:13:59.249]     }
[13:13:59.249]     if (FALSE) {
[13:13:59.249]     }
[13:13:59.249]     else {
[13:13:59.249]         if (TRUE) {
[13:13:59.249]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.249]                 open = "w")
[13:13:59.249]         }
[13:13:59.249]         else {
[13:13:59.249]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.249]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.249]         }
[13:13:59.249]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.249]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.249]             base::sink(type = "output", split = FALSE)
[13:13:59.249]             base::close(...future.stdout)
[13:13:59.249]         }, add = TRUE)
[13:13:59.249]     }
[13:13:59.249]     ...future.frame <- base::sys.nframe()
[13:13:59.249]     ...future.conditions <- base::list()
[13:13:59.249]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.249]     if (FALSE) {
[13:13:59.249]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.249]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.249]     }
[13:13:59.249]     ...future.result <- base::tryCatch({
[13:13:59.249]         base::withCallingHandlers({
[13:13:59.249]             ...future.value <- base::withVisible(base::local({
[13:13:59.249]                 ...future.makeSendCondition <- local({
[13:13:59.249]                   sendCondition <- NULL
[13:13:59.249]                   function(frame = 1L) {
[13:13:59.249]                     if (is.function(sendCondition)) 
[13:13:59.249]                       return(sendCondition)
[13:13:59.249]                     ns <- getNamespace("parallel")
[13:13:59.249]                     if (exists("sendData", mode = "function", 
[13:13:59.249]                       envir = ns)) {
[13:13:59.249]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.249]                         envir = ns)
[13:13:59.249]                       envir <- sys.frame(frame)
[13:13:59.249]                       master <- NULL
[13:13:59.249]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.249]                         !identical(envir, emptyenv())) {
[13:13:59.249]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.249]                           inherits = FALSE)) {
[13:13:59.249]                           master <- get("master", mode = "list", 
[13:13:59.249]                             envir = envir, inherits = FALSE)
[13:13:59.249]                           if (inherits(master, c("SOCKnode", 
[13:13:59.249]                             "SOCK0node"))) {
[13:13:59.249]                             sendCondition <<- function(cond) {
[13:13:59.249]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.249]                                 success = TRUE)
[13:13:59.249]                               parallel_sendData(master, data)
[13:13:59.249]                             }
[13:13:59.249]                             return(sendCondition)
[13:13:59.249]                           }
[13:13:59.249]                         }
[13:13:59.249]                         frame <- frame + 1L
[13:13:59.249]                         envir <- sys.frame(frame)
[13:13:59.249]                       }
[13:13:59.249]                     }
[13:13:59.249]                     sendCondition <<- function(cond) NULL
[13:13:59.249]                   }
[13:13:59.249]                 })
[13:13:59.249]                 withCallingHandlers({
[13:13:59.249]                   {
[13:13:59.249]                     do.call(function(...) {
[13:13:59.249]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.249]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.249]                         ...future.globals.maxSize)) {
[13:13:59.249]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.249]                         on.exit(options(oopts), add = TRUE)
[13:13:59.249]                       }
[13:13:59.249]                       {
[13:13:59.249]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.249]                           FUN = function(jj) {
[13:13:59.249]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.249]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.249]                               envir = globalenv(), inherits = FALSE)
[13:13:59.249]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.249]                           })
[13:13:59.249]                       }
[13:13:59.249]                     }, args = future.call.arguments)
[13:13:59.249]                   }
[13:13:59.249]                 }, immediateCondition = function(cond) {
[13:13:59.249]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.249]                   sendCondition(cond)
[13:13:59.249]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.249]                   {
[13:13:59.249]                     inherits <- base::inherits
[13:13:59.249]                     invokeRestart <- base::invokeRestart
[13:13:59.249]                     is.null <- base::is.null
[13:13:59.249]                     muffled <- FALSE
[13:13:59.249]                     if (inherits(cond, "message")) {
[13:13:59.249]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.249]                       if (muffled) 
[13:13:59.249]                         invokeRestart("muffleMessage")
[13:13:59.249]                     }
[13:13:59.249]                     else if (inherits(cond, "warning")) {
[13:13:59.249]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.249]                       if (muffled) 
[13:13:59.249]                         invokeRestart("muffleWarning")
[13:13:59.249]                     }
[13:13:59.249]                     else if (inherits(cond, "condition")) {
[13:13:59.249]                       if (!is.null(pattern)) {
[13:13:59.249]                         computeRestarts <- base::computeRestarts
[13:13:59.249]                         grepl <- base::grepl
[13:13:59.249]                         restarts <- computeRestarts(cond)
[13:13:59.249]                         for (restart in restarts) {
[13:13:59.249]                           name <- restart$name
[13:13:59.249]                           if (is.null(name)) 
[13:13:59.249]                             next
[13:13:59.249]                           if (!grepl(pattern, name)) 
[13:13:59.249]                             next
[13:13:59.249]                           invokeRestart(restart)
[13:13:59.249]                           muffled <- TRUE
[13:13:59.249]                           break
[13:13:59.249]                         }
[13:13:59.249]                       }
[13:13:59.249]                     }
[13:13:59.249]                     invisible(muffled)
[13:13:59.249]                   }
[13:13:59.249]                   muffleCondition(cond)
[13:13:59.249]                 })
[13:13:59.249]             }))
[13:13:59.249]             future::FutureResult(value = ...future.value$value, 
[13:13:59.249]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.249]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.249]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.249]                     ...future.globalenv.names))
[13:13:59.249]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.249]         }, condition = base::local({
[13:13:59.249]             c <- base::c
[13:13:59.249]             inherits <- base::inherits
[13:13:59.249]             invokeRestart <- base::invokeRestart
[13:13:59.249]             length <- base::length
[13:13:59.249]             list <- base::list
[13:13:59.249]             seq.int <- base::seq.int
[13:13:59.249]             signalCondition <- base::signalCondition
[13:13:59.249]             sys.calls <- base::sys.calls
[13:13:59.249]             `[[` <- base::`[[`
[13:13:59.249]             `+` <- base::`+`
[13:13:59.249]             `<<-` <- base::`<<-`
[13:13:59.249]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.249]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.249]                   3L)]
[13:13:59.249]             }
[13:13:59.249]             function(cond) {
[13:13:59.249]                 is_error <- inherits(cond, "error")
[13:13:59.249]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.249]                   NULL)
[13:13:59.249]                 if (is_error) {
[13:13:59.249]                   sessionInformation <- function() {
[13:13:59.249]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.249]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.249]                       search = base::search(), system = base::Sys.info())
[13:13:59.249]                   }
[13:13:59.249]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.249]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.249]                     cond$call), session = sessionInformation(), 
[13:13:59.249]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.249]                   signalCondition(cond)
[13:13:59.249]                 }
[13:13:59.249]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.249]                 "immediateCondition"))) {
[13:13:59.249]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.249]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.249]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.249]                   if (TRUE && !signal) {
[13:13:59.249]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.249]                     {
[13:13:59.249]                       inherits <- base::inherits
[13:13:59.249]                       invokeRestart <- base::invokeRestart
[13:13:59.249]                       is.null <- base::is.null
[13:13:59.249]                       muffled <- FALSE
[13:13:59.249]                       if (inherits(cond, "message")) {
[13:13:59.249]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.249]                         if (muffled) 
[13:13:59.249]                           invokeRestart("muffleMessage")
[13:13:59.249]                       }
[13:13:59.249]                       else if (inherits(cond, "warning")) {
[13:13:59.249]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.249]                         if (muffled) 
[13:13:59.249]                           invokeRestart("muffleWarning")
[13:13:59.249]                       }
[13:13:59.249]                       else if (inherits(cond, "condition")) {
[13:13:59.249]                         if (!is.null(pattern)) {
[13:13:59.249]                           computeRestarts <- base::computeRestarts
[13:13:59.249]                           grepl <- base::grepl
[13:13:59.249]                           restarts <- computeRestarts(cond)
[13:13:59.249]                           for (restart in restarts) {
[13:13:59.249]                             name <- restart$name
[13:13:59.249]                             if (is.null(name)) 
[13:13:59.249]                               next
[13:13:59.249]                             if (!grepl(pattern, name)) 
[13:13:59.249]                               next
[13:13:59.249]                             invokeRestart(restart)
[13:13:59.249]                             muffled <- TRUE
[13:13:59.249]                             break
[13:13:59.249]                           }
[13:13:59.249]                         }
[13:13:59.249]                       }
[13:13:59.249]                       invisible(muffled)
[13:13:59.249]                     }
[13:13:59.249]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.249]                   }
[13:13:59.249]                 }
[13:13:59.249]                 else {
[13:13:59.249]                   if (TRUE) {
[13:13:59.249]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.249]                     {
[13:13:59.249]                       inherits <- base::inherits
[13:13:59.249]                       invokeRestart <- base::invokeRestart
[13:13:59.249]                       is.null <- base::is.null
[13:13:59.249]                       muffled <- FALSE
[13:13:59.249]                       if (inherits(cond, "message")) {
[13:13:59.249]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.249]                         if (muffled) 
[13:13:59.249]                           invokeRestart("muffleMessage")
[13:13:59.249]                       }
[13:13:59.249]                       else if (inherits(cond, "warning")) {
[13:13:59.249]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.249]                         if (muffled) 
[13:13:59.249]                           invokeRestart("muffleWarning")
[13:13:59.249]                       }
[13:13:59.249]                       else if (inherits(cond, "condition")) {
[13:13:59.249]                         if (!is.null(pattern)) {
[13:13:59.249]                           computeRestarts <- base::computeRestarts
[13:13:59.249]                           grepl <- base::grepl
[13:13:59.249]                           restarts <- computeRestarts(cond)
[13:13:59.249]                           for (restart in restarts) {
[13:13:59.249]                             name <- restart$name
[13:13:59.249]                             if (is.null(name)) 
[13:13:59.249]                               next
[13:13:59.249]                             if (!grepl(pattern, name)) 
[13:13:59.249]                               next
[13:13:59.249]                             invokeRestart(restart)
[13:13:59.249]                             muffled <- TRUE
[13:13:59.249]                             break
[13:13:59.249]                           }
[13:13:59.249]                         }
[13:13:59.249]                       }
[13:13:59.249]                       invisible(muffled)
[13:13:59.249]                     }
[13:13:59.249]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.249]                   }
[13:13:59.249]                 }
[13:13:59.249]             }
[13:13:59.249]         }))
[13:13:59.249]     }, error = function(ex) {
[13:13:59.249]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.249]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.249]                 ...future.rng), started = ...future.startTime, 
[13:13:59.249]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.249]             version = "1.8"), class = "FutureResult")
[13:13:59.249]     }, finally = {
[13:13:59.249]         if (!identical(...future.workdir, getwd())) 
[13:13:59.249]             setwd(...future.workdir)
[13:13:59.249]         {
[13:13:59.249]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.249]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.249]             }
[13:13:59.249]             base::options(...future.oldOptions)
[13:13:59.249]             if (.Platform$OS.type == "windows") {
[13:13:59.249]                 old_names <- names(...future.oldEnvVars)
[13:13:59.249]                 envs <- base::Sys.getenv()
[13:13:59.249]                 names <- names(envs)
[13:13:59.249]                 common <- intersect(names, old_names)
[13:13:59.249]                 added <- setdiff(names, old_names)
[13:13:59.249]                 removed <- setdiff(old_names, names)
[13:13:59.249]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.249]                   envs[common]]
[13:13:59.249]                 NAMES <- toupper(changed)
[13:13:59.249]                 args <- list()
[13:13:59.249]                 for (kk in seq_along(NAMES)) {
[13:13:59.249]                   name <- changed[[kk]]
[13:13:59.249]                   NAME <- NAMES[[kk]]
[13:13:59.249]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.249]                     next
[13:13:59.249]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.249]                 }
[13:13:59.249]                 NAMES <- toupper(added)
[13:13:59.249]                 for (kk in seq_along(NAMES)) {
[13:13:59.249]                   name <- added[[kk]]
[13:13:59.249]                   NAME <- NAMES[[kk]]
[13:13:59.249]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.249]                     next
[13:13:59.249]                   args[[name]] <- ""
[13:13:59.249]                 }
[13:13:59.249]                 NAMES <- toupper(removed)
[13:13:59.249]                 for (kk in seq_along(NAMES)) {
[13:13:59.249]                   name <- removed[[kk]]
[13:13:59.249]                   NAME <- NAMES[[kk]]
[13:13:59.249]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.249]                     next
[13:13:59.249]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.249]                 }
[13:13:59.249]                 if (length(args) > 0) 
[13:13:59.249]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.249]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.249]             }
[13:13:59.249]             else {
[13:13:59.249]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.249]             }
[13:13:59.249]             {
[13:13:59.249]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.249]                   0L) {
[13:13:59.249]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.249]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.249]                   base::options(opts)
[13:13:59.249]                 }
[13:13:59.249]                 {
[13:13:59.249]                   {
[13:13:59.249]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.249]                     NULL
[13:13:59.249]                   }
[13:13:59.249]                   options(future.plan = NULL)
[13:13:59.249]                   if (is.na(NA_character_)) 
[13:13:59.249]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.249]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.249]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.249]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.249]                     envir = parent.frame()) 
[13:13:59.249]                   {
[13:13:59.249]                     if (is.function(workers)) 
[13:13:59.249]                       workers <- workers()
[13:13:59.249]                     workers <- structure(as.integer(workers), 
[13:13:59.249]                       class = class(workers))
[13:13:59.249]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.249]                       workers >= 1)
[13:13:59.249]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.249]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.249]                     }
[13:13:59.249]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.249]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.249]                       envir = envir)
[13:13:59.249]                     if (!future$lazy) 
[13:13:59.249]                       future <- run(future)
[13:13:59.249]                     invisible(future)
[13:13:59.249]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.249]                 }
[13:13:59.249]             }
[13:13:59.249]         }
[13:13:59.249]     })
[13:13:59.249]     if (TRUE) {
[13:13:59.249]         base::sink(type = "output", split = FALSE)
[13:13:59.249]         if (TRUE) {
[13:13:59.249]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.249]         }
[13:13:59.249]         else {
[13:13:59.249]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.249]         }
[13:13:59.249]         base::close(...future.stdout)
[13:13:59.249]         ...future.stdout <- NULL
[13:13:59.249]     }
[13:13:59.249]     ...future.result$conditions <- ...future.conditions
[13:13:59.249]     ...future.result$finished <- base::Sys.time()
[13:13:59.249]     ...future.result
[13:13:59.249] }
[13:13:59.254] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.254] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.255] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.255] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.256] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.256] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:59.256] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:59.256] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:59.257] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:59.257] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.257] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.258] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.258] MultisessionFuture started
[13:13:59.259] - Launch lazy future ... done
[13:13:59.259] run() for 'MultisessionFuture' ... done
[13:13:59.259] Created future:
[13:13:59.274] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.275] - Validating connection of MultisessionFuture
[13:13:59.275] - received message: FutureResult
[13:13:59.275] - Received FutureResult
[13:13:59.275] - Erased future from FutureRegistry
[13:13:59.275] result() for ClusterFuture ...
[13:13:59.276] - result already collected: FutureResult
[13:13:59.276] result() for ClusterFuture ... done
[13:13:59.276] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.259] MultisessionFuture:
[13:13:59.259] Label: 'future_replicate-1'
[13:13:59.259] Expression:
[13:13:59.259] {
[13:13:59.259]     do.call(function(...) {
[13:13:59.259]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.259]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.259]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.259]             on.exit(options(oopts), add = TRUE)
[13:13:59.259]         }
[13:13:59.259]         {
[13:13:59.259]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.259]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.259]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.259]                   envir = globalenv(), inherits = FALSE)
[13:13:59.259]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.259]             })
[13:13:59.259]         }
[13:13:59.259]     }, args = future.call.arguments)
[13:13:59.259] }
[13:13:59.259] Lazy evaluation: FALSE
[13:13:59.259] Asynchronous evaluation: TRUE
[13:13:59.259] Local evaluation: TRUE
[13:13:59.259] Environment: R_GlobalEnv
[13:13:59.259] Capture standard output: TRUE
[13:13:59.259] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.259] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.259] Packages: <none>
[13:13:59.259] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.259] Resolved: TRUE
[13:13:59.259] Value: <not collected>
[13:13:59.259] Conditions captured: <none>
[13:13:59.259] Early signaling: FALSE
[13:13:59.259] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.259] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.276] Chunk #1 of 2 ... DONE
[13:13:59.276] Chunk #2 of 2 ...
[13:13:59.277]  - Finding globals in 'X' for chunk #2 ...
[13:13:59.277] getGlobalsAndPackages() ...
[13:13:59.277] Searching for globals...
[13:13:59.277] 
[13:13:59.277] Searching for globals ... DONE
[13:13:59.278] - globals: [0] <none>
[13:13:59.278] getGlobalsAndPackages() ... DONE
[13:13:59.278]    + additional globals found: [n=0] 
[13:13:59.278]    + additional namespaces needed: [n=0] 
[13:13:59.278]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:59.278]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.279]  - seeds: [3] <seeds>
[13:13:59.279]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.279] getGlobalsAndPackages() ...
[13:13:59.279] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.279] Resolving globals: FALSE
[13:13:59.280] Tweak future expression to call with '...' arguments ...
[13:13:59.280] {
[13:13:59.280]     do.call(function(...) {
[13:13:59.280]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.280]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.280]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.280]             on.exit(options(oopts), add = TRUE)
[13:13:59.280]         }
[13:13:59.280]         {
[13:13:59.280]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.280]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.280]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.280]                   envir = globalenv(), inherits = FALSE)
[13:13:59.280]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.280]             })
[13:13:59.280]         }
[13:13:59.280]     }, args = future.call.arguments)
[13:13:59.280] }
[13:13:59.280] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.281] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.281] 
[13:13:59.281] getGlobalsAndPackages() ... DONE
[13:13:59.281] run() for 'Future' ...
[13:13:59.282] - state: 'created'
[13:13:59.282] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.296] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.296] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.296]   - Field: 'node'
[13:13:59.296]   - Field: 'label'
[13:13:59.296]   - Field: 'local'
[13:13:59.297]   - Field: 'owner'
[13:13:59.297]   - Field: 'envir'
[13:13:59.297]   - Field: 'workers'
[13:13:59.297]   - Field: 'packages'
[13:13:59.297]   - Field: 'gc'
[13:13:59.297]   - Field: 'conditions'
[13:13:59.298]   - Field: 'persistent'
[13:13:59.298]   - Field: 'expr'
[13:13:59.298]   - Field: 'uuid'
[13:13:59.298]   - Field: 'seed'
[13:13:59.298]   - Field: 'version'
[13:13:59.299]   - Field: 'result'
[13:13:59.299]   - Field: 'asynchronous'
[13:13:59.299]   - Field: 'calls'
[13:13:59.299]   - Field: 'globals'
[13:13:59.299]   - Field: 'stdout'
[13:13:59.299]   - Field: 'earlySignal'
[13:13:59.300]   - Field: 'lazy'
[13:13:59.300]   - Field: 'state'
[13:13:59.300] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.300] - Launch lazy future ...
[13:13:59.301] Packages needed by the future expression (n = 0): <none>
[13:13:59.301] Packages needed by future strategies (n = 0): <none>
[13:13:59.301] {
[13:13:59.301]     {
[13:13:59.301]         {
[13:13:59.301]             ...future.startTime <- base::Sys.time()
[13:13:59.301]             {
[13:13:59.301]                 {
[13:13:59.301]                   {
[13:13:59.301]                     {
[13:13:59.301]                       base::local({
[13:13:59.301]                         has_future <- base::requireNamespace("future", 
[13:13:59.301]                           quietly = TRUE)
[13:13:59.301]                         if (has_future) {
[13:13:59.301]                           ns <- base::getNamespace("future")
[13:13:59.301]                           version <- ns[[".package"]][["version"]]
[13:13:59.301]                           if (is.null(version)) 
[13:13:59.301]                             version <- utils::packageVersion("future")
[13:13:59.301]                         }
[13:13:59.301]                         else {
[13:13:59.301]                           version <- NULL
[13:13:59.301]                         }
[13:13:59.301]                         if (!has_future || version < "1.8.0") {
[13:13:59.301]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.301]                             "", base::R.version$version.string), 
[13:13:59.301]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.301]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.301]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.301]                               "release", "version")], collapse = " "), 
[13:13:59.301]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.301]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.301]                             info)
[13:13:59.301]                           info <- base::paste(info, collapse = "; ")
[13:13:59.301]                           if (!has_future) {
[13:13:59.301]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.301]                               info)
[13:13:59.301]                           }
[13:13:59.301]                           else {
[13:13:59.301]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.301]                               info, version)
[13:13:59.301]                           }
[13:13:59.301]                           base::stop(msg)
[13:13:59.301]                         }
[13:13:59.301]                       })
[13:13:59.301]                     }
[13:13:59.301]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.301]                     base::options(mc.cores = 1L)
[13:13:59.301]                   }
[13:13:59.301]                   options(future.plan = NULL)
[13:13:59.301]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.301]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.301]                 }
[13:13:59.301]                 ...future.workdir <- getwd()
[13:13:59.301]             }
[13:13:59.301]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.301]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.301]         }
[13:13:59.301]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.301]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.301]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.301]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.301]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.301]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.301]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.301]             base::names(...future.oldOptions))
[13:13:59.301]     }
[13:13:59.301]     if (FALSE) {
[13:13:59.301]     }
[13:13:59.301]     else {
[13:13:59.301]         if (TRUE) {
[13:13:59.301]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.301]                 open = "w")
[13:13:59.301]         }
[13:13:59.301]         else {
[13:13:59.301]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.301]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.301]         }
[13:13:59.301]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.301]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.301]             base::sink(type = "output", split = FALSE)
[13:13:59.301]             base::close(...future.stdout)
[13:13:59.301]         }, add = TRUE)
[13:13:59.301]     }
[13:13:59.301]     ...future.frame <- base::sys.nframe()
[13:13:59.301]     ...future.conditions <- base::list()
[13:13:59.301]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.301]     if (FALSE) {
[13:13:59.301]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.301]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.301]     }
[13:13:59.301]     ...future.result <- base::tryCatch({
[13:13:59.301]         base::withCallingHandlers({
[13:13:59.301]             ...future.value <- base::withVisible(base::local({
[13:13:59.301]                 ...future.makeSendCondition <- local({
[13:13:59.301]                   sendCondition <- NULL
[13:13:59.301]                   function(frame = 1L) {
[13:13:59.301]                     if (is.function(sendCondition)) 
[13:13:59.301]                       return(sendCondition)
[13:13:59.301]                     ns <- getNamespace("parallel")
[13:13:59.301]                     if (exists("sendData", mode = "function", 
[13:13:59.301]                       envir = ns)) {
[13:13:59.301]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.301]                         envir = ns)
[13:13:59.301]                       envir <- sys.frame(frame)
[13:13:59.301]                       master <- NULL
[13:13:59.301]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.301]                         !identical(envir, emptyenv())) {
[13:13:59.301]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.301]                           inherits = FALSE)) {
[13:13:59.301]                           master <- get("master", mode = "list", 
[13:13:59.301]                             envir = envir, inherits = FALSE)
[13:13:59.301]                           if (inherits(master, c("SOCKnode", 
[13:13:59.301]                             "SOCK0node"))) {
[13:13:59.301]                             sendCondition <<- function(cond) {
[13:13:59.301]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.301]                                 success = TRUE)
[13:13:59.301]                               parallel_sendData(master, data)
[13:13:59.301]                             }
[13:13:59.301]                             return(sendCondition)
[13:13:59.301]                           }
[13:13:59.301]                         }
[13:13:59.301]                         frame <- frame + 1L
[13:13:59.301]                         envir <- sys.frame(frame)
[13:13:59.301]                       }
[13:13:59.301]                     }
[13:13:59.301]                     sendCondition <<- function(cond) NULL
[13:13:59.301]                   }
[13:13:59.301]                 })
[13:13:59.301]                 withCallingHandlers({
[13:13:59.301]                   {
[13:13:59.301]                     do.call(function(...) {
[13:13:59.301]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.301]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.301]                         ...future.globals.maxSize)) {
[13:13:59.301]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.301]                         on.exit(options(oopts), add = TRUE)
[13:13:59.301]                       }
[13:13:59.301]                       {
[13:13:59.301]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.301]                           FUN = function(jj) {
[13:13:59.301]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.301]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.301]                               envir = globalenv(), inherits = FALSE)
[13:13:59.301]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.301]                           })
[13:13:59.301]                       }
[13:13:59.301]                     }, args = future.call.arguments)
[13:13:59.301]                   }
[13:13:59.301]                 }, immediateCondition = function(cond) {
[13:13:59.301]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.301]                   sendCondition(cond)
[13:13:59.301]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.301]                   {
[13:13:59.301]                     inherits <- base::inherits
[13:13:59.301]                     invokeRestart <- base::invokeRestart
[13:13:59.301]                     is.null <- base::is.null
[13:13:59.301]                     muffled <- FALSE
[13:13:59.301]                     if (inherits(cond, "message")) {
[13:13:59.301]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.301]                       if (muffled) 
[13:13:59.301]                         invokeRestart("muffleMessage")
[13:13:59.301]                     }
[13:13:59.301]                     else if (inherits(cond, "warning")) {
[13:13:59.301]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.301]                       if (muffled) 
[13:13:59.301]                         invokeRestart("muffleWarning")
[13:13:59.301]                     }
[13:13:59.301]                     else if (inherits(cond, "condition")) {
[13:13:59.301]                       if (!is.null(pattern)) {
[13:13:59.301]                         computeRestarts <- base::computeRestarts
[13:13:59.301]                         grepl <- base::grepl
[13:13:59.301]                         restarts <- computeRestarts(cond)
[13:13:59.301]                         for (restart in restarts) {
[13:13:59.301]                           name <- restart$name
[13:13:59.301]                           if (is.null(name)) 
[13:13:59.301]                             next
[13:13:59.301]                           if (!grepl(pattern, name)) 
[13:13:59.301]                             next
[13:13:59.301]                           invokeRestart(restart)
[13:13:59.301]                           muffled <- TRUE
[13:13:59.301]                           break
[13:13:59.301]                         }
[13:13:59.301]                       }
[13:13:59.301]                     }
[13:13:59.301]                     invisible(muffled)
[13:13:59.301]                   }
[13:13:59.301]                   muffleCondition(cond)
[13:13:59.301]                 })
[13:13:59.301]             }))
[13:13:59.301]             future::FutureResult(value = ...future.value$value, 
[13:13:59.301]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.301]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.301]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.301]                     ...future.globalenv.names))
[13:13:59.301]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.301]         }, condition = base::local({
[13:13:59.301]             c <- base::c
[13:13:59.301]             inherits <- base::inherits
[13:13:59.301]             invokeRestart <- base::invokeRestart
[13:13:59.301]             length <- base::length
[13:13:59.301]             list <- base::list
[13:13:59.301]             seq.int <- base::seq.int
[13:13:59.301]             signalCondition <- base::signalCondition
[13:13:59.301]             sys.calls <- base::sys.calls
[13:13:59.301]             `[[` <- base::`[[`
[13:13:59.301]             `+` <- base::`+`
[13:13:59.301]             `<<-` <- base::`<<-`
[13:13:59.301]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.301]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.301]                   3L)]
[13:13:59.301]             }
[13:13:59.301]             function(cond) {
[13:13:59.301]                 is_error <- inherits(cond, "error")
[13:13:59.301]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.301]                   NULL)
[13:13:59.301]                 if (is_error) {
[13:13:59.301]                   sessionInformation <- function() {
[13:13:59.301]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.301]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.301]                       search = base::search(), system = base::Sys.info())
[13:13:59.301]                   }
[13:13:59.301]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.301]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.301]                     cond$call), session = sessionInformation(), 
[13:13:59.301]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.301]                   signalCondition(cond)
[13:13:59.301]                 }
[13:13:59.301]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.301]                 "immediateCondition"))) {
[13:13:59.301]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.301]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.301]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.301]                   if (TRUE && !signal) {
[13:13:59.301]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.301]                     {
[13:13:59.301]                       inherits <- base::inherits
[13:13:59.301]                       invokeRestart <- base::invokeRestart
[13:13:59.301]                       is.null <- base::is.null
[13:13:59.301]                       muffled <- FALSE
[13:13:59.301]                       if (inherits(cond, "message")) {
[13:13:59.301]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.301]                         if (muffled) 
[13:13:59.301]                           invokeRestart("muffleMessage")
[13:13:59.301]                       }
[13:13:59.301]                       else if (inherits(cond, "warning")) {
[13:13:59.301]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.301]                         if (muffled) 
[13:13:59.301]                           invokeRestart("muffleWarning")
[13:13:59.301]                       }
[13:13:59.301]                       else if (inherits(cond, "condition")) {
[13:13:59.301]                         if (!is.null(pattern)) {
[13:13:59.301]                           computeRestarts <- base::computeRestarts
[13:13:59.301]                           grepl <- base::grepl
[13:13:59.301]                           restarts <- computeRestarts(cond)
[13:13:59.301]                           for (restart in restarts) {
[13:13:59.301]                             name <- restart$name
[13:13:59.301]                             if (is.null(name)) 
[13:13:59.301]                               next
[13:13:59.301]                             if (!grepl(pattern, name)) 
[13:13:59.301]                               next
[13:13:59.301]                             invokeRestart(restart)
[13:13:59.301]                             muffled <- TRUE
[13:13:59.301]                             break
[13:13:59.301]                           }
[13:13:59.301]                         }
[13:13:59.301]                       }
[13:13:59.301]                       invisible(muffled)
[13:13:59.301]                     }
[13:13:59.301]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.301]                   }
[13:13:59.301]                 }
[13:13:59.301]                 else {
[13:13:59.301]                   if (TRUE) {
[13:13:59.301]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.301]                     {
[13:13:59.301]                       inherits <- base::inherits
[13:13:59.301]                       invokeRestart <- base::invokeRestart
[13:13:59.301]                       is.null <- base::is.null
[13:13:59.301]                       muffled <- FALSE
[13:13:59.301]                       if (inherits(cond, "message")) {
[13:13:59.301]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.301]                         if (muffled) 
[13:13:59.301]                           invokeRestart("muffleMessage")
[13:13:59.301]                       }
[13:13:59.301]                       else if (inherits(cond, "warning")) {
[13:13:59.301]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.301]                         if (muffled) 
[13:13:59.301]                           invokeRestart("muffleWarning")
[13:13:59.301]                       }
[13:13:59.301]                       else if (inherits(cond, "condition")) {
[13:13:59.301]                         if (!is.null(pattern)) {
[13:13:59.301]                           computeRestarts <- base::computeRestarts
[13:13:59.301]                           grepl <- base::grepl
[13:13:59.301]                           restarts <- computeRestarts(cond)
[13:13:59.301]                           for (restart in restarts) {
[13:13:59.301]                             name <- restart$name
[13:13:59.301]                             if (is.null(name)) 
[13:13:59.301]                               next
[13:13:59.301]                             if (!grepl(pattern, name)) 
[13:13:59.301]                               next
[13:13:59.301]                             invokeRestart(restart)
[13:13:59.301]                             muffled <- TRUE
[13:13:59.301]                             break
[13:13:59.301]                           }
[13:13:59.301]                         }
[13:13:59.301]                       }
[13:13:59.301]                       invisible(muffled)
[13:13:59.301]                     }
[13:13:59.301]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.301]                   }
[13:13:59.301]                 }
[13:13:59.301]             }
[13:13:59.301]         }))
[13:13:59.301]     }, error = function(ex) {
[13:13:59.301]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.301]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.301]                 ...future.rng), started = ...future.startTime, 
[13:13:59.301]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.301]             version = "1.8"), class = "FutureResult")
[13:13:59.301]     }, finally = {
[13:13:59.301]         if (!identical(...future.workdir, getwd())) 
[13:13:59.301]             setwd(...future.workdir)
[13:13:59.301]         {
[13:13:59.301]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.301]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.301]             }
[13:13:59.301]             base::options(...future.oldOptions)
[13:13:59.301]             if (.Platform$OS.type == "windows") {
[13:13:59.301]                 old_names <- names(...future.oldEnvVars)
[13:13:59.301]                 envs <- base::Sys.getenv()
[13:13:59.301]                 names <- names(envs)
[13:13:59.301]                 common <- intersect(names, old_names)
[13:13:59.301]                 added <- setdiff(names, old_names)
[13:13:59.301]                 removed <- setdiff(old_names, names)
[13:13:59.301]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.301]                   envs[common]]
[13:13:59.301]                 NAMES <- toupper(changed)
[13:13:59.301]                 args <- list()
[13:13:59.301]                 for (kk in seq_along(NAMES)) {
[13:13:59.301]                   name <- changed[[kk]]
[13:13:59.301]                   NAME <- NAMES[[kk]]
[13:13:59.301]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.301]                     next
[13:13:59.301]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.301]                 }
[13:13:59.301]                 NAMES <- toupper(added)
[13:13:59.301]                 for (kk in seq_along(NAMES)) {
[13:13:59.301]                   name <- added[[kk]]
[13:13:59.301]                   NAME <- NAMES[[kk]]
[13:13:59.301]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.301]                     next
[13:13:59.301]                   args[[name]] <- ""
[13:13:59.301]                 }
[13:13:59.301]                 NAMES <- toupper(removed)
[13:13:59.301]                 for (kk in seq_along(NAMES)) {
[13:13:59.301]                   name <- removed[[kk]]
[13:13:59.301]                   NAME <- NAMES[[kk]]
[13:13:59.301]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.301]                     next
[13:13:59.301]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.301]                 }
[13:13:59.301]                 if (length(args) > 0) 
[13:13:59.301]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.301]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.301]             }
[13:13:59.301]             else {
[13:13:59.301]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.301]             }
[13:13:59.301]             {
[13:13:59.301]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.301]                   0L) {
[13:13:59.301]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.301]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.301]                   base::options(opts)
[13:13:59.301]                 }
[13:13:59.301]                 {
[13:13:59.301]                   {
[13:13:59.301]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.301]                     NULL
[13:13:59.301]                   }
[13:13:59.301]                   options(future.plan = NULL)
[13:13:59.301]                   if (is.na(NA_character_)) 
[13:13:59.301]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.301]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.301]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.301]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.301]                     envir = parent.frame()) 
[13:13:59.301]                   {
[13:13:59.301]                     if (is.function(workers)) 
[13:13:59.301]                       workers <- workers()
[13:13:59.301]                     workers <- structure(as.integer(workers), 
[13:13:59.301]                       class = class(workers))
[13:13:59.301]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.301]                       workers >= 1)
[13:13:59.301]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.301]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.301]                     }
[13:13:59.301]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.301]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.301]                       envir = envir)
[13:13:59.301]                     if (!future$lazy) 
[13:13:59.301]                       future <- run(future)
[13:13:59.301]                     invisible(future)
[13:13:59.301]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.301]                 }
[13:13:59.301]             }
[13:13:59.301]         }
[13:13:59.301]     })
[13:13:59.301]     if (TRUE) {
[13:13:59.301]         base::sink(type = "output", split = FALSE)
[13:13:59.301]         if (TRUE) {
[13:13:59.301]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.301]         }
[13:13:59.301]         else {
[13:13:59.301]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.301]         }
[13:13:59.301]         base::close(...future.stdout)
[13:13:59.301]         ...future.stdout <- NULL
[13:13:59.301]     }
[13:13:59.301]     ...future.result$conditions <- ...future.conditions
[13:13:59.301]     ...future.result$finished <- base::Sys.time()
[13:13:59.301]     ...future.result
[13:13:59.301] }
[13:13:59.307] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.307] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.307] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.308] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.308] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.308] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.309] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.309] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.309] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.310] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.310] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.310] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.311] MultisessionFuture started
[13:13:59.311] - Launch lazy future ... done
[13:13:59.311] run() for 'MultisessionFuture' ... done
[13:13:59.311] Created future:
[13:13:59.326] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.326] - Validating connection of MultisessionFuture
[13:13:59.327] - received message: FutureResult
[13:13:59.327] - Received FutureResult
[13:13:59.327] - Erased future from FutureRegistry
[13:13:59.327] result() for ClusterFuture ...
[13:13:59.327] - result already collected: FutureResult
[13:13:59.327] result() for ClusterFuture ... done
[13:13:59.328] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.312] MultisessionFuture:
[13:13:59.312] Label: 'future_replicate-2'
[13:13:59.312] Expression:
[13:13:59.312] {
[13:13:59.312]     do.call(function(...) {
[13:13:59.312]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.312]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.312]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.312]             on.exit(options(oopts), add = TRUE)
[13:13:59.312]         }
[13:13:59.312]         {
[13:13:59.312]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.312]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.312]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.312]                   envir = globalenv(), inherits = FALSE)
[13:13:59.312]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.312]             })
[13:13:59.312]         }
[13:13:59.312]     }, args = future.call.arguments)
[13:13:59.312] }
[13:13:59.312] Lazy evaluation: FALSE
[13:13:59.312] Asynchronous evaluation: TRUE
[13:13:59.312] Local evaluation: TRUE
[13:13:59.312] Environment: R_GlobalEnv
[13:13:59.312] Capture standard output: TRUE
[13:13:59.312] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.312] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.312] Packages: <none>
[13:13:59.312] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.312] Resolved: TRUE
[13:13:59.312] Value: <not collected>
[13:13:59.312] Conditions captured: <none>
[13:13:59.312] Early signaling: FALSE
[13:13:59.312] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.312] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.328] Chunk #2 of 2 ... DONE
[13:13:59.328] Launching 2 futures (chunks) ... DONE
[13:13:59.328] Resolving 2 futures (chunks) ...
[13:13:59.328] resolve() on list ...
[13:13:59.329]  recursive: 0
[13:13:59.329]  length: 2
[13:13:59.329] 
[13:13:59.329] Future #1
[13:13:59.329] result() for ClusterFuture ...
[13:13:59.329] - result already collected: FutureResult
[13:13:59.330] result() for ClusterFuture ... done
[13:13:59.330] result() for ClusterFuture ...
[13:13:59.330] - result already collected: FutureResult
[13:13:59.330] result() for ClusterFuture ... done
[13:13:59.330] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.330] - nx: 2
[13:13:59.331] - relay: TRUE
[13:13:59.331] - stdout: TRUE
[13:13:59.331] - signal: TRUE
[13:13:59.331] - resignal: FALSE
[13:13:59.331] - force: TRUE
[13:13:59.331] - relayed: [n=2] FALSE, FALSE
[13:13:59.331] - queued futures: [n=2] FALSE, FALSE
[13:13:59.332]  - until=1
[13:13:59.332]  - relaying element #1
[13:13:59.332] result() for ClusterFuture ...
[13:13:59.332] - result already collected: FutureResult
[13:13:59.332] result() for ClusterFuture ... done
[13:13:59.332] result() for ClusterFuture ...
[13:13:59.333] - result already collected: FutureResult
[13:13:59.333] result() for ClusterFuture ... done
[13:13:59.333] result() for ClusterFuture ...
[13:13:59.333] - result already collected: FutureResult
[13:13:59.333] result() for ClusterFuture ... done
[13:13:59.333] result() for ClusterFuture ...
[13:13:59.334] - result already collected: FutureResult
[13:13:59.334] result() for ClusterFuture ... done
[13:13:59.334] - relayed: [n=2] TRUE, FALSE
[13:13:59.334] - queued futures: [n=2] TRUE, FALSE
[13:13:59.334] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.334]  length: 1 (resolved future 1)
[13:13:59.335] Future #2
[13:13:59.335] result() for ClusterFuture ...
[13:13:59.335] - result already collected: FutureResult
[13:13:59.335] result() for ClusterFuture ... done
[13:13:59.335] result() for ClusterFuture ...
[13:13:59.335] - result already collected: FutureResult
[13:13:59.336] result() for ClusterFuture ... done
[13:13:59.336] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.336] - nx: 2
[13:13:59.336] - relay: TRUE
[13:13:59.336] - stdout: TRUE
[13:13:59.336] - signal: TRUE
[13:13:59.337] - resignal: FALSE
[13:13:59.337] - force: TRUE
[13:13:59.337] - relayed: [n=2] TRUE, FALSE
[13:13:59.337] - queued futures: [n=2] TRUE, FALSE
[13:13:59.337]  - until=2
[13:13:59.337]  - relaying element #2
[13:13:59.337] result() for ClusterFuture ...
[13:13:59.338] - result already collected: FutureResult
[13:13:59.338] result() for ClusterFuture ... done
[13:13:59.338] result() for ClusterFuture ...
[13:13:59.338] - result already collected: FutureResult
[13:13:59.338] result() for ClusterFuture ... done
[13:13:59.338] result() for ClusterFuture ...
[13:13:59.339] - result already collected: FutureResult
[13:13:59.339] result() for ClusterFuture ... done
[13:13:59.339] result() for ClusterFuture ...
[13:13:59.339] - result already collected: FutureResult
[13:13:59.339] result() for ClusterFuture ... done
[13:13:59.339] - relayed: [n=2] TRUE, TRUE
[13:13:59.340] - queued futures: [n=2] TRUE, TRUE
[13:13:59.340] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.340]  length: 0 (resolved future 2)
[13:13:59.340] Relaying remaining futures
[13:13:59.340] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.340] - nx: 2
[13:13:59.340] - relay: TRUE
[13:13:59.341] - stdout: TRUE
[13:13:59.341] - signal: TRUE
[13:13:59.341] - resignal: FALSE
[13:13:59.341] - force: TRUE
[13:13:59.341] - relayed: [n=2] TRUE, TRUE
[13:13:59.341] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.342] - relayed: [n=2] TRUE, TRUE
[13:13:59.342] - queued futures: [n=2] TRUE, TRUE
[13:13:59.342] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.342] resolve() on list ... DONE
[13:13:59.342] result() for ClusterFuture ...
[13:13:59.342] - result already collected: FutureResult
[13:13:59.343] result() for ClusterFuture ... done
[13:13:59.343] result() for ClusterFuture ...
[13:13:59.343] - result already collected: FutureResult
[13:13:59.343] result() for ClusterFuture ... done
[13:13:59.343] result() for ClusterFuture ...
[13:13:59.343] - result already collected: FutureResult
[13:13:59.344] result() for ClusterFuture ... done
[13:13:59.344] result() for ClusterFuture ...
[13:13:59.344] - result already collected: FutureResult
[13:13:59.344] result() for ClusterFuture ... done
[13:13:59.344]  - Number of value chunks collected: 2
[13:13:59.344] Resolving 2 futures (chunks) ... DONE
[13:13:59.345] Reducing values from 2 chunks ...
[13:13:59.345]  - Number of values collected after concatenation: 5
[13:13:59.345]  - Number of values expected: 5
[13:13:59.345] Reducing values from 2 chunks ... DONE
[13:13:59.345] future_lapply() ... DONE
[13:13:59.345] future_lapply() ...
[13:13:59.346] Generating random seeds ...
[13:13:59.346] Generating random seed streams for 5 elements ...
[13:13:59.346] Generating random seed streams for 5 elements ... DONE
[13:13:59.347] Generating random seeds ... DONE
[13:13:59.347] 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
[13:13:59.350] Number of chunks: 2
[13:13:59.350] getGlobalsAndPackagesXApply() ...
[13:13:59.350]  - future.globals: TRUE
[13:13:59.350] getGlobalsAndPackages() ...
[13:13:59.350] Searching for globals...
[13:13:59.352] - globals found: [2] 'FUN', 'sample'
[13:13:59.352] Searching for globals ... DONE
[13:13:59.352] Resolving globals: FALSE
[13:13:59.352] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:59.353] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:59.353] - globals: [1] 'FUN'
[13:13:59.353] 
[13:13:59.353] getGlobalsAndPackages() ... DONE
[13:13:59.354]  - globals found/used: [n=1] 'FUN'
[13:13:59.354]  - needed namespaces: [n=0] 
[13:13:59.354] Finding globals ... DONE
[13:13:59.354]  - use_args: TRUE
[13:13:59.354]  - Getting '...' globals ...
[13:13:59.355] resolve() on list ...
[13:13:59.355]  recursive: 0
[13:13:59.355]  length: 1
[13:13:59.355]  elements: '...'
[13:13:59.355]  length: 0 (resolved future 1)
[13:13:59.355] resolve() on list ... DONE
[13:13:59.356]    - '...' content: [n=0] 
[13:13:59.356] List of 1
[13:13:59.356]  $ ...: list()
[13:13:59.356]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.356]  - attr(*, "where")=List of 1
[13:13:59.356]   ..$ ...:<environment: 0x0000019eccf5c580> 
[13:13:59.356]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.356]  - attr(*, "resolved")= logi TRUE
[13:13:59.356]  - attr(*, "total_size")= num NA
[13:13:59.359]  - Getting '...' globals ... DONE
[13:13:59.359] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:59.359] List of 2
[13:13:59.359]  $ ...future.FUN:function (...)  
[13:13:59.359]  $ ...          : list()
[13:13:59.359]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.359]  - attr(*, "where")=List of 2
[13:13:59.359]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:59.359]   ..$ ...          :<environment: 0x0000019eccf5c580> 
[13:13:59.359]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.359]  - attr(*, "resolved")= logi FALSE
[13:13:59.359]  - attr(*, "total_size")= num 616
[13:13:59.363] Packages to be attached in all futures: [n=0] 
[13:13:59.363] getGlobalsAndPackagesXApply() ... DONE
[13:13:59.363] Number of futures (= number of chunks): 2
[13:13:59.363] Launching 2 futures (chunks) ...
[13:13:59.363] Chunk #1 of 2 ...
[13:13:59.364]  - Finding globals in 'X' for chunk #1 ...
[13:13:59.364] getGlobalsAndPackages() ...
[13:13:59.364] Searching for globals...
[13:13:59.364] 
[13:13:59.364] Searching for globals ... DONE
[13:13:59.365] - globals: [0] <none>
[13:13:59.365] getGlobalsAndPackages() ... DONE
[13:13:59.365]    + additional globals found: [n=0] 
[13:13:59.365]    + additional namespaces needed: [n=0] 
[13:13:59.365]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:59.365]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.366]  - seeds: [2] <seeds>
[13:13:59.366]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.366] getGlobalsAndPackages() ...
[13:13:59.366] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.366] Resolving globals: FALSE
[13:13:59.367] Tweak future expression to call with '...' arguments ...
[13:13:59.367] {
[13:13:59.367]     do.call(function(...) {
[13:13:59.367]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.367]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.367]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.367]             on.exit(options(oopts), add = TRUE)
[13:13:59.367]         }
[13:13:59.367]         {
[13:13:59.367]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.367]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.367]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.367]                   envir = globalenv(), inherits = FALSE)
[13:13:59.367]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.367]             })
[13:13:59.367]         }
[13:13:59.367]     }, args = future.call.arguments)
[13:13:59.367] }
[13:13:59.367] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.368] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.368] 
[13:13:59.368] getGlobalsAndPackages() ... DONE
[13:13:59.368] run() for 'Future' ...
[13:13:59.369] - state: 'created'
[13:13:59.369] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.383] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.383] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.383]   - Field: 'node'
[13:13:59.383]   - Field: 'label'
[13:13:59.383]   - Field: 'local'
[13:13:59.384]   - Field: 'owner'
[13:13:59.384]   - Field: 'envir'
[13:13:59.384]   - Field: 'workers'
[13:13:59.384]   - Field: 'packages'
[13:13:59.384]   - Field: 'gc'
[13:13:59.385]   - Field: 'conditions'
[13:13:59.385]   - Field: 'persistent'
[13:13:59.385]   - Field: 'expr'
[13:13:59.385]   - Field: 'uuid'
[13:13:59.385]   - Field: 'seed'
[13:13:59.385]   - Field: 'version'
[13:13:59.386]   - Field: 'result'
[13:13:59.386]   - Field: 'asynchronous'
[13:13:59.386]   - Field: 'calls'
[13:13:59.386]   - Field: 'globals'
[13:13:59.386]   - Field: 'stdout'
[13:13:59.387]   - Field: 'earlySignal'
[13:13:59.387]   - Field: 'lazy'
[13:13:59.387]   - Field: 'state'
[13:13:59.387] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.387] - Launch lazy future ...
[13:13:59.388] Packages needed by the future expression (n = 0): <none>
[13:13:59.388] Packages needed by future strategies (n = 0): <none>
[13:13:59.388] {
[13:13:59.388]     {
[13:13:59.388]         {
[13:13:59.388]             ...future.startTime <- base::Sys.time()
[13:13:59.388]             {
[13:13:59.388]                 {
[13:13:59.388]                   {
[13:13:59.388]                     {
[13:13:59.388]                       base::local({
[13:13:59.388]                         has_future <- base::requireNamespace("future", 
[13:13:59.388]                           quietly = TRUE)
[13:13:59.388]                         if (has_future) {
[13:13:59.388]                           ns <- base::getNamespace("future")
[13:13:59.388]                           version <- ns[[".package"]][["version"]]
[13:13:59.388]                           if (is.null(version)) 
[13:13:59.388]                             version <- utils::packageVersion("future")
[13:13:59.388]                         }
[13:13:59.388]                         else {
[13:13:59.388]                           version <- NULL
[13:13:59.388]                         }
[13:13:59.388]                         if (!has_future || version < "1.8.0") {
[13:13:59.388]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.388]                             "", base::R.version$version.string), 
[13:13:59.388]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.388]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.388]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.388]                               "release", "version")], collapse = " "), 
[13:13:59.388]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.388]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.388]                             info)
[13:13:59.388]                           info <- base::paste(info, collapse = "; ")
[13:13:59.388]                           if (!has_future) {
[13:13:59.388]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.388]                               info)
[13:13:59.388]                           }
[13:13:59.388]                           else {
[13:13:59.388]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.388]                               info, version)
[13:13:59.388]                           }
[13:13:59.388]                           base::stop(msg)
[13:13:59.388]                         }
[13:13:59.388]                       })
[13:13:59.388]                     }
[13:13:59.388]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.388]                     base::options(mc.cores = 1L)
[13:13:59.388]                   }
[13:13:59.388]                   options(future.plan = NULL)
[13:13:59.388]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.388]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.388]                 }
[13:13:59.388]                 ...future.workdir <- getwd()
[13:13:59.388]             }
[13:13:59.388]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.388]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.388]         }
[13:13:59.388]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.388]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.388]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.388]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.388]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.388]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.388]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.388]             base::names(...future.oldOptions))
[13:13:59.388]     }
[13:13:59.388]     if (FALSE) {
[13:13:59.388]     }
[13:13:59.388]     else {
[13:13:59.388]         if (TRUE) {
[13:13:59.388]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.388]                 open = "w")
[13:13:59.388]         }
[13:13:59.388]         else {
[13:13:59.388]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.388]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.388]         }
[13:13:59.388]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.388]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.388]             base::sink(type = "output", split = FALSE)
[13:13:59.388]             base::close(...future.stdout)
[13:13:59.388]         }, add = TRUE)
[13:13:59.388]     }
[13:13:59.388]     ...future.frame <- base::sys.nframe()
[13:13:59.388]     ...future.conditions <- base::list()
[13:13:59.388]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.388]     if (FALSE) {
[13:13:59.388]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.388]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.388]     }
[13:13:59.388]     ...future.result <- base::tryCatch({
[13:13:59.388]         base::withCallingHandlers({
[13:13:59.388]             ...future.value <- base::withVisible(base::local({
[13:13:59.388]                 ...future.makeSendCondition <- local({
[13:13:59.388]                   sendCondition <- NULL
[13:13:59.388]                   function(frame = 1L) {
[13:13:59.388]                     if (is.function(sendCondition)) 
[13:13:59.388]                       return(sendCondition)
[13:13:59.388]                     ns <- getNamespace("parallel")
[13:13:59.388]                     if (exists("sendData", mode = "function", 
[13:13:59.388]                       envir = ns)) {
[13:13:59.388]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.388]                         envir = ns)
[13:13:59.388]                       envir <- sys.frame(frame)
[13:13:59.388]                       master <- NULL
[13:13:59.388]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.388]                         !identical(envir, emptyenv())) {
[13:13:59.388]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.388]                           inherits = FALSE)) {
[13:13:59.388]                           master <- get("master", mode = "list", 
[13:13:59.388]                             envir = envir, inherits = FALSE)
[13:13:59.388]                           if (inherits(master, c("SOCKnode", 
[13:13:59.388]                             "SOCK0node"))) {
[13:13:59.388]                             sendCondition <<- function(cond) {
[13:13:59.388]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.388]                                 success = TRUE)
[13:13:59.388]                               parallel_sendData(master, data)
[13:13:59.388]                             }
[13:13:59.388]                             return(sendCondition)
[13:13:59.388]                           }
[13:13:59.388]                         }
[13:13:59.388]                         frame <- frame + 1L
[13:13:59.388]                         envir <- sys.frame(frame)
[13:13:59.388]                       }
[13:13:59.388]                     }
[13:13:59.388]                     sendCondition <<- function(cond) NULL
[13:13:59.388]                   }
[13:13:59.388]                 })
[13:13:59.388]                 withCallingHandlers({
[13:13:59.388]                   {
[13:13:59.388]                     do.call(function(...) {
[13:13:59.388]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.388]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.388]                         ...future.globals.maxSize)) {
[13:13:59.388]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.388]                         on.exit(options(oopts), add = TRUE)
[13:13:59.388]                       }
[13:13:59.388]                       {
[13:13:59.388]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.388]                           FUN = function(jj) {
[13:13:59.388]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.388]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.388]                               envir = globalenv(), inherits = FALSE)
[13:13:59.388]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.388]                           })
[13:13:59.388]                       }
[13:13:59.388]                     }, args = future.call.arguments)
[13:13:59.388]                   }
[13:13:59.388]                 }, immediateCondition = function(cond) {
[13:13:59.388]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.388]                   sendCondition(cond)
[13:13:59.388]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.388]                   {
[13:13:59.388]                     inherits <- base::inherits
[13:13:59.388]                     invokeRestart <- base::invokeRestart
[13:13:59.388]                     is.null <- base::is.null
[13:13:59.388]                     muffled <- FALSE
[13:13:59.388]                     if (inherits(cond, "message")) {
[13:13:59.388]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.388]                       if (muffled) 
[13:13:59.388]                         invokeRestart("muffleMessage")
[13:13:59.388]                     }
[13:13:59.388]                     else if (inherits(cond, "warning")) {
[13:13:59.388]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.388]                       if (muffled) 
[13:13:59.388]                         invokeRestart("muffleWarning")
[13:13:59.388]                     }
[13:13:59.388]                     else if (inherits(cond, "condition")) {
[13:13:59.388]                       if (!is.null(pattern)) {
[13:13:59.388]                         computeRestarts <- base::computeRestarts
[13:13:59.388]                         grepl <- base::grepl
[13:13:59.388]                         restarts <- computeRestarts(cond)
[13:13:59.388]                         for (restart in restarts) {
[13:13:59.388]                           name <- restart$name
[13:13:59.388]                           if (is.null(name)) 
[13:13:59.388]                             next
[13:13:59.388]                           if (!grepl(pattern, name)) 
[13:13:59.388]                             next
[13:13:59.388]                           invokeRestart(restart)
[13:13:59.388]                           muffled <- TRUE
[13:13:59.388]                           break
[13:13:59.388]                         }
[13:13:59.388]                       }
[13:13:59.388]                     }
[13:13:59.388]                     invisible(muffled)
[13:13:59.388]                   }
[13:13:59.388]                   muffleCondition(cond)
[13:13:59.388]                 })
[13:13:59.388]             }))
[13:13:59.388]             future::FutureResult(value = ...future.value$value, 
[13:13:59.388]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.388]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.388]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.388]                     ...future.globalenv.names))
[13:13:59.388]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.388]         }, condition = base::local({
[13:13:59.388]             c <- base::c
[13:13:59.388]             inherits <- base::inherits
[13:13:59.388]             invokeRestart <- base::invokeRestart
[13:13:59.388]             length <- base::length
[13:13:59.388]             list <- base::list
[13:13:59.388]             seq.int <- base::seq.int
[13:13:59.388]             signalCondition <- base::signalCondition
[13:13:59.388]             sys.calls <- base::sys.calls
[13:13:59.388]             `[[` <- base::`[[`
[13:13:59.388]             `+` <- base::`+`
[13:13:59.388]             `<<-` <- base::`<<-`
[13:13:59.388]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.388]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.388]                   3L)]
[13:13:59.388]             }
[13:13:59.388]             function(cond) {
[13:13:59.388]                 is_error <- inherits(cond, "error")
[13:13:59.388]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.388]                   NULL)
[13:13:59.388]                 if (is_error) {
[13:13:59.388]                   sessionInformation <- function() {
[13:13:59.388]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.388]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.388]                       search = base::search(), system = base::Sys.info())
[13:13:59.388]                   }
[13:13:59.388]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.388]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.388]                     cond$call), session = sessionInformation(), 
[13:13:59.388]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.388]                   signalCondition(cond)
[13:13:59.388]                 }
[13:13:59.388]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.388]                 "immediateCondition"))) {
[13:13:59.388]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.388]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.388]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.388]                   if (TRUE && !signal) {
[13:13:59.388]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.388]                     {
[13:13:59.388]                       inherits <- base::inherits
[13:13:59.388]                       invokeRestart <- base::invokeRestart
[13:13:59.388]                       is.null <- base::is.null
[13:13:59.388]                       muffled <- FALSE
[13:13:59.388]                       if (inherits(cond, "message")) {
[13:13:59.388]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.388]                         if (muffled) 
[13:13:59.388]                           invokeRestart("muffleMessage")
[13:13:59.388]                       }
[13:13:59.388]                       else if (inherits(cond, "warning")) {
[13:13:59.388]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.388]                         if (muffled) 
[13:13:59.388]                           invokeRestart("muffleWarning")
[13:13:59.388]                       }
[13:13:59.388]                       else if (inherits(cond, "condition")) {
[13:13:59.388]                         if (!is.null(pattern)) {
[13:13:59.388]                           computeRestarts <- base::computeRestarts
[13:13:59.388]                           grepl <- base::grepl
[13:13:59.388]                           restarts <- computeRestarts(cond)
[13:13:59.388]                           for (restart in restarts) {
[13:13:59.388]                             name <- restart$name
[13:13:59.388]                             if (is.null(name)) 
[13:13:59.388]                               next
[13:13:59.388]                             if (!grepl(pattern, name)) 
[13:13:59.388]                               next
[13:13:59.388]                             invokeRestart(restart)
[13:13:59.388]                             muffled <- TRUE
[13:13:59.388]                             break
[13:13:59.388]                           }
[13:13:59.388]                         }
[13:13:59.388]                       }
[13:13:59.388]                       invisible(muffled)
[13:13:59.388]                     }
[13:13:59.388]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.388]                   }
[13:13:59.388]                 }
[13:13:59.388]                 else {
[13:13:59.388]                   if (TRUE) {
[13:13:59.388]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.388]                     {
[13:13:59.388]                       inherits <- base::inherits
[13:13:59.388]                       invokeRestart <- base::invokeRestart
[13:13:59.388]                       is.null <- base::is.null
[13:13:59.388]                       muffled <- FALSE
[13:13:59.388]                       if (inherits(cond, "message")) {
[13:13:59.388]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.388]                         if (muffled) 
[13:13:59.388]                           invokeRestart("muffleMessage")
[13:13:59.388]                       }
[13:13:59.388]                       else if (inherits(cond, "warning")) {
[13:13:59.388]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.388]                         if (muffled) 
[13:13:59.388]                           invokeRestart("muffleWarning")
[13:13:59.388]                       }
[13:13:59.388]                       else if (inherits(cond, "condition")) {
[13:13:59.388]                         if (!is.null(pattern)) {
[13:13:59.388]                           computeRestarts <- base::computeRestarts
[13:13:59.388]                           grepl <- base::grepl
[13:13:59.388]                           restarts <- computeRestarts(cond)
[13:13:59.388]                           for (restart in restarts) {
[13:13:59.388]                             name <- restart$name
[13:13:59.388]                             if (is.null(name)) 
[13:13:59.388]                               next
[13:13:59.388]                             if (!grepl(pattern, name)) 
[13:13:59.388]                               next
[13:13:59.388]                             invokeRestart(restart)
[13:13:59.388]                             muffled <- TRUE
[13:13:59.388]                             break
[13:13:59.388]                           }
[13:13:59.388]                         }
[13:13:59.388]                       }
[13:13:59.388]                       invisible(muffled)
[13:13:59.388]                     }
[13:13:59.388]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.388]                   }
[13:13:59.388]                 }
[13:13:59.388]             }
[13:13:59.388]         }))
[13:13:59.388]     }, error = function(ex) {
[13:13:59.388]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.388]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.388]                 ...future.rng), started = ...future.startTime, 
[13:13:59.388]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.388]             version = "1.8"), class = "FutureResult")
[13:13:59.388]     }, finally = {
[13:13:59.388]         if (!identical(...future.workdir, getwd())) 
[13:13:59.388]             setwd(...future.workdir)
[13:13:59.388]         {
[13:13:59.388]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.388]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.388]             }
[13:13:59.388]             base::options(...future.oldOptions)
[13:13:59.388]             if (.Platform$OS.type == "windows") {
[13:13:59.388]                 old_names <- names(...future.oldEnvVars)
[13:13:59.388]                 envs <- base::Sys.getenv()
[13:13:59.388]                 names <- names(envs)
[13:13:59.388]                 common <- intersect(names, old_names)
[13:13:59.388]                 added <- setdiff(names, old_names)
[13:13:59.388]                 removed <- setdiff(old_names, names)
[13:13:59.388]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.388]                   envs[common]]
[13:13:59.388]                 NAMES <- toupper(changed)
[13:13:59.388]                 args <- list()
[13:13:59.388]                 for (kk in seq_along(NAMES)) {
[13:13:59.388]                   name <- changed[[kk]]
[13:13:59.388]                   NAME <- NAMES[[kk]]
[13:13:59.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.388]                     next
[13:13:59.388]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.388]                 }
[13:13:59.388]                 NAMES <- toupper(added)
[13:13:59.388]                 for (kk in seq_along(NAMES)) {
[13:13:59.388]                   name <- added[[kk]]
[13:13:59.388]                   NAME <- NAMES[[kk]]
[13:13:59.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.388]                     next
[13:13:59.388]                   args[[name]] <- ""
[13:13:59.388]                 }
[13:13:59.388]                 NAMES <- toupper(removed)
[13:13:59.388]                 for (kk in seq_along(NAMES)) {
[13:13:59.388]                   name <- removed[[kk]]
[13:13:59.388]                   NAME <- NAMES[[kk]]
[13:13:59.388]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.388]                     next
[13:13:59.388]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.388]                 }
[13:13:59.388]                 if (length(args) > 0) 
[13:13:59.388]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.388]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.388]             }
[13:13:59.388]             else {
[13:13:59.388]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.388]             }
[13:13:59.388]             {
[13:13:59.388]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.388]                   0L) {
[13:13:59.388]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.388]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.388]                   base::options(opts)
[13:13:59.388]                 }
[13:13:59.388]                 {
[13:13:59.388]                   {
[13:13:59.388]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.388]                     NULL
[13:13:59.388]                   }
[13:13:59.388]                   options(future.plan = NULL)
[13:13:59.388]                   if (is.na(NA_character_)) 
[13:13:59.388]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.388]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.388]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.388]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.388]                     envir = parent.frame()) 
[13:13:59.388]                   {
[13:13:59.388]                     if (is.function(workers)) 
[13:13:59.388]                       workers <- workers()
[13:13:59.388]                     workers <- structure(as.integer(workers), 
[13:13:59.388]                       class = class(workers))
[13:13:59.388]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.388]                       workers >= 1)
[13:13:59.388]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.388]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.388]                     }
[13:13:59.388]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.388]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.388]                       envir = envir)
[13:13:59.388]                     if (!future$lazy) 
[13:13:59.388]                       future <- run(future)
[13:13:59.388]                     invisible(future)
[13:13:59.388]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.388]                 }
[13:13:59.388]             }
[13:13:59.388]         }
[13:13:59.388]     })
[13:13:59.388]     if (TRUE) {
[13:13:59.388]         base::sink(type = "output", split = FALSE)
[13:13:59.388]         if (TRUE) {
[13:13:59.388]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.388]         }
[13:13:59.388]         else {
[13:13:59.388]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.388]         }
[13:13:59.388]         base::close(...future.stdout)
[13:13:59.388]         ...future.stdout <- NULL
[13:13:59.388]     }
[13:13:59.388]     ...future.result$conditions <- ...future.conditions
[13:13:59.388]     ...future.result$finished <- base::Sys.time()
[13:13:59.388]     ...future.result
[13:13:59.388] }
[13:13:59.394] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.394] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.395] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.395] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.395] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.395] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:59.396] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:59.396] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:59.397] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:59.397] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.397] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.397] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.398] MultisessionFuture started
[13:13:59.398] - Launch lazy future ... done
[13:13:59.398] run() for 'MultisessionFuture' ... done
[13:13:59.399] Created future:
[13:13:59.414] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.414] - Validating connection of MultisessionFuture
[13:13:59.415] - received message: FutureResult
[13:13:59.415] - Received FutureResult
[13:13:59.415] - Erased future from FutureRegistry
[13:13:59.415] result() for ClusterFuture ...
[13:13:59.415] - result already collected: FutureResult
[13:13:59.415] result() for ClusterFuture ... done
[13:13:59.416] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.399] MultisessionFuture:
[13:13:59.399] Label: 'future_replicate-1'
[13:13:59.399] Expression:
[13:13:59.399] {
[13:13:59.399]     do.call(function(...) {
[13:13:59.399]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.399]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.399]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.399]             on.exit(options(oopts), add = TRUE)
[13:13:59.399]         }
[13:13:59.399]         {
[13:13:59.399]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.399]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.399]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.399]                   envir = globalenv(), inherits = FALSE)
[13:13:59.399]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.399]             })
[13:13:59.399]         }
[13:13:59.399]     }, args = future.call.arguments)
[13:13:59.399] }
[13:13:59.399] Lazy evaluation: FALSE
[13:13:59.399] Asynchronous evaluation: TRUE
[13:13:59.399] Local evaluation: TRUE
[13:13:59.399] Environment: R_GlobalEnv
[13:13:59.399] Capture standard output: TRUE
[13:13:59.399] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.399] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.399] Packages: <none>
[13:13:59.399] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.399] Resolved: TRUE
[13:13:59.399] Value: <not collected>
[13:13:59.399] Conditions captured: <none>
[13:13:59.399] Early signaling: FALSE
[13:13:59.399] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.399] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.416] Chunk #1 of 2 ... DONE
[13:13:59.416] Chunk #2 of 2 ...
[13:13:59.416]  - Finding globals in 'X' for chunk #2 ...
[13:13:59.417] getGlobalsAndPackages() ...
[13:13:59.417] Searching for globals...
[13:13:59.417] 
[13:13:59.417] Searching for globals ... DONE
[13:13:59.417] - globals: [0] <none>
[13:13:59.417] getGlobalsAndPackages() ... DONE
[13:13:59.418]    + additional globals found: [n=0] 
[13:13:59.418]    + additional namespaces needed: [n=0] 
[13:13:59.418]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:59.418]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.418]  - seeds: [3] <seeds>
[13:13:59.418]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.419] getGlobalsAndPackages() ...
[13:13:59.419] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.419] Resolving globals: FALSE
[13:13:59.419] Tweak future expression to call with '...' arguments ...
[13:13:59.419] {
[13:13:59.419]     do.call(function(...) {
[13:13:59.419]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.419]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.419]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.419]             on.exit(options(oopts), add = TRUE)
[13:13:59.419]         }
[13:13:59.419]         {
[13:13:59.419]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.419]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.419]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.419]                   envir = globalenv(), inherits = FALSE)
[13:13:59.419]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.419]             })
[13:13:59.419]         }
[13:13:59.419]     }, args = future.call.arguments)
[13:13:59.419] }
[13:13:59.420] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.420] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.421] 
[13:13:59.421] getGlobalsAndPackages() ... DONE
[13:13:59.421] run() for 'Future' ...
[13:13:59.421] - state: 'created'
[13:13:59.421] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.435] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.435] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.436]   - Field: 'node'
[13:13:59.436]   - Field: 'label'
[13:13:59.436]   - Field: 'local'
[13:13:59.436]   - Field: 'owner'
[13:13:59.436]   - Field: 'envir'
[13:13:59.436]   - Field: 'workers'
[13:13:59.437]   - Field: 'packages'
[13:13:59.437]   - Field: 'gc'
[13:13:59.437]   - Field: 'conditions'
[13:13:59.437]   - Field: 'persistent'
[13:13:59.437]   - Field: 'expr'
[13:13:59.437]   - Field: 'uuid'
[13:13:59.438]   - Field: 'seed'
[13:13:59.438]   - Field: 'version'
[13:13:59.438]   - Field: 'result'
[13:13:59.438]   - Field: 'asynchronous'
[13:13:59.438]   - Field: 'calls'
[13:13:59.439]   - Field: 'globals'
[13:13:59.439]   - Field: 'stdout'
[13:13:59.439]   - Field: 'earlySignal'
[13:13:59.439]   - Field: 'lazy'
[13:13:59.439]   - Field: 'state'
[13:13:59.439] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.440] - Launch lazy future ...
[13:13:59.440] Packages needed by the future expression (n = 0): <none>
[13:13:59.440] Packages needed by future strategies (n = 0): <none>
[13:13:59.441] {
[13:13:59.441]     {
[13:13:59.441]         {
[13:13:59.441]             ...future.startTime <- base::Sys.time()
[13:13:59.441]             {
[13:13:59.441]                 {
[13:13:59.441]                   {
[13:13:59.441]                     {
[13:13:59.441]                       base::local({
[13:13:59.441]                         has_future <- base::requireNamespace("future", 
[13:13:59.441]                           quietly = TRUE)
[13:13:59.441]                         if (has_future) {
[13:13:59.441]                           ns <- base::getNamespace("future")
[13:13:59.441]                           version <- ns[[".package"]][["version"]]
[13:13:59.441]                           if (is.null(version)) 
[13:13:59.441]                             version <- utils::packageVersion("future")
[13:13:59.441]                         }
[13:13:59.441]                         else {
[13:13:59.441]                           version <- NULL
[13:13:59.441]                         }
[13:13:59.441]                         if (!has_future || version < "1.8.0") {
[13:13:59.441]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.441]                             "", base::R.version$version.string), 
[13:13:59.441]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.441]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.441]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.441]                               "release", "version")], collapse = " "), 
[13:13:59.441]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.441]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.441]                             info)
[13:13:59.441]                           info <- base::paste(info, collapse = "; ")
[13:13:59.441]                           if (!has_future) {
[13:13:59.441]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.441]                               info)
[13:13:59.441]                           }
[13:13:59.441]                           else {
[13:13:59.441]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.441]                               info, version)
[13:13:59.441]                           }
[13:13:59.441]                           base::stop(msg)
[13:13:59.441]                         }
[13:13:59.441]                       })
[13:13:59.441]                     }
[13:13:59.441]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.441]                     base::options(mc.cores = 1L)
[13:13:59.441]                   }
[13:13:59.441]                   options(future.plan = NULL)
[13:13:59.441]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.441]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.441]                 }
[13:13:59.441]                 ...future.workdir <- getwd()
[13:13:59.441]             }
[13:13:59.441]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.441]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.441]         }
[13:13:59.441]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.441]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.441]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.441]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.441]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.441]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.441]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.441]             base::names(...future.oldOptions))
[13:13:59.441]     }
[13:13:59.441]     if (FALSE) {
[13:13:59.441]     }
[13:13:59.441]     else {
[13:13:59.441]         if (TRUE) {
[13:13:59.441]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.441]                 open = "w")
[13:13:59.441]         }
[13:13:59.441]         else {
[13:13:59.441]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.441]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.441]         }
[13:13:59.441]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.441]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.441]             base::sink(type = "output", split = FALSE)
[13:13:59.441]             base::close(...future.stdout)
[13:13:59.441]         }, add = TRUE)
[13:13:59.441]     }
[13:13:59.441]     ...future.frame <- base::sys.nframe()
[13:13:59.441]     ...future.conditions <- base::list()
[13:13:59.441]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.441]     if (FALSE) {
[13:13:59.441]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.441]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.441]     }
[13:13:59.441]     ...future.result <- base::tryCatch({
[13:13:59.441]         base::withCallingHandlers({
[13:13:59.441]             ...future.value <- base::withVisible(base::local({
[13:13:59.441]                 ...future.makeSendCondition <- local({
[13:13:59.441]                   sendCondition <- NULL
[13:13:59.441]                   function(frame = 1L) {
[13:13:59.441]                     if (is.function(sendCondition)) 
[13:13:59.441]                       return(sendCondition)
[13:13:59.441]                     ns <- getNamespace("parallel")
[13:13:59.441]                     if (exists("sendData", mode = "function", 
[13:13:59.441]                       envir = ns)) {
[13:13:59.441]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.441]                         envir = ns)
[13:13:59.441]                       envir <- sys.frame(frame)
[13:13:59.441]                       master <- NULL
[13:13:59.441]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.441]                         !identical(envir, emptyenv())) {
[13:13:59.441]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.441]                           inherits = FALSE)) {
[13:13:59.441]                           master <- get("master", mode = "list", 
[13:13:59.441]                             envir = envir, inherits = FALSE)
[13:13:59.441]                           if (inherits(master, c("SOCKnode", 
[13:13:59.441]                             "SOCK0node"))) {
[13:13:59.441]                             sendCondition <<- function(cond) {
[13:13:59.441]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.441]                                 success = TRUE)
[13:13:59.441]                               parallel_sendData(master, data)
[13:13:59.441]                             }
[13:13:59.441]                             return(sendCondition)
[13:13:59.441]                           }
[13:13:59.441]                         }
[13:13:59.441]                         frame <- frame + 1L
[13:13:59.441]                         envir <- sys.frame(frame)
[13:13:59.441]                       }
[13:13:59.441]                     }
[13:13:59.441]                     sendCondition <<- function(cond) NULL
[13:13:59.441]                   }
[13:13:59.441]                 })
[13:13:59.441]                 withCallingHandlers({
[13:13:59.441]                   {
[13:13:59.441]                     do.call(function(...) {
[13:13:59.441]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.441]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.441]                         ...future.globals.maxSize)) {
[13:13:59.441]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.441]                         on.exit(options(oopts), add = TRUE)
[13:13:59.441]                       }
[13:13:59.441]                       {
[13:13:59.441]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.441]                           FUN = function(jj) {
[13:13:59.441]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.441]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.441]                               envir = globalenv(), inherits = FALSE)
[13:13:59.441]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.441]                           })
[13:13:59.441]                       }
[13:13:59.441]                     }, args = future.call.arguments)
[13:13:59.441]                   }
[13:13:59.441]                 }, immediateCondition = function(cond) {
[13:13:59.441]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.441]                   sendCondition(cond)
[13:13:59.441]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.441]                   {
[13:13:59.441]                     inherits <- base::inherits
[13:13:59.441]                     invokeRestart <- base::invokeRestart
[13:13:59.441]                     is.null <- base::is.null
[13:13:59.441]                     muffled <- FALSE
[13:13:59.441]                     if (inherits(cond, "message")) {
[13:13:59.441]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.441]                       if (muffled) 
[13:13:59.441]                         invokeRestart("muffleMessage")
[13:13:59.441]                     }
[13:13:59.441]                     else if (inherits(cond, "warning")) {
[13:13:59.441]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.441]                       if (muffled) 
[13:13:59.441]                         invokeRestart("muffleWarning")
[13:13:59.441]                     }
[13:13:59.441]                     else if (inherits(cond, "condition")) {
[13:13:59.441]                       if (!is.null(pattern)) {
[13:13:59.441]                         computeRestarts <- base::computeRestarts
[13:13:59.441]                         grepl <- base::grepl
[13:13:59.441]                         restarts <- computeRestarts(cond)
[13:13:59.441]                         for (restart in restarts) {
[13:13:59.441]                           name <- restart$name
[13:13:59.441]                           if (is.null(name)) 
[13:13:59.441]                             next
[13:13:59.441]                           if (!grepl(pattern, name)) 
[13:13:59.441]                             next
[13:13:59.441]                           invokeRestart(restart)
[13:13:59.441]                           muffled <- TRUE
[13:13:59.441]                           break
[13:13:59.441]                         }
[13:13:59.441]                       }
[13:13:59.441]                     }
[13:13:59.441]                     invisible(muffled)
[13:13:59.441]                   }
[13:13:59.441]                   muffleCondition(cond)
[13:13:59.441]                 })
[13:13:59.441]             }))
[13:13:59.441]             future::FutureResult(value = ...future.value$value, 
[13:13:59.441]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.441]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.441]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.441]                     ...future.globalenv.names))
[13:13:59.441]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.441]         }, condition = base::local({
[13:13:59.441]             c <- base::c
[13:13:59.441]             inherits <- base::inherits
[13:13:59.441]             invokeRestart <- base::invokeRestart
[13:13:59.441]             length <- base::length
[13:13:59.441]             list <- base::list
[13:13:59.441]             seq.int <- base::seq.int
[13:13:59.441]             signalCondition <- base::signalCondition
[13:13:59.441]             sys.calls <- base::sys.calls
[13:13:59.441]             `[[` <- base::`[[`
[13:13:59.441]             `+` <- base::`+`
[13:13:59.441]             `<<-` <- base::`<<-`
[13:13:59.441]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.441]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.441]                   3L)]
[13:13:59.441]             }
[13:13:59.441]             function(cond) {
[13:13:59.441]                 is_error <- inherits(cond, "error")
[13:13:59.441]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.441]                   NULL)
[13:13:59.441]                 if (is_error) {
[13:13:59.441]                   sessionInformation <- function() {
[13:13:59.441]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.441]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.441]                       search = base::search(), system = base::Sys.info())
[13:13:59.441]                   }
[13:13:59.441]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.441]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.441]                     cond$call), session = sessionInformation(), 
[13:13:59.441]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.441]                   signalCondition(cond)
[13:13:59.441]                 }
[13:13:59.441]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.441]                 "immediateCondition"))) {
[13:13:59.441]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.441]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.441]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.441]                   if (TRUE && !signal) {
[13:13:59.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.441]                     {
[13:13:59.441]                       inherits <- base::inherits
[13:13:59.441]                       invokeRestart <- base::invokeRestart
[13:13:59.441]                       is.null <- base::is.null
[13:13:59.441]                       muffled <- FALSE
[13:13:59.441]                       if (inherits(cond, "message")) {
[13:13:59.441]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.441]                         if (muffled) 
[13:13:59.441]                           invokeRestart("muffleMessage")
[13:13:59.441]                       }
[13:13:59.441]                       else if (inherits(cond, "warning")) {
[13:13:59.441]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.441]                         if (muffled) 
[13:13:59.441]                           invokeRestart("muffleWarning")
[13:13:59.441]                       }
[13:13:59.441]                       else if (inherits(cond, "condition")) {
[13:13:59.441]                         if (!is.null(pattern)) {
[13:13:59.441]                           computeRestarts <- base::computeRestarts
[13:13:59.441]                           grepl <- base::grepl
[13:13:59.441]                           restarts <- computeRestarts(cond)
[13:13:59.441]                           for (restart in restarts) {
[13:13:59.441]                             name <- restart$name
[13:13:59.441]                             if (is.null(name)) 
[13:13:59.441]                               next
[13:13:59.441]                             if (!grepl(pattern, name)) 
[13:13:59.441]                               next
[13:13:59.441]                             invokeRestart(restart)
[13:13:59.441]                             muffled <- TRUE
[13:13:59.441]                             break
[13:13:59.441]                           }
[13:13:59.441]                         }
[13:13:59.441]                       }
[13:13:59.441]                       invisible(muffled)
[13:13:59.441]                     }
[13:13:59.441]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.441]                   }
[13:13:59.441]                 }
[13:13:59.441]                 else {
[13:13:59.441]                   if (TRUE) {
[13:13:59.441]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.441]                     {
[13:13:59.441]                       inherits <- base::inherits
[13:13:59.441]                       invokeRestart <- base::invokeRestart
[13:13:59.441]                       is.null <- base::is.null
[13:13:59.441]                       muffled <- FALSE
[13:13:59.441]                       if (inherits(cond, "message")) {
[13:13:59.441]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.441]                         if (muffled) 
[13:13:59.441]                           invokeRestart("muffleMessage")
[13:13:59.441]                       }
[13:13:59.441]                       else if (inherits(cond, "warning")) {
[13:13:59.441]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.441]                         if (muffled) 
[13:13:59.441]                           invokeRestart("muffleWarning")
[13:13:59.441]                       }
[13:13:59.441]                       else if (inherits(cond, "condition")) {
[13:13:59.441]                         if (!is.null(pattern)) {
[13:13:59.441]                           computeRestarts <- base::computeRestarts
[13:13:59.441]                           grepl <- base::grepl
[13:13:59.441]                           restarts <- computeRestarts(cond)
[13:13:59.441]                           for (restart in restarts) {
[13:13:59.441]                             name <- restart$name
[13:13:59.441]                             if (is.null(name)) 
[13:13:59.441]                               next
[13:13:59.441]                             if (!grepl(pattern, name)) 
[13:13:59.441]                               next
[13:13:59.441]                             invokeRestart(restart)
[13:13:59.441]                             muffled <- TRUE
[13:13:59.441]                             break
[13:13:59.441]                           }
[13:13:59.441]                         }
[13:13:59.441]                       }
[13:13:59.441]                       invisible(muffled)
[13:13:59.441]                     }
[13:13:59.441]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.441]                   }
[13:13:59.441]                 }
[13:13:59.441]             }
[13:13:59.441]         }))
[13:13:59.441]     }, error = function(ex) {
[13:13:59.441]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.441]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.441]                 ...future.rng), started = ...future.startTime, 
[13:13:59.441]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.441]             version = "1.8"), class = "FutureResult")
[13:13:59.441]     }, finally = {
[13:13:59.441]         if (!identical(...future.workdir, getwd())) 
[13:13:59.441]             setwd(...future.workdir)
[13:13:59.441]         {
[13:13:59.441]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.441]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.441]             }
[13:13:59.441]             base::options(...future.oldOptions)
[13:13:59.441]             if (.Platform$OS.type == "windows") {
[13:13:59.441]                 old_names <- names(...future.oldEnvVars)
[13:13:59.441]                 envs <- base::Sys.getenv()
[13:13:59.441]                 names <- names(envs)
[13:13:59.441]                 common <- intersect(names, old_names)
[13:13:59.441]                 added <- setdiff(names, old_names)
[13:13:59.441]                 removed <- setdiff(old_names, names)
[13:13:59.441]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.441]                   envs[common]]
[13:13:59.441]                 NAMES <- toupper(changed)
[13:13:59.441]                 args <- list()
[13:13:59.441]                 for (kk in seq_along(NAMES)) {
[13:13:59.441]                   name <- changed[[kk]]
[13:13:59.441]                   NAME <- NAMES[[kk]]
[13:13:59.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.441]                     next
[13:13:59.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.441]                 }
[13:13:59.441]                 NAMES <- toupper(added)
[13:13:59.441]                 for (kk in seq_along(NAMES)) {
[13:13:59.441]                   name <- added[[kk]]
[13:13:59.441]                   NAME <- NAMES[[kk]]
[13:13:59.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.441]                     next
[13:13:59.441]                   args[[name]] <- ""
[13:13:59.441]                 }
[13:13:59.441]                 NAMES <- toupper(removed)
[13:13:59.441]                 for (kk in seq_along(NAMES)) {
[13:13:59.441]                   name <- removed[[kk]]
[13:13:59.441]                   NAME <- NAMES[[kk]]
[13:13:59.441]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.441]                     next
[13:13:59.441]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.441]                 }
[13:13:59.441]                 if (length(args) > 0) 
[13:13:59.441]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.441]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.441]             }
[13:13:59.441]             else {
[13:13:59.441]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.441]             }
[13:13:59.441]             {
[13:13:59.441]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.441]                   0L) {
[13:13:59.441]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.441]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.441]                   base::options(opts)
[13:13:59.441]                 }
[13:13:59.441]                 {
[13:13:59.441]                   {
[13:13:59.441]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.441]                     NULL
[13:13:59.441]                   }
[13:13:59.441]                   options(future.plan = NULL)
[13:13:59.441]                   if (is.na(NA_character_)) 
[13:13:59.441]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.441]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.441]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.441]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.441]                     envir = parent.frame()) 
[13:13:59.441]                   {
[13:13:59.441]                     if (is.function(workers)) 
[13:13:59.441]                       workers <- workers()
[13:13:59.441]                     workers <- structure(as.integer(workers), 
[13:13:59.441]                       class = class(workers))
[13:13:59.441]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.441]                       workers >= 1)
[13:13:59.441]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.441]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.441]                     }
[13:13:59.441]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.441]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.441]                       envir = envir)
[13:13:59.441]                     if (!future$lazy) 
[13:13:59.441]                       future <- run(future)
[13:13:59.441]                     invisible(future)
[13:13:59.441]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.441]                 }
[13:13:59.441]             }
[13:13:59.441]         }
[13:13:59.441]     })
[13:13:59.441]     if (TRUE) {
[13:13:59.441]         base::sink(type = "output", split = FALSE)
[13:13:59.441]         if (TRUE) {
[13:13:59.441]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.441]         }
[13:13:59.441]         else {
[13:13:59.441]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.441]         }
[13:13:59.441]         base::close(...future.stdout)
[13:13:59.441]         ...future.stdout <- NULL
[13:13:59.441]     }
[13:13:59.441]     ...future.result$conditions <- ...future.conditions
[13:13:59.441]     ...future.result$finished <- base::Sys.time()
[13:13:59.441]     ...future.result
[13:13:59.441] }
[13:13:59.446] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.446] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.447] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.447] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.447] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.448] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.448] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.448] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.449] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.449] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.449] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.449] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.450] MultisessionFuture started
[13:13:59.450] - Launch lazy future ... done
[13:13:59.450] run() for 'MultisessionFuture' ... done
[13:13:59.451] Created future:
[13:13:59.467] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.467] - Validating connection of MultisessionFuture
[13:13:59.467] - received message: FutureResult
[13:13:59.467] - Received FutureResult
[13:13:59.467] - Erased future from FutureRegistry
[13:13:59.468] result() for ClusterFuture ...
[13:13:59.468] - result already collected: FutureResult
[13:13:59.468] result() for ClusterFuture ... done
[13:13:59.468] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.451] MultisessionFuture:
[13:13:59.451] Label: 'future_replicate-2'
[13:13:59.451] Expression:
[13:13:59.451] {
[13:13:59.451]     do.call(function(...) {
[13:13:59.451]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.451]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.451]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.451]             on.exit(options(oopts), add = TRUE)
[13:13:59.451]         }
[13:13:59.451]         {
[13:13:59.451]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.451]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.451]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.451]                   envir = globalenv(), inherits = FALSE)
[13:13:59.451]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.451]             })
[13:13:59.451]         }
[13:13:59.451]     }, args = future.call.arguments)
[13:13:59.451] }
[13:13:59.451] Lazy evaluation: FALSE
[13:13:59.451] Asynchronous evaluation: TRUE
[13:13:59.451] Local evaluation: TRUE
[13:13:59.451] Environment: R_GlobalEnv
[13:13:59.451] Capture standard output: TRUE
[13:13:59.451] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.451] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.451] Packages: <none>
[13:13:59.451] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.451] Resolved: TRUE
[13:13:59.451] Value: <not collected>
[13:13:59.451] Conditions captured: <none>
[13:13:59.451] Early signaling: FALSE
[13:13:59.451] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.451] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.468] Chunk #2 of 2 ... DONE
[13:13:59.469] Launching 2 futures (chunks) ... DONE
[13:13:59.469] Resolving 2 futures (chunks) ...
[13:13:59.469] resolve() on list ...
[13:13:59.469]  recursive: 0
[13:13:59.469]  length: 2
[13:13:59.469] 
[13:13:59.470] Future #1
[13:13:59.470] result() for ClusterFuture ...
[13:13:59.470] - result already collected: FutureResult
[13:13:59.470] result() for ClusterFuture ... done
[13:13:59.470] result() for ClusterFuture ...
[13:13:59.470] - result already collected: FutureResult
[13:13:59.471] result() for ClusterFuture ... done
[13:13:59.471] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.471] - nx: 2
[13:13:59.471] - relay: TRUE
[13:13:59.471] - stdout: TRUE
[13:13:59.471] - signal: TRUE
[13:13:59.472] - resignal: FALSE
[13:13:59.472] - force: TRUE
[13:13:59.472] - relayed: [n=2] FALSE, FALSE
[13:13:59.472] - queued futures: [n=2] FALSE, FALSE
[13:13:59.472]  - until=1
[13:13:59.472]  - relaying element #1
[13:13:59.472] result() for ClusterFuture ...
[13:13:59.473] - result already collected: FutureResult
[13:13:59.473] result() for ClusterFuture ... done
[13:13:59.473] result() for ClusterFuture ...
[13:13:59.473] - result already collected: FutureResult
[13:13:59.473] result() for ClusterFuture ... done
[13:13:59.473] result() for ClusterFuture ...
[13:13:59.474] - result already collected: FutureResult
[13:13:59.474] result() for ClusterFuture ... done
[13:13:59.474] result() for ClusterFuture ...
[13:13:59.474] - result already collected: FutureResult
[13:13:59.474] result() for ClusterFuture ... done
[13:13:59.474] - relayed: [n=2] TRUE, FALSE
[13:13:59.475] - queued futures: [n=2] TRUE, FALSE
[13:13:59.475] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.475]  length: 1 (resolved future 1)
[13:13:59.475] Future #2
[13:13:59.475] result() for ClusterFuture ...
[13:13:59.475] - result already collected: FutureResult
[13:13:59.476] result() for ClusterFuture ... done
[13:13:59.476] result() for ClusterFuture ...
[13:13:59.476] - result already collected: FutureResult
[13:13:59.476] result() for ClusterFuture ... done
[13:13:59.476] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.476] - nx: 2
[13:13:59.477] - relay: TRUE
[13:13:59.477] - stdout: TRUE
[13:13:59.477] - signal: TRUE
[13:13:59.477] - resignal: FALSE
[13:13:59.477] - force: TRUE
[13:13:59.477] - relayed: [n=2] TRUE, FALSE
[13:13:59.477] - queued futures: [n=2] TRUE, FALSE
[13:13:59.478]  - until=2
[13:13:59.478]  - relaying element #2
[13:13:59.478] result() for ClusterFuture ...
[13:13:59.478] - result already collected: FutureResult
[13:13:59.478] result() for ClusterFuture ... done
[13:13:59.478] result() for ClusterFuture ...
[13:13:59.479] - result already collected: FutureResult
[13:13:59.479] result() for ClusterFuture ... done
[13:13:59.479] result() for ClusterFuture ...
[13:13:59.479] - result already collected: FutureResult
[13:13:59.479] result() for ClusterFuture ... done
[13:13:59.479] result() for ClusterFuture ...
[13:13:59.480] - result already collected: FutureResult
[13:13:59.480] result() for ClusterFuture ... done
[13:13:59.480] - relayed: [n=2] TRUE, TRUE
[13:13:59.480] - queued futures: [n=2] TRUE, TRUE
[13:13:59.480] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.480]  length: 0 (resolved future 2)
[13:13:59.481] Relaying remaining futures
[13:13:59.481] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.481] - nx: 2
[13:13:59.481] - relay: TRUE
[13:13:59.481] - stdout: TRUE
[13:13:59.481] - signal: TRUE
[13:13:59.481] - resignal: FALSE
[13:13:59.482] - force: TRUE
[13:13:59.482] - relayed: [n=2] TRUE, TRUE
[13:13:59.482] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.482] - relayed: [n=2] TRUE, TRUE
[13:13:59.482] - queued futures: [n=2] TRUE, TRUE
[13:13:59.482] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.483] resolve() on list ... DONE
[13:13:59.483] result() for ClusterFuture ...
[13:13:59.483] - result already collected: FutureResult
[13:13:59.483] result() for ClusterFuture ... done
[13:13:59.483] result() for ClusterFuture ...
[13:13:59.483] - result already collected: FutureResult
[13:13:59.484] result() for ClusterFuture ... done
[13:13:59.484] result() for ClusterFuture ...
[13:13:59.484] - result already collected: FutureResult
[13:13:59.484] result() for ClusterFuture ... done
[13:13:59.484] result() for ClusterFuture ...
[13:13:59.484] - result already collected: FutureResult
[13:13:59.485] result() for ClusterFuture ... done
[13:13:59.485]  - Number of value chunks collected: 2
[13:13:59.485] Resolving 2 futures (chunks) ... DONE
[13:13:59.485] Reducing values from 2 chunks ...
[13:13:59.485]  - Number of values collected after concatenation: 5
[13:13:59.485]  - Number of values expected: 5
[13:13:59.485] Reducing values from 2 chunks ... DONE
[13:13:59.486] future_lapply() ... DONE
[13:13:59.486] future_lapply() ...
[13:13:59.486] Generating random seeds ...
[13:13:59.487] Generating random seed streams for 5 elements ...
[13:13:59.487] Generating random seed streams for 5 elements ... DONE
[13:13:59.487] Generating random seeds ... DONE
[13:13:59.487] 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
[13:13:59.490] Number of chunks: 2
[13:13:59.490] getGlobalsAndPackagesXApply() ...
[13:13:59.490]  - future.globals: TRUE
[13:13:59.491] getGlobalsAndPackages() ...
[13:13:59.491] Searching for globals...
[13:13:59.492] - globals found: [2] 'FUN', 'sample'
[13:13:59.492] Searching for globals ... DONE
[13:13:59.493] Resolving globals: FALSE
[13:13:59.493] The total size of the 1 globals is 616 bytes (616 bytes)
[13:13:59.493] The total size of the 1 globals exported for future expression ('FUN()') is 616 bytes.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There is one global: 'FUN' (616 bytes of class 'function')
[13:13:59.494] - globals: [1] 'FUN'
[13:13:59.494] 
[13:13:59.494] getGlobalsAndPackages() ... DONE
[13:13:59.494]  - globals found/used: [n=1] 'FUN'
[13:13:59.494]  - needed namespaces: [n=0] 
[13:13:59.494] Finding globals ... DONE
[13:13:59.495]  - use_args: TRUE
[13:13:59.495]  - Getting '...' globals ...
[13:13:59.495] resolve() on list ...
[13:13:59.495]  recursive: 0
[13:13:59.495]  length: 1
[13:13:59.496]  elements: '...'
[13:13:59.496]  length: 0 (resolved future 1)
[13:13:59.496] resolve() on list ... DONE
[13:13:59.496]    - '...' content: [n=0] 
[13:13:59.496] List of 1
[13:13:59.496]  $ ...: list()
[13:13:59.496]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.496]  - attr(*, "where")=List of 1
[13:13:59.496]   ..$ ...:<environment: 0x0000019ecc5a0260> 
[13:13:59.496]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.496]  - attr(*, "resolved")= logi TRUE
[13:13:59.496]  - attr(*, "total_size")= num NA
[13:13:59.499]  - Getting '...' globals ... DONE
[13:13:59.500] Globals to be used in all futures (chunks): [n=2] '...future.FUN', '...'
[13:13:59.500] List of 2
[13:13:59.500]  $ ...future.FUN:function (...)  
[13:13:59.500]  $ ...          : list()
[13:13:59.500]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.500]  - attr(*, "where")=List of 2
[13:13:59.500]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:59.500]   ..$ ...          :<environment: 0x0000019ecc5a0260> 
[13:13:59.500]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.500]  - attr(*, "resolved")= logi FALSE
[13:13:59.500]  - attr(*, "total_size")= num 616
[13:13:59.503] Packages to be attached in all futures: [n=0] 
[13:13:59.503] getGlobalsAndPackagesXApply() ... DONE
[13:13:59.504] Number of futures (= number of chunks): 2
[13:13:59.504] Launching 2 futures (chunks) ...
[13:13:59.505] Chunk #1 of 2 ...
[13:13:59.505]  - Finding globals in 'X' for chunk #1 ...
[13:13:59.505] getGlobalsAndPackages() ...
[13:13:59.506] Searching for globals...
[13:13:59.506] 
[13:13:59.506] Searching for globals ... DONE
[13:13:59.507] - globals: [0] <none>
[13:13:59.507] getGlobalsAndPackages() ... DONE
[13:13:59.507]    + additional globals found: [n=0] 
[13:13:59.507]    + additional namespaces needed: [n=0] 
[13:13:59.507]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:59.508]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.508]  - seeds: [2] <seeds>
[13:13:59.508]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.508] getGlobalsAndPackages() ...
[13:13:59.509] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.509] Resolving globals: FALSE
[13:13:59.509] Tweak future expression to call with '...' arguments ...
[13:13:59.509] {
[13:13:59.509]     do.call(function(...) {
[13:13:59.509]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.509]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.509]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.509]             on.exit(options(oopts), add = TRUE)
[13:13:59.509]         }
[13:13:59.509]         {
[13:13:59.509]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.509]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.509]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.509]                   envir = globalenv(), inherits = FALSE)
[13:13:59.509]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.509]             })
[13:13:59.509]         }
[13:13:59.509]     }, args = future.call.arguments)
[13:13:59.509] }
[13:13:59.510] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.511] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.511] 
[13:13:59.511] getGlobalsAndPackages() ... DONE
[13:13:59.512] run() for 'Future' ...
[13:13:59.512] - state: 'created'
[13:13:59.513] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.530] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.530] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.531]   - Field: 'node'
[13:13:59.531]   - Field: 'label'
[13:13:59.531]   - Field: 'local'
[13:13:59.531]   - Field: 'owner'
[13:13:59.532]   - Field: 'envir'
[13:13:59.532]   - Field: 'workers'
[13:13:59.532]   - Field: 'packages'
[13:13:59.532]   - Field: 'gc'
[13:13:59.532]   - Field: 'conditions'
[13:13:59.533]   - Field: 'persistent'
[13:13:59.533]   - Field: 'expr'
[13:13:59.533]   - Field: 'uuid'
[13:13:59.533]   - Field: 'seed'
[13:13:59.533]   - Field: 'version'
[13:13:59.534]   - Field: 'result'
[13:13:59.534]   - Field: 'asynchronous'
[13:13:59.534]   - Field: 'calls'
[13:13:59.534]   - Field: 'globals'
[13:13:59.534]   - Field: 'stdout'
[13:13:59.535]   - Field: 'earlySignal'
[13:13:59.535]   - Field: 'lazy'
[13:13:59.535]   - Field: 'state'
[13:13:59.535] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.535] - Launch lazy future ...
[13:13:59.536] Packages needed by the future expression (n = 0): <none>
[13:13:59.536] Packages needed by future strategies (n = 0): <none>
[13:13:59.537] {
[13:13:59.537]     {
[13:13:59.537]         {
[13:13:59.537]             ...future.startTime <- base::Sys.time()
[13:13:59.537]             {
[13:13:59.537]                 {
[13:13:59.537]                   {
[13:13:59.537]                     {
[13:13:59.537]                       base::local({
[13:13:59.537]                         has_future <- base::requireNamespace("future", 
[13:13:59.537]                           quietly = TRUE)
[13:13:59.537]                         if (has_future) {
[13:13:59.537]                           ns <- base::getNamespace("future")
[13:13:59.537]                           version <- ns[[".package"]][["version"]]
[13:13:59.537]                           if (is.null(version)) 
[13:13:59.537]                             version <- utils::packageVersion("future")
[13:13:59.537]                         }
[13:13:59.537]                         else {
[13:13:59.537]                           version <- NULL
[13:13:59.537]                         }
[13:13:59.537]                         if (!has_future || version < "1.8.0") {
[13:13:59.537]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.537]                             "", base::R.version$version.string), 
[13:13:59.537]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.537]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.537]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.537]                               "release", "version")], collapse = " "), 
[13:13:59.537]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.537]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.537]                             info)
[13:13:59.537]                           info <- base::paste(info, collapse = "; ")
[13:13:59.537]                           if (!has_future) {
[13:13:59.537]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.537]                               info)
[13:13:59.537]                           }
[13:13:59.537]                           else {
[13:13:59.537]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.537]                               info, version)
[13:13:59.537]                           }
[13:13:59.537]                           base::stop(msg)
[13:13:59.537]                         }
[13:13:59.537]                       })
[13:13:59.537]                     }
[13:13:59.537]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.537]                     base::options(mc.cores = 1L)
[13:13:59.537]                   }
[13:13:59.537]                   options(future.plan = NULL)
[13:13:59.537]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.537]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.537]                 }
[13:13:59.537]                 ...future.workdir <- getwd()
[13:13:59.537]             }
[13:13:59.537]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.537]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.537]         }
[13:13:59.537]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.537]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.537]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.537]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.537]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.537]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.537]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.537]             base::names(...future.oldOptions))
[13:13:59.537]     }
[13:13:59.537]     if (FALSE) {
[13:13:59.537]     }
[13:13:59.537]     else {
[13:13:59.537]         if (TRUE) {
[13:13:59.537]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.537]                 open = "w")
[13:13:59.537]         }
[13:13:59.537]         else {
[13:13:59.537]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.537]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.537]         }
[13:13:59.537]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.537]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.537]             base::sink(type = "output", split = FALSE)
[13:13:59.537]             base::close(...future.stdout)
[13:13:59.537]         }, add = TRUE)
[13:13:59.537]     }
[13:13:59.537]     ...future.frame <- base::sys.nframe()
[13:13:59.537]     ...future.conditions <- base::list()
[13:13:59.537]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.537]     if (FALSE) {
[13:13:59.537]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.537]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.537]     }
[13:13:59.537]     ...future.result <- base::tryCatch({
[13:13:59.537]         base::withCallingHandlers({
[13:13:59.537]             ...future.value <- base::withVisible(base::local({
[13:13:59.537]                 ...future.makeSendCondition <- local({
[13:13:59.537]                   sendCondition <- NULL
[13:13:59.537]                   function(frame = 1L) {
[13:13:59.537]                     if (is.function(sendCondition)) 
[13:13:59.537]                       return(sendCondition)
[13:13:59.537]                     ns <- getNamespace("parallel")
[13:13:59.537]                     if (exists("sendData", mode = "function", 
[13:13:59.537]                       envir = ns)) {
[13:13:59.537]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.537]                         envir = ns)
[13:13:59.537]                       envir <- sys.frame(frame)
[13:13:59.537]                       master <- NULL
[13:13:59.537]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.537]                         !identical(envir, emptyenv())) {
[13:13:59.537]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.537]                           inherits = FALSE)) {
[13:13:59.537]                           master <- get("master", mode = "list", 
[13:13:59.537]                             envir = envir, inherits = FALSE)
[13:13:59.537]                           if (inherits(master, c("SOCKnode", 
[13:13:59.537]                             "SOCK0node"))) {
[13:13:59.537]                             sendCondition <<- function(cond) {
[13:13:59.537]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.537]                                 success = TRUE)
[13:13:59.537]                               parallel_sendData(master, data)
[13:13:59.537]                             }
[13:13:59.537]                             return(sendCondition)
[13:13:59.537]                           }
[13:13:59.537]                         }
[13:13:59.537]                         frame <- frame + 1L
[13:13:59.537]                         envir <- sys.frame(frame)
[13:13:59.537]                       }
[13:13:59.537]                     }
[13:13:59.537]                     sendCondition <<- function(cond) NULL
[13:13:59.537]                   }
[13:13:59.537]                 })
[13:13:59.537]                 withCallingHandlers({
[13:13:59.537]                   {
[13:13:59.537]                     do.call(function(...) {
[13:13:59.537]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.537]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.537]                         ...future.globals.maxSize)) {
[13:13:59.537]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.537]                         on.exit(options(oopts), add = TRUE)
[13:13:59.537]                       }
[13:13:59.537]                       {
[13:13:59.537]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.537]                           FUN = function(jj) {
[13:13:59.537]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.537]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.537]                               envir = globalenv(), inherits = FALSE)
[13:13:59.537]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.537]                           })
[13:13:59.537]                       }
[13:13:59.537]                     }, args = future.call.arguments)
[13:13:59.537]                   }
[13:13:59.537]                 }, immediateCondition = function(cond) {
[13:13:59.537]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.537]                   sendCondition(cond)
[13:13:59.537]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.537]                   {
[13:13:59.537]                     inherits <- base::inherits
[13:13:59.537]                     invokeRestart <- base::invokeRestart
[13:13:59.537]                     is.null <- base::is.null
[13:13:59.537]                     muffled <- FALSE
[13:13:59.537]                     if (inherits(cond, "message")) {
[13:13:59.537]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.537]                       if (muffled) 
[13:13:59.537]                         invokeRestart("muffleMessage")
[13:13:59.537]                     }
[13:13:59.537]                     else if (inherits(cond, "warning")) {
[13:13:59.537]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.537]                       if (muffled) 
[13:13:59.537]                         invokeRestart("muffleWarning")
[13:13:59.537]                     }
[13:13:59.537]                     else if (inherits(cond, "condition")) {
[13:13:59.537]                       if (!is.null(pattern)) {
[13:13:59.537]                         computeRestarts <- base::computeRestarts
[13:13:59.537]                         grepl <- base::grepl
[13:13:59.537]                         restarts <- computeRestarts(cond)
[13:13:59.537]                         for (restart in restarts) {
[13:13:59.537]                           name <- restart$name
[13:13:59.537]                           if (is.null(name)) 
[13:13:59.537]                             next
[13:13:59.537]                           if (!grepl(pattern, name)) 
[13:13:59.537]                             next
[13:13:59.537]                           invokeRestart(restart)
[13:13:59.537]                           muffled <- TRUE
[13:13:59.537]                           break
[13:13:59.537]                         }
[13:13:59.537]                       }
[13:13:59.537]                     }
[13:13:59.537]                     invisible(muffled)
[13:13:59.537]                   }
[13:13:59.537]                   muffleCondition(cond)
[13:13:59.537]                 })
[13:13:59.537]             }))
[13:13:59.537]             future::FutureResult(value = ...future.value$value, 
[13:13:59.537]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.537]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.537]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.537]                     ...future.globalenv.names))
[13:13:59.537]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.537]         }, condition = base::local({
[13:13:59.537]             c <- base::c
[13:13:59.537]             inherits <- base::inherits
[13:13:59.537]             invokeRestart <- base::invokeRestart
[13:13:59.537]             length <- base::length
[13:13:59.537]             list <- base::list
[13:13:59.537]             seq.int <- base::seq.int
[13:13:59.537]             signalCondition <- base::signalCondition
[13:13:59.537]             sys.calls <- base::sys.calls
[13:13:59.537]             `[[` <- base::`[[`
[13:13:59.537]             `+` <- base::`+`
[13:13:59.537]             `<<-` <- base::`<<-`
[13:13:59.537]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.537]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.537]                   3L)]
[13:13:59.537]             }
[13:13:59.537]             function(cond) {
[13:13:59.537]                 is_error <- inherits(cond, "error")
[13:13:59.537]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.537]                   NULL)
[13:13:59.537]                 if (is_error) {
[13:13:59.537]                   sessionInformation <- function() {
[13:13:59.537]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.537]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.537]                       search = base::search(), system = base::Sys.info())
[13:13:59.537]                   }
[13:13:59.537]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.537]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.537]                     cond$call), session = sessionInformation(), 
[13:13:59.537]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.537]                   signalCondition(cond)
[13:13:59.537]                 }
[13:13:59.537]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.537]                 "immediateCondition"))) {
[13:13:59.537]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.537]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.537]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.537]                   if (TRUE && !signal) {
[13:13:59.537]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.537]                     {
[13:13:59.537]                       inherits <- base::inherits
[13:13:59.537]                       invokeRestart <- base::invokeRestart
[13:13:59.537]                       is.null <- base::is.null
[13:13:59.537]                       muffled <- FALSE
[13:13:59.537]                       if (inherits(cond, "message")) {
[13:13:59.537]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.537]                         if (muffled) 
[13:13:59.537]                           invokeRestart("muffleMessage")
[13:13:59.537]                       }
[13:13:59.537]                       else if (inherits(cond, "warning")) {
[13:13:59.537]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.537]                         if (muffled) 
[13:13:59.537]                           invokeRestart("muffleWarning")
[13:13:59.537]                       }
[13:13:59.537]                       else if (inherits(cond, "condition")) {
[13:13:59.537]                         if (!is.null(pattern)) {
[13:13:59.537]                           computeRestarts <- base::computeRestarts
[13:13:59.537]                           grepl <- base::grepl
[13:13:59.537]                           restarts <- computeRestarts(cond)
[13:13:59.537]                           for (restart in restarts) {
[13:13:59.537]                             name <- restart$name
[13:13:59.537]                             if (is.null(name)) 
[13:13:59.537]                               next
[13:13:59.537]                             if (!grepl(pattern, name)) 
[13:13:59.537]                               next
[13:13:59.537]                             invokeRestart(restart)
[13:13:59.537]                             muffled <- TRUE
[13:13:59.537]                             break
[13:13:59.537]                           }
[13:13:59.537]                         }
[13:13:59.537]                       }
[13:13:59.537]                       invisible(muffled)
[13:13:59.537]                     }
[13:13:59.537]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.537]                   }
[13:13:59.537]                 }
[13:13:59.537]                 else {
[13:13:59.537]                   if (TRUE) {
[13:13:59.537]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.537]                     {
[13:13:59.537]                       inherits <- base::inherits
[13:13:59.537]                       invokeRestart <- base::invokeRestart
[13:13:59.537]                       is.null <- base::is.null
[13:13:59.537]                       muffled <- FALSE
[13:13:59.537]                       if (inherits(cond, "message")) {
[13:13:59.537]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.537]                         if (muffled) 
[13:13:59.537]                           invokeRestart("muffleMessage")
[13:13:59.537]                       }
[13:13:59.537]                       else if (inherits(cond, "warning")) {
[13:13:59.537]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.537]                         if (muffled) 
[13:13:59.537]                           invokeRestart("muffleWarning")
[13:13:59.537]                       }
[13:13:59.537]                       else if (inherits(cond, "condition")) {
[13:13:59.537]                         if (!is.null(pattern)) {
[13:13:59.537]                           computeRestarts <- base::computeRestarts
[13:13:59.537]                           grepl <- base::grepl
[13:13:59.537]                           restarts <- computeRestarts(cond)
[13:13:59.537]                           for (restart in restarts) {
[13:13:59.537]                             name <- restart$name
[13:13:59.537]                             if (is.null(name)) 
[13:13:59.537]                               next
[13:13:59.537]                             if (!grepl(pattern, name)) 
[13:13:59.537]                               next
[13:13:59.537]                             invokeRestart(restart)
[13:13:59.537]                             muffled <- TRUE
[13:13:59.537]                             break
[13:13:59.537]                           }
[13:13:59.537]                         }
[13:13:59.537]                       }
[13:13:59.537]                       invisible(muffled)
[13:13:59.537]                     }
[13:13:59.537]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.537]                   }
[13:13:59.537]                 }
[13:13:59.537]             }
[13:13:59.537]         }))
[13:13:59.537]     }, error = function(ex) {
[13:13:59.537]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.537]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.537]                 ...future.rng), started = ...future.startTime, 
[13:13:59.537]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.537]             version = "1.8"), class = "FutureResult")
[13:13:59.537]     }, finally = {
[13:13:59.537]         if (!identical(...future.workdir, getwd())) 
[13:13:59.537]             setwd(...future.workdir)
[13:13:59.537]         {
[13:13:59.537]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.537]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.537]             }
[13:13:59.537]             base::options(...future.oldOptions)
[13:13:59.537]             if (.Platform$OS.type == "windows") {
[13:13:59.537]                 old_names <- names(...future.oldEnvVars)
[13:13:59.537]                 envs <- base::Sys.getenv()
[13:13:59.537]                 names <- names(envs)
[13:13:59.537]                 common <- intersect(names, old_names)
[13:13:59.537]                 added <- setdiff(names, old_names)
[13:13:59.537]                 removed <- setdiff(old_names, names)
[13:13:59.537]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.537]                   envs[common]]
[13:13:59.537]                 NAMES <- toupper(changed)
[13:13:59.537]                 args <- list()
[13:13:59.537]                 for (kk in seq_along(NAMES)) {
[13:13:59.537]                   name <- changed[[kk]]
[13:13:59.537]                   NAME <- NAMES[[kk]]
[13:13:59.537]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.537]                     next
[13:13:59.537]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.537]                 }
[13:13:59.537]                 NAMES <- toupper(added)
[13:13:59.537]                 for (kk in seq_along(NAMES)) {
[13:13:59.537]                   name <- added[[kk]]
[13:13:59.537]                   NAME <- NAMES[[kk]]
[13:13:59.537]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.537]                     next
[13:13:59.537]                   args[[name]] <- ""
[13:13:59.537]                 }
[13:13:59.537]                 NAMES <- toupper(removed)
[13:13:59.537]                 for (kk in seq_along(NAMES)) {
[13:13:59.537]                   name <- removed[[kk]]
[13:13:59.537]                   NAME <- NAMES[[kk]]
[13:13:59.537]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.537]                     next
[13:13:59.537]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.537]                 }
[13:13:59.537]                 if (length(args) > 0) 
[13:13:59.537]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.537]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.537]             }
[13:13:59.537]             else {
[13:13:59.537]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.537]             }
[13:13:59.537]             {
[13:13:59.537]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.537]                   0L) {
[13:13:59.537]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.537]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.537]                   base::options(opts)
[13:13:59.537]                 }
[13:13:59.537]                 {
[13:13:59.537]                   {
[13:13:59.537]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.537]                     NULL
[13:13:59.537]                   }
[13:13:59.537]                   options(future.plan = NULL)
[13:13:59.537]                   if (is.na(NA_character_)) 
[13:13:59.537]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.537]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.537]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.537]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.537]                     envir = parent.frame()) 
[13:13:59.537]                   {
[13:13:59.537]                     if (is.function(workers)) 
[13:13:59.537]                       workers <- workers()
[13:13:59.537]                     workers <- structure(as.integer(workers), 
[13:13:59.537]                       class = class(workers))
[13:13:59.537]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.537]                       workers >= 1)
[13:13:59.537]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.537]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.537]                     }
[13:13:59.537]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.537]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.537]                       envir = envir)
[13:13:59.537]                     if (!future$lazy) 
[13:13:59.537]                       future <- run(future)
[13:13:59.537]                     invisible(future)
[13:13:59.537]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.537]                 }
[13:13:59.537]             }
[13:13:59.537]         }
[13:13:59.537]     })
[13:13:59.537]     if (TRUE) {
[13:13:59.537]         base::sink(type = "output", split = FALSE)
[13:13:59.537]         if (TRUE) {
[13:13:59.537]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.537]         }
[13:13:59.537]         else {
[13:13:59.537]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.537]         }
[13:13:59.537]         base::close(...future.stdout)
[13:13:59.537]         ...future.stdout <- NULL
[13:13:59.537]     }
[13:13:59.537]     ...future.result$conditions <- ...future.conditions
[13:13:59.537]     ...future.result$finished <- base::Sys.time()
[13:13:59.537]     ...future.result
[13:13:59.537] }
[13:13:59.544] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.544] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.545] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.545] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.546] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.546] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:59.546] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:59.546] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:59.547] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:59.547] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.547] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.548] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.549] MultisessionFuture started
[13:13:59.549] - Launch lazy future ... done
[13:13:59.549] run() for 'MultisessionFuture' ... done
[13:13:59.549] Created future:
[13:13:59.564] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.564] - Validating connection of MultisessionFuture
[13:13:59.565] - received message: FutureResult
[13:13:59.565] - Received FutureResult
[13:13:59.565] - Erased future from FutureRegistry
[13:13:59.565] result() for ClusterFuture ...
[13:13:59.565] - result already collected: FutureResult
[13:13:59.566] result() for ClusterFuture ... done
[13:13:59.566] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.549] MultisessionFuture:
[13:13:59.549] Label: 'future_replicate-1'
[13:13:59.549] Expression:
[13:13:59.549] {
[13:13:59.549]     do.call(function(...) {
[13:13:59.549]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.549]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.549]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.549]             on.exit(options(oopts), add = TRUE)
[13:13:59.549]         }
[13:13:59.549]         {
[13:13:59.549]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.549]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.549]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.549]                   envir = globalenv(), inherits = FALSE)
[13:13:59.549]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.549]             })
[13:13:59.549]         }
[13:13:59.549]     }, args = future.call.arguments)
[13:13:59.549] }
[13:13:59.549] Lazy evaluation: FALSE
[13:13:59.549] Asynchronous evaluation: TRUE
[13:13:59.549] Local evaluation: TRUE
[13:13:59.549] Environment: R_GlobalEnv
[13:13:59.549] Capture standard output: TRUE
[13:13:59.549] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.549] Globals: 5 objects totaling 888 bytes (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, list '...future.seeds_ii' of 160 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.549] Packages: <none>
[13:13:59.549] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.549] Resolved: TRUE
[13:13:59.549] Value: <not collected>
[13:13:59.549] Conditions captured: <none>
[13:13:59.549] Early signaling: FALSE
[13:13:59.549] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.549] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.566] Chunk #1 of 2 ... DONE
[13:13:59.566] Chunk #2 of 2 ...
[13:13:59.567]  - Finding globals in 'X' for chunk #2 ...
[13:13:59.567] getGlobalsAndPackages() ...
[13:13:59.567] Searching for globals...
[13:13:59.567] 
[13:13:59.567] Searching for globals ... DONE
[13:13:59.568] - globals: [0] <none>
[13:13:59.568] getGlobalsAndPackages() ... DONE
[13:13:59.568]    + additional globals found: [n=0] 
[13:13:59.568]    + additional namespaces needed: [n=0] 
[13:13:59.568]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:59.568]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.569]  - seeds: [3] <seeds>
[13:13:59.569]  - All globals exported: [n=5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.569] getGlobalsAndPackages() ...
[13:13:59.569] - globals passed as-is: [5] '...future.FUN', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.569] Resolving globals: FALSE
[13:13:59.570] Tweak future expression to call with '...' arguments ...
[13:13:59.570] {
[13:13:59.570]     do.call(function(...) {
[13:13:59.570]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.570]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.570]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.570]             on.exit(options(oopts), add = TRUE)
[13:13:59.570]         }
[13:13:59.570]         {
[13:13:59.570]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.570]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.570]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.570]                   envir = globalenv(), inherits = FALSE)
[13:13:59.570]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.570]             })
[13:13:59.570]         }
[13:13:59.570]     }, args = future.call.arguments)
[13:13:59.570] }
[13:13:59.570] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.571] - globals: [5] '...future.FUN', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.571] 
[13:13:59.571] getGlobalsAndPackages() ... DONE
[13:13:59.572] run() for 'Future' ...
[13:13:59.572] - state: 'created'
[13:13:59.572] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.587] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.587] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.587]   - Field: 'node'
[13:13:59.587]   - Field: 'label'
[13:13:59.588]   - Field: 'local'
[13:13:59.588]   - Field: 'owner'
[13:13:59.588]   - Field: 'envir'
[13:13:59.588]   - Field: 'workers'
[13:13:59.588]   - Field: 'packages'
[13:13:59.589]   - Field: 'gc'
[13:13:59.589]   - Field: 'conditions'
[13:13:59.589]   - Field: 'persistent'
[13:13:59.589]   - Field: 'expr'
[13:13:59.589]   - Field: 'uuid'
[13:13:59.589]   - Field: 'seed'
[13:13:59.590]   - Field: 'version'
[13:13:59.590]   - Field: 'result'
[13:13:59.590]   - Field: 'asynchronous'
[13:13:59.590]   - Field: 'calls'
[13:13:59.590]   - Field: 'globals'
[13:13:59.590]   - Field: 'stdout'
[13:13:59.591]   - Field: 'earlySignal'
[13:13:59.591]   - Field: 'lazy'
[13:13:59.591]   - Field: 'state'
[13:13:59.591] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.591] - Launch lazy future ...
[13:13:59.592] Packages needed by the future expression (n = 0): <none>
[13:13:59.592] Packages needed by future strategies (n = 0): <none>
[13:13:59.593] {
[13:13:59.593]     {
[13:13:59.593]         {
[13:13:59.593]             ...future.startTime <- base::Sys.time()
[13:13:59.593]             {
[13:13:59.593]                 {
[13:13:59.593]                   {
[13:13:59.593]                     {
[13:13:59.593]                       base::local({
[13:13:59.593]                         has_future <- base::requireNamespace("future", 
[13:13:59.593]                           quietly = TRUE)
[13:13:59.593]                         if (has_future) {
[13:13:59.593]                           ns <- base::getNamespace("future")
[13:13:59.593]                           version <- ns[[".package"]][["version"]]
[13:13:59.593]                           if (is.null(version)) 
[13:13:59.593]                             version <- utils::packageVersion("future")
[13:13:59.593]                         }
[13:13:59.593]                         else {
[13:13:59.593]                           version <- NULL
[13:13:59.593]                         }
[13:13:59.593]                         if (!has_future || version < "1.8.0") {
[13:13:59.593]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.593]                             "", base::R.version$version.string), 
[13:13:59.593]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.593]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.593]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.593]                               "release", "version")], collapse = " "), 
[13:13:59.593]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.593]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.593]                             info)
[13:13:59.593]                           info <- base::paste(info, collapse = "; ")
[13:13:59.593]                           if (!has_future) {
[13:13:59.593]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.593]                               info)
[13:13:59.593]                           }
[13:13:59.593]                           else {
[13:13:59.593]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.593]                               info, version)
[13:13:59.593]                           }
[13:13:59.593]                           base::stop(msg)
[13:13:59.593]                         }
[13:13:59.593]                       })
[13:13:59.593]                     }
[13:13:59.593]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.593]                     base::options(mc.cores = 1L)
[13:13:59.593]                   }
[13:13:59.593]                   options(future.plan = NULL)
[13:13:59.593]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.593]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.593]                 }
[13:13:59.593]                 ...future.workdir <- getwd()
[13:13:59.593]             }
[13:13:59.593]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.593]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.593]         }
[13:13:59.593]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.593]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.593]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.593]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.593]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.593]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.593]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.593]             base::names(...future.oldOptions))
[13:13:59.593]     }
[13:13:59.593]     if (FALSE) {
[13:13:59.593]     }
[13:13:59.593]     else {
[13:13:59.593]         if (TRUE) {
[13:13:59.593]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.593]                 open = "w")
[13:13:59.593]         }
[13:13:59.593]         else {
[13:13:59.593]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.593]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.593]         }
[13:13:59.593]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.593]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.593]             base::sink(type = "output", split = FALSE)
[13:13:59.593]             base::close(...future.stdout)
[13:13:59.593]         }, add = TRUE)
[13:13:59.593]     }
[13:13:59.593]     ...future.frame <- base::sys.nframe()
[13:13:59.593]     ...future.conditions <- base::list()
[13:13:59.593]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.593]     if (FALSE) {
[13:13:59.593]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.593]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.593]     }
[13:13:59.593]     ...future.result <- base::tryCatch({
[13:13:59.593]         base::withCallingHandlers({
[13:13:59.593]             ...future.value <- base::withVisible(base::local({
[13:13:59.593]                 ...future.makeSendCondition <- local({
[13:13:59.593]                   sendCondition <- NULL
[13:13:59.593]                   function(frame = 1L) {
[13:13:59.593]                     if (is.function(sendCondition)) 
[13:13:59.593]                       return(sendCondition)
[13:13:59.593]                     ns <- getNamespace("parallel")
[13:13:59.593]                     if (exists("sendData", mode = "function", 
[13:13:59.593]                       envir = ns)) {
[13:13:59.593]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.593]                         envir = ns)
[13:13:59.593]                       envir <- sys.frame(frame)
[13:13:59.593]                       master <- NULL
[13:13:59.593]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.593]                         !identical(envir, emptyenv())) {
[13:13:59.593]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.593]                           inherits = FALSE)) {
[13:13:59.593]                           master <- get("master", mode = "list", 
[13:13:59.593]                             envir = envir, inherits = FALSE)
[13:13:59.593]                           if (inherits(master, c("SOCKnode", 
[13:13:59.593]                             "SOCK0node"))) {
[13:13:59.593]                             sendCondition <<- function(cond) {
[13:13:59.593]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.593]                                 success = TRUE)
[13:13:59.593]                               parallel_sendData(master, data)
[13:13:59.593]                             }
[13:13:59.593]                             return(sendCondition)
[13:13:59.593]                           }
[13:13:59.593]                         }
[13:13:59.593]                         frame <- frame + 1L
[13:13:59.593]                         envir <- sys.frame(frame)
[13:13:59.593]                       }
[13:13:59.593]                     }
[13:13:59.593]                     sendCondition <<- function(cond) NULL
[13:13:59.593]                   }
[13:13:59.593]                 })
[13:13:59.593]                 withCallingHandlers({
[13:13:59.593]                   {
[13:13:59.593]                     do.call(function(...) {
[13:13:59.593]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.593]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.593]                         ...future.globals.maxSize)) {
[13:13:59.593]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.593]                         on.exit(options(oopts), add = TRUE)
[13:13:59.593]                       }
[13:13:59.593]                       {
[13:13:59.593]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.593]                           FUN = function(jj) {
[13:13:59.593]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.593]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.593]                               envir = globalenv(), inherits = FALSE)
[13:13:59.593]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.593]                           })
[13:13:59.593]                       }
[13:13:59.593]                     }, args = future.call.arguments)
[13:13:59.593]                   }
[13:13:59.593]                 }, immediateCondition = function(cond) {
[13:13:59.593]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.593]                   sendCondition(cond)
[13:13:59.593]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.593]                   {
[13:13:59.593]                     inherits <- base::inherits
[13:13:59.593]                     invokeRestart <- base::invokeRestart
[13:13:59.593]                     is.null <- base::is.null
[13:13:59.593]                     muffled <- FALSE
[13:13:59.593]                     if (inherits(cond, "message")) {
[13:13:59.593]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.593]                       if (muffled) 
[13:13:59.593]                         invokeRestart("muffleMessage")
[13:13:59.593]                     }
[13:13:59.593]                     else if (inherits(cond, "warning")) {
[13:13:59.593]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.593]                       if (muffled) 
[13:13:59.593]                         invokeRestart("muffleWarning")
[13:13:59.593]                     }
[13:13:59.593]                     else if (inherits(cond, "condition")) {
[13:13:59.593]                       if (!is.null(pattern)) {
[13:13:59.593]                         computeRestarts <- base::computeRestarts
[13:13:59.593]                         grepl <- base::grepl
[13:13:59.593]                         restarts <- computeRestarts(cond)
[13:13:59.593]                         for (restart in restarts) {
[13:13:59.593]                           name <- restart$name
[13:13:59.593]                           if (is.null(name)) 
[13:13:59.593]                             next
[13:13:59.593]                           if (!grepl(pattern, name)) 
[13:13:59.593]                             next
[13:13:59.593]                           invokeRestart(restart)
[13:13:59.593]                           muffled <- TRUE
[13:13:59.593]                           break
[13:13:59.593]                         }
[13:13:59.593]                       }
[13:13:59.593]                     }
[13:13:59.593]                     invisible(muffled)
[13:13:59.593]                   }
[13:13:59.593]                   muffleCondition(cond)
[13:13:59.593]                 })
[13:13:59.593]             }))
[13:13:59.593]             future::FutureResult(value = ...future.value$value, 
[13:13:59.593]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.593]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.593]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.593]                     ...future.globalenv.names))
[13:13:59.593]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.593]         }, condition = base::local({
[13:13:59.593]             c <- base::c
[13:13:59.593]             inherits <- base::inherits
[13:13:59.593]             invokeRestart <- base::invokeRestart
[13:13:59.593]             length <- base::length
[13:13:59.593]             list <- base::list
[13:13:59.593]             seq.int <- base::seq.int
[13:13:59.593]             signalCondition <- base::signalCondition
[13:13:59.593]             sys.calls <- base::sys.calls
[13:13:59.593]             `[[` <- base::`[[`
[13:13:59.593]             `+` <- base::`+`
[13:13:59.593]             `<<-` <- base::`<<-`
[13:13:59.593]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.593]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.593]                   3L)]
[13:13:59.593]             }
[13:13:59.593]             function(cond) {
[13:13:59.593]                 is_error <- inherits(cond, "error")
[13:13:59.593]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.593]                   NULL)
[13:13:59.593]                 if (is_error) {
[13:13:59.593]                   sessionInformation <- function() {
[13:13:59.593]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.593]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.593]                       search = base::search(), system = base::Sys.info())
[13:13:59.593]                   }
[13:13:59.593]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.593]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.593]                     cond$call), session = sessionInformation(), 
[13:13:59.593]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.593]                   signalCondition(cond)
[13:13:59.593]                 }
[13:13:59.593]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.593]                 "immediateCondition"))) {
[13:13:59.593]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.593]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.593]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.593]                   if (TRUE && !signal) {
[13:13:59.593]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.593]                     {
[13:13:59.593]                       inherits <- base::inherits
[13:13:59.593]                       invokeRestart <- base::invokeRestart
[13:13:59.593]                       is.null <- base::is.null
[13:13:59.593]                       muffled <- FALSE
[13:13:59.593]                       if (inherits(cond, "message")) {
[13:13:59.593]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.593]                         if (muffled) 
[13:13:59.593]                           invokeRestart("muffleMessage")
[13:13:59.593]                       }
[13:13:59.593]                       else if (inherits(cond, "warning")) {
[13:13:59.593]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.593]                         if (muffled) 
[13:13:59.593]                           invokeRestart("muffleWarning")
[13:13:59.593]                       }
[13:13:59.593]                       else if (inherits(cond, "condition")) {
[13:13:59.593]                         if (!is.null(pattern)) {
[13:13:59.593]                           computeRestarts <- base::computeRestarts
[13:13:59.593]                           grepl <- base::grepl
[13:13:59.593]                           restarts <- computeRestarts(cond)
[13:13:59.593]                           for (restart in restarts) {
[13:13:59.593]                             name <- restart$name
[13:13:59.593]                             if (is.null(name)) 
[13:13:59.593]                               next
[13:13:59.593]                             if (!grepl(pattern, name)) 
[13:13:59.593]                               next
[13:13:59.593]                             invokeRestart(restart)
[13:13:59.593]                             muffled <- TRUE
[13:13:59.593]                             break
[13:13:59.593]                           }
[13:13:59.593]                         }
[13:13:59.593]                       }
[13:13:59.593]                       invisible(muffled)
[13:13:59.593]                     }
[13:13:59.593]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.593]                   }
[13:13:59.593]                 }
[13:13:59.593]                 else {
[13:13:59.593]                   if (TRUE) {
[13:13:59.593]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.593]                     {
[13:13:59.593]                       inherits <- base::inherits
[13:13:59.593]                       invokeRestart <- base::invokeRestart
[13:13:59.593]                       is.null <- base::is.null
[13:13:59.593]                       muffled <- FALSE
[13:13:59.593]                       if (inherits(cond, "message")) {
[13:13:59.593]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.593]                         if (muffled) 
[13:13:59.593]                           invokeRestart("muffleMessage")
[13:13:59.593]                       }
[13:13:59.593]                       else if (inherits(cond, "warning")) {
[13:13:59.593]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.593]                         if (muffled) 
[13:13:59.593]                           invokeRestart("muffleWarning")
[13:13:59.593]                       }
[13:13:59.593]                       else if (inherits(cond, "condition")) {
[13:13:59.593]                         if (!is.null(pattern)) {
[13:13:59.593]                           computeRestarts <- base::computeRestarts
[13:13:59.593]                           grepl <- base::grepl
[13:13:59.593]                           restarts <- computeRestarts(cond)
[13:13:59.593]                           for (restart in restarts) {
[13:13:59.593]                             name <- restart$name
[13:13:59.593]                             if (is.null(name)) 
[13:13:59.593]                               next
[13:13:59.593]                             if (!grepl(pattern, name)) 
[13:13:59.593]                               next
[13:13:59.593]                             invokeRestart(restart)
[13:13:59.593]                             muffled <- TRUE
[13:13:59.593]                             break
[13:13:59.593]                           }
[13:13:59.593]                         }
[13:13:59.593]                       }
[13:13:59.593]                       invisible(muffled)
[13:13:59.593]                     }
[13:13:59.593]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.593]                   }
[13:13:59.593]                 }
[13:13:59.593]             }
[13:13:59.593]         }))
[13:13:59.593]     }, error = function(ex) {
[13:13:59.593]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.593]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.593]                 ...future.rng), started = ...future.startTime, 
[13:13:59.593]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.593]             version = "1.8"), class = "FutureResult")
[13:13:59.593]     }, finally = {
[13:13:59.593]         if (!identical(...future.workdir, getwd())) 
[13:13:59.593]             setwd(...future.workdir)
[13:13:59.593]         {
[13:13:59.593]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.593]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.593]             }
[13:13:59.593]             base::options(...future.oldOptions)
[13:13:59.593]             if (.Platform$OS.type == "windows") {
[13:13:59.593]                 old_names <- names(...future.oldEnvVars)
[13:13:59.593]                 envs <- base::Sys.getenv()
[13:13:59.593]                 names <- names(envs)
[13:13:59.593]                 common <- intersect(names, old_names)
[13:13:59.593]                 added <- setdiff(names, old_names)
[13:13:59.593]                 removed <- setdiff(old_names, names)
[13:13:59.593]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.593]                   envs[common]]
[13:13:59.593]                 NAMES <- toupper(changed)
[13:13:59.593]                 args <- list()
[13:13:59.593]                 for (kk in seq_along(NAMES)) {
[13:13:59.593]                   name <- changed[[kk]]
[13:13:59.593]                   NAME <- NAMES[[kk]]
[13:13:59.593]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.593]                     next
[13:13:59.593]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.593]                 }
[13:13:59.593]                 NAMES <- toupper(added)
[13:13:59.593]                 for (kk in seq_along(NAMES)) {
[13:13:59.593]                   name <- added[[kk]]
[13:13:59.593]                   NAME <- NAMES[[kk]]
[13:13:59.593]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.593]                     next
[13:13:59.593]                   args[[name]] <- ""
[13:13:59.593]                 }
[13:13:59.593]                 NAMES <- toupper(removed)
[13:13:59.593]                 for (kk in seq_along(NAMES)) {
[13:13:59.593]                   name <- removed[[kk]]
[13:13:59.593]                   NAME <- NAMES[[kk]]
[13:13:59.593]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.593]                     next
[13:13:59.593]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.593]                 }
[13:13:59.593]                 if (length(args) > 0) 
[13:13:59.593]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.593]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.593]             }
[13:13:59.593]             else {
[13:13:59.593]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.593]             }
[13:13:59.593]             {
[13:13:59.593]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.593]                   0L) {
[13:13:59.593]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.593]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.593]                   base::options(opts)
[13:13:59.593]                 }
[13:13:59.593]                 {
[13:13:59.593]                   {
[13:13:59.593]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.593]                     NULL
[13:13:59.593]                   }
[13:13:59.593]                   options(future.plan = NULL)
[13:13:59.593]                   if (is.na(NA_character_)) 
[13:13:59.593]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.593]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.593]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.593]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.593]                     envir = parent.frame()) 
[13:13:59.593]                   {
[13:13:59.593]                     if (is.function(workers)) 
[13:13:59.593]                       workers <- workers()
[13:13:59.593]                     workers <- structure(as.integer(workers), 
[13:13:59.593]                       class = class(workers))
[13:13:59.593]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.593]                       workers >= 1)
[13:13:59.593]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.593]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.593]                     }
[13:13:59.593]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.593]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.593]                       envir = envir)
[13:13:59.593]                     if (!future$lazy) 
[13:13:59.593]                       future <- run(future)
[13:13:59.593]                     invisible(future)
[13:13:59.593]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.593]                 }
[13:13:59.593]             }
[13:13:59.593]         }
[13:13:59.593]     })
[13:13:59.593]     if (TRUE) {
[13:13:59.593]         base::sink(type = "output", split = FALSE)
[13:13:59.593]         if (TRUE) {
[13:13:59.593]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.593]         }
[13:13:59.593]         else {
[13:13:59.593]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.593]         }
[13:13:59.593]         base::close(...future.stdout)
[13:13:59.593]         ...future.stdout <- NULL
[13:13:59.593]     }
[13:13:59.593]     ...future.result$conditions <- ...future.conditions
[13:13:59.593]     ...future.result$finished <- base::Sys.time()
[13:13:59.593]     ...future.result
[13:13:59.593] }
[13:13:59.598] Exporting 5 global objects (616 bytes) to cluster node #1 ...
[13:13:59.599] Exporting '...future.FUN' (616 bytes) to cluster node #1 ...
[13:13:59.599] Exporting '...future.FUN' (616 bytes) to cluster node #1 ... DONE
[13:13:59.599] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.600] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.600] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.600] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.601] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.601] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.601] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.602] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.602] Exporting 5 global objects (616 bytes) to cluster node #1 ... DONE
[13:13:59.602] MultisessionFuture started
[13:13:59.603] - Launch lazy future ... done
[13:13:59.603] run() for 'MultisessionFuture' ... done
[13:13:59.603] Created future:
[13:13:59.619] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.619] - Validating connection of MultisessionFuture
[13:13:59.620] - received message: FutureResult
[13:13:59.620] - Received FutureResult
[13:13:59.620] - Erased future from FutureRegistry
[13:13:59.620] result() for ClusterFuture ...
[13:13:59.620] - result already collected: FutureResult
[13:13:59.620] result() for ClusterFuture ... done
[13:13:59.621] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.603] MultisessionFuture:
[13:13:59.603] Label: 'future_replicate-2'
[13:13:59.603] Expression:
[13:13:59.603] {
[13:13:59.603]     do.call(function(...) {
[13:13:59.603]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.603]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.603]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.603]             on.exit(options(oopts), add = TRUE)
[13:13:59.603]         }
[13:13:59.603]         {
[13:13:59.603]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.603]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.603]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.603]                   envir = globalenv(), inherits = FALSE)
[13:13:59.603]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.603]             })
[13:13:59.603]         }
[13:13:59.603]     }, args = future.call.arguments)
[13:13:59.603] }
[13:13:59.603] Lazy evaluation: FALSE
[13:13:59.603] Asynchronous evaluation: TRUE
[13:13:59.603] Local evaluation: TRUE
[13:13:59.603] Environment: R_GlobalEnv
[13:13:59.603] Capture standard output: TRUE
[13:13:59.603] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.603] Globals: 5 objects totaling 1.00 KiB (function '...future.FUN' of 616 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, list '...future.seeds_ii' of 240 bytes, NULL '...future.globals.maxSize' of 0 bytes)
[13:13:59.603] Packages: <none>
[13:13:59.603] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.603] Resolved: TRUE
[13:13:59.603] Value: <not collected>
[13:13:59.603] Conditions captured: <none>
[13:13:59.603] Early signaling: FALSE
[13:13:59.603] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.603] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.621] Chunk #2 of 2 ... DONE
[13:13:59.621] Launching 2 futures (chunks) ... DONE
[13:13:59.621] Resolving 2 futures (chunks) ...
[13:13:59.622] resolve() on list ...
[13:13:59.622]  recursive: 0
[13:13:59.622]  length: 2
[13:13:59.622] 
[13:13:59.622] Future #1
[13:13:59.622] result() for ClusterFuture ...
[13:13:59.623] - result already collected: FutureResult
[13:13:59.623] result() for ClusterFuture ... done
[13:13:59.623] result() for ClusterFuture ...
[13:13:59.623] - result already collected: FutureResult
[13:13:59.623] result() for ClusterFuture ... done
[13:13:59.623] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.624] - nx: 2
[13:13:59.624] - relay: TRUE
[13:13:59.624] - stdout: TRUE
[13:13:59.624] - signal: TRUE
[13:13:59.624] - resignal: FALSE
[13:13:59.624] - force: TRUE
[13:13:59.624] - relayed: [n=2] FALSE, FALSE
[13:13:59.625] - queued futures: [n=2] FALSE, FALSE
[13:13:59.625]  - until=1
[13:13:59.625]  - relaying element #1
[13:13:59.625] result() for ClusterFuture ...
[13:13:59.625] - result already collected: FutureResult
[13:13:59.625] result() for ClusterFuture ... done
[13:13:59.626] result() for ClusterFuture ...
[13:13:59.626] - result already collected: FutureResult
[13:13:59.626] result() for ClusterFuture ... done
[13:13:59.626] result() for ClusterFuture ...
[13:13:59.626] - result already collected: FutureResult
[13:13:59.626] result() for ClusterFuture ... done
[13:13:59.627] result() for ClusterFuture ...
[13:13:59.627] - result already collected: FutureResult
[13:13:59.627] result() for ClusterFuture ... done
[13:13:59.627] - relayed: [n=2] TRUE, FALSE
[13:13:59.627] - queued futures: [n=2] TRUE, FALSE
[13:13:59.627] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.628]  length: 1 (resolved future 1)
[13:13:59.628] Future #2
[13:13:59.628] result() for ClusterFuture ...
[13:13:59.628] - result already collected: FutureResult
[13:13:59.628] result() for ClusterFuture ... done
[13:13:59.628] result() for ClusterFuture ...
[13:13:59.629] - result already collected: FutureResult
[13:13:59.631] result() for ClusterFuture ... done
[13:13:59.632] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.632] - nx: 2
[13:13:59.632] - relay: TRUE
[13:13:59.632] - stdout: TRUE
[13:13:59.632] - signal: TRUE
[13:13:59.633] - resignal: FALSE
[13:13:59.633] - force: TRUE
[13:13:59.633] - relayed: [n=2] TRUE, FALSE
[13:13:59.633] - queued futures: [n=2] TRUE, FALSE
[13:13:59.633]  - until=2
[13:13:59.633]  - relaying element #2
[13:13:59.634] result() for ClusterFuture ...
[13:13:59.634] - result already collected: FutureResult
[13:13:59.634] result() for ClusterFuture ... done
[13:13:59.634] result() for ClusterFuture ...
[13:13:59.634] - result already collected: FutureResult
[13:13:59.634] result() for ClusterFuture ... done
[13:13:59.635] result() for ClusterFuture ...
[13:13:59.635] - result already collected: FutureResult
[13:13:59.635] result() for ClusterFuture ... done
[13:13:59.635] result() for ClusterFuture ...
[13:13:59.635] - result already collected: FutureResult
[13:13:59.635] result() for ClusterFuture ... done
[13:13:59.636] - relayed: [n=2] TRUE, TRUE
[13:13:59.636] - queued futures: [n=2] TRUE, TRUE
[13:13:59.636] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.636]  length: 0 (resolved future 2)
[13:13:59.636] Relaying remaining futures
[13:13:59.636] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.637] - nx: 2
[13:13:59.637] - relay: TRUE
[13:13:59.637] - stdout: TRUE
[13:13:59.637] - signal: TRUE
[13:13:59.637] - resignal: FALSE
[13:13:59.637] - force: TRUE
[13:13:59.638] - relayed: [n=2] TRUE, TRUE
[13:13:59.638] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.638] - relayed: [n=2] TRUE, TRUE
[13:13:59.638] - queued futures: [n=2] TRUE, TRUE
[13:13:59.638] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.638] resolve() on list ... DONE
[13:13:59.639] result() for ClusterFuture ...
[13:13:59.639] - result already collected: FutureResult
[13:13:59.639] result() for ClusterFuture ... done
[13:13:59.639] result() for ClusterFuture ...
[13:13:59.639] - result already collected: FutureResult
[13:13:59.639] result() for ClusterFuture ... done
[13:13:59.640] result() for ClusterFuture ...
[13:13:59.640] - result already collected: FutureResult
[13:13:59.640] result() for ClusterFuture ... done
[13:13:59.640] result() for ClusterFuture ...
[13:13:59.640] - result already collected: FutureResult
[13:13:59.640] result() for ClusterFuture ... done
[13:13:59.641]  - Number of value chunks collected: 2
[13:13:59.641] Resolving 2 futures (chunks) ... DONE
[13:13:59.641] Reducing values from 2 chunks ...
[13:13:59.641]  - Number of values collected after concatenation: 5
[13:13:59.641]  - Number of values expected: 5
[13:13:59.641] Reducing values from 2 chunks ... DONE
[13:13:59.642] future_lapply() ... DONE
- example(replicate) ...
[13:13:59.642] future_lapply() ...
[13:13:59.643] Generating random seeds ...
[13:13:59.643] Generating random seed streams for 5 elements ...
[13:13:59.643] Generating random seed streams for 5 elements ... DONE
[13:13:59.643] Generating random seeds ... DONE
[13:13:59.643] 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
[13:13:59.647] Number of chunks: 2
[13:13:59.647] getGlobalsAndPackagesXApply() ...
[13:13:59.647]  - future.globals: TRUE
[13:13:59.647] getGlobalsAndPackages() ...
[13:13:59.647] Searching for globals...
[13:13:59.650] - globals found: [4] 'FUN', 'foo', 'x', 'c'
[13:13:59.650] Searching for globals ... DONE
[13:13:59.650] Resolving globals: FALSE
[13:13:59.651] The total size of the 3 globals is 2.15 KiB (2200 bytes)
[13:13:59.651] The total size of the 3 globals exported for future expression ('FUN()') is 2.15 KiB.. This exceeds the maximum allowed size of 500.00 MiB (option 'future.globals.maxSize'). There are three globals: 'foo' (1.60 KiB of class 'function'), 'FUN' (504 bytes of class 'function') and 'x' (56 bytes of class 'numeric')
[13:13:59.651] - globals: [3] 'FUN', 'foo', 'x'
[13:13:59.652] 
[13:13:59.652] getGlobalsAndPackages() ... DONE
[13:13:59.652]  - globals found/used: [n=3] 'FUN', 'foo', 'x'
[13:13:59.652]  - needed namespaces: [n=0] 
[13:13:59.652] Finding globals ... DONE
[13:13:59.652]  - use_args: TRUE
[13:13:59.653]  - Getting '...' globals ...
[13:13:59.653] resolve() on list ...
[13:13:59.653]  recursive: 0
[13:13:59.653]  length: 1
[13:13:59.654]  elements: '...'
[13:13:59.654]  length: 0 (resolved future 1)
[13:13:59.654] resolve() on list ... DONE
[13:13:59.654]    - '...' content: [n=0] 
[13:13:59.654] List of 1
[13:13:59.654]  $ ...: list()
[13:13:59.654]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.654]  - attr(*, "where")=List of 1
[13:13:59.654]   ..$ ...:<environment: 0x0000019eca7b04c8> 
[13:13:59.654]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.654]  - attr(*, "resolved")= logi TRUE
[13:13:59.654]  - attr(*, "total_size")= num NA
[13:13:59.658]  - Getting '...' globals ... DONE
[13:13:59.658] Globals to be used in all futures (chunks): [n=4] '...future.FUN', 'foo', 'x', '...'
[13:13:59.658] List of 4
[13:13:59.658]  $ ...future.FUN:function (...)  
[13:13:59.658]  $ foo          :function (x = 1, y = 2)  
[13:13:59.658]  $ x            : num 3
[13:13:59.658]  $ ...          : list()
[13:13:59.658]   ..- attr(*, "class")= chr [1:2] "DotDotDotList" "list"
[13:13:59.658]  - attr(*, "where")=List of 4
[13:13:59.658]   ..$ ...future.FUN:<environment: R_EmptyEnv> 
[13:13:59.658]   ..$ foo          :<environment: R_EmptyEnv> 
[13:13:59.658]   ..$ x            :<environment: R_EmptyEnv> 
[13:13:59.658]   ..$ ...          :<environment: 0x0000019eca7b04c8> 
[13:13:59.658]  - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list"
[13:13:59.658]  - attr(*, "resolved")= logi FALSE
[13:13:59.658]  - attr(*, "total_size")= num 2200
[13:13:59.663] Packages to be attached in all futures: [n=0] 
[13:13:59.663] getGlobalsAndPackagesXApply() ... DONE
[13:13:59.664] Number of futures (= number of chunks): 2
[13:13:59.664] Launching 2 futures (chunks) ...
[13:13:59.664] Chunk #1 of 2 ...
[13:13:59.664]  - Finding globals in 'X' for chunk #1 ...
[13:13:59.664] getGlobalsAndPackages() ...
[13:13:59.664] Searching for globals...
[13:13:59.665] 
[13:13:59.665] Searching for globals ... DONE
[13:13:59.665] - globals: [0] <none>
[13:13:59.665] getGlobalsAndPackages() ... DONE
[13:13:59.666]    + additional globals found: [n=0] 
[13:13:59.666]    + additional namespaces needed: [n=0] 
[13:13:59.666]  - Finding globals in 'X' for chunk #1 ... DONE
[13:13:59.666]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.666]  - seeds: [2] <seeds>
[13:13:59.666]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.667] getGlobalsAndPackages() ...
[13:13:59.667] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.667] Resolving globals: FALSE
[13:13:59.667] Tweak future expression to call with '...' arguments ...
[13:13:59.667] {
[13:13:59.667]     do.call(function(...) {
[13:13:59.667]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.667]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.667]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.667]             on.exit(options(oopts), add = TRUE)
[13:13:59.667]         }
[13:13:59.667]         {
[13:13:59.667]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.667]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.667]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.667]                   envir = globalenv(), inherits = FALSE)
[13:13:59.667]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.667]             })
[13:13:59.667]         }
[13:13:59.667]     }, args = future.call.arguments)
[13:13:59.667] }
[13:13:59.668] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.668] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.669] 
[13:13:59.669] getGlobalsAndPackages() ... DONE
[13:13:59.669] run() for 'Future' ...
[13:13:59.669] - state: 'created'
[13:13:59.670] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.683] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.684] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.684]   - Field: 'node'
[13:13:59.684]   - Field: 'label'
[13:13:59.684]   - Field: 'local'
[13:13:59.684]   - Field: 'owner'
[13:13:59.685]   - Field: 'envir'
[13:13:59.685]   - Field: 'workers'
[13:13:59.685]   - Field: 'packages'
[13:13:59.685]   - Field: 'gc'
[13:13:59.685]   - Field: 'conditions'
[13:13:59.686]   - Field: 'persistent'
[13:13:59.686]   - Field: 'expr'
[13:13:59.686]   - Field: 'uuid'
[13:13:59.686]   - Field: 'seed'
[13:13:59.686]   - Field: 'version'
[13:13:59.686]   - Field: 'result'
[13:13:59.687]   - Field: 'asynchronous'
[13:13:59.687]   - Field: 'calls'
[13:13:59.687]   - Field: 'globals'
[13:13:59.687]   - Field: 'stdout'
[13:13:59.687]   - Field: 'earlySignal'
[13:13:59.688]   - Field: 'lazy'
[13:13:59.688]   - Field: 'state'
[13:13:59.688] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.688] - Launch lazy future ...
[13:13:59.688] Packages needed by the future expression (n = 0): <none>
[13:13:59.689] Packages needed by future strategies (n = 0): <none>
[13:13:59.689] {
[13:13:59.689]     {
[13:13:59.689]         {
[13:13:59.689]             ...future.startTime <- base::Sys.time()
[13:13:59.689]             {
[13:13:59.689]                 {
[13:13:59.689]                   {
[13:13:59.689]                     {
[13:13:59.689]                       base::local({
[13:13:59.689]                         has_future <- base::requireNamespace("future", 
[13:13:59.689]                           quietly = TRUE)
[13:13:59.689]                         if (has_future) {
[13:13:59.689]                           ns <- base::getNamespace("future")
[13:13:59.689]                           version <- ns[[".package"]][["version"]]
[13:13:59.689]                           if (is.null(version)) 
[13:13:59.689]                             version <- utils::packageVersion("future")
[13:13:59.689]                         }
[13:13:59.689]                         else {
[13:13:59.689]                           version <- NULL
[13:13:59.689]                         }
[13:13:59.689]                         if (!has_future || version < "1.8.0") {
[13:13:59.689]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.689]                             "", base::R.version$version.string), 
[13:13:59.689]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.689]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.689]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.689]                               "release", "version")], collapse = " "), 
[13:13:59.689]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.689]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.689]                             info)
[13:13:59.689]                           info <- base::paste(info, collapse = "; ")
[13:13:59.689]                           if (!has_future) {
[13:13:59.689]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.689]                               info)
[13:13:59.689]                           }
[13:13:59.689]                           else {
[13:13:59.689]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.689]                               info, version)
[13:13:59.689]                           }
[13:13:59.689]                           base::stop(msg)
[13:13:59.689]                         }
[13:13:59.689]                       })
[13:13:59.689]                     }
[13:13:59.689]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.689]                     base::options(mc.cores = 1L)
[13:13:59.689]                   }
[13:13:59.689]                   options(future.plan = NULL)
[13:13:59.689]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.689]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.689]                 }
[13:13:59.689]                 ...future.workdir <- getwd()
[13:13:59.689]             }
[13:13:59.689]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.689]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.689]         }
[13:13:59.689]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.689]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.689]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.689]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.689]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.689]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.689]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.689]             base::names(...future.oldOptions))
[13:13:59.689]     }
[13:13:59.689]     if (FALSE) {
[13:13:59.689]     }
[13:13:59.689]     else {
[13:13:59.689]         if (TRUE) {
[13:13:59.689]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.689]                 open = "w")
[13:13:59.689]         }
[13:13:59.689]         else {
[13:13:59.689]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.689]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.689]         }
[13:13:59.689]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.689]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.689]             base::sink(type = "output", split = FALSE)
[13:13:59.689]             base::close(...future.stdout)
[13:13:59.689]         }, add = TRUE)
[13:13:59.689]     }
[13:13:59.689]     ...future.frame <- base::sys.nframe()
[13:13:59.689]     ...future.conditions <- base::list()
[13:13:59.689]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.689]     if (FALSE) {
[13:13:59.689]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.689]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.689]     }
[13:13:59.689]     ...future.result <- base::tryCatch({
[13:13:59.689]         base::withCallingHandlers({
[13:13:59.689]             ...future.value <- base::withVisible(base::local({
[13:13:59.689]                 ...future.makeSendCondition <- local({
[13:13:59.689]                   sendCondition <- NULL
[13:13:59.689]                   function(frame = 1L) {
[13:13:59.689]                     if (is.function(sendCondition)) 
[13:13:59.689]                       return(sendCondition)
[13:13:59.689]                     ns <- getNamespace("parallel")
[13:13:59.689]                     if (exists("sendData", mode = "function", 
[13:13:59.689]                       envir = ns)) {
[13:13:59.689]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.689]                         envir = ns)
[13:13:59.689]                       envir <- sys.frame(frame)
[13:13:59.689]                       master <- NULL
[13:13:59.689]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.689]                         !identical(envir, emptyenv())) {
[13:13:59.689]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.689]                           inherits = FALSE)) {
[13:13:59.689]                           master <- get("master", mode = "list", 
[13:13:59.689]                             envir = envir, inherits = FALSE)
[13:13:59.689]                           if (inherits(master, c("SOCKnode", 
[13:13:59.689]                             "SOCK0node"))) {
[13:13:59.689]                             sendCondition <<- function(cond) {
[13:13:59.689]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.689]                                 success = TRUE)
[13:13:59.689]                               parallel_sendData(master, data)
[13:13:59.689]                             }
[13:13:59.689]                             return(sendCondition)
[13:13:59.689]                           }
[13:13:59.689]                         }
[13:13:59.689]                         frame <- frame + 1L
[13:13:59.689]                         envir <- sys.frame(frame)
[13:13:59.689]                       }
[13:13:59.689]                     }
[13:13:59.689]                     sendCondition <<- function(cond) NULL
[13:13:59.689]                   }
[13:13:59.689]                 })
[13:13:59.689]                 withCallingHandlers({
[13:13:59.689]                   {
[13:13:59.689]                     do.call(function(...) {
[13:13:59.689]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.689]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.689]                         ...future.globals.maxSize)) {
[13:13:59.689]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.689]                         on.exit(options(oopts), add = TRUE)
[13:13:59.689]                       }
[13:13:59.689]                       {
[13:13:59.689]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.689]                           FUN = function(jj) {
[13:13:59.689]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.689]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.689]                               envir = globalenv(), inherits = FALSE)
[13:13:59.689]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.689]                           })
[13:13:59.689]                       }
[13:13:59.689]                     }, args = future.call.arguments)
[13:13:59.689]                   }
[13:13:59.689]                 }, immediateCondition = function(cond) {
[13:13:59.689]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.689]                   sendCondition(cond)
[13:13:59.689]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.689]                   {
[13:13:59.689]                     inherits <- base::inherits
[13:13:59.689]                     invokeRestart <- base::invokeRestart
[13:13:59.689]                     is.null <- base::is.null
[13:13:59.689]                     muffled <- FALSE
[13:13:59.689]                     if (inherits(cond, "message")) {
[13:13:59.689]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.689]                       if (muffled) 
[13:13:59.689]                         invokeRestart("muffleMessage")
[13:13:59.689]                     }
[13:13:59.689]                     else if (inherits(cond, "warning")) {
[13:13:59.689]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.689]                       if (muffled) 
[13:13:59.689]                         invokeRestart("muffleWarning")
[13:13:59.689]                     }
[13:13:59.689]                     else if (inherits(cond, "condition")) {
[13:13:59.689]                       if (!is.null(pattern)) {
[13:13:59.689]                         computeRestarts <- base::computeRestarts
[13:13:59.689]                         grepl <- base::grepl
[13:13:59.689]                         restarts <- computeRestarts(cond)
[13:13:59.689]                         for (restart in restarts) {
[13:13:59.689]                           name <- restart$name
[13:13:59.689]                           if (is.null(name)) 
[13:13:59.689]                             next
[13:13:59.689]                           if (!grepl(pattern, name)) 
[13:13:59.689]                             next
[13:13:59.689]                           invokeRestart(restart)
[13:13:59.689]                           muffled <- TRUE
[13:13:59.689]                           break
[13:13:59.689]                         }
[13:13:59.689]                       }
[13:13:59.689]                     }
[13:13:59.689]                     invisible(muffled)
[13:13:59.689]                   }
[13:13:59.689]                   muffleCondition(cond)
[13:13:59.689]                 })
[13:13:59.689]             }))
[13:13:59.689]             future::FutureResult(value = ...future.value$value, 
[13:13:59.689]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.689]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.689]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.689]                     ...future.globalenv.names))
[13:13:59.689]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.689]         }, condition = base::local({
[13:13:59.689]             c <- base::c
[13:13:59.689]             inherits <- base::inherits
[13:13:59.689]             invokeRestart <- base::invokeRestart
[13:13:59.689]             length <- base::length
[13:13:59.689]             list <- base::list
[13:13:59.689]             seq.int <- base::seq.int
[13:13:59.689]             signalCondition <- base::signalCondition
[13:13:59.689]             sys.calls <- base::sys.calls
[13:13:59.689]             `[[` <- base::`[[`
[13:13:59.689]             `+` <- base::`+`
[13:13:59.689]             `<<-` <- base::`<<-`
[13:13:59.689]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.689]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.689]                   3L)]
[13:13:59.689]             }
[13:13:59.689]             function(cond) {
[13:13:59.689]                 is_error <- inherits(cond, "error")
[13:13:59.689]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.689]                   NULL)
[13:13:59.689]                 if (is_error) {
[13:13:59.689]                   sessionInformation <- function() {
[13:13:59.689]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.689]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.689]                       search = base::search(), system = base::Sys.info())
[13:13:59.689]                   }
[13:13:59.689]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.689]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.689]                     cond$call), session = sessionInformation(), 
[13:13:59.689]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.689]                   signalCondition(cond)
[13:13:59.689]                 }
[13:13:59.689]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.689]                 "immediateCondition"))) {
[13:13:59.689]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.689]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.689]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.689]                   if (TRUE && !signal) {
[13:13:59.689]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.689]                     {
[13:13:59.689]                       inherits <- base::inherits
[13:13:59.689]                       invokeRestart <- base::invokeRestart
[13:13:59.689]                       is.null <- base::is.null
[13:13:59.689]                       muffled <- FALSE
[13:13:59.689]                       if (inherits(cond, "message")) {
[13:13:59.689]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.689]                         if (muffled) 
[13:13:59.689]                           invokeRestart("muffleMessage")
[13:13:59.689]                       }
[13:13:59.689]                       else if (inherits(cond, "warning")) {
[13:13:59.689]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.689]                         if (muffled) 
[13:13:59.689]                           invokeRestart("muffleWarning")
[13:13:59.689]                       }
[13:13:59.689]                       else if (inherits(cond, "condition")) {
[13:13:59.689]                         if (!is.null(pattern)) {
[13:13:59.689]                           computeRestarts <- base::computeRestarts
[13:13:59.689]                           grepl <- base::grepl
[13:13:59.689]                           restarts <- computeRestarts(cond)
[13:13:59.689]                           for (restart in restarts) {
[13:13:59.689]                             name <- restart$name
[13:13:59.689]                             if (is.null(name)) 
[13:13:59.689]                               next
[13:13:59.689]                             if (!grepl(pattern, name)) 
[13:13:59.689]                               next
[13:13:59.689]                             invokeRestart(restart)
[13:13:59.689]                             muffled <- TRUE
[13:13:59.689]                             break
[13:13:59.689]                           }
[13:13:59.689]                         }
[13:13:59.689]                       }
[13:13:59.689]                       invisible(muffled)
[13:13:59.689]                     }
[13:13:59.689]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.689]                   }
[13:13:59.689]                 }
[13:13:59.689]                 else {
[13:13:59.689]                   if (TRUE) {
[13:13:59.689]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.689]                     {
[13:13:59.689]                       inherits <- base::inherits
[13:13:59.689]                       invokeRestart <- base::invokeRestart
[13:13:59.689]                       is.null <- base::is.null
[13:13:59.689]                       muffled <- FALSE
[13:13:59.689]                       if (inherits(cond, "message")) {
[13:13:59.689]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.689]                         if (muffled) 
[13:13:59.689]                           invokeRestart("muffleMessage")
[13:13:59.689]                       }
[13:13:59.689]                       else if (inherits(cond, "warning")) {
[13:13:59.689]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.689]                         if (muffled) 
[13:13:59.689]                           invokeRestart("muffleWarning")
[13:13:59.689]                       }
[13:13:59.689]                       else if (inherits(cond, "condition")) {
[13:13:59.689]                         if (!is.null(pattern)) {
[13:13:59.689]                           computeRestarts <- base::computeRestarts
[13:13:59.689]                           grepl <- base::grepl
[13:13:59.689]                           restarts <- computeRestarts(cond)
[13:13:59.689]                           for (restart in restarts) {
[13:13:59.689]                             name <- restart$name
[13:13:59.689]                             if (is.null(name)) 
[13:13:59.689]                               next
[13:13:59.689]                             if (!grepl(pattern, name)) 
[13:13:59.689]                               next
[13:13:59.689]                             invokeRestart(restart)
[13:13:59.689]                             muffled <- TRUE
[13:13:59.689]                             break
[13:13:59.689]                           }
[13:13:59.689]                         }
[13:13:59.689]                       }
[13:13:59.689]                       invisible(muffled)
[13:13:59.689]                     }
[13:13:59.689]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.689]                   }
[13:13:59.689]                 }
[13:13:59.689]             }
[13:13:59.689]         }))
[13:13:59.689]     }, error = function(ex) {
[13:13:59.689]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.689]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.689]                 ...future.rng), started = ...future.startTime, 
[13:13:59.689]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.689]             version = "1.8"), class = "FutureResult")
[13:13:59.689]     }, finally = {
[13:13:59.689]         if (!identical(...future.workdir, getwd())) 
[13:13:59.689]             setwd(...future.workdir)
[13:13:59.689]         {
[13:13:59.689]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.689]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.689]             }
[13:13:59.689]             base::options(...future.oldOptions)
[13:13:59.689]             if (.Platform$OS.type == "windows") {
[13:13:59.689]                 old_names <- names(...future.oldEnvVars)
[13:13:59.689]                 envs <- base::Sys.getenv()
[13:13:59.689]                 names <- names(envs)
[13:13:59.689]                 common <- intersect(names, old_names)
[13:13:59.689]                 added <- setdiff(names, old_names)
[13:13:59.689]                 removed <- setdiff(old_names, names)
[13:13:59.689]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.689]                   envs[common]]
[13:13:59.689]                 NAMES <- toupper(changed)
[13:13:59.689]                 args <- list()
[13:13:59.689]                 for (kk in seq_along(NAMES)) {
[13:13:59.689]                   name <- changed[[kk]]
[13:13:59.689]                   NAME <- NAMES[[kk]]
[13:13:59.689]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.689]                     next
[13:13:59.689]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.689]                 }
[13:13:59.689]                 NAMES <- toupper(added)
[13:13:59.689]                 for (kk in seq_along(NAMES)) {
[13:13:59.689]                   name <- added[[kk]]
[13:13:59.689]                   NAME <- NAMES[[kk]]
[13:13:59.689]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.689]                     next
[13:13:59.689]                   args[[name]] <- ""
[13:13:59.689]                 }
[13:13:59.689]                 NAMES <- toupper(removed)
[13:13:59.689]                 for (kk in seq_along(NAMES)) {
[13:13:59.689]                   name <- removed[[kk]]
[13:13:59.689]                   NAME <- NAMES[[kk]]
[13:13:59.689]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.689]                     next
[13:13:59.689]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.689]                 }
[13:13:59.689]                 if (length(args) > 0) 
[13:13:59.689]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.689]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.689]             }
[13:13:59.689]             else {
[13:13:59.689]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.689]             }
[13:13:59.689]             {
[13:13:59.689]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.689]                   0L) {
[13:13:59.689]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.689]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.689]                   base::options(opts)
[13:13:59.689]                 }
[13:13:59.689]                 {
[13:13:59.689]                   {
[13:13:59.689]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.689]                     NULL
[13:13:59.689]                   }
[13:13:59.689]                   options(future.plan = NULL)
[13:13:59.689]                   if (is.na(NA_character_)) 
[13:13:59.689]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.689]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.689]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.689]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.689]                     envir = parent.frame()) 
[13:13:59.689]                   {
[13:13:59.689]                     if (is.function(workers)) 
[13:13:59.689]                       workers <- workers()
[13:13:59.689]                     workers <- structure(as.integer(workers), 
[13:13:59.689]                       class = class(workers))
[13:13:59.689]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.689]                       workers >= 1)
[13:13:59.689]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.689]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.689]                     }
[13:13:59.689]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.689]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.689]                       envir = envir)
[13:13:59.689]                     if (!future$lazy) 
[13:13:59.689]                       future <- run(future)
[13:13:59.689]                     invisible(future)
[13:13:59.689]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.689]                 }
[13:13:59.689]             }
[13:13:59.689]         }
[13:13:59.689]     })
[13:13:59.689]     if (TRUE) {
[13:13:59.689]         base::sink(type = "output", split = FALSE)
[13:13:59.689]         if (TRUE) {
[13:13:59.689]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.689]         }
[13:13:59.689]         else {
[13:13:59.689]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.689]         }
[13:13:59.689]         base::close(...future.stdout)
[13:13:59.689]         ...future.stdout <- NULL
[13:13:59.689]     }
[13:13:59.689]     ...future.result$conditions <- ...future.conditions
[13:13:59.689]     ...future.result$finished <- base::Sys.time()
[13:13:59.689]     ...future.result
[13:13:59.689] }
[13:13:59.695] Exporting 7 global objects (2.15 KiB) to cluster node #1 ...
[13:13:59.695] Exporting '...future.FUN' (504 bytes) to cluster node #1 ...
[13:13:59.696] Exporting '...future.FUN' (504 bytes) to cluster node #1 ... DONE
[13:13:59.696] Exporting 'foo' (1.60 KiB) to cluster node #1 ...
[13:13:59.696] Exporting 'foo' (1.60 KiB) to cluster node #1 ... DONE
[13:13:59.697] Exporting 'x' (56 bytes) to cluster node #1 ...
[13:13:59.697] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
[13:13:59.697] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.698] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.698] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ...
[13:13:59.698] Exporting '...future.elements_ii' (112 bytes) to cluster node #1 ... DONE
[13:13:59.699] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ...
[13:13:59.699] Exporting '...future.seeds_ii' (160 bytes) to cluster node #1 ... DONE
[13:13:59.699] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.700] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.700] Exporting 7 global objects (2.15 KiB) to cluster node #1 ... DONE
[13:13:59.701] MultisessionFuture started
[13:13:59.701] - Launch lazy future ... done
[13:13:59.701] run() for 'MultisessionFuture' ... done
[13:13:59.701] Created future:
[13:13:59.717] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.717] - Validating connection of MultisessionFuture
[13:13:59.717] - received message: FutureResult
[13:13:59.717] - Received FutureResult
[13:13:59.718] - Erased future from FutureRegistry
[13:13:59.718] result() for ClusterFuture ...
[13:13:59.718] - result already collected: FutureResult
[13:13:59.718] result() for ClusterFuture ... done
[13:13:59.718] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.701] MultisessionFuture:
[13:13:59.701] Label: 'future_replicate-1'
[13:13:59.701] Expression:
[13:13:59.701] {
[13:13:59.701]     do.call(function(...) {
[13:13:59.701]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.701]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.701]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.701]             on.exit(options(oopts), add = TRUE)
[13:13:59.701]         }
[13:13:59.701]         {
[13:13:59.701]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.701]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.701]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.701]                   envir = globalenv(), inherits = FALSE)
[13:13:59.701]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.701]             })
[13:13:59.701]         }
[13:13:59.701]     }, args = future.call.arguments)
[13:13:59.701] }
[13:13:59.701] Lazy evaluation: FALSE
[13:13:59.701] Asynchronous evaluation: TRUE
[13:13:59.701] Local evaluation: TRUE
[13:13:59.701] Environment: 0x0000019eca7aec38
[13:13:59.701] Capture standard output: TRUE
[13:13:59.701] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.701] Globals: 7 objects totaling 2.41 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 112 bytes, ...)
[13:13:59.701] Packages: <none>
[13:13:59.701] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.701] Resolved: TRUE
[13:13:59.701] Value: <not collected>
[13:13:59.701] Conditions captured: <none>
[13:13:59.701] Early signaling: FALSE
[13:13:59.701] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.701] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.719] Chunk #1 of 2 ... DONE
[13:13:59.719] Chunk #2 of 2 ...
[13:13:59.719]  - Finding globals in 'X' for chunk #2 ...
[13:13:59.719] getGlobalsAndPackages() ...
[13:13:59.719] Searching for globals...
[13:13:59.720] 
[13:13:59.720] Searching for globals ... DONE
[13:13:59.720] - globals: [0] <none>
[13:13:59.720] getGlobalsAndPackages() ... DONE
[13:13:59.720]    + additional globals found: [n=0] 
[13:13:59.721]    + additional namespaces needed: [n=0] 
[13:13:59.721]  - Finding globals in 'X' for chunk #2 ... DONE
[13:13:59.721]  - Adjusted option 'future.globals.maxSize': 524288000 -> 2 * 524288000 = 1048576000 (bytes)
[13:13:59.721]  - seeds: [3] <seeds>
[13:13:59.721]  - All globals exported: [n=7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.722] getGlobalsAndPackages() ...
[13:13:59.722] - globals passed as-is: [7] '...future.FUN', 'foo', 'x', '...', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.722] Resolving globals: FALSE
[13:13:59.722] Tweak future expression to call with '...' arguments ...
[13:13:59.722] {
[13:13:59.722]     do.call(function(...) {
[13:13:59.722]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.722]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.722]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.722]             on.exit(options(oopts), add = TRUE)
[13:13:59.722]         }
[13:13:59.722]         {
[13:13:59.722]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.722]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.722]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.722]                   envir = globalenv(), inherits = FALSE)
[13:13:59.722]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.722]             })
[13:13:59.722]         }
[13:13:59.722]     }, args = future.call.arguments)
[13:13:59.722] }
[13:13:59.723] Tweak future expression to call with '...' arguments ... DONE
[13:13:59.723] - globals: [7] '...future.FUN', 'foo', 'x', 'future.call.arguments', '...future.elements_ii', '...future.seeds_ii', '...future.globals.maxSize'
[13:13:59.724] 
[13:13:59.724] getGlobalsAndPackages() ... DONE
[13:13:59.724] run() for 'Future' ...
[13:13:59.724] - state: 'created'
[13:13:59.725] - Future backend: 'FutureStrategy', 'multisession', 'cluster', 'multiprocess', 'future', 'function'
[13:13:59.739] - Future class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.740] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ...
[13:13:59.740]   - Field: 'node'
[13:13:59.740]   - Field: 'label'
[13:13:59.740]   - Field: 'local'
[13:13:59.741]   - Field: 'owner'
[13:13:59.741]   - Field: 'envir'
[13:13:59.741]   - Field: 'workers'
[13:13:59.741]   - Field: 'packages'
[13:13:59.742]   - Field: 'gc'
[13:13:59.742]   - Field: 'conditions'
[13:13:59.742]   - Field: 'persistent'
[13:13:59.742]   - Field: 'expr'
[13:13:59.743]   - Field: 'uuid'
[13:13:59.743]   - Field: 'seed'
[13:13:59.743]   - Field: 'version'
[13:13:59.743]   - Field: 'result'
[13:13:59.744]   - Field: 'asynchronous'
[13:13:59.744]   - Field: 'calls'
[13:13:59.744]   - Field: 'globals'
[13:13:59.744]   - Field: 'stdout'
[13:13:59.745]   - Field: 'earlySignal'
[13:13:59.745]   - Field: 'lazy'
[13:13:59.745]   - Field: 'state'
[13:13:59.745] - Copy elements of temporary 'MultisessionFuture' to final 'Future' object ... done
[13:13:59.746] - Launch lazy future ...
[13:13:59.746] Packages needed by the future expression (n = 0): <none>
[13:13:59.747] Packages needed by future strategies (n = 0): <none>
[13:13:59.747] {
[13:13:59.747]     {
[13:13:59.747]         {
[13:13:59.747]             ...future.startTime <- base::Sys.time()
[13:13:59.747]             {
[13:13:59.747]                 {
[13:13:59.747]                   {
[13:13:59.747]                     {
[13:13:59.747]                       base::local({
[13:13:59.747]                         has_future <- base::requireNamespace("future", 
[13:13:59.747]                           quietly = TRUE)
[13:13:59.747]                         if (has_future) {
[13:13:59.747]                           ns <- base::getNamespace("future")
[13:13:59.747]                           version <- ns[[".package"]][["version"]]
[13:13:59.747]                           if (is.null(version)) 
[13:13:59.747]                             version <- utils::packageVersion("future")
[13:13:59.747]                         }
[13:13:59.747]                         else {
[13:13:59.747]                           version <- NULL
[13:13:59.747]                         }
[13:13:59.747]                         if (!has_future || version < "1.8.0") {
[13:13:59.747]                           info <- base::c(r_version = base::gsub("R version ", 
[13:13:59.747]                             "", base::R.version$version.string), 
[13:13:59.747]                             platform = base::sprintf("%s (%s-bit)", 
[13:13:59.747]                               base::R.version$platform, 8 * base::.Machine$sizeof.pointer), 
[13:13:59.747]                             os = base::paste(base::Sys.info()[base::c("sysname", 
[13:13:59.747]                               "release", "version")], collapse = " "), 
[13:13:59.747]                             hostname = base::Sys.info()[["nodename"]])
[13:13:59.747]                           info <- base::sprintf("%s: %s", base::names(info), 
[13:13:59.747]                             info)
[13:13:59.747]                           info <- base::paste(info, collapse = "; ")
[13:13:59.747]                           if (!has_future) {
[13:13:59.747]                             msg <- base::sprintf("Package 'future' is not installed on worker (%s)", 
[13:13:59.747]                               info)
[13:13:59.747]                           }
[13:13:59.747]                           else {
[13:13:59.747]                             msg <- base::sprintf("Package 'future' on worker (%s) must be of version >= 1.8.0: %s", 
[13:13:59.747]                               info, version)
[13:13:59.747]                           }
[13:13:59.747]                           base::stop(msg)
[13:13:59.747]                         }
[13:13:59.747]                       })
[13:13:59.747]                     }
[13:13:59.747]                     ...future.mc.cores.old <- base::getOption("mc.cores")
[13:13:59.747]                     base::options(mc.cores = 1L)
[13:13:59.747]                   }
[13:13:59.747]                   options(future.plan = NULL)
[13:13:59.747]                   Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.747]                   future::plan("default", .cleanup = FALSE, .init = FALSE)
[13:13:59.747]                 }
[13:13:59.747]                 ...future.workdir <- getwd()
[13:13:59.747]             }
[13:13:59.747]             ...future.oldOptions <- base::as.list(base::.Options)
[13:13:59.747]             ...future.oldEnvVars <- base::Sys.getenv()
[13:13:59.747]         }
[13:13:59.747]         base::options(future.startup.script = FALSE, future.globals.onMissing = NULL, 
[13:13:59.747]             future.globals.maxSize = 1048576000, future.globals.method = NULL, 
[13:13:59.747]             future.globals.onMissing = NULL, future.globals.onReference = NULL, 
[13:13:59.747]             future.globals.resolve = NULL, future.resolve.recursive = NULL, 
[13:13:59.747]             future.rng.onMisuse = NULL, future.rng.onMisuse.keepFuture = NULL, 
[13:13:59.747]             future.stdout.windows.reencode = NULL, width = 80L)
[13:13:59.747]         ...future.futureOptionsAdded <- base::setdiff(base::names(base::.Options), 
[13:13:59.747]             base::names(...future.oldOptions))
[13:13:59.747]     }
[13:13:59.747]     if (FALSE) {
[13:13:59.747]     }
[13:13:59.747]     else {
[13:13:59.747]         if (TRUE) {
[13:13:59.747]             ...future.stdout <- base::rawConnection(base::raw(0L), 
[13:13:59.747]                 open = "w")
[13:13:59.747]         }
[13:13:59.747]         else {
[13:13:59.747]             ...future.stdout <- base::file(base::switch(.Platform$OS.type, 
[13:13:59.747]                 windows = "NUL", "/dev/null"), open = "w")
[13:13:59.747]         }
[13:13:59.747]         base::sink(...future.stdout, type = "output", split = FALSE)
[13:13:59.747]         base::on.exit(if (!base::is.null(...future.stdout)) {
[13:13:59.747]             base::sink(type = "output", split = FALSE)
[13:13:59.747]             base::close(...future.stdout)
[13:13:59.747]         }, add = TRUE)
[13:13:59.747]     }
[13:13:59.747]     ...future.frame <- base::sys.nframe()
[13:13:59.747]     ...future.conditions <- base::list()
[13:13:59.747]     ...future.rng <- base::globalenv()$.Random.seed
[13:13:59.747]     if (FALSE) {
[13:13:59.747]         ...future.globalenv.names <- c(base::names(base::.GlobalEnv), 
[13:13:59.747]             "...future.value", "...future.globalenv.names", ".Random.seed")
[13:13:59.747]     }
[13:13:59.747]     ...future.result <- base::tryCatch({
[13:13:59.747]         base::withCallingHandlers({
[13:13:59.747]             ...future.value <- base::withVisible(base::local({
[13:13:59.747]                 ...future.makeSendCondition <- local({
[13:13:59.747]                   sendCondition <- NULL
[13:13:59.747]                   function(frame = 1L) {
[13:13:59.747]                     if (is.function(sendCondition)) 
[13:13:59.747]                       return(sendCondition)
[13:13:59.747]                     ns <- getNamespace("parallel")
[13:13:59.747]                     if (exists("sendData", mode = "function", 
[13:13:59.747]                       envir = ns)) {
[13:13:59.747]                       parallel_sendData <- get("sendData", mode = "function", 
[13:13:59.747]                         envir = ns)
[13:13:59.747]                       envir <- sys.frame(frame)
[13:13:59.747]                       master <- NULL
[13:13:59.747]                       while (!identical(envir, .GlobalEnv) && 
[13:13:59.747]                         !identical(envir, emptyenv())) {
[13:13:59.747]                         if (exists("master", mode = "list", envir = envir, 
[13:13:59.747]                           inherits = FALSE)) {
[13:13:59.747]                           master <- get("master", mode = "list", 
[13:13:59.747]                             envir = envir, inherits = FALSE)
[13:13:59.747]                           if (inherits(master, c("SOCKnode", 
[13:13:59.747]                             "SOCK0node"))) {
[13:13:59.747]                             sendCondition <<- function(cond) {
[13:13:59.747]                               data <- list(type = "VALUE", value = cond, 
[13:13:59.747]                                 success = TRUE)
[13:13:59.747]                               parallel_sendData(master, data)
[13:13:59.747]                             }
[13:13:59.747]                             return(sendCondition)
[13:13:59.747]                           }
[13:13:59.747]                         }
[13:13:59.747]                         frame <- frame + 1L
[13:13:59.747]                         envir <- sys.frame(frame)
[13:13:59.747]                       }
[13:13:59.747]                     }
[13:13:59.747]                     sendCondition <<- function(cond) NULL
[13:13:59.747]                   }
[13:13:59.747]                 })
[13:13:59.747]                 withCallingHandlers({
[13:13:59.747]                   {
[13:13:59.747]                     do.call(function(...) {
[13:13:59.747]                       ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.747]                       if (!identical(...future.globals.maxSize.org, 
[13:13:59.747]                         ...future.globals.maxSize)) {
[13:13:59.747]                         oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.747]                         on.exit(options(oopts), add = TRUE)
[13:13:59.747]                       }
[13:13:59.747]                       {
[13:13:59.747]                         lapply(seq_along(...future.elements_ii), 
[13:13:59.747]                           FUN = function(jj) {
[13:13:59.747]                             ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.747]                             assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.747]                               envir = globalenv(), inherits = FALSE)
[13:13:59.747]                             ...future.FUN(...future.X_jj, ...)
[13:13:59.747]                           })
[13:13:59.747]                       }
[13:13:59.747]                     }, args = future.call.arguments)
[13:13:59.747]                   }
[13:13:59.747]                 }, immediateCondition = function(cond) {
[13:13:59.747]                   sendCondition <- ...future.makeSendCondition()
[13:13:59.747]                   sendCondition(cond)
[13:13:59.747]                   muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.747]                   {
[13:13:59.747]                     inherits <- base::inherits
[13:13:59.747]                     invokeRestart <- base::invokeRestart
[13:13:59.747]                     is.null <- base::is.null
[13:13:59.747]                     muffled <- FALSE
[13:13:59.747]                     if (inherits(cond, "message")) {
[13:13:59.747]                       muffled <- grepl(pattern, "muffleMessage")
[13:13:59.747]                       if (muffled) 
[13:13:59.747]                         invokeRestart("muffleMessage")
[13:13:59.747]                     }
[13:13:59.747]                     else if (inherits(cond, "warning")) {
[13:13:59.747]                       muffled <- grepl(pattern, "muffleWarning")
[13:13:59.747]                       if (muffled) 
[13:13:59.747]                         invokeRestart("muffleWarning")
[13:13:59.747]                     }
[13:13:59.747]                     else if (inherits(cond, "condition")) {
[13:13:59.747]                       if (!is.null(pattern)) {
[13:13:59.747]                         computeRestarts <- base::computeRestarts
[13:13:59.747]                         grepl <- base::grepl
[13:13:59.747]                         restarts <- computeRestarts(cond)
[13:13:59.747]                         for (restart in restarts) {
[13:13:59.747]                           name <- restart$name
[13:13:59.747]                           if (is.null(name)) 
[13:13:59.747]                             next
[13:13:59.747]                           if (!grepl(pattern, name)) 
[13:13:59.747]                             next
[13:13:59.747]                           invokeRestart(restart)
[13:13:59.747]                           muffled <- TRUE
[13:13:59.747]                           break
[13:13:59.747]                         }
[13:13:59.747]                       }
[13:13:59.747]                     }
[13:13:59.747]                     invisible(muffled)
[13:13:59.747]                   }
[13:13:59.747]                   muffleCondition(cond)
[13:13:59.747]                 })
[13:13:59.747]             }))
[13:13:59.747]             future::FutureResult(value = ...future.value$value, 
[13:13:59.747]                 visible = ...future.value$visible, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.747]                   ...future.rng), globalenv = if (FALSE) 
[13:13:59.747]                   list(added = base::setdiff(base::names(base::.GlobalEnv), 
[13:13:59.747]                     ...future.globalenv.names))
[13:13:59.747]                 else NULL, started = ...future.startTime, version = "1.8")
[13:13:59.747]         }, condition = base::local({
[13:13:59.747]             c <- base::c
[13:13:59.747]             inherits <- base::inherits
[13:13:59.747]             invokeRestart <- base::invokeRestart
[13:13:59.747]             length <- base::length
[13:13:59.747]             list <- base::list
[13:13:59.747]             seq.int <- base::seq.int
[13:13:59.747]             signalCondition <- base::signalCondition
[13:13:59.747]             sys.calls <- base::sys.calls
[13:13:59.747]             `[[` <- base::`[[`
[13:13:59.747]             `+` <- base::`+`
[13:13:59.747]             `<<-` <- base::`<<-`
[13:13:59.747]             sysCalls <- function(calls = sys.calls(), from = 1L) {
[13:13:59.747]                 calls[seq.int(from = from + 12L, to = length(calls) - 
[13:13:59.747]                   3L)]
[13:13:59.747]             }
[13:13:59.747]             function(cond) {
[13:13:59.747]                 is_error <- inherits(cond, "error")
[13:13:59.747]                 ignore <- !is_error && !is.null(NULL) && inherits(cond, 
[13:13:59.747]                   NULL)
[13:13:59.747]                 if (is_error) {
[13:13:59.747]                   sessionInformation <- function() {
[13:13:59.747]                     list(r = base::R.Version(), locale = base::Sys.getlocale(), 
[13:13:59.747]                       rngkind = base::RNGkind(), namespaces = base::loadedNamespaces(), 
[13:13:59.747]                       search = base::search(), system = base::Sys.info())
[13:13:59.747]                   }
[13:13:59.747]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.747]                     1L]] <<- list(condition = cond, calls = c(sysCalls(from = ...future.frame), 
[13:13:59.747]                     cond$call), session = sessionInformation(), 
[13:13:59.747]                     timestamp = base::Sys.time(), signaled = 0L)
[13:13:59.747]                   signalCondition(cond)
[13:13:59.747]                 }
[13:13:59.747]                 else if (!ignore && TRUE && inherits(cond, c("condition", 
[13:13:59.747]                 "immediateCondition"))) {
[13:13:59.747]                   signal <- TRUE && inherits(cond, "immediateCondition")
[13:13:59.747]                   ...future.conditions[[length(...future.conditions) + 
[13:13:59.747]                     1L]] <<- list(condition = cond, signaled = base::as.integer(signal))
[13:13:59.747]                   if (TRUE && !signal) {
[13:13:59.747]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.747]                     {
[13:13:59.747]                       inherits <- base::inherits
[13:13:59.747]                       invokeRestart <- base::invokeRestart
[13:13:59.747]                       is.null <- base::is.null
[13:13:59.747]                       muffled <- FALSE
[13:13:59.747]                       if (inherits(cond, "message")) {
[13:13:59.747]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.747]                         if (muffled) 
[13:13:59.747]                           invokeRestart("muffleMessage")
[13:13:59.747]                       }
[13:13:59.747]                       else if (inherits(cond, "warning")) {
[13:13:59.747]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.747]                         if (muffled) 
[13:13:59.747]                           invokeRestart("muffleWarning")
[13:13:59.747]                       }
[13:13:59.747]                       else if (inherits(cond, "condition")) {
[13:13:59.747]                         if (!is.null(pattern)) {
[13:13:59.747]                           computeRestarts <- base::computeRestarts
[13:13:59.747]                           grepl <- base::grepl
[13:13:59.747]                           restarts <- computeRestarts(cond)
[13:13:59.747]                           for (restart in restarts) {
[13:13:59.747]                             name <- restart$name
[13:13:59.747]                             if (is.null(name)) 
[13:13:59.747]                               next
[13:13:59.747]                             if (!grepl(pattern, name)) 
[13:13:59.747]                               next
[13:13:59.747]                             invokeRestart(restart)
[13:13:59.747]                             muffled <- TRUE
[13:13:59.747]                             break
[13:13:59.747]                           }
[13:13:59.747]                         }
[13:13:59.747]                       }
[13:13:59.747]                       invisible(muffled)
[13:13:59.747]                     }
[13:13:59.747]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.747]                   }
[13:13:59.747]                 }
[13:13:59.747]                 else {
[13:13:59.747]                   if (TRUE) {
[13:13:59.747]                     muffleCondition <- function (cond, pattern = "^muffle") 
[13:13:59.747]                     {
[13:13:59.747]                       inherits <- base::inherits
[13:13:59.747]                       invokeRestart <- base::invokeRestart
[13:13:59.747]                       is.null <- base::is.null
[13:13:59.747]                       muffled <- FALSE
[13:13:59.747]                       if (inherits(cond, "message")) {
[13:13:59.747]                         muffled <- grepl(pattern, "muffleMessage")
[13:13:59.747]                         if (muffled) 
[13:13:59.747]                           invokeRestart("muffleMessage")
[13:13:59.747]                       }
[13:13:59.747]                       else if (inherits(cond, "warning")) {
[13:13:59.747]                         muffled <- grepl(pattern, "muffleWarning")
[13:13:59.747]                         if (muffled) 
[13:13:59.747]                           invokeRestart("muffleWarning")
[13:13:59.747]                       }
[13:13:59.747]                       else if (inherits(cond, "condition")) {
[13:13:59.747]                         if (!is.null(pattern)) {
[13:13:59.747]                           computeRestarts <- base::computeRestarts
[13:13:59.747]                           grepl <- base::grepl
[13:13:59.747]                           restarts <- computeRestarts(cond)
[13:13:59.747]                           for (restart in restarts) {
[13:13:59.747]                             name <- restart$name
[13:13:59.747]                             if (is.null(name)) 
[13:13:59.747]                               next
[13:13:59.747]                             if (!grepl(pattern, name)) 
[13:13:59.747]                               next
[13:13:59.747]                             invokeRestart(restart)
[13:13:59.747]                             muffled <- TRUE
[13:13:59.747]                             break
[13:13:59.747]                           }
[13:13:59.747]                         }
[13:13:59.747]                       }
[13:13:59.747]                       invisible(muffled)
[13:13:59.747]                     }
[13:13:59.747]                     muffleCondition(cond, pattern = "^muffle")
[13:13:59.747]                   }
[13:13:59.747]                 }
[13:13:59.747]             }
[13:13:59.747]         }))
[13:13:59.747]     }, error = function(ex) {
[13:13:59.747]         base::structure(base::list(value = NULL, visible = NULL, 
[13:13:59.747]             conditions = ...future.conditions, rng = !identical(base::globalenv()$.Random.seed, 
[13:13:59.747]                 ...future.rng), started = ...future.startTime, 
[13:13:59.747]             finished = Sys.time(), session_uuid = NA_character_, 
[13:13:59.747]             version = "1.8"), class = "FutureResult")
[13:13:59.747]     }, finally = {
[13:13:59.747]         if (!identical(...future.workdir, getwd())) 
[13:13:59.747]             setwd(...future.workdir)
[13:13:59.747]         {
[13:13:59.747]             if (identical(getOption("nwarnings"), ...future.oldOptions$nwarnings)) {
[13:13:59.747]                 ...future.oldOptions$nwarnings <- NULL
[13:13:59.747]             }
[13:13:59.747]             base::options(...future.oldOptions)
[13:13:59.747]             if (.Platform$OS.type == "windows") {
[13:13:59.747]                 old_names <- names(...future.oldEnvVars)
[13:13:59.747]                 envs <- base::Sys.getenv()
[13:13:59.747]                 names <- names(envs)
[13:13:59.747]                 common <- intersect(names, old_names)
[13:13:59.747]                 added <- setdiff(names, old_names)
[13:13:59.747]                 removed <- setdiff(old_names, names)
[13:13:59.747]                 changed <- common[...future.oldEnvVars[common] != 
[13:13:59.747]                   envs[common]]
[13:13:59.747]                 NAMES <- toupper(changed)
[13:13:59.747]                 args <- list()
[13:13:59.747]                 for (kk in seq_along(NAMES)) {
[13:13:59.747]                   name <- changed[[kk]]
[13:13:59.747]                   NAME <- NAMES[[kk]]
[13:13:59.747]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.747]                     next
[13:13:59.747]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.747]                 }
[13:13:59.747]                 NAMES <- toupper(added)
[13:13:59.747]                 for (kk in seq_along(NAMES)) {
[13:13:59.747]                   name <- added[[kk]]
[13:13:59.747]                   NAME <- NAMES[[kk]]
[13:13:59.747]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.747]                     next
[13:13:59.747]                   args[[name]] <- ""
[13:13:59.747]                 }
[13:13:59.747]                 NAMES <- toupper(removed)
[13:13:59.747]                 for (kk in seq_along(NAMES)) {
[13:13:59.747]                   name <- removed[[kk]]
[13:13:59.747]                   NAME <- NAMES[[kk]]
[13:13:59.747]                   if (name != NAME && is.element(NAME, old_names)) 
[13:13:59.747]                     next
[13:13:59.747]                   args[[name]] <- ...future.oldEnvVars[[name]]
[13:13:59.747]                 }
[13:13:59.747]                 if (length(args) > 0) 
[13:13:59.747]                   base::do.call(base::Sys.setenv, args = args)
[13:13:59.747]                 args <- names <- old_names <- NAMES <- envs <- common <- added <- removed <- NULL
[13:13:59.747]             }
[13:13:59.747]             else {
[13:13:59.747]                 base::do.call(base::Sys.setenv, args = base::as.list(...future.oldEnvVars))
[13:13:59.747]             }
[13:13:59.747]             {
[13:13:59.747]                 if (base::length(...future.futureOptionsAdded) > 
[13:13:59.747]                   0L) {
[13:13:59.747]                   opts <- base::vector("list", length = base::length(...future.futureOptionsAdded))
[13:13:59.747]                   base::names(opts) <- ...future.futureOptionsAdded
[13:13:59.747]                   base::options(opts)
[13:13:59.747]                 }
[13:13:59.747]                 {
[13:13:59.747]                   {
[13:13:59.747]                     base::options(mc.cores = ...future.mc.cores.old)
[13:13:59.747]                     NULL
[13:13:59.747]                   }
[13:13:59.747]                   options(future.plan = NULL)
[13:13:59.747]                   if (is.na(NA_character_)) 
[13:13:59.747]                     Sys.unsetenv("R_FUTURE_PLAN")
[13:13:59.747]                   else Sys.setenv(R_FUTURE_PLAN = NA_character_)
[13:13:59.747]                   future::plan(list(function (..., workers = availableCores(), 
[13:13:59.747]                     lazy = FALSE, rscript_libs = .libPaths(), 
[13:13:59.747]                     envir = parent.frame()) 
[13:13:59.747]                   {
[13:13:59.747]                     if (is.function(workers)) 
[13:13:59.747]                       workers <- workers()
[13:13:59.747]                     workers <- structure(as.integer(workers), 
[13:13:59.747]                       class = class(workers))
[13:13:59.747]                     stop_if_not(length(workers) == 1, is.finite(workers), 
[13:13:59.747]                       workers >= 1)
[13:13:59.747]                     if (workers == 1L && !inherits(workers, "AsIs")) {
[13:13:59.747]                       return(sequential(..., lazy = TRUE, envir = envir))
[13:13:59.747]                     }
[13:13:59.747]                     future <- MultisessionFuture(..., workers = workers, 
[13:13:59.747]                       lazy = lazy, rscript_libs = rscript_libs, 
[13:13:59.747]                       envir = envir)
[13:13:59.747]                     if (!future$lazy) 
[13:13:59.747]                       future <- run(future)
[13:13:59.747]                     invisible(future)
[13:13:59.747]                   }), .cleanup = FALSE, .init = FALSE)
[13:13:59.747]                 }
[13:13:59.747]             }
[13:13:59.747]         }
[13:13:59.747]     })
[13:13:59.747]     if (TRUE) {
[13:13:59.747]         base::sink(type = "output", split = FALSE)
[13:13:59.747]         if (TRUE) {
[13:13:59.747]             ...future.result$stdout <- base::rawToChar(base::rawConnectionValue(...future.stdout))
[13:13:59.747]         }
[13:13:59.747]         else {
[13:13:59.747]             ...future.result["stdout"] <- base::list(NULL)
[13:13:59.747]         }
[13:13:59.747]         base::close(...future.stdout)
[13:13:59.747]         ...future.stdout <- NULL
[13:13:59.747]     }
[13:13:59.747]     ...future.result$conditions <- ...future.conditions
[13:13:59.747]     ...future.result$finished <- base::Sys.time()
[13:13:59.747]     ...future.result
[13:13:59.747] }
[13:13:59.753] Exporting 7 global objects (2.15 KiB) to cluster node #1 ...
[13:13:59.754] Exporting '...future.FUN' (504 bytes) to cluster node #1 ...
[13:13:59.754] Exporting '...future.FUN' (504 bytes) to cluster node #1 ... DONE
[13:13:59.755] Exporting 'foo' (1.60 KiB) to cluster node #1 ...
[13:13:59.755] Exporting 'foo' (1.60 KiB) to cluster node #1 ... DONE
[13:13:59.755] Exporting 'x' (56 bytes) to cluster node #1 ...
[13:13:59.756] Exporting 'x' (56 bytes) to cluster node #1 ... DONE
[13:13:59.756] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ...
[13:13:59.757] Exporting 'future.call.arguments' (0 bytes) to cluster node #1 ... DONE
[13:13:59.757] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ...
[13:13:59.758] Exporting '...future.elements_ii' (168 bytes) to cluster node #1 ... DONE
[13:13:59.758] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ...
[13:13:59.758] Exporting '...future.seeds_ii' (240 bytes) to cluster node #1 ... DONE
[13:13:59.759] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ...
[13:13:59.759] Exporting '...future.globals.maxSize' (0 bytes) to cluster node #1 ... DONE
[13:13:59.760] Exporting 7 global objects (2.15 KiB) to cluster node #1 ... DONE
[13:13:59.760] MultisessionFuture started
[13:13:59.761] - Launch lazy future ... done
[13:13:59.761] run() for 'MultisessionFuture' ... done
[13:13:59.761] Created future:
[13:13:59.776] receiveMessageFromWorker() for ClusterFuture ...
[13:13:59.776] - Validating connection of MultisessionFuture
[13:13:59.776] - received message: FutureResult
[13:13:59.777] - Received FutureResult
[13:13:59.777] - Erased future from FutureRegistry
[13:13:59.777] result() for ClusterFuture ...
[13:13:59.777] - result already collected: FutureResult
[13:13:59.777] result() for ClusterFuture ... done
[13:13:59.778] receiveMessageFromWorker() for ClusterFuture ... done
[13:13:59.761] MultisessionFuture:
[13:13:59.761] Label: 'future_replicate-2'
[13:13:59.761] Expression:
[13:13:59.761] {
[13:13:59.761]     do.call(function(...) {
[13:13:59.761]         ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
[13:13:59.761]         if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
[13:13:59.761]             oopts <- options(future.globals.maxSize = ...future.globals.maxSize)
[13:13:59.761]             on.exit(options(oopts), add = TRUE)
[13:13:59.761]         }
[13:13:59.761]         {
[13:13:59.761]             lapply(seq_along(...future.elements_ii), FUN = function(jj) {
[13:13:59.761]                 ...future.X_jj <- ...future.elements_ii[[jj]]
[13:13:59.761]                 assign(".Random.seed", ...future.seeds_ii[[jj]], 
[13:13:59.761]                   envir = globalenv(), inherits = FALSE)
[13:13:59.761]                 ...future.FUN(...future.X_jj, ...)
[13:13:59.761]             })
[13:13:59.761]         }
[13:13:59.761]     }, args = future.call.arguments)
[13:13:59.761] }
[13:13:59.761] Lazy evaluation: FALSE
[13:13:59.761] Asynchronous evaluation: TRUE
[13:13:59.761] Local evaluation: TRUE
[13:13:59.761] Environment: 0x0000019eca7aec38
[13:13:59.761] Capture standard output: TRUE
[13:13:59.761] Capture condition classes: 'condition' (excluding 'nothing')
[13:13:59.761] Globals: 7 objects totaling 2.55 KiB (function '...future.FUN' of 504 bytes, function 'foo' of 1.60 KiB, numeric 'x' of 56 bytes, DotDotDotList 'future.call.arguments' of 0 bytes, list '...future.elements_ii' of 168 bytes, ...)
[13:13:59.761] Packages: <none>
[13:13:59.761] L'Ecuyer-CMRG RNG seed: <none> (seed = NULL)
[13:13:59.761] Resolved: TRUE
[13:13:59.761] Value: <not collected>
[13:13:59.761] Conditions captured: <none>
[13:13:59.761] Early signaling: FALSE
[13:13:59.761] Owner process: 586717d9-44f8-0b7d-ba30-2e4ce743e867
[13:13:59.761] Class: 'MultisessionFuture', 'ClusterFuture', 'MultiprocessFuture', 'Future', 'environment'
[13:13:59.778] Chunk #2 of 2 ... DONE
[13:13:59.778] Launching 2 futures (chunks) ... DONE
[13:13:59.778] Resolving 2 futures (chunks) ...
[13:13:59.778] resolve() on list ...
[13:13:59.779]  recursive: 0
[13:13:59.779]  length: 2
[13:13:59.779] 
[13:13:59.779] Future #1
[13:13:59.779] result() for ClusterFuture ...
[13:13:59.779] - result already collected: FutureResult
[13:13:59.780] result() for ClusterFuture ... done
[13:13:59.780] result() for ClusterFuture ...
[13:13:59.780] - result already collected: FutureResult
[13:13:59.780] result() for ClusterFuture ... done
[13:13:59.780] signalConditionsASAP(MultisessionFuture, pos=1) ...
[13:13:59.780] - nx: 2
[13:13:59.781] - relay: TRUE
[13:13:59.781] - stdout: TRUE
[13:13:59.781] - signal: TRUE
[13:13:59.781] - resignal: FALSE
[13:13:59.781] - force: TRUE
[13:13:59.781] - relayed: [n=2] FALSE, FALSE
[13:13:59.781] - queued futures: [n=2] FALSE, FALSE
[13:13:59.782]  - until=1
[13:13:59.782]  - relaying element #1
[13:13:59.782] result() for ClusterFuture ...
[13:13:59.782] - result already collected: FutureResult
[13:13:59.782] result() for ClusterFuture ... done
[13:13:59.782] result() for ClusterFuture ...
[13:13:59.783] - result already collected: FutureResult
[13:13:59.783] result() for ClusterFuture ... done
[13:13:59.783] result() for ClusterFuture ...
[13:13:59.783] - result already collected: FutureResult
[13:13:59.783] result() for ClusterFuture ... done
[13:13:59.783] result() for ClusterFuture ...
[13:13:59.784] - result already collected: FutureResult
[13:13:59.784] result() for ClusterFuture ... done
[13:13:59.784] - relayed: [n=2] TRUE, FALSE
[13:13:59.784] - queued futures: [n=2] TRUE, FALSE
[13:13:59.784] signalConditionsASAP(MultisessionFuture, pos=1) ... done
[13:13:59.784]  length: 1 (resolved future 1)
[13:13:59.785] Future #2
[13:13:59.785] result() for ClusterFuture ...
[13:13:59.785] - result already collected: FutureResult
[13:13:59.785] result() for ClusterFuture ... done
[13:13:59.785] result() for ClusterFuture ...
[13:13:59.785] - result already collected: FutureResult
[13:13:59.786] result() for ClusterFuture ... done
[13:13:59.786] signalConditionsASAP(MultisessionFuture, pos=2) ...
[13:13:59.786] - nx: 2
[13:13:59.786] - relay: TRUE
[13:13:59.786] - stdout: TRUE
[13:13:59.786] - signal: TRUE
[13:13:59.786] - resignal: FALSE
[13:13:59.787] - force: TRUE
[13:13:59.787] - relayed: [n=2] TRUE, FALSE
[13:13:59.787] - queued futures: [n=2] TRUE, FALSE
[13:13:59.787]  - until=2
[13:13:59.787]  - relaying element #2
[13:13:59.787] result() for ClusterFuture ...
[13:13:59.788] - result already collected: FutureResult
[13:13:59.788] result() for ClusterFuture ... done
[13:13:59.788] result() for ClusterFuture ...
[13:13:59.788] - result already collected: FutureResult
[13:13:59.788] result() for ClusterFuture ... done
[13:13:59.788] result() for ClusterFuture ...
[13:13:59.789] - result already collected: FutureResult
[13:13:59.789] result() for ClusterFuture ... done
[13:13:59.789] result() for ClusterFuture ...
[13:13:59.789] - result already collected: FutureResult
[13:13:59.789] result() for ClusterFuture ... done
[13:13:59.789] - relayed: [n=2] TRUE, TRUE
[13:13:59.789] - queued futures: [n=2] TRUE, TRUE
[13:13:59.790] signalConditionsASAP(MultisessionFuture, pos=2) ... done
[13:13:59.790]  length: 0 (resolved future 2)
[13:13:59.790] Relaying remaining futures
[13:13:59.790] signalConditionsASAP(NULL, pos=0) ...
[13:13:59.790] - nx: 2
[13:13:59.790] - relay: TRUE
[13:13:59.791] - stdout: TRUE
[13:13:59.791] - signal: TRUE
[13:13:59.791] - resignal: FALSE
[13:13:59.791] - force: TRUE
[13:13:59.791] - relayed: [n=2] TRUE, TRUE
[13:13:59.791] - queued futures: [n=2] TRUE, TRUE
 - flush all
[13:13:59.792] - relayed: [n=2] TRUE, TRUE
[13:13:59.792] - queued futures: [n=2] TRUE, TRUE
[13:13:59.792] signalConditionsASAP(NULL, pos=0) ... done
[13:13:59.792] resolve() on list ... DONE
[13:13:59.792] result() for ClusterFuture ...
[13:13:59.792] - result already collected: FutureResult
[13:13:59.793] result() for ClusterFuture ... done
[13:13:59.793] result() for ClusterFuture ...
[13:13:59.793] - result already collected: FutureResult
[13:13:59.793] result() for ClusterFuture ... done
[13:13:59.793] result() for ClusterFuture ...
[13:13:59.793] - result already collected: FutureResult
[13:13:59.793] result() for ClusterFuture ... done
[13:13:59.794] result() for ClusterFuture ...
[13:13:59.794] - result already collected: FutureResult
[13:13:59.794] result() for ClusterFuture ... done
[13:13:59.794]  - Number of value chunks collected: 2
[13:13:59.794] Resolving 2 futures (chunks) ... DONE
[13:13:59.794] Reducing values from 2 chunks ...
[13:13:59.795]  - Number of values collected after concatenation: 5
[13:13:59.795]  - Number of values expected: 5
[13:13:59.795] Reducing values from 2 chunks ... DONE
[13:13:59.795] future_lapply() ... DONE
[13:13:59.796] plan(): Setting new future strategy stack:
[13:13:59.796] List of future strategies:
[13:13:59.796] 1. sequential:
[13:13:59.796]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:59.796]    - tweaked: FALSE
[13:13:59.796]    - call: plan(sequential)
[13:13:59.797] plan(): nbrOfWorkers() = 1
*** strategy = 'multisession' ... done
> 
> message("*** future_replicate() ... DONE")
*** future_replicate() ... DONE
> 
> source("incl/end.R")
[13:13:59.798] plan(): Setting new future strategy stack:
[13:13:59.798] List of future strategies:
[13:13:59.798] 1. FutureStrategy:
[13:13:59.798]    - args: function (..., envir = parent.frame(), workers = "<NULL>")
[13:13:59.798]    - tweaked: FALSE
[13:13:59.798]    - call: future::plan(oplan)
[13:13:59.799] plan(): nbrOfWorkers() = 1
> 
> proc.time()
   user  system elapsed 
   1.45    0.09    2.45