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: foreach Loading required package: future R Under development (unstable) (2023-12-20 r85711 ucrt) Platform: x86_64-w64-mingw32/x64 Running under: Windows Server 2022 x64 (build 20348) Matrix products: default locale: [1] LC_COLLATE=C LC_CTYPE=German_Germany.utf8 [3] LC_MONETARY=C LC_NUMERIC=C [5] LC_TIME=C time zone: Europe/Berlin tzcode source: internal attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] doFuture_1.0.1 future_1.33.0 foreach_1.5.2 loaded via a namespace (and not attached): [1] compiler_4.4.0 parallelly_1.36.0 tools_4.4.0 [4] parallel_4.4.0 future.apply_1.11.1 listenv_0.9.0 [7] codetools_0.2-19 iterators_1.0.14 digest_0.6.33 [10] globals_0.16.2 > > message("*** Options in nested parallelization ...") *** Options in nested parallelization ... > > options(future.debug = FALSE) > options(future.apply.debug = FALSE) > options(future.globals.maxSize = 1234000) > > for (cores in 1:availCores) { + message(sprintf("Testing with %d cores ...", cores)) + options(mc.cores = cores) + strategies <- supportedStrategies(cores) + + for (strategy1 in strategies) { + for (strategy2 in strategies) { + message(sprintf("- plan('%s') ...", strategy2)) + plan(list(outer = tweak(strategy1), inner = strategy2)) + + v <- foreach(x = 1:2) %dofuture% { + outer <- data.frame( + label = "outer", + idx = x, + pid = Sys.getpid(), + maxSize = getOption("future.globals.maxSize", NA_real_) + ) + + inner <- foreach(x = 3:4) %dofuture% { + data.frame( + label = "inner", + idx = x, + pid = Sys.getpid(), + maxSize = getOption("future.globals.maxSize", NA_real_)) + } + inner <- do.call(rbind, inner) + rbind(outer, inner) + } + v <- do.call(rbind, v) + print(v) + stopifnot(!anyNA(v$maxSize)) + } ## for (strategy2 ...) + } ## for (strategy1 ...) + } ## for (cores in ...) Testing with 1 cores ... - plan('sequential') ... [13:11:58.513] doFuture2() ... [13:11:58.515] Number of chunks: 1 [13:11:58.516] Number of futures (= number of chunks): 1 [13:11:58.516] seed = FALSE [13:11:58.516] NULL [13:11:58.519] seed = FALSE [13:11:58.519] seed = FALSE [13:11:58.519] - foreach iterator arguments: [1] 'x' [13:11:58.519] - dummy globals (as locals): [1] 'x' [13:11:58.520] - R expression: [13:11:58.520] { [13:11:58.520] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.520] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.520] { [13:11:58.520] NULL [13:11:58.520] x <- NULL [13:11:58.520] } [13:11:58.520] ...future.env <- environment() [13:11:58.520] local({ [13:11:58.520] for (name in names(...future.x_jj)) { [13:11:58.520] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.520] inherits = FALSE) [13:11:58.520] } [13:11:58.520] }) [13:11:58.520] tryCatch({ [13:11:58.520] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.520] maxSize = getOption("future.globals.maxSize", [13:11:58.520] NA_real_)) [13:11:58.520] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.520] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.520] maxSize = getOption("future.globals.maxSize", [13:11:58.520] NA_real_)) [13:11:58.520] } [13:11:58.520] inner <- do.call(rbind, inner) [13:11:58.520] rbind(outer, inner) [13:11:58.520] }, error = identity) [13:11:58.520] }) [13:11:58.520] } [13:11:58.521] function (x) [13:11:58.521] { [13:11:58.521] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.521] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.521] { [13:11:58.521] NULL [13:11:58.521] x <- NULL [13:11:58.521] } [13:11:58.521] ...future.env <- environment() [13:11:58.521] local({ [13:11:58.521] for (name in names(...future.x_jj)) { [13:11:58.521] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.521] inherits = FALSE) [13:11:58.521] } [13:11:58.521] }) [13:11:58.521] tryCatch({ [13:11:58.521] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.521] maxSize = getOption("future.globals.maxSize", [13:11:58.521] NA_real_)) [13:11:58.521] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.521] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.521] maxSize = getOption("future.globals.maxSize", [13:11:58.521] NA_real_)) [13:11:58.521] } [13:11:58.521] inner <- do.call(rbind, inner) [13:11:58.521] rbind(outer, inner) [13:11:58.521] }, error = identity) [13:11:58.521] }) [13:11:58.521] } [13:11:58.521] - identifying globals and packages ... [13:11:58.522] logi TRUE [13:11:58.522] - attr(*, "add")= chr "...future.x_ii" [13:11:58.522] - attr(*, "ignore")= chr "x" [13:11:58.543] List of 1 [13:11:58.543] $ ...future.x_ii: num 42 [13:11:58.543] - attr(*, "where")=List of 1 [13:11:58.543] ..$ ...future.x_ii: [13:11:58.543] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.543] - attr(*, "resolved")= logi FALSE [13:11:58.543] - attr(*, "total_size")= num 56 [13:11:58.546] - R expression: [13:11:58.549] { [13:11:58.549] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.549] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.549] { [13:11:58.549] NULL [13:11:58.549] x <- NULL [13:11:58.549] } [13:11:58.549] ...future.env <- environment() [13:11:58.549] local({ [13:11:58.549] for (name in names(...future.x_jj)) { [13:11:58.549] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.549] inherits = FALSE) [13:11:58.549] } [13:11:58.549] }) [13:11:58.549] tryCatch({ [13:11:58.549] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.549] maxSize = getOption("future.globals.maxSize", [13:11:58.549] NA_real_)) [13:11:58.549] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.549] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.549] maxSize = getOption("future.globals.maxSize", [13:11:58.549] NA_real_)) [13:11:58.549] } [13:11:58.549] inner <- do.call(rbind, inner) [13:11:58.549] rbind(outer, inner) [13:11:58.549] }, error = identity) [13:11:58.549] }) [13:11:58.549] } [13:11:58.549] - globals: [1] '...future.x_ii' [13:11:58.549] List of 1 [13:11:58.549] $ ...future.x_ii: num 42 [13:11:58.549] - attr(*, "where")=List of 1 [13:11:58.549] ..$ ...future.x_ii: [13:11:58.549] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.549] - attr(*, "resolved")= logi FALSE [13:11:58.549] - attr(*, "total_size")= num 56 [13:11:58.552] - packages: [2] 'doFuture', 'foreach' [13:11:58.552] - identifying globals and packages ... DONE [13:11:58.553] Launching 1 futures (chunks) ... [13:11:58.553] Chunk #1 of 1 ... [13:11:58.553] - Finding globals in 'args_list' chunk #1 ... [13:11:58.554] [13:11:58.554] [13:11:58.554] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.554] - seeds: [13:11:58.668] Chunk #1 of 1 ... DONE [13:11:58.668] Launching 1 futures (chunks) ... DONE [13:11:58.668] - resolving futures [13:11:58.668] - gathering results & relaying conditions (except errors) [13:11:58.558] doFuture2() ... [13:11:58.559] Number of chunks: 1 [13:11:58.574] Number of futures (= number of chunks): 1 [13:11:58.574] seed = FALSE [13:11:58.575] NULL [13:11:58.575] seed = FALSE [13:11:58.575] seed = FALSE [13:11:58.575] - foreach iterator arguments: [1] 'x' [13:11:58.576] - dummy globals (as locals): [1] 'x' [13:11:58.576] - R expression: [13:11:58.576] { [13:11:58.576] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.576] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.576] { [13:11:58.576] NULL [13:11:58.576] x <- NULL [13:11:58.576] } [13:11:58.576] ...future.env <- environment() [13:11:58.576] local({ [13:11:58.576] for (name in names(...future.x_jj)) { [13:11:58.576] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.576] inherits = FALSE) [13:11:58.576] } [13:11:58.576] }) [13:11:58.576] tryCatch({ [13:11:58.576] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.576] maxSize = getOption("future.globals.maxSize", [13:11:58.576] NA_real_)) [13:11:58.576] }, error = identity) [13:11:58.576] }) [13:11:58.576] } [13:11:58.576] function (x) [13:11:58.576] { [13:11:58.576] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.576] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.576] { [13:11:58.576] NULL [13:11:58.576] x <- NULL [13:11:58.576] } [13:11:58.576] ...future.env <- environment() [13:11:58.576] local({ [13:11:58.576] for (name in names(...future.x_jj)) { [13:11:58.576] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.576] inherits = FALSE) [13:11:58.576] } [13:11:58.576] }) [13:11:58.576] tryCatch({ [13:11:58.576] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.576] maxSize = getOption("future.globals.maxSize", [13:11:58.576] NA_real_)) [13:11:58.576] }, error = identity) [13:11:58.576] }) [13:11:58.576] } [13:11:58.576] [13:11:58.577] - identifying globals and packages ... [13:11:58.577] logi TRUE [13:11:58.577] - attr(*, "add")= chr "...future.x_ii" [13:11:58.577] - attr(*, "ignore")= chr "x" [13:11:58.586] List of 1 [13:11:58.586] $ ...future.x_ii: num 42 [13:11:58.586] - attr(*, "where")=List of 1 [13:11:58.586] ..$ ...future.x_ii: [13:11:58.586] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.586] - attr(*, "resolved")= logi FALSE [13:11:58.586] - attr(*, "total_size")= num 56 [13:11:58.588] - R expression: [13:11:58.588] { [13:11:58.588] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.588] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.588] { [13:11:58.588] NULL [13:11:58.588] x <- NULL [13:11:58.588] } [13:11:58.588] ...future.env <- environment() [13:11:58.588] local({ [13:11:58.588] for (name in names(...future.x_jj)) { [13:11:58.588] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.588] inherits = FALSE) [13:11:58.588] } [13:11:58.588] }) [13:11:58.588] tryCatch({ [13:11:58.588] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.588] maxSize = getOption("future.globals.maxSize", [13:11:58.588] NA_real_)) [13:11:58.588] }, error = identity) [13:11:58.588] }) [13:11:58.588] } [13:11:58.589] - globals: [1] '...future.x_ii' [13:11:58.589] List of 1 [13:11:58.589] $ ...future.x_ii: num 42 [13:11:58.589] - attr(*, "where")=List of 1 [13:11:58.589] ..$ ...future.x_ii: [13:11:58.589] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.589] - attr(*, "resolved")= logi FALSE [13:11:58.589] - attr(*, "total_size")= num 56 [13:11:58.592] - packages: [1] 'doFuture' [13:11:58.592] - identifying globals and packages ... DONE [13:11:58.592] Launching 1 futures (chunks) ... [13:11:58.592] Chunk #1 of 1 ... [13:11:58.592] - Finding globals in 'args_list' chunk #1 ... [13:11:58.593] [13:11:58.593] [13:11:58.593] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.593] - seeds: [13:11:58.606] Chunk #1 of 1 ... DONE [13:11:58.606] Launching 1 futures (chunks) ... DONE [13:11:58.606] - resolving futures [13:11:58.606] - gathering results & relaying conditions (except errors) [13:11:58.608] - Number of value chunks collected: 1 [13:11:58.608] Resolving 1 futures (chunks) ... DONE [13:11:58.608] Reducing values from 1 chunks ... [13:11:58.608] Raw results: [13:11:58.608] List of 1 [13:11:58.608] $ :List of 2 [13:11:58.608] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.608] .. ..$ label : chr "inner" [13:11:58.608] .. ..$ idx : int 3 [13:11:58.608] .. ..$ pid : int 13232 [13:11:58.608] .. ..$ maxSize: num 1234000 [13:11:58.608] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.608] .. ..$ label : chr "inner" [13:11:58.608] .. ..$ idx : int 4 [13:11:58.608] .. ..$ pid : int 13232 [13:11:58.608] .. ..$ maxSize: num 1234000 [13:11:58.613] Combined results: [13:11:58.613] List of 2 [13:11:58.613] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.613] ..$ label : chr "inner" [13:11:58.613] ..$ idx : int 3 [13:11:58.613] ..$ pid : int 13232 [13:11:58.613] ..$ maxSize: num 1234000 [13:11:58.613] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.613] ..$ label : chr "inner" [13:11:58.613] ..$ idx : int 4 [13:11:58.613] ..$ pid : int 13232 [13:11:58.613] ..$ maxSize: num 1234000 [13:11:58.617] - accumulating results [13:11:58.619] - extracting results [13:11:58.619] doFuture2() ... DONE [13:11:58.630] doFuture2() ... [13:11:58.630] Number of chunks: 1 [13:11:58.631] Number of futures (= number of chunks): 1 [13:11:58.631] seed = FALSE [13:11:58.631] NULL [13:11:58.631] seed = FALSE [13:11:58.632] seed = FALSE [13:11:58.632] - foreach iterator arguments: [1] 'x' [13:11:58.632] - dummy globals (as locals): [1] 'x' [13:11:58.632] - R expression: [13:11:58.632] { [13:11:58.632] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.632] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.632] { [13:11:58.632] NULL [13:11:58.632] x <- NULL [13:11:58.632] } [13:11:58.632] ...future.env <- environment() [13:11:58.632] local({ [13:11:58.632] for (name in names(...future.x_jj)) { [13:11:58.632] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.632] inherits = FALSE) [13:11:58.632] } [13:11:58.632] }) [13:11:58.632] tryCatch({ [13:11:58.632] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.632] maxSize = getOption("future.globals.maxSize", [13:11:58.632] NA_real_)) [13:11:58.632] }, error = identity) [13:11:58.632] }) [13:11:58.632] } [13:11:58.633] function (x) [13:11:58.633] { [13:11:58.633] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.633] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.633] { [13:11:58.633] NULL [13:11:58.633] x <- NULL [13:11:58.633] } [13:11:58.633] ...future.env <- environment() [13:11:58.633] local({ [13:11:58.633] for (name in names(...future.x_jj)) { [13:11:58.633] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.633] inherits = FALSE) [13:11:58.633] } [13:11:58.633] }) [13:11:58.633] tryCatch({ [13:11:58.633] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.633] maxSize = getOption("future.globals.maxSize", [13:11:58.633] NA_real_)) [13:11:58.633] }, error = identity) [13:11:58.633] }) [13:11:58.633] } [13:11:58.633] [13:11:58.633] - identifying globals and packages ... [13:11:58.634] logi TRUE [13:11:58.634] - attr(*, "add")= chr "...future.x_ii" [13:11:58.634] - attr(*, "ignore")= chr "x" [13:11:58.642] List of 1 [13:11:58.642] $ ...future.x_ii: num 42 [13:11:58.642] - attr(*, "where")=List of 1 [13:11:58.642] ..$ ...future.x_ii: [13:11:58.642] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.642] - attr(*, "resolved")= logi FALSE [13:11:58.642] - attr(*, "total_size")= num 56 [13:11:58.645] - R expression: [13:11:58.645] { [13:11:58.645] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.645] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.645] { [13:11:58.645] NULL [13:11:58.645] x <- NULL [13:11:58.645] } [13:11:58.645] ...future.env <- environment() [13:11:58.645] local({ [13:11:58.645] for (name in names(...future.x_jj)) { [13:11:58.645] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.645] inherits = FALSE) [13:11:58.645] } [13:11:58.645] }) [13:11:58.645] tryCatch({ [13:11:58.645] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.645] maxSize = getOption("future.globals.maxSize", [13:11:58.645] NA_real_)) [13:11:58.645] }, error = identity) [13:11:58.645] }) [13:11:58.645] } [13:11:58.645] - globals: [1] '...future.x_ii' [13:11:58.645] List of 1 [13:11:58.645] $ ...future.x_ii: num 42 [13:11:58.645] - attr(*, "where")=List of 1 [13:11:58.645] ..$ ...future.x_ii: [13:11:58.645] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.645] - attr(*, "resolved")= logi FALSE [13:11:58.645] - attr(*, "total_size")= num 56 [13:11:58.648] - packages: [1] 'doFuture' [13:11:58.648] - identifying globals and packages ... DONE [13:11:58.648] Launching 1 futures (chunks) ... [13:11:58.649] Chunk #1 of 1 ... [13:11:58.649] - Finding globals in 'args_list' chunk #1 ... [13:11:58.649] [13:11:58.649] [13:11:58.650] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.650] - seeds: [13:11:58.654] Chunk #1 of 1 ... DONE [13:11:58.654] Launching 1 futures (chunks) ... DONE [13:11:58.654] - resolving futures [13:11:58.654] - gathering results & relaying conditions (except errors) [13:11:58.655] - Number of value chunks collected: 1 [13:11:58.655] Resolving 1 futures (chunks) ... DONE [13:11:58.655] Reducing values from 1 chunks ... [13:11:58.656] Raw results: [13:11:58.656] List of 1 [13:11:58.656] $ :List of 2 [13:11:58.656] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.656] .. ..$ label : chr "inner" [13:11:58.656] .. ..$ idx : int 3 [13:11:58.656] .. ..$ pid : int 13232 [13:11:58.656] .. ..$ maxSize: num 1234000 [13:11:58.656] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.656] .. ..$ label : chr "inner" [13:11:58.656] .. ..$ idx : int 4 [13:11:58.656] .. ..$ pid : int 13232 [13:11:58.656] .. ..$ maxSize: num 1234000 [13:11:58.660] Combined results: [13:11:58.660] List of 2 [13:11:58.660] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.660] ..$ label : chr "inner" [13:11:58.660] ..$ idx : int 3 [13:11:58.660] ..$ pid : int 13232 [13:11:58.660] ..$ maxSize: num 1234000 [13:11:58.660] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.660] ..$ label : chr "inner" [13:11:58.660] ..$ idx : int 4 [13:11:58.660] ..$ pid : int 13232 [13:11:58.660] ..$ maxSize: num 1234000 [13:11:58.666] - accumulating results [13:11:58.666] - extracting results [13:11:58.667] doFuture2() ... DONE [13:11:58.674] - Number of value chunks collected: 1 [13:11:58.674] Resolving 1 futures (chunks) ... DONE [13:11:58.674] Reducing values from 1 chunks ... [13:11:58.675] Raw results: [13:11:58.675] List of 1 [13:11:58.675] $ :List of 2 [13:11:58.675] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.675] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.675] .. ..$ idx : int [1:3] 1 3 4 [13:11:58.675] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.675] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.675] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.675] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.675] .. ..$ idx : int [1:3] 2 3 4 [13:11:58.675] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.675] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.679] Combined results: [13:11:58.679] List of 2 [13:11:58.679] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.679] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.679] ..$ idx : int [1:3] 1 3 4 [13:11:58.679] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.679] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.679] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.679] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.679] ..$ idx : int [1:3] 2 3 4 [13:11:58.679] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.679] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.683] - accumulating results [13:11:58.684] - extracting results [13:11:58.684] doFuture2() ... DONE label idx pid maxSize 1 outer 1 13232 1234000 2 inner 3 13232 1234000 3 inner 4 13232 1234000 4 outer 2 13232 1234000 5 inner 3 13232 1234000 6 inner 4 13232 1234000 - plan('multisession') ... [13:11:58.686] doFuture2() ... [13:11:58.687] Number of chunks: 1 [13:11:58.687] Number of futures (= number of chunks): 1 [13:11:58.687] seed = FALSE [13:11:58.688] NULL [13:11:58.688] seed = FALSE [13:11:58.688] seed = FALSE [13:11:58.688] - foreach iterator arguments: [1] 'x' [13:11:58.689] - dummy globals (as locals): [1] 'x' [13:11:58.689] - R expression: [13:11:58.689] { [13:11:58.689] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.689] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.689] { [13:11:58.689] NULL [13:11:58.689] x <- NULL [13:11:58.689] } [13:11:58.689] ...future.env <- environment() [13:11:58.689] local({ [13:11:58.689] for (name in names(...future.x_jj)) { [13:11:58.689] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.689] inherits = FALSE) [13:11:58.689] } [13:11:58.689] }) [13:11:58.689] tryCatch({ [13:11:58.689] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.689] maxSize = getOption("future.globals.maxSize", [13:11:58.689] NA_real_)) [13:11:58.689] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.689] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.689] maxSize = getOption("future.globals.maxSize", [13:11:58.689] NA_real_)) [13:11:58.689] } [13:11:58.689] inner <- do.call(rbind, inner) [13:11:58.689] rbind(outer, inner) [13:11:58.689] }, error = identity) [13:11:58.689] }) [13:11:58.689] } [13:11:58.689] function (x) [13:11:58.689] { [13:11:58.689] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.689] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.689] { [13:11:58.689] NULL [13:11:58.689] x <- NULL [13:11:58.689] } [13:11:58.689] ...future.env <- environment() [13:11:58.689] local({ [13:11:58.689] for (name in names(...future.x_jj)) { [13:11:58.689] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.689] inherits = FALSE) [13:11:58.689] } [13:11:58.689] }) [13:11:58.689] tryCatch({ [13:11:58.689] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.689] maxSize = getOption("future.globals.maxSize", [13:11:58.689] NA_real_)) [13:11:58.689] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.689] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.689] maxSize = getOption("future.globals.maxSize", [13:11:58.689] NA_real_)) [13:11:58.689] } [13:11:58.689] inner <- do.call(rbind, inner) [13:11:58.689] rbind(outer, inner) [13:11:58.689] }, error = identity) [13:11:58.689] }) [13:11:58.689] } [13:11:58.690] - identifying globals and packages ... [13:11:58.690] logi TRUE [13:11:58.690] - attr(*, "add")= chr "...future.x_ii" [13:11:58.690] - attr(*, "ignore")= chr "x" [13:11:58.702] List of 1 [13:11:58.702] $ ...future.x_ii: num 42 [13:11:58.702] - attr(*, "where")=List of 1 [13:11:58.702] ..$ ...future.x_ii: [13:11:58.702] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.702] - attr(*, "resolved")= logi FALSE [13:11:58.702] - attr(*, "total_size")= num 56 [13:11:58.704] - R expression: [13:11:58.704] { [13:11:58.704] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.704] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.704] { [13:11:58.704] NULL [13:11:58.704] x <- NULL [13:11:58.704] } [13:11:58.704] ...future.env <- environment() [13:11:58.704] local({ [13:11:58.704] for (name in names(...future.x_jj)) { [13:11:58.704] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.704] inherits = FALSE) [13:11:58.704] } [13:11:58.704] }) [13:11:58.704] tryCatch({ [13:11:58.704] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.704] maxSize = getOption("future.globals.maxSize", [13:11:58.704] NA_real_)) [13:11:58.704] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.704] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.704] maxSize = getOption("future.globals.maxSize", [13:11:58.704] NA_real_)) [13:11:58.704] } [13:11:58.704] inner <- do.call(rbind, inner) [13:11:58.704] rbind(outer, inner) [13:11:58.704] }, error = identity) [13:11:58.704] }) [13:11:58.704] } [13:11:58.705] - globals: [1] '...future.x_ii' [13:11:58.705] List of 1 [13:11:58.705] $ ...future.x_ii: num 42 [13:11:58.705] - attr(*, "where")=List of 1 [13:11:58.705] ..$ ...future.x_ii: [13:11:58.705] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.705] - attr(*, "resolved")= logi FALSE [13:11:58.705] - attr(*, "total_size")= num 56 [13:11:58.708] - packages: [2] 'doFuture', 'foreach' [13:11:58.708] - identifying globals and packages ... DONE [13:11:58.708] Launching 1 futures (chunks) ... [13:11:58.708] Chunk #1 of 1 ... [13:11:58.708] - Finding globals in 'args_list' chunk #1 ... [13:11:58.709] [13:11:58.709] [13:11:58.709] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.709] - seeds: [13:11:58.817] Chunk #1 of 1 ... DONE [13:11:58.817] Launching 1 futures (chunks) ... DONE [13:11:58.817] - resolving futures [13:11:58.817] - gathering results & relaying conditions (except errors) [13:11:58.714] doFuture2() ... [13:11:58.717] Number of chunks: 1 [13:11:58.734] Number of futures (= number of chunks): 1 [13:11:58.734] seed = FALSE [13:11:58.734] NULL [13:11:58.735] seed = FALSE [13:11:58.735] seed = FALSE [13:11:58.735] - foreach iterator arguments: [1] 'x' [13:11:58.735] - dummy globals (as locals): [1] 'x' [13:11:58.735] - R expression: [13:11:58.736] { [13:11:58.736] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.736] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.736] { [13:11:58.736] NULL [13:11:58.736] x <- NULL [13:11:58.736] } [13:11:58.736] ...future.env <- environment() [13:11:58.736] local({ [13:11:58.736] for (name in names(...future.x_jj)) { [13:11:58.736] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.736] inherits = FALSE) [13:11:58.736] } [13:11:58.736] }) [13:11:58.736] tryCatch({ [13:11:58.736] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.736] maxSize = getOption("future.globals.maxSize", [13:11:58.736] NA_real_)) [13:11:58.736] }, error = identity) [13:11:58.736] }) [13:11:58.736] } [13:11:58.736] function (x) [13:11:58.736] { [13:11:58.736] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.736] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.736] { [13:11:58.736] NULL [13:11:58.736] x <- NULL [13:11:58.736] } [13:11:58.736] ...future.env <- environment() [13:11:58.736] local({ [13:11:58.736] for (name in names(...future.x_jj)) { [13:11:58.736] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.736] inherits = FALSE) [13:11:58.736] } [13:11:58.736] }) [13:11:58.736] tryCatch({ [13:11:58.736] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.736] maxSize = getOption("future.globals.maxSize", [13:11:58.736] NA_real_)) [13:11:58.736] }, error = identity) [13:11:58.736] }) [13:11:58.736] } [13:11:58.736] [13:11:58.736] - identifying globals and packages ... [13:11:58.737] logi TRUE [13:11:58.737] - attr(*, "add")= chr "...future.x_ii" [13:11:58.737] - attr(*, "ignore")= chr "x" [13:11:58.745] List of 1 [13:11:58.745] $ ...future.x_ii: num 42 [13:11:58.745] - attr(*, "where")=List of 1 [13:11:58.745] ..$ ...future.x_ii: [13:11:58.745] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.745] - attr(*, "resolved")= logi FALSE [13:11:58.745] - attr(*, "total_size")= num 56 [13:11:58.748] - R expression: [13:11:58.748] { [13:11:58.748] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.748] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.748] { [13:11:58.748] NULL [13:11:58.748] x <- NULL [13:11:58.748] } [13:11:58.748] ...future.env <- environment() [13:11:58.748] local({ [13:11:58.748] for (name in names(...future.x_jj)) { [13:11:58.748] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.748] inherits = FALSE) [13:11:58.748] } [13:11:58.748] }) [13:11:58.748] tryCatch({ [13:11:58.748] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.748] maxSize = getOption("future.globals.maxSize", [13:11:58.748] NA_real_)) [13:11:58.748] }, error = identity) [13:11:58.748] }) [13:11:58.748] } [13:11:58.748] - globals: [1] '...future.x_ii' [13:11:58.749] List of 1 [13:11:58.749] $ ...future.x_ii: num 42 [13:11:58.749] - attr(*, "where")=List of 1 [13:11:58.749] ..$ ...future.x_ii: [13:11:58.749] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.749] - attr(*, "resolved")= logi FALSE [13:11:58.749] - attr(*, "total_size")= num 56 [13:11:58.751] - packages: [1] 'doFuture' [13:11:58.751] - identifying globals and packages ... DONE [13:11:58.752] Launching 1 futures (chunks) ... [13:11:58.752] Chunk #1 of 1 ... [13:11:58.752] - Finding globals in 'args_list' chunk #1 ... [13:11:58.752] [13:11:58.753] [13:11:58.753] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.753] - seeds: [13:11:58.761] Chunk #1 of 1 ... DONE [13:11:58.761] Launching 1 futures (chunks) ... DONE [13:11:58.761] - resolving futures [13:11:58.761] - gathering results & relaying conditions (except errors) [13:11:58.762] - Number of value chunks collected: 1 [13:11:58.762] Resolving 1 futures (chunks) ... DONE [13:11:58.762] Reducing values from 1 chunks ... [13:11:58.763] Raw results: [13:11:58.763] List of 1 [13:11:58.763] $ :List of 2 [13:11:58.763] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.763] .. ..$ label : chr "inner" [13:11:58.763] .. ..$ idx : int 3 [13:11:58.763] .. ..$ pid : int 13232 [13:11:58.763] .. ..$ maxSize: num 1234000 [13:11:58.763] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.763] .. ..$ label : chr "inner" [13:11:58.763] .. ..$ idx : int 4 [13:11:58.763] .. ..$ pid : int 13232 [13:11:58.763] .. ..$ maxSize: num 1234000 [13:11:58.767] Combined results: [13:11:58.767] List of 2 [13:11:58.767] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.767] ..$ label : chr "inner" [13:11:58.767] ..$ idx : int 3 [13:11:58.767] ..$ pid : int 13232 [13:11:58.767] ..$ maxSize: num 1234000 [13:11:58.767] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.767] ..$ label : chr "inner" [13:11:58.767] ..$ idx : int 4 [13:11:58.767] ..$ pid : int 13232 [13:11:58.767] ..$ maxSize: num 1234000 [13:11:58.771] - accumulating results [13:11:58.772] - extracting results [13:11:58.772] doFuture2() ... DONE [13:11:58.773] doFuture2() ... [13:11:58.776] Number of chunks: 1 [13:11:58.776] Number of futures (= number of chunks): 1 [13:11:58.776] seed = FALSE [13:11:58.776] NULL [13:11:58.777] seed = FALSE [13:11:58.777] seed = FALSE [13:11:58.777] - foreach iterator arguments: [1] 'x' [13:11:58.777] - dummy globals (as locals): [1] 'x' [13:11:58.778] - R expression: [13:11:58.778] { [13:11:58.778] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.778] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.778] { [13:11:58.778] NULL [13:11:58.778] x <- NULL [13:11:58.778] } [13:11:58.778] ...future.env <- environment() [13:11:58.778] local({ [13:11:58.778] for (name in names(...future.x_jj)) { [13:11:58.778] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.778] inherits = FALSE) [13:11:58.778] } [13:11:58.778] }) [13:11:58.778] tryCatch({ [13:11:58.778] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.778] maxSize = getOption("future.globals.maxSize", [13:11:58.778] NA_real_)) [13:11:58.778] }, error = identity) [13:11:58.778] }) [13:11:58.778] } [13:11:58.778] function (x) [13:11:58.778] { [13:11:58.778] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.778] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.778] { [13:11:58.778] NULL [13:11:58.778] x <- NULL [13:11:58.778] } [13:11:58.778] ...future.env <- environment() [13:11:58.778] local({ [13:11:58.778] for (name in names(...future.x_jj)) { [13:11:58.778] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.778] inherits = FALSE) [13:11:58.778] } [13:11:58.778] }) [13:11:58.778] tryCatch({ [13:11:58.778] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.778] maxSize = getOption("future.globals.maxSize", [13:11:58.778] NA_real_)) [13:11:58.778] }, error = identity) [13:11:58.778] }) [13:11:58.778] } [13:11:58.778] [13:11:58.779] - identifying globals and packages ... [13:11:58.779] logi TRUE [13:11:58.779] - attr(*, "add")= chr "...future.x_ii" [13:11:58.779] - attr(*, "ignore")= chr "x" [13:11:58.788] List of 1 [13:11:58.788] $ ...future.x_ii: num 42 [13:11:58.788] - attr(*, "where")=List of 1 [13:11:58.788] ..$ ...future.x_ii: [13:11:58.788] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.788] - attr(*, "resolved")= logi FALSE [13:11:58.788] - attr(*, "total_size")= num 56 [13:11:58.791] - R expression: [13:11:58.791] { [13:11:58.791] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.791] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.791] { [13:11:58.791] NULL [13:11:58.791] x <- NULL [13:11:58.791] } [13:11:58.791] ...future.env <- environment() [13:11:58.791] local({ [13:11:58.791] for (name in names(...future.x_jj)) { [13:11:58.791] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.791] inherits = FALSE) [13:11:58.791] } [13:11:58.791] }) [13:11:58.791] tryCatch({ [13:11:58.791] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.791] maxSize = getOption("future.globals.maxSize", [13:11:58.791] NA_real_)) [13:11:58.791] }, error = identity) [13:11:58.791] }) [13:11:58.791] } [13:11:58.792] - globals: [1] '...future.x_ii' [13:11:58.792] List of 1 [13:11:58.792] $ ...future.x_ii: num 42 [13:11:58.792] - attr(*, "where")=List of 1 [13:11:58.792] ..$ ...future.x_ii: [13:11:58.792] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.792] - attr(*, "resolved")= logi FALSE [13:11:58.792] - attr(*, "total_size")= num 56 [13:11:58.794] - packages: [1] 'doFuture' [13:11:58.795] - identifying globals and packages ... DONE [13:11:58.795] Launching 1 futures (chunks) ... [13:11:58.795] Chunk #1 of 1 ... [13:11:58.795] - Finding globals in 'args_list' chunk #1 ... [13:11:58.796] [13:11:58.796] [13:11:58.796] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.796] - seeds: [13:11:58.804] Chunk #1 of 1 ... DONE [13:11:58.804] Launching 1 futures (chunks) ... DONE [13:11:58.804] - resolving futures [13:11:58.804] - gathering results & relaying conditions (except errors) [13:11:58.805] - Number of value chunks collected: 1 [13:11:58.805] Resolving 1 futures (chunks) ... DONE [13:11:58.805] Reducing values from 1 chunks ... [13:11:58.806] Raw results: [13:11:58.806] List of 1 [13:11:58.806] $ :List of 2 [13:11:58.806] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.806] .. ..$ label : chr "inner" [13:11:58.806] .. ..$ idx : int 3 [13:11:58.806] .. ..$ pid : int 13232 [13:11:58.806] .. ..$ maxSize: num 1234000 [13:11:58.806] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.806] .. ..$ label : chr "inner" [13:11:58.806] .. ..$ idx : int 4 [13:11:58.806] .. ..$ pid : int 13232 [13:11:58.806] .. ..$ maxSize: num 1234000 [13:11:58.810] Combined results: [13:11:58.811] List of 2 [13:11:58.811] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.811] ..$ label : chr "inner" [13:11:58.811] ..$ idx : int 3 [13:11:58.811] ..$ pid : int 13232 [13:11:58.811] ..$ maxSize: num 1234000 [13:11:58.811] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.811] ..$ label : chr "inner" [13:11:58.811] ..$ idx : int 4 [13:11:58.811] ..$ pid : int 13232 [13:11:58.811] ..$ maxSize: num 1234000 [13:11:58.815] - accumulating results [13:11:58.815] - extracting results [13:11:58.815] doFuture2() ... DONE [13:11:58.823] - Number of value chunks collected: 1 [13:11:58.823] Resolving 1 futures (chunks) ... DONE [13:11:58.823] Reducing values from 1 chunks ... [13:11:58.823] Raw results: [13:11:58.823] List of 1 [13:11:58.823] $ :List of 2 [13:11:58.823] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.823] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.823] .. ..$ idx : int [1:3] 1 3 4 [13:11:58.823] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.823] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.823] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.823] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.823] .. ..$ idx : int [1:3] 2 3 4 [13:11:58.823] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.823] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.828] Combined results: [13:11:58.828] List of 2 [13:11:58.828] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.828] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.828] ..$ idx : int [1:3] 1 3 4 [13:11:58.828] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.828] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.828] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.828] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.828] ..$ idx : int [1:3] 2 3 4 [13:11:58.828] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.828] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.832] - accumulating results [13:11:58.832] - extracting results [13:11:58.833] doFuture2() ... DONE label idx pid maxSize 1 outer 1 13232 1234000 2 inner 3 13232 1234000 3 inner 4 13232 1234000 4 outer 2 13232 1234000 5 inner 3 13232 1234000 6 inner 4 13232 1234000 - plan('sequential') ... [13:11:58.843] doFuture2() ... [13:11:58.845] Number of chunks: 1 [13:11:58.845] Number of futures (= number of chunks): 1 [13:11:58.845] seed = FALSE [13:11:58.846] NULL [13:11:58.846] seed = FALSE [13:11:58.846] seed = FALSE [13:11:58.846] - foreach iterator arguments: [1] 'x' [13:11:58.847] - dummy globals (as locals): [1] 'x' [13:11:58.847] - R expression: [13:11:58.847] { [13:11:58.847] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.847] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.847] { [13:11:58.847] NULL [13:11:58.847] x <- NULL [13:11:58.847] } [13:11:58.847] ...future.env <- environment() [13:11:58.847] local({ [13:11:58.847] for (name in names(...future.x_jj)) { [13:11:58.847] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.847] inherits = FALSE) [13:11:58.847] } [13:11:58.847] }) [13:11:58.847] tryCatch({ [13:11:58.847] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.847] maxSize = getOption("future.globals.maxSize", [13:11:58.847] NA_real_)) [13:11:58.847] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.847] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.847] maxSize = getOption("future.globals.maxSize", [13:11:58.847] NA_real_)) [13:11:58.847] } [13:11:58.847] inner <- do.call(rbind, inner) [13:11:58.847] rbind(outer, inner) [13:11:58.847] }, error = identity) [13:11:58.847] }) [13:11:58.847] } [13:11:58.848] function (x) [13:11:58.848] { [13:11:58.848] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.848] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.848] { [13:11:58.848] NULL [13:11:58.848] x <- NULL [13:11:58.848] } [13:11:58.848] ...future.env <- environment() [13:11:58.848] local({ [13:11:58.848] for (name in names(...future.x_jj)) { [13:11:58.848] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.848] inherits = FALSE) [13:11:58.848] } [13:11:58.848] }) [13:11:58.848] tryCatch({ [13:11:58.848] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.848] maxSize = getOption("future.globals.maxSize", [13:11:58.848] NA_real_)) [13:11:58.848] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.848] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.848] maxSize = getOption("future.globals.maxSize", [13:11:58.848] NA_real_)) [13:11:58.848] } [13:11:58.848] inner <- do.call(rbind, inner) [13:11:58.848] rbind(outer, inner) [13:11:58.848] }, error = identity) [13:11:58.848] }) [13:11:58.848] } [13:11:58.848] - identifying globals and packages ... [13:11:58.848] logi TRUE [13:11:58.848] - attr(*, "add")= chr "...future.x_ii" [13:11:58.848] - attr(*, "ignore")= chr "x" [13:11:58.861] List of 1 [13:11:58.861] $ ...future.x_ii: num 42 [13:11:58.861] - attr(*, "where")=List of 1 [13:11:58.861] ..$ ...future.x_ii: [13:11:58.861] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.861] - attr(*, "resolved")= logi FALSE [13:11:58.861] - attr(*, "total_size")= num 56 [13:11:58.864] - R expression: [13:11:58.864] { [13:11:58.864] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.864] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.864] { [13:11:58.864] NULL [13:11:58.864] x <- NULL [13:11:58.864] } [13:11:58.864] ...future.env <- environment() [13:11:58.864] local({ [13:11:58.864] for (name in names(...future.x_jj)) { [13:11:58.864] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.864] inherits = FALSE) [13:11:58.864] } [13:11:58.864] }) [13:11:58.864] tryCatch({ [13:11:58.864] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.864] maxSize = getOption("future.globals.maxSize", [13:11:58.864] NA_real_)) [13:11:58.864] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.864] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.864] maxSize = getOption("future.globals.maxSize", [13:11:58.864] NA_real_)) [13:11:58.864] } [13:11:58.864] inner <- do.call(rbind, inner) [13:11:58.864] rbind(outer, inner) [13:11:58.864] }, error = identity) [13:11:58.864] }) [13:11:58.864] } [13:11:58.864] - globals: [1] '...future.x_ii' [13:11:58.865] List of 1 [13:11:58.865] $ ...future.x_ii: num 42 [13:11:58.865] - attr(*, "where")=List of 1 [13:11:58.865] ..$ ...future.x_ii: [13:11:58.865] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.865] - attr(*, "resolved")= logi FALSE [13:11:58.865] - attr(*, "total_size")= num 56 [13:11:58.867] - packages: [2] 'doFuture', 'foreach' [13:11:58.867] - identifying globals and packages ... DONE [13:11:58.867] Launching 1 futures (chunks) ... [13:11:58.868] Chunk #1 of 1 ... [13:11:58.868] - Finding globals in 'args_list' chunk #1 ... [13:11:58.868] [13:11:58.868] [13:11:58.869] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.869] - seeds: [13:11:58.966] Chunk #1 of 1 ... DONE [13:11:58.966] Launching 1 futures (chunks) ... DONE [13:11:58.967] - resolving futures [13:11:58.967] - gathering results & relaying conditions (except errors) [13:11:58.874] doFuture2() ... [13:11:58.875] Number of chunks: 1 [13:11:58.890] Number of futures (= number of chunks): 1 [13:11:58.890] seed = FALSE [13:11:58.890] NULL [13:11:58.891] seed = FALSE [13:11:58.891] seed = FALSE [13:11:58.891] - foreach iterator arguments: [1] 'x' [13:11:58.891] - dummy globals (as locals): [1] 'x' [13:11:58.891] - R expression: [13:11:58.892] { [13:11:58.892] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.892] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.892] { [13:11:58.892] NULL [13:11:58.892] x <- NULL [13:11:58.892] } [13:11:58.892] ...future.env <- environment() [13:11:58.892] local({ [13:11:58.892] for (name in names(...future.x_jj)) { [13:11:58.892] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.892] inherits = FALSE) [13:11:58.892] } [13:11:58.892] }) [13:11:58.892] tryCatch({ [13:11:58.892] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.892] maxSize = getOption("future.globals.maxSize", [13:11:58.892] NA_real_)) [13:11:58.892] }, error = identity) [13:11:58.892] }) [13:11:58.892] } [13:11:58.892] function (x) [13:11:58.892] { [13:11:58.892] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.892] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.892] { [13:11:58.892] NULL [13:11:58.892] x <- NULL [13:11:58.892] } [13:11:58.892] ...future.env <- environment() [13:11:58.892] local({ [13:11:58.892] for (name in names(...future.x_jj)) { [13:11:58.892] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.892] inherits = FALSE) [13:11:58.892] } [13:11:58.892] }) [13:11:58.892] tryCatch({ [13:11:58.892] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.892] maxSize = getOption("future.globals.maxSize", [13:11:58.892] NA_real_)) [13:11:58.892] }, error = identity) [13:11:58.892] }) [13:11:58.892] } [13:11:58.892] [13:11:58.893] - identifying globals and packages ... [13:11:58.893] logi TRUE [13:11:58.893] - attr(*, "add")= chr "...future.x_ii" [13:11:58.893] - attr(*, "ignore")= chr "x" [13:11:58.902] List of 1 [13:11:58.902] $ ...future.x_ii: num 42 [13:11:58.902] - attr(*, "where")=List of 1 [13:11:58.902] ..$ ...future.x_ii: [13:11:58.902] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.902] - attr(*, "resolved")= logi FALSE [13:11:58.902] - attr(*, "total_size")= num 56 [13:11:58.905] - R expression: [13:11:58.905] { [13:11:58.905] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.905] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.905] { [13:11:58.905] NULL [13:11:58.905] x <- NULL [13:11:58.905] } [13:11:58.905] ...future.env <- environment() [13:11:58.905] local({ [13:11:58.905] for (name in names(...future.x_jj)) { [13:11:58.905] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.905] inherits = FALSE) [13:11:58.905] } [13:11:58.905] }) [13:11:58.905] tryCatch({ [13:11:58.905] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.905] maxSize = getOption("future.globals.maxSize", [13:11:58.905] NA_real_)) [13:11:58.905] }, error = identity) [13:11:58.905] }) [13:11:58.905] } [13:11:58.906] - globals: [1] '...future.x_ii' [13:11:58.906] List of 1 [13:11:58.906] $ ...future.x_ii: num 42 [13:11:58.906] - attr(*, "where")=List of 1 [13:11:58.906] ..$ ...future.x_ii: [13:11:58.906] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.906] - attr(*, "resolved")= logi FALSE [13:11:58.906] - attr(*, "total_size")= num 56 [13:11:58.908] - packages: [1] 'doFuture' [13:11:58.909] - identifying globals and packages ... DONE [13:11:58.909] Launching 1 futures (chunks) ... [13:11:58.909] Chunk #1 of 1 ... [13:11:58.909] - Finding globals in 'args_list' chunk #1 ... [13:11:58.910] [13:11:58.910] [13:11:58.910] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.910] - seeds: [13:11:58.914] Chunk #1 of 1 ... DONE [13:11:58.914] Launching 1 futures (chunks) ... DONE [13:11:58.915] - resolving futures [13:11:58.915] - gathering results & relaying conditions (except errors) [13:11:58.915] - Number of value chunks collected: 1 [13:11:58.915] Resolving 1 futures (chunks) ... DONE [13:11:58.916] Reducing values from 1 chunks ... [13:11:58.916] Raw results: [13:11:58.916] List of 1 [13:11:58.916] $ :List of 2 [13:11:58.916] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.916] .. ..$ label : chr "inner" [13:11:58.916] .. ..$ idx : int 3 [13:11:58.916] .. ..$ pid : int 13232 [13:11:58.916] .. ..$ maxSize: num 1234000 [13:11:58.916] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.916] .. ..$ label : chr "inner" [13:11:58.916] .. ..$ idx : int 4 [13:11:58.916] .. ..$ pid : int 13232 [13:11:58.916] .. ..$ maxSize: num 1234000 [13:11:58.921] Combined results: [13:11:58.921] List of 2 [13:11:58.921] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.921] ..$ label : chr "inner" [13:11:58.921] ..$ idx : int 3 [13:11:58.921] ..$ pid : int 13232 [13:11:58.921] ..$ maxSize: num 1234000 [13:11:58.921] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.921] ..$ label : chr "inner" [13:11:58.921] ..$ idx : int 4 [13:11:58.921] ..$ pid : int 13232 [13:11:58.921] ..$ maxSize: num 1234000 [13:11:58.925] - accumulating results [13:11:58.925] - extracting results [13:11:58.925] doFuture2() ... DONE [13:11:58.926] doFuture2() ... [13:11:58.927] Number of chunks: 1 [13:11:58.927] Number of futures (= number of chunks): 1 [13:11:58.927] seed = FALSE [13:11:58.928] NULL [13:11:58.928] seed = FALSE [13:11:58.928] seed = FALSE [13:11:58.928] - foreach iterator arguments: [1] 'x' [13:11:58.929] - dummy globals (as locals): [1] 'x' [13:11:58.929] - R expression: [13:11:58.929] { [13:11:58.929] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.929] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.929] { [13:11:58.929] NULL [13:11:58.929] x <- NULL [13:11:58.929] } [13:11:58.929] ...future.env <- environment() [13:11:58.929] local({ [13:11:58.929] for (name in names(...future.x_jj)) { [13:11:58.929] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.929] inherits = FALSE) [13:11:58.929] } [13:11:58.929] }) [13:11:58.929] tryCatch({ [13:11:58.929] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.929] maxSize = getOption("future.globals.maxSize", [13:11:58.929] NA_real_)) [13:11:58.929] }, error = identity) [13:11:58.929] }) [13:11:58.929] } [13:11:58.930] function (x) [13:11:58.930] { [13:11:58.930] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.930] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.930] { [13:11:58.930] NULL [13:11:58.930] x <- NULL [13:11:58.930] } [13:11:58.930] ...future.env <- environment() [13:11:58.930] local({ [13:11:58.930] for (name in names(...future.x_jj)) { [13:11:58.930] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.930] inherits = FALSE) [13:11:58.930] } [13:11:58.930] }) [13:11:58.930] tryCatch({ [13:11:58.930] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.930] maxSize = getOption("future.globals.maxSize", [13:11:58.930] NA_real_)) [13:11:58.930] }, error = identity) [13:11:58.930] }) [13:11:58.930] } [13:11:58.930] [13:11:58.930] - identifying globals and packages ... [13:11:58.930] logi TRUE [13:11:58.930] - attr(*, "add")= chr "...future.x_ii" [13:11:58.930] - attr(*, "ignore")= chr "x" [13:11:58.939] List of 1 [13:11:58.939] $ ...future.x_ii: num 42 [13:11:58.939] - attr(*, "where")=List of 1 [13:11:58.939] ..$ ...future.x_ii: [13:11:58.939] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.939] - attr(*, "resolved")= logi FALSE [13:11:58.939] - attr(*, "total_size")= num 56 [13:11:58.941] - R expression: [13:11:58.941] { [13:11:58.941] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.941] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.941] { [13:11:58.941] NULL [13:11:58.941] x <- NULL [13:11:58.941] } [13:11:58.941] ...future.env <- environment() [13:11:58.941] local({ [13:11:58.941] for (name in names(...future.x_jj)) { [13:11:58.941] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.941] inherits = FALSE) [13:11:58.941] } [13:11:58.941] }) [13:11:58.941] tryCatch({ [13:11:58.941] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.941] maxSize = getOption("future.globals.maxSize", [13:11:58.941] NA_real_)) [13:11:58.941] }, error = identity) [13:11:58.941] }) [13:11:58.941] } [13:11:58.942] - globals: [1] '...future.x_ii' [13:11:58.942] List of 1 [13:11:58.942] $ ...future.x_ii: num 42 [13:11:58.942] - attr(*, "where")=List of 1 [13:11:58.942] ..$ ...future.x_ii: [13:11:58.942] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:58.942] - attr(*, "resolved")= logi FALSE [13:11:58.942] - attr(*, "total_size")= num 56 [13:11:58.945] - packages: [1] 'doFuture' [13:11:58.945] - identifying globals and packages ... DONE [13:11:58.945] Launching 1 futures (chunks) ... [13:11:58.945] Chunk #1 of 1 ... [13:11:58.945] - Finding globals in 'args_list' chunk #1 ... [13:11:58.946] [13:11:58.946] [13:11:58.946] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:58.946] - seeds: [13:11:58.950] Chunk #1 of 1 ... DONE [13:11:58.950] Launching 1 futures (chunks) ... DONE [13:11:58.951] - resolving futures [13:11:58.951] - gathering results & relaying conditions (except errors) [13:11:58.951] - Number of value chunks collected: 1 [13:11:58.952] Resolving 1 futures (chunks) ... DONE [13:11:58.952] Reducing values from 1 chunks ... [13:11:58.952] Raw results: [13:11:58.952] List of 1 [13:11:58.952] $ :List of 2 [13:11:58.952] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.952] .. ..$ label : chr "inner" [13:11:58.952] .. ..$ idx : int 3 [13:11:58.952] .. ..$ pid : int 13232 [13:11:58.952] .. ..$ maxSize: num 1234000 [13:11:58.952] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:58.952] .. ..$ label : chr "inner" [13:11:58.952] .. ..$ idx : int 4 [13:11:58.952] .. ..$ pid : int 13232 [13:11:58.952] .. ..$ maxSize: num 1234000 [13:11:58.957] Combined results: [13:11:58.957] List of 2 [13:11:58.957] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.957] ..$ label : chr "inner" [13:11:58.957] ..$ idx : int 3 [13:11:58.957] ..$ pid : int 13232 [13:11:58.957] ..$ maxSize: num 1234000 [13:11:58.957] $ :'data.frame': 1 obs. of 4 variables: [13:11:58.957] ..$ label : chr "inner" [13:11:58.957] ..$ idx : int 4 [13:11:58.957] ..$ pid : int 13232 [13:11:58.957] ..$ maxSize: num 1234000 [13:11:58.961] - accumulating results [13:11:58.961] - extracting results [13:11:58.963] doFuture2() ... DONE [13:11:58.972] - Number of value chunks collected: 1 [13:11:58.972] Resolving 1 futures (chunks) ... DONE [13:11:58.972] Reducing values from 1 chunks ... [13:11:58.973] Raw results: [13:11:58.973] List of 1 [13:11:58.973] $ :List of 2 [13:11:58.973] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.973] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.973] .. ..$ idx : int [1:3] 1 3 4 [13:11:58.973] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.973] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.973] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:58.973] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.973] .. ..$ idx : int [1:3] 2 3 4 [13:11:58.973] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.973] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.977] Combined results: [13:11:58.977] List of 2 [13:11:58.977] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.977] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.977] ..$ idx : int [1:3] 1 3 4 [13:11:58.977] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.977] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.977] $ :'data.frame': 3 obs. of 4 variables: [13:11:58.977] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:58.977] ..$ idx : int [1:3] 2 3 4 [13:11:58.977] ..$ pid : int [1:3] 13232 13232 13232 [13:11:58.977] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:58.981] - accumulating results [13:11:58.982] - extracting results [13:11:58.982] doFuture2() ... DONE label idx pid maxSize 1 outer 1 13232 1234000 2 inner 3 13232 1234000 3 inner 4 13232 1234000 4 outer 2 13232 1234000 5 inner 3 13232 1234000 6 inner 4 13232 1234000 - plan('multisession') ... [13:11:58.993] doFuture2() ... [13:11:58.996] Number of chunks: 1 [13:11:58.996] Number of futures (= number of chunks): 1 [13:11:58.996] seed = FALSE [13:11:58.997] NULL [13:11:58.997] seed = FALSE [13:11:58.997] seed = FALSE [13:11:58.997] - foreach iterator arguments: [1] 'x' [13:11:58.998] - dummy globals (as locals): [1] 'x' [13:11:58.998] - R expression: [13:11:58.998] { [13:11:58.998] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.998] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.998] { [13:11:58.998] NULL [13:11:58.998] x <- NULL [13:11:58.998] } [13:11:58.998] ...future.env <- environment() [13:11:58.998] local({ [13:11:58.998] for (name in names(...future.x_jj)) { [13:11:58.998] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.998] inherits = FALSE) [13:11:58.998] } [13:11:58.998] }) [13:11:58.998] tryCatch({ [13:11:58.998] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.998] maxSize = getOption("future.globals.maxSize", [13:11:58.998] NA_real_)) [13:11:58.998] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.998] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.998] maxSize = getOption("future.globals.maxSize", [13:11:58.998] NA_real_)) [13:11:58.998] } [13:11:58.998] inner <- do.call(rbind, inner) [13:11:58.998] rbind(outer, inner) [13:11:58.998] }, error = identity) [13:11:58.998] }) [13:11:58.998] } [13:11:58.999] function (x) [13:11:58.999] { [13:11:58.999] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:58.999] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:58.999] { [13:11:58.999] NULL [13:11:58.999] x <- NULL [13:11:58.999] } [13:11:58.999] ...future.env <- environment() [13:11:58.999] local({ [13:11:58.999] for (name in names(...future.x_jj)) { [13:11:58.999] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:58.999] inherits = FALSE) [13:11:58.999] } [13:11:58.999] }) [13:11:58.999] tryCatch({ [13:11:58.999] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:58.999] maxSize = getOption("future.globals.maxSize", [13:11:58.999] NA_real_)) [13:11:58.999] inner <- foreach(x = 3:4) %dofuture% { [13:11:58.999] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:58.999] maxSize = getOption("future.globals.maxSize", [13:11:58.999] NA_real_)) [13:11:58.999] } [13:11:58.999] inner <- do.call(rbind, inner) [13:11:58.999] rbind(outer, inner) [13:11:58.999] }, error = identity) [13:11:58.999] }) [13:11:58.999] } [13:11:58.999] - identifying globals and packages ... [13:11:58.999] logi TRUE [13:11:58.999] - attr(*, "add")= chr "...future.x_ii" [13:11:58.999] - attr(*, "ignore")= chr "x" [13:11:59.011] List of 1 [13:11:59.011] $ ...future.x_ii: num 42 [13:11:59.011] - attr(*, "where")=List of 1 [13:11:59.011] ..$ ...future.x_ii: [13:11:59.011] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.011] - attr(*, "resolved")= logi FALSE [13:11:59.011] - attr(*, "total_size")= num 56 [13:11:59.014] - R expression: [13:11:59.014] { [13:11:59.014] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.014] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.014] { [13:11:59.014] NULL [13:11:59.014] x <- NULL [13:11:59.014] } [13:11:59.014] ...future.env <- environment() [13:11:59.014] local({ [13:11:59.014] for (name in names(...future.x_jj)) { [13:11:59.014] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.014] inherits = FALSE) [13:11:59.014] } [13:11:59.014] }) [13:11:59.014] tryCatch({ [13:11:59.014] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:59.014] maxSize = getOption("future.globals.maxSize", [13:11:59.014] NA_real_)) [13:11:59.014] inner <- foreach(x = 3:4) %dofuture% { [13:11:59.014] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.014] maxSize = getOption("future.globals.maxSize", [13:11:59.014] NA_real_)) [13:11:59.014] } [13:11:59.014] inner <- do.call(rbind, inner) [13:11:59.014] rbind(outer, inner) [13:11:59.014] }, error = identity) [13:11:59.014] }) [13:11:59.014] } [13:11:59.014] - globals: [1] '...future.x_ii' [13:11:59.014] List of 1 [13:11:59.014] $ ...future.x_ii: num 42 [13:11:59.014] - attr(*, "where")=List of 1 [13:11:59.014] ..$ ...future.x_ii: [13:11:59.014] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.014] - attr(*, "resolved")= logi FALSE [13:11:59.014] - attr(*, "total_size")= num 56 [13:11:59.017] - packages: [2] 'doFuture', 'foreach' [13:11:59.017] - identifying globals and packages ... DONE [13:11:59.017] Launching 1 futures (chunks) ... [13:11:59.017] Chunk #1 of 1 ... [13:11:59.017] - Finding globals in 'args_list' chunk #1 ... [13:11:59.018] [13:11:59.018] [13:11:59.018] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:59.018] - seeds: [13:11:59.121] Chunk #1 of 1 ... DONE [13:11:59.122] Launching 1 futures (chunks) ... DONE [13:11:59.122] - resolving futures [13:11:59.122] - gathering results & relaying conditions (except errors) [13:11:59.025] doFuture2() ... [13:11:59.028] Number of chunks: 1 [13:11:59.043] Number of futures (= number of chunks): 1 [13:11:59.044] seed = FALSE [13:11:59.044] NULL [13:11:59.044] seed = FALSE [13:11:59.044] seed = FALSE [13:11:59.045] - foreach iterator arguments: [1] 'x' [13:11:59.045] - dummy globals (as locals): [1] 'x' [13:11:59.045] - R expression: [13:11:59.045] { [13:11:59.045] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.045] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.045] { [13:11:59.045] NULL [13:11:59.045] x <- NULL [13:11:59.045] } [13:11:59.045] ...future.env <- environment() [13:11:59.045] local({ [13:11:59.045] for (name in names(...future.x_jj)) { [13:11:59.045] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.045] inherits = FALSE) [13:11:59.045] } [13:11:59.045] }) [13:11:59.045] tryCatch({ [13:11:59.045] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.045] maxSize = getOption("future.globals.maxSize", [13:11:59.045] NA_real_)) [13:11:59.045] }, error = identity) [13:11:59.045] }) [13:11:59.045] } [13:11:59.046] function (x) [13:11:59.046] { [13:11:59.046] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.046] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.046] { [13:11:59.046] NULL [13:11:59.046] x <- NULL [13:11:59.046] } [13:11:59.046] ...future.env <- environment() [13:11:59.046] local({ [13:11:59.046] for (name in names(...future.x_jj)) { [13:11:59.046] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.046] inherits = FALSE) [13:11:59.046] } [13:11:59.046] }) [13:11:59.046] tryCatch({ [13:11:59.046] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.046] maxSize = getOption("future.globals.maxSize", [13:11:59.046] NA_real_)) [13:11:59.046] }, error = identity) [13:11:59.046] }) [13:11:59.046] } [13:11:59.046] [13:11:59.046] - identifying globals and packages ... [13:11:59.046] logi TRUE [13:11:59.046] - attr(*, "add")= chr "...future.x_ii" [13:11:59.046] - attr(*, "ignore")= chr "x" [13:11:59.054] List of 1 [13:11:59.054] $ ...future.x_ii: num 42 [13:11:59.054] - attr(*, "where")=List of 1 [13:11:59.054] ..$ ...future.x_ii: [13:11:59.054] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.054] - attr(*, "resolved")= logi FALSE [13:11:59.054] - attr(*, "total_size")= num 56 [13:11:59.057] - R expression: [13:11:59.057] { [13:11:59.057] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.057] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.057] { [13:11:59.057] NULL [13:11:59.057] x <- NULL [13:11:59.057] } [13:11:59.057] ...future.env <- environment() [13:11:59.057] local({ [13:11:59.057] for (name in names(...future.x_jj)) { [13:11:59.057] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.057] inherits = FALSE) [13:11:59.057] } [13:11:59.057] }) [13:11:59.057] tryCatch({ [13:11:59.057] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.057] maxSize = getOption("future.globals.maxSize", [13:11:59.057] NA_real_)) [13:11:59.057] }, error = identity) [13:11:59.057] }) [13:11:59.057] } [13:11:59.057] - globals: [1] '...future.x_ii' [13:11:59.058] List of 1 [13:11:59.058] $ ...future.x_ii: num 42 [13:11:59.058] - attr(*, "where")=List of 1 [13:11:59.058] ..$ ...future.x_ii: [13:11:59.058] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.058] - attr(*, "resolved")= logi FALSE [13:11:59.058] - attr(*, "total_size")= num 56 [13:11:59.060] - packages: [1] 'doFuture' [13:11:59.061] - identifying globals and packages ... DONE [13:11:59.061] Launching 1 futures (chunks) ... [13:11:59.061] Chunk #1 of 1 ... [13:11:59.061] - Finding globals in 'args_list' chunk #1 ... [13:11:59.061] [13:11:59.062] [13:11:59.062] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:59.062] - seeds: [13:11:59.069] Chunk #1 of 1 ... DONE [13:11:59.069] Launching 1 futures (chunks) ... DONE [13:11:59.070] - resolving futures [13:11:59.070] - gathering results & relaying conditions (except errors) [13:11:59.070] - Number of value chunks collected: 1 [13:11:59.070] Resolving 1 futures (chunks) ... DONE [13:11:59.071] Reducing values from 1 chunks ... [13:11:59.071] Raw results: [13:11:59.071] List of 1 [13:11:59.071] $ :List of 2 [13:11:59.071] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:59.071] .. ..$ label : chr "inner" [13:11:59.071] .. ..$ idx : int 3 [13:11:59.071] .. ..$ pid : int 13232 [13:11:59.071] .. ..$ maxSize: num 1234000 [13:11:59.071] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:59.071] .. ..$ label : chr "inner" [13:11:59.071] .. ..$ idx : int 4 [13:11:59.071] .. ..$ pid : int 13232 [13:11:59.071] .. ..$ maxSize: num 1234000 [13:11:59.075] Combined results: [13:11:59.075] List of 2 [13:11:59.075] $ :'data.frame': 1 obs. of 4 variables: [13:11:59.075] ..$ label : chr "inner" [13:11:59.075] ..$ idx : int 3 [13:11:59.075] ..$ pid : int 13232 [13:11:59.075] ..$ maxSize: num 1234000 [13:11:59.075] $ :'data.frame': 1 obs. of 4 variables: [13:11:59.075] ..$ label : chr "inner" [13:11:59.075] ..$ idx : int 4 [13:11:59.075] ..$ pid : int 13232 [13:11:59.075] ..$ maxSize: num 1234000 [13:11:59.080] - accumulating results [13:11:59.080] - extracting results [13:11:59.081] doFuture2() ... DONE [13:11:59.081] doFuture2() ... [13:11:59.084] Number of chunks: 1 [13:11:59.084] Number of futures (= number of chunks): 1 [13:11:59.084] seed = FALSE [13:11:59.084] NULL [13:11:59.085] seed = FALSE [13:11:59.085] seed = FALSE [13:11:59.085] - foreach iterator arguments: [1] 'x' [13:11:59.085] - dummy globals (as locals): [1] 'x' [13:11:59.085] - R expression: [13:11:59.086] { [13:11:59.086] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.086] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.086] { [13:11:59.086] NULL [13:11:59.086] x <- NULL [13:11:59.086] } [13:11:59.086] ...future.env <- environment() [13:11:59.086] local({ [13:11:59.086] for (name in names(...future.x_jj)) { [13:11:59.086] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.086] inherits = FALSE) [13:11:59.086] } [13:11:59.086] }) [13:11:59.086] tryCatch({ [13:11:59.086] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.086] maxSize = getOption("future.globals.maxSize", [13:11:59.086] NA_real_)) [13:11:59.086] }, error = identity) [13:11:59.086] }) [13:11:59.086] } [13:11:59.086] function (x) [13:11:59.086] { [13:11:59.086] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.086] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.086] { [13:11:59.086] NULL [13:11:59.086] x <- NULL [13:11:59.086] } [13:11:59.086] ...future.env <- environment() [13:11:59.086] local({ [13:11:59.086] for (name in names(...future.x_jj)) { [13:11:59.086] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.086] inherits = FALSE) [13:11:59.086] } [13:11:59.086] }) [13:11:59.086] tryCatch({ [13:11:59.086] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.086] maxSize = getOption("future.globals.maxSize", [13:11:59.086] NA_real_)) [13:11:59.086] }, error = identity) [13:11:59.086] }) [13:11:59.086] } [13:11:59.086] [13:11:59.087] - identifying globals and packages ... [13:11:59.087] logi TRUE [13:11:59.087] - attr(*, "add")= chr "...future.x_ii" [13:11:59.087] - attr(*, "ignore")= chr "x" [13:11:59.094] List of 1 [13:11:59.094] $ ...future.x_ii: num 42 [13:11:59.094] - attr(*, "where")=List of 1 [13:11:59.094] ..$ ...future.x_ii: [13:11:59.094] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.094] - attr(*, "resolved")= logi FALSE [13:11:59.094] - attr(*, "total_size")= num 56 [13:11:59.097] - R expression: [13:11:59.097] { [13:11:59.097] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.097] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.097] { [13:11:59.097] NULL [13:11:59.097] x <- NULL [13:11:59.097] } [13:11:59.097] ...future.env <- environment() [13:11:59.097] local({ [13:11:59.097] for (name in names(...future.x_jj)) { [13:11:59.097] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.097] inherits = FALSE) [13:11:59.097] } [13:11:59.097] }) [13:11:59.097] tryCatch({ [13:11:59.097] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.097] maxSize = getOption("future.globals.maxSize", [13:11:59.097] NA_real_)) [13:11:59.097] }, error = identity) [13:11:59.097] }) [13:11:59.097] } [13:11:59.097] - globals: [1] '...future.x_ii' [13:11:59.098] List of 1 [13:11:59.098] $ ...future.x_ii: num 42 [13:11:59.098] - attr(*, "where")=List of 1 [13:11:59.098] ..$ ...future.x_ii: [13:11:59.098] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.098] - attr(*, "resolved")= logi FALSE [13:11:59.098] - attr(*, "total_size")= num 56 [13:11:59.100] - packages: [1] 'doFuture' [13:11:59.100] - identifying globals and packages ... DONE [13:11:59.100] Launching 1 futures (chunks) ... [13:11:59.100] Chunk #1 of 1 ... [13:11:59.101] - Finding globals in 'args_list' chunk #1 ... [13:11:59.101] [13:11:59.101] [13:11:59.101] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:59.102] - seeds: [13:11:59.109] Chunk #1 of 1 ... DONE [13:11:59.109] Launching 1 futures (chunks) ... DONE [13:11:59.109] - resolving futures [13:11:59.109] - gathering results & relaying conditions (except errors) [13:11:59.110] - Number of value chunks collected: 1 [13:11:59.110] Resolving 1 futures (chunks) ... DONE [13:11:59.110] Reducing values from 1 chunks ... [13:11:59.110] Raw results: [13:11:59.110] List of 1 [13:11:59.110] $ :List of 2 [13:11:59.110] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:59.110] .. ..$ label : chr "inner" [13:11:59.110] .. ..$ idx : int 3 [13:11:59.110] .. ..$ pid : int 13232 [13:11:59.110] .. ..$ maxSize: num 1234000 [13:11:59.110] ..$ :'data.frame': 1 obs. of 4 variables: [13:11:59.110] .. ..$ label : chr "inner" [13:11:59.110] .. ..$ idx : int 4 [13:11:59.110] .. ..$ pid : int 13232 [13:11:59.110] .. ..$ maxSize: num 1234000 [13:11:59.114] Combined results: [13:11:59.114] List of 2 [13:11:59.114] $ :'data.frame': 1 obs. of 4 variables: [13:11:59.114] ..$ label : chr "inner" [13:11:59.114] ..$ idx : int 3 [13:11:59.114] ..$ pid : int 13232 [13:11:59.114] ..$ maxSize: num 1234000 [13:11:59.114] $ :'data.frame': 1 obs. of 4 variables: [13:11:59.114] ..$ label : chr "inner" [13:11:59.114] ..$ idx : int 4 [13:11:59.114] ..$ pid : int 13232 [13:11:59.114] ..$ maxSize: num 1234000 [13:11:59.118] - accumulating results [13:11:59.118] - extracting results [13:11:59.118] doFuture2() ... DONE [13:11:59.127] - Number of value chunks collected: 1 [13:11:59.127] Resolving 1 futures (chunks) ... DONE [13:11:59.127] Reducing values from 1 chunks ... [13:11:59.127] Raw results: [13:11:59.127] List of 1 [13:11:59.127] $ :List of 2 [13:11:59.127] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:59.127] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:59.127] .. ..$ idx : int [1:3] 1 3 4 [13:11:59.127] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:59.127] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:59.127] ..$ :'data.frame': 3 obs. of 4 variables: [13:11:59.127] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:59.127] .. ..$ idx : int [1:3] 2 3 4 [13:11:59.127] .. ..$ pid : int [1:3] 13232 13232 13232 [13:11:59.127] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:59.131] Combined results: [13:11:59.131] List of 2 [13:11:59.131] $ :'data.frame': 3 obs. of 4 variables: [13:11:59.131] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:59.131] ..$ idx : int [1:3] 1 3 4 [13:11:59.131] ..$ pid : int [1:3] 13232 13232 13232 [13:11:59.131] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:59.131] $ :'data.frame': 3 obs. of 4 variables: [13:11:59.131] ..$ label : chr [1:3] "outer" "inner" "inner" [13:11:59.131] ..$ idx : int [1:3] 2 3 4 [13:11:59.131] ..$ pid : int [1:3] 13232 13232 13232 [13:11:59.131] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:11:59.136] - accumulating results [13:11:59.137] - extracting results [13:11:59.137] doFuture2() ... DONE label idx pid maxSize 1 outer 1 13232 1234000 2 inner 3 13232 1234000 3 inner 4 13232 1234000 4 outer 2 13232 1234000 5 inner 3 13232 1234000 6 inner 4 13232 1234000 Testing with 2 cores ... - plan('multisession') ... [13:11:59.957] doFuture2() ... [13:11:59.961] Number of chunks: 2 [13:11:59.961] Number of futures (= number of chunks): 2 [13:11:59.962] Rescaling option 'future.globals.maxSize' to account for the number of elements processed per chunk: [13:11:59.962] - Number of chunks: 2 [13:11:59.962] - globals.maxSize (original): 1234000 bytes [13:11:59.962] - globals.maxSize (adjusted): 2468000 bytes [13:11:59.962] - R expression (adjusted): [13:11:59.962] { [13:11:59.962] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [13:11:59.962] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [13:11:59.962] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [13:11:59.962] on.exit(options(oopts), add = TRUE) [13:11:59.962] } [13:11:59.962] { [13:11:59.962] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [13:11:59.962] maxSize = getOption("future.globals.maxSize", NA_real_)) [13:11:59.962] inner <- foreach(x = 3:4) %dofuture% { [13:11:59.962] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.962] maxSize = getOption("future.globals.maxSize", [13:11:59.962] NA_real_)) [13:11:59.962] } [13:11:59.962] inner <- do.call(rbind, inner) [13:11:59.962] rbind(outer, inner) [13:11:59.962] } [13:11:59.962] } [13:11:59.963] seed = FALSE [13:11:59.963] NULL [13:11:59.963] seed = FALSE [13:11:59.964] seed = FALSE [13:11:59.964] - foreach iterator arguments: [1] 'x' [13:11:59.964] - dummy globals (as locals): [1] 'x' [13:11:59.964] - R expression: [13:11:59.964] { [13:11:59.964] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.964] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.964] { [13:11:59.964] NULL [13:11:59.964] x <- NULL [13:11:59.964] } [13:11:59.964] ...future.env <- environment() [13:11:59.964] local({ [13:11:59.964] for (name in names(...future.x_jj)) { [13:11:59.964] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.964] inherits = FALSE) [13:11:59.964] } [13:11:59.964] }) [13:11:59.964] tryCatch({ [13:11:59.964] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [13:11:59.964] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [13:11:59.964] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [13:11:59.964] on.exit(options(oopts), add = TRUE) [13:11:59.964] } [13:11:59.964] { [13:11:59.964] outer <- data.frame(label = "outer", idx = x, [13:11:59.964] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [13:11:59.964] NA_real_)) [13:11:59.964] inner <- foreach(x = 3:4) %dofuture% { [13:11:59.964] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.964] maxSize = getOption("future.globals.maxSize", [13:11:59.964] NA_real_)) [13:11:59.964] } [13:11:59.964] inner <- do.call(rbind, inner) [13:11:59.964] rbind(outer, inner) [13:11:59.964] } [13:11:59.964] }, error = identity) [13:11:59.964] }) [13:11:59.964] } [13:11:59.965] function (x) [13:11:59.965] { [13:11:59.965] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.965] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.965] { [13:11:59.965] NULL [13:11:59.965] x <- NULL [13:11:59.965] } [13:11:59.965] ...future.env <- environment() [13:11:59.965] local({ [13:11:59.965] for (name in names(...future.x_jj)) { [13:11:59.965] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.965] inherits = FALSE) [13:11:59.965] } [13:11:59.965] }) [13:11:59.965] tryCatch({ [13:11:59.965] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [13:11:59.965] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [13:11:59.965] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [13:11:59.965] on.exit(options(oopts), add = TRUE) [13:11:59.965] } [13:11:59.965] { [13:11:59.965] outer <- data.frame(label = "outer", idx = x, [13:11:59.965] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [13:11:59.965] NA_real_)) [13:11:59.965] inner <- foreach(x = 3:4) %dofuture% { [13:11:59.965] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.965] maxSize = getOption("future.globals.maxSize", [13:11:59.965] NA_real_)) [13:11:59.965] } [13:11:59.965] inner <- do.call(rbind, inner) [13:11:59.965] rbind(outer, inner) [13:11:59.965] } [13:11:59.965] }, error = identity) [13:11:59.965] }) [13:11:59.965] } [13:11:59.966] - identifying globals and packages ... [13:11:59.966] logi TRUE [13:11:59.966] - attr(*, "add")= chr "...future.x_ii" [13:11:59.966] - attr(*, "ignore")= chr "x" [13:11:59.982] List of 1 [13:11:59.982] $ ...future.x_ii: num 42 [13:11:59.982] - attr(*, "where")=List of 1 [13:11:59.982] ..$ ...future.x_ii: [13:11:59.982] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.982] - attr(*, "resolved")= logi FALSE [13:11:59.982] - attr(*, "total_size")= num 56 [13:11:59.985] - R expression: [13:11:59.985] { [13:11:59.985] lapply(seq_along(...future.x_ii), FUN = function(jj) { [13:11:59.985] ...future.x_jj <- ...future.x_ii[[jj]] [13:11:59.985] { [13:11:59.985] NULL [13:11:59.985] x <- NULL [13:11:59.985] } [13:11:59.985] ...future.env <- environment() [13:11:59.985] local({ [13:11:59.985] for (name in names(...future.x_jj)) { [13:11:59.985] assign(name, ...future.x_jj[[name]], envir = ...future.env, [13:11:59.985] inherits = FALSE) [13:11:59.985] } [13:11:59.985] }) [13:11:59.985] tryCatch({ [13:11:59.985] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [13:11:59.985] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [13:11:59.985] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [13:11:59.985] on.exit(options(oopts), add = TRUE) [13:11:59.985] } [13:11:59.985] { [13:11:59.985] outer <- data.frame(label = "outer", idx = x, [13:11:59.985] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [13:11:59.985] NA_real_)) [13:11:59.985] inner <- foreach(x = 3:4) %dofuture% { [13:11:59.985] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [13:11:59.985] maxSize = getOption("future.globals.maxSize", [13:11:59.985] NA_real_)) [13:11:59.985] } [13:11:59.985] inner <- do.call(rbind, inner) [13:11:59.985] rbind(outer, inner) [13:11:59.985] } [13:11:59.985] }, error = identity) [13:11:59.985] }) [13:11:59.985] } [13:11:59.986] - globals: [1] '...future.x_ii' [13:11:59.986] List of 1 [13:11:59.986] $ ...future.x_ii: num 42 [13:11:59.986] - attr(*, "where")=List of 1 [13:11:59.986] ..$ ...future.x_ii: [13:11:59.986] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [13:11:59.986] - attr(*, "resolved")= logi FALSE [13:11:59.986] - attr(*, "total_size")= num 56 [13:11:59.989] - packages: [2] 'doFuture', 'foreach' [13:11:59.989] - identifying globals and packages ... DONE [13:11:59.989] Launching 2 futures (chunks) ... [13:11:59.989] Chunk #1 of 2 ... [13:11:59.989] - Finding globals in 'args_list' chunk #1 ... [13:11:59.990] [13:11:59.990] [13:11:59.990] - Finding globals in 'args_list' for chunk #1 ... DONE [13:11:59.990] - seeds: [13:12:00.009] Chunk #1 of 2 ... DONE [13:12:00.009] Chunk #2 of 2 ... [13:12:00.009] - Finding globals in 'args_list' chunk #2 ... [13:12:00.010] [13:12:00.010] [13:12:00.010] - Finding globals in 'args_list' for chunk #2 ... DONE [13:12:00.010] - seeds: [13:12:00.099] Chunk #2 of 2 ... DONE [13:12:00.099] Launching 2 futures (chunks) ... DONE [13:12:00.100] - resolving futures [13:12:00.100] - gathering results & relaying conditions (except errors) [13:12:00.242] - Number of value chunks collected: 2 [13:12:00.242] Resolving 2 futures (chunks) ... DONE [13:12:00.243] Reducing values from 2 chunks ... [13:12:00.243] Raw results: [13:12:00.243] List of 2 [13:12:00.243] $ :List of 1 [13:12:00.243] ..$ :'data.frame': 3 obs. of 4 variables: [13:12:00.243] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:12:00.243] .. ..$ idx : int [1:3] 1 3 4 [13:12:00.243] .. ..$ pid : int [1:3] 12188 12188 12188 [13:12:00.243] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:12:00.243] $ :List of 1 [13:12:00.243] ..$ :'data.frame': 3 obs. of 4 variables: [13:12:00.243] .. ..$ label : chr [1:3] "outer" "inner" "inner" [13:12:00.243] .. ..$ idx : int [1:3] 2 3 4 [13:12:00.243] .. ..$ pid : int [1:3] 2116 2116 2116 [13:12:00.243] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:12:00.248] Combined results: [13:12:00.248] List of 2 [13:12:00.248] $ :'data.frame': 3 obs. of 4 variables: [13:12:00.248] ..$ label : chr [1:3] "outer" "inner" "inner" [13:12:00.248] ..$ idx : int [1:3] 1 3 4 [13:12:00.248] ..$ pid : int [1:3] 12188 12188 12188 [13:12:00.248] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:12:00.248] $ :'data.frame': 3 obs. of 4 variables: [13:12:00.248] ..$ label : chr [1:3] "outer" "inner" "inner" [13:12:00.248] ..$ idx : int [1:3] 2 3 4 [13:12:00.248] ..$ pid : int [1:3] 2116 2116 2116 [13:12:00.248] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [13:12:00.252] - accumulating results [13:12:00.252] - extracting results [13:12:00.253] doFuture2() ... DONE label idx pid maxSize 1 outer 1 12188 1234000 2 inner 3 12188 1234000 3 inner 4 12188 1234000 4 outer 2 2116 1234000 5 inner 3 2116 1234000 6 inner 4 2116 1234000 > > message("*** Options in nested parallelization ... done") *** Options in nested parallelization ... done > > source("incl/end.R") R Under development (unstable) (2023-12-20 r85711 ucrt) Platform: x86_64-w64-mingw32/x64 Running under: Windows Server 2022 x64 (build 20348) Matrix products: default locale: [1] LC_COLLATE=C LC_CTYPE=German_Germany.utf8 [3] LC_MONETARY=C LC_NUMERIC=C [5] LC_TIME=C time zone: Europe/Berlin tzcode source: internal attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] doFuture_1.0.1 future_1.33.0 foreach_1.5.2 loaded via a namespace (and not attached): [1] compiler_4.4.0 parallelly_1.36.0 tools_4.4.0 [4] parallel_4.4.0 future.apply_1.11.1 listenv_0.9.0 [7] codetools_0.2-19 iterators_1.0.14 digest_0.6.33 [10] globals_0.16.2 > > proc.time() user system elapsed 1.09 0.10 2.12