R Under development (unstable) (2023-12-19 r85710 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-19 r85710 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.0 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') ... [08:12:36.372] doFuture2() ... [08:12:36.374] Number of chunks: 1 [08:12:36.374] Number of futures (= number of chunks): 1 [08:12:36.374] seed = FALSE [08:12:36.375] NULL [08:12:36.377] seed = FALSE [08:12:36.378] seed = FALSE [08:12:36.378] - foreach iterator arguments: [1] 'x' [08:12:36.378] - dummy globals (as locals): [1] 'x' [08:12:36.378] - R expression: [08:12:36.379] { [08:12:36.379] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.379] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.379] { [08:12:36.379] NULL [08:12:36.379] x <- NULL [08:12:36.379] } [08:12:36.379] ...future.env <- environment() [08:12:36.379] local({ [08:12:36.379] for (name in names(...future.x_jj)) { [08:12:36.379] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.379] inherits = FALSE) [08:12:36.379] } [08:12:36.379] }) [08:12:36.379] tryCatch({ [08:12:36.379] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.379] maxSize = getOption("future.globals.maxSize", [08:12:36.379] NA_real_)) [08:12:36.379] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.379] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.379] maxSize = getOption("future.globals.maxSize", [08:12:36.379] NA_real_)) [08:12:36.379] } [08:12:36.379] inner <- do.call(rbind, inner) [08:12:36.379] rbind(outer, inner) [08:12:36.379] }, error = identity) [08:12:36.379] }) [08:12:36.379] } [08:12:36.380] function (x) [08:12:36.380] { [08:12:36.380] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.380] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.380] { [08:12:36.380] NULL [08:12:36.380] x <- NULL [08:12:36.380] } [08:12:36.380] ...future.env <- environment() [08:12:36.380] local({ [08:12:36.380] for (name in names(...future.x_jj)) { [08:12:36.380] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.380] inherits = FALSE) [08:12:36.380] } [08:12:36.380] }) [08:12:36.380] tryCatch({ [08:12:36.380] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.380] maxSize = getOption("future.globals.maxSize", [08:12:36.380] NA_real_)) [08:12:36.380] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.380] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.380] maxSize = getOption("future.globals.maxSize", [08:12:36.380] NA_real_)) [08:12:36.380] } [08:12:36.380] inner <- do.call(rbind, inner) [08:12:36.380] rbind(outer, inner) [08:12:36.380] }, error = identity) [08:12:36.380] }) [08:12:36.380] } [08:12:36.380] - identifying globals and packages ... [08:12:36.381] logi TRUE [08:12:36.381] - attr(*, "add")= chr "...future.x_ii" [08:12:36.381] - attr(*, "ignore")= chr "x" [08:12:36.417] List of 1 [08:12:36.417] $ ...future.x_ii: num 42 [08:12:36.417] - attr(*, "where")=List of 1 [08:12:36.417] ..$ ...future.x_ii: [08:12:36.417] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.417] - attr(*, "resolved")= logi FALSE [08:12:36.417] - attr(*, "total_size")= num 56 [08:12:36.422] - R expression: [08:12:36.426] { [08:12:36.426] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.426] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.426] { [08:12:36.426] NULL [08:12:36.426] x <- NULL [08:12:36.426] } [08:12:36.426] ...future.env <- environment() [08:12:36.426] local({ [08:12:36.426] for (name in names(...future.x_jj)) { [08:12:36.426] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.426] inherits = FALSE) [08:12:36.426] } [08:12:36.426] }) [08:12:36.426] tryCatch({ [08:12:36.426] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.426] maxSize = getOption("future.globals.maxSize", [08:12:36.426] NA_real_)) [08:12:36.426] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.426] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.426] maxSize = getOption("future.globals.maxSize", [08:12:36.426] NA_real_)) [08:12:36.426] } [08:12:36.426] inner <- do.call(rbind, inner) [08:12:36.426] rbind(outer, inner) [08:12:36.426] }, error = identity) [08:12:36.426] }) [08:12:36.426] } [08:12:36.427] - globals: [1] '...future.x_ii' [08:12:36.428] List of 1 [08:12:36.428] $ ...future.x_ii: num 42 [08:12:36.428] - attr(*, "where")=List of 1 [08:12:36.428] ..$ ...future.x_ii: [08:12:36.428] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.428] - attr(*, "resolved")= logi FALSE [08:12:36.428] - attr(*, "total_size")= num 56 [08:12:36.432] - packages: [2] 'doFuture', 'foreach' [08:12:36.432] - identifying globals and packages ... DONE [08:12:36.432] Launching 1 futures (chunks) ... [08:12:36.432] Chunk #1 of 1 ... [08:12:36.433] - Finding globals in 'args_list' chunk #1 ... [08:12:36.434] [08:12:36.434] [08:12:36.434] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.435] - seeds: [08:12:36.599] Chunk #1 of 1 ... DONE [08:12:36.599] Launching 1 futures (chunks) ... DONE [08:12:36.600] - resolving futures [08:12:36.600] - gathering results & relaying conditions (except errors) [08:12:36.441] doFuture2() ... [08:12:36.443] Number of chunks: 1 [08:12:36.471] Number of futures (= number of chunks): 1 [08:12:36.471] seed = FALSE [08:12:36.471] NULL [08:12:36.472] seed = FALSE [08:12:36.472] seed = FALSE [08:12:36.473] - foreach iterator arguments: [1] 'x' [08:12:36.473] - dummy globals (as locals): [1] 'x' [08:12:36.473] - R expression: [08:12:36.473] { [08:12:36.473] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.473] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.473] { [08:12:36.473] NULL [08:12:36.473] x <- NULL [08:12:36.473] } [08:12:36.473] ...future.env <- environment() [08:12:36.473] local({ [08:12:36.473] for (name in names(...future.x_jj)) { [08:12:36.473] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.473] inherits = FALSE) [08:12:36.473] } [08:12:36.473] }) [08:12:36.473] tryCatch({ [08:12:36.473] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.473] maxSize = getOption("future.globals.maxSize", [08:12:36.473] NA_real_)) [08:12:36.473] }, error = identity) [08:12:36.473] }) [08:12:36.473] } [08:12:36.474] function (x) [08:12:36.474] { [08:12:36.474] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.474] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.474] { [08:12:36.474] NULL [08:12:36.474] x <- NULL [08:12:36.474] } [08:12:36.474] ...future.env <- environment() [08:12:36.474] local({ [08:12:36.474] for (name in names(...future.x_jj)) { [08:12:36.474] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.474] inherits = FALSE) [08:12:36.474] } [08:12:36.474] }) [08:12:36.474] tryCatch({ [08:12:36.474] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.474] maxSize = getOption("future.globals.maxSize", [08:12:36.474] NA_real_)) [08:12:36.474] }, error = identity) [08:12:36.474] }) [08:12:36.474] } [08:12:36.474] [08:12:36.474] - identifying globals and packages ... [08:12:36.474] logi TRUE [08:12:36.474] - attr(*, "add")= chr "...future.x_ii" [08:12:36.474] - attr(*, "ignore")= chr "x" [08:12:36.483] List of 1 [08:12:36.483] $ ...future.x_ii: num 42 [08:12:36.483] - attr(*, "where")=List of 1 [08:12:36.483] ..$ ...future.x_ii: [08:12:36.483] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.483] - attr(*, "resolved")= logi FALSE [08:12:36.483] - attr(*, "total_size")= num 56 [08:12:36.486] - R expression: [08:12:36.486] { [08:12:36.486] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.486] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.486] { [08:12:36.486] NULL [08:12:36.486] x <- NULL [08:12:36.486] } [08:12:36.486] ...future.env <- environment() [08:12:36.486] local({ [08:12:36.486] for (name in names(...future.x_jj)) { [08:12:36.486] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.486] inherits = FALSE) [08:12:36.486] } [08:12:36.486] }) [08:12:36.486] tryCatch({ [08:12:36.486] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.486] maxSize = getOption("future.globals.maxSize", [08:12:36.486] NA_real_)) [08:12:36.486] }, error = identity) [08:12:36.486] }) [08:12:36.486] } [08:12:36.487] - globals: [1] '...future.x_ii' [08:12:36.487] List of 1 [08:12:36.487] $ ...future.x_ii: num 42 [08:12:36.487] - attr(*, "where")=List of 1 [08:12:36.487] ..$ ...future.x_ii: [08:12:36.487] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.487] - attr(*, "resolved")= logi FALSE [08:12:36.487] - attr(*, "total_size")= num 56 [08:12:36.490] - packages: [1] 'doFuture' [08:12:36.490] - identifying globals and packages ... DONE [08:12:36.490] Launching 1 futures (chunks) ... [08:12:36.490] Chunk #1 of 1 ... [08:12:36.490] - Finding globals in 'args_list' chunk #1 ... [08:12:36.491] [08:12:36.491] [08:12:36.491] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.491] - seeds: [08:12:36.505] Chunk #1 of 1 ... DONE [08:12:36.506] Launching 1 futures (chunks) ... DONE [08:12:36.506] - resolving futures [08:12:36.506] - gathering results & relaying conditions (except errors) [08:12:36.508] - Number of value chunks collected: 1 [08:12:36.508] Resolving 1 futures (chunks) ... DONE [08:12:36.508] Reducing values from 1 chunks ... [08:12:36.508] Raw results: [08:12:36.508] List of 1 [08:12:36.508] $ :List of 2 [08:12:36.508] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.508] .. ..$ label : chr "inner" [08:12:36.508] .. ..$ idx : int 3 [08:12:36.508] .. ..$ pid : int 140916 [08:12:36.508] .. ..$ maxSize: num 1234000 [08:12:36.508] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.508] .. ..$ label : chr "inner" [08:12:36.508] .. ..$ idx : int 4 [08:12:36.508] .. ..$ pid : int 140916 [08:12:36.508] .. ..$ maxSize: num 1234000 [08:12:36.513] Combined results: [08:12:36.513] List of 2 [08:12:36.513] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.513] ..$ label : chr "inner" [08:12:36.513] ..$ idx : int 3 [08:12:36.513] ..$ pid : int 140916 [08:12:36.513] ..$ maxSize: num 1234000 [08:12:36.513] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.513] ..$ label : chr "inner" [08:12:36.513] ..$ idx : int 4 [08:12:36.513] ..$ pid : int 140916 [08:12:36.513] ..$ maxSize: num 1234000 [08:12:36.517] - accumulating results [08:12:36.519] - extracting results [08:12:36.519] doFuture2() ... DONE [08:12:36.539] doFuture2() ... [08:12:36.540] Number of chunks: 1 [08:12:36.540] Number of futures (= number of chunks): 1 [08:12:36.541] seed = FALSE [08:12:36.541] NULL [08:12:36.542] seed = FALSE [08:12:36.542] seed = FALSE [08:12:36.542] - foreach iterator arguments: [1] 'x' [08:12:36.543] - dummy globals (as locals): [1] 'x' [08:12:36.543] - R expression: [08:12:36.543] { [08:12:36.543] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.543] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.543] { [08:12:36.543] NULL [08:12:36.543] x <- NULL [08:12:36.543] } [08:12:36.543] ...future.env <- environment() [08:12:36.543] local({ [08:12:36.543] for (name in names(...future.x_jj)) { [08:12:36.543] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.543] inherits = FALSE) [08:12:36.543] } [08:12:36.543] }) [08:12:36.543] tryCatch({ [08:12:36.543] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.543] maxSize = getOption("future.globals.maxSize", [08:12:36.543] NA_real_)) [08:12:36.543] }, error = identity) [08:12:36.543] }) [08:12:36.543] } [08:12:36.544] function (x) [08:12:36.544] { [08:12:36.544] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.544] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.544] { [08:12:36.544] NULL [08:12:36.544] x <- NULL [08:12:36.544] } [08:12:36.544] ...future.env <- environment() [08:12:36.544] local({ [08:12:36.544] for (name in names(...future.x_jj)) { [08:12:36.544] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.544] inherits = FALSE) [08:12:36.544] } [08:12:36.544] }) [08:12:36.544] tryCatch({ [08:12:36.544] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.544] maxSize = getOption("future.globals.maxSize", [08:12:36.544] NA_real_)) [08:12:36.544] }, error = identity) [08:12:36.544] }) [08:12:36.544] } [08:12:36.544] [08:12:36.545] - identifying globals and packages ... [08:12:36.545] logi TRUE [08:12:36.545] - attr(*, "add")= chr "...future.x_ii" [08:12:36.545] - attr(*, "ignore")= chr "x" [08:12:36.559] List of 1 [08:12:36.559] $ ...future.x_ii: num 42 [08:12:36.559] - attr(*, "where")=List of 1 [08:12:36.559] ..$ ...future.x_ii: [08:12:36.559] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.559] - attr(*, "resolved")= logi FALSE [08:12:36.559] - attr(*, "total_size")= num 56 [08:12:36.563] - R expression: [08:12:36.564] { [08:12:36.564] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.564] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.564] { [08:12:36.564] NULL [08:12:36.564] x <- NULL [08:12:36.564] } [08:12:36.564] ...future.env <- environment() [08:12:36.564] local({ [08:12:36.564] for (name in names(...future.x_jj)) { [08:12:36.564] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.564] inherits = FALSE) [08:12:36.564] } [08:12:36.564] }) [08:12:36.564] tryCatch({ [08:12:36.564] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.564] maxSize = getOption("future.globals.maxSize", [08:12:36.564] NA_real_)) [08:12:36.564] }, error = identity) [08:12:36.564] }) [08:12:36.564] } [08:12:36.564] - globals: [1] '...future.x_ii' [08:12:36.565] List of 1 [08:12:36.565] $ ...future.x_ii: num 42 [08:12:36.565] - attr(*, "where")=List of 1 [08:12:36.565] ..$ ...future.x_ii: [08:12:36.565] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.565] - attr(*, "resolved")= logi FALSE [08:12:36.565] - attr(*, "total_size")= num 56 [08:12:36.569] - packages: [1] 'doFuture' [08:12:36.569] - identifying globals and packages ... DONE [08:12:36.570] Launching 1 futures (chunks) ... [08:12:36.570] Chunk #1 of 1 ... [08:12:36.570] - Finding globals in 'args_list' chunk #1 ... [08:12:36.571] [08:12:36.571] [08:12:36.572] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.572] - seeds: [08:12:36.579] Chunk #1 of 1 ... DONE [08:12:36.580] Launching 1 futures (chunks) ... DONE [08:12:36.580] - resolving futures [08:12:36.580] - gathering results & relaying conditions (except errors) [08:12:36.581] - Number of value chunks collected: 1 [08:12:36.581] Resolving 1 futures (chunks) ... DONE [08:12:36.582] Reducing values from 1 chunks ... [08:12:36.582] Raw results: [08:12:36.583] List of 1 [08:12:36.583] $ :List of 2 [08:12:36.583] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.583] .. ..$ label : chr "inner" [08:12:36.583] .. ..$ idx : int 3 [08:12:36.583] .. ..$ pid : int 140916 [08:12:36.583] .. ..$ maxSize: num 1234000 [08:12:36.583] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.583] .. ..$ label : chr "inner" [08:12:36.583] .. ..$ idx : int 4 [08:12:36.583] .. ..$ pid : int 140916 [08:12:36.583] .. ..$ maxSize: num 1234000 [08:12:36.589] Combined results: [08:12:36.589] List of 2 [08:12:36.589] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.589] ..$ label : chr "inner" [08:12:36.589] ..$ idx : int 3 [08:12:36.589] ..$ pid : int 140916 [08:12:36.589] ..$ maxSize: num 1234000 [08:12:36.589] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.589] ..$ label : chr "inner" [08:12:36.589] ..$ idx : int 4 [08:12:36.589] ..$ pid : int 140916 [08:12:36.589] ..$ maxSize: num 1234000 [08:12:36.596] - accumulating results [08:12:36.596] - extracting results [08:12:36.597] doFuture2() ... DONE [08:12:36.611] - Number of value chunks collected: 1 [08:12:36.612] Resolving 1 futures (chunks) ... DONE [08:12:36.612] Reducing values from 1 chunks ... [08:12:36.612] Raw results: [08:12:36.613] List of 1 [08:12:36.613] $ :List of 2 [08:12:36.613] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:36.613] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.613] .. ..$ idx : int [1:3] 1 3 4 [08:12:36.613] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.613] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.613] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:36.613] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.613] .. ..$ idx : int [1:3] 2 3 4 [08:12:36.613] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.613] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.618] Combined results: [08:12:36.618] List of 2 [08:12:36.618] $ :'data.frame': 3 obs. of 4 variables: [08:12:36.618] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.618] ..$ idx : int [1:3] 1 3 4 [08:12:36.618] ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.618] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.618] $ :'data.frame': 3 obs. of 4 variables: [08:12:36.618] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.618] ..$ idx : int [1:3] 2 3 4 [08:12:36.618] ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.618] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.623] - accumulating results [08:12:36.624] - extracting results [08:12:36.624] doFuture2() ... DONE label idx pid maxSize 1 outer 1 140916 1234000 2 inner 3 140916 1234000 3 inner 4 140916 1234000 4 outer 2 140916 1234000 5 inner 3 140916 1234000 6 inner 4 140916 1234000 - plan('multisession') ... [08:12:36.627] doFuture2() ... [08:12:36.628] Number of chunks: 1 [08:12:36.628] Number of futures (= number of chunks): 1 [08:12:36.628] seed = FALSE [08:12:36.629] NULL [08:12:36.629] seed = FALSE [08:12:36.629] seed = FALSE [08:12:36.630] - foreach iterator arguments: [1] 'x' [08:12:36.630] - dummy globals (as locals): [1] 'x' [08:12:36.630] - R expression: [08:12:36.631] { [08:12:36.631] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.631] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.631] { [08:12:36.631] NULL [08:12:36.631] x <- NULL [08:12:36.631] } [08:12:36.631] ...future.env <- environment() [08:12:36.631] local({ [08:12:36.631] for (name in names(...future.x_jj)) { [08:12:36.631] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.631] inherits = FALSE) [08:12:36.631] } [08:12:36.631] }) [08:12:36.631] tryCatch({ [08:12:36.631] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.631] maxSize = getOption("future.globals.maxSize", [08:12:36.631] NA_real_)) [08:12:36.631] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.631] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.631] maxSize = getOption("future.globals.maxSize", [08:12:36.631] NA_real_)) [08:12:36.631] } [08:12:36.631] inner <- do.call(rbind, inner) [08:12:36.631] rbind(outer, inner) [08:12:36.631] }, error = identity) [08:12:36.631] }) [08:12:36.631] } [08:12:36.631] function (x) [08:12:36.631] { [08:12:36.631] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.631] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.631] { [08:12:36.631] NULL [08:12:36.631] x <- NULL [08:12:36.631] } [08:12:36.631] ...future.env <- environment() [08:12:36.631] local({ [08:12:36.631] for (name in names(...future.x_jj)) { [08:12:36.631] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.631] inherits = FALSE) [08:12:36.631] } [08:12:36.631] }) [08:12:36.631] tryCatch({ [08:12:36.631] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.631] maxSize = getOption("future.globals.maxSize", [08:12:36.631] NA_real_)) [08:12:36.631] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.631] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.631] maxSize = getOption("future.globals.maxSize", [08:12:36.631] NA_real_)) [08:12:36.631] } [08:12:36.631] inner <- do.call(rbind, inner) [08:12:36.631] rbind(outer, inner) [08:12:36.631] }, error = identity) [08:12:36.631] }) [08:12:36.631] } [08:12:36.632] - identifying globals and packages ... [08:12:36.632] logi TRUE [08:12:36.632] - attr(*, "add")= chr "...future.x_ii" [08:12:36.632] - attr(*, "ignore")= chr "x" [08:12:36.651] List of 1 [08:12:36.651] $ ...future.x_ii: num 42 [08:12:36.651] - attr(*, "where")=List of 1 [08:12:36.651] ..$ ...future.x_ii: [08:12:36.651] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.651] - attr(*, "resolved")= logi FALSE [08:12:36.651] - attr(*, "total_size")= num 56 [08:12:36.655] - R expression: [08:12:36.655] { [08:12:36.655] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.655] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.655] { [08:12:36.655] NULL [08:12:36.655] x <- NULL [08:12:36.655] } [08:12:36.655] ...future.env <- environment() [08:12:36.655] local({ [08:12:36.655] for (name in names(...future.x_jj)) { [08:12:36.655] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.655] inherits = FALSE) [08:12:36.655] } [08:12:36.655] }) [08:12:36.655] tryCatch({ [08:12:36.655] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.655] maxSize = getOption("future.globals.maxSize", [08:12:36.655] NA_real_)) [08:12:36.655] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.655] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.655] maxSize = getOption("future.globals.maxSize", [08:12:36.655] NA_real_)) [08:12:36.655] } [08:12:36.655] inner <- do.call(rbind, inner) [08:12:36.655] rbind(outer, inner) [08:12:36.655] }, error = identity) [08:12:36.655] }) [08:12:36.655] } [08:12:36.656] - globals: [1] '...future.x_ii' [08:12:36.656] List of 1 [08:12:36.656] $ ...future.x_ii: num 42 [08:12:36.656] - attr(*, "where")=List of 1 [08:12:36.656] ..$ ...future.x_ii: [08:12:36.656] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.656] - attr(*, "resolved")= logi FALSE [08:12:36.656] - attr(*, "total_size")= num 56 [08:12:36.660] - packages: [2] 'doFuture', 'foreach' [08:12:36.660] - identifying globals and packages ... DONE [08:12:36.660] Launching 1 futures (chunks) ... [08:12:36.660] Chunk #1 of 1 ... [08:12:36.661] - Finding globals in 'args_list' chunk #1 ... [08:12:36.661] [08:12:36.661] [08:12:36.662] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.662] - seeds: [08:12:36.816] Chunk #1 of 1 ... DONE [08:12:36.816] Launching 1 futures (chunks) ... DONE [08:12:36.816] - resolving futures [08:12:36.816] - gathering results & relaying conditions (except errors) [08:12:36.670] doFuture2() ... [08:12:36.674] Number of chunks: 1 [08:12:36.698] Number of futures (= number of chunks): 1 [08:12:36.698] seed = FALSE [08:12:36.699] NULL [08:12:36.699] seed = FALSE [08:12:36.700] seed = FALSE [08:12:36.700] - foreach iterator arguments: [1] 'x' [08:12:36.700] - dummy globals (as locals): [1] 'x' [08:12:36.700] - R expression: [08:12:36.701] { [08:12:36.701] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.701] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.701] { [08:12:36.701] NULL [08:12:36.701] x <- NULL [08:12:36.701] } [08:12:36.701] ...future.env <- environment() [08:12:36.701] local({ [08:12:36.701] for (name in names(...future.x_jj)) { [08:12:36.701] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.701] inherits = FALSE) [08:12:36.701] } [08:12:36.701] }) [08:12:36.701] tryCatch({ [08:12:36.701] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.701] maxSize = getOption("future.globals.maxSize", [08:12:36.701] NA_real_)) [08:12:36.701] }, error = identity) [08:12:36.701] }) [08:12:36.701] } [08:12:36.701] function (x) [08:12:36.701] { [08:12:36.701] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.701] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.701] { [08:12:36.701] NULL [08:12:36.701] x <- NULL [08:12:36.701] } [08:12:36.701] ...future.env <- environment() [08:12:36.701] local({ [08:12:36.701] for (name in names(...future.x_jj)) { [08:12:36.701] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.701] inherits = FALSE) [08:12:36.701] } [08:12:36.701] }) [08:12:36.701] tryCatch({ [08:12:36.701] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.701] maxSize = getOption("future.globals.maxSize", [08:12:36.701] NA_real_)) [08:12:36.701] }, error = identity) [08:12:36.701] }) [08:12:36.701] } [08:12:36.701] [08:12:36.702] - identifying globals and packages ... [08:12:36.702] logi TRUE [08:12:36.702] - attr(*, "add")= chr "...future.x_ii" [08:12:36.702] - attr(*, "ignore")= chr "x" [08:12:36.715] List of 1 [08:12:36.715] $ ...future.x_ii: num 42 [08:12:36.715] - attr(*, "where")=List of 1 [08:12:36.715] ..$ ...future.x_ii: [08:12:36.715] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.715] - attr(*, "resolved")= logi FALSE [08:12:36.715] - attr(*, "total_size")= num 56 [08:12:36.719] - R expression: [08:12:36.720] { [08:12:36.720] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.720] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.720] { [08:12:36.720] NULL [08:12:36.720] x <- NULL [08:12:36.720] } [08:12:36.720] ...future.env <- environment() [08:12:36.720] local({ [08:12:36.720] for (name in names(...future.x_jj)) { [08:12:36.720] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.720] inherits = FALSE) [08:12:36.720] } [08:12:36.720] }) [08:12:36.720] tryCatch({ [08:12:36.720] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.720] maxSize = getOption("future.globals.maxSize", [08:12:36.720] NA_real_)) [08:12:36.720] }, error = identity) [08:12:36.720] }) [08:12:36.720] } [08:12:36.720] - globals: [1] '...future.x_ii' [08:12:36.721] List of 1 [08:12:36.721] $ ...future.x_ii: num 42 [08:12:36.721] - attr(*, "where")=List of 1 [08:12:36.721] ..$ ...future.x_ii: [08:12:36.721] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.721] - attr(*, "resolved")= logi FALSE [08:12:36.721] - attr(*, "total_size")= num 56 [08:12:36.724] - packages: [1] 'doFuture' [08:12:36.725] - identifying globals and packages ... DONE [08:12:36.725] Launching 1 futures (chunks) ... [08:12:36.725] Chunk #1 of 1 ... [08:12:36.725] - Finding globals in 'args_list' chunk #1 ... [08:12:36.726] [08:12:36.726] [08:12:36.727] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.727] - seeds: [08:12:36.740] Chunk #1 of 1 ... DONE [08:12:36.740] Launching 1 futures (chunks) ... DONE [08:12:36.740] - resolving futures [08:12:36.741] - gathering results & relaying conditions (except errors) [08:12:36.741] - Number of value chunks collected: 1 [08:12:36.742] Resolving 1 futures (chunks) ... DONE [08:12:36.742] Reducing values from 1 chunks ... [08:12:36.742] Raw results: [08:12:36.742] List of 1 [08:12:36.742] $ :List of 2 [08:12:36.742] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.742] .. ..$ label : chr "inner" [08:12:36.742] .. ..$ idx : int 3 [08:12:36.742] .. ..$ pid : int 140916 [08:12:36.742] .. ..$ maxSize: num 1234000 [08:12:36.742] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.742] .. ..$ label : chr "inner" [08:12:36.742] .. ..$ idx : int 4 [08:12:36.742] .. ..$ pid : int 140916 [08:12:36.742] .. ..$ maxSize: num 1234000 [08:12:36.749] Combined results: [08:12:36.749] List of 2 [08:12:36.749] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.749] ..$ label : chr "inner" [08:12:36.749] ..$ idx : int 3 [08:12:36.749] ..$ pid : int 140916 [08:12:36.749] ..$ maxSize: num 1234000 [08:12:36.749] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.749] ..$ label : chr "inner" [08:12:36.749] ..$ idx : int 4 [08:12:36.749] ..$ pid : int 140916 [08:12:36.749] ..$ maxSize: num 1234000 [08:12:36.753] - accumulating results [08:12:36.754] - extracting results [08:12:36.754] doFuture2() ... DONE [08:12:36.755] doFuture2() ... [08:12:36.758] Number of chunks: 1 [08:12:36.758] Number of futures (= number of chunks): 1 [08:12:36.758] seed = FALSE [08:12:36.759] NULL [08:12:36.759] seed = FALSE [08:12:36.759] seed = FALSE [08:12:36.759] - foreach iterator arguments: [1] 'x' [08:12:36.760] - dummy globals (as locals): [1] 'x' [08:12:36.760] - R expression: [08:12:36.760] { [08:12:36.760] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.760] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.760] { [08:12:36.760] NULL [08:12:36.760] x <- NULL [08:12:36.760] } [08:12:36.760] ...future.env <- environment() [08:12:36.760] local({ [08:12:36.760] for (name in names(...future.x_jj)) { [08:12:36.760] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.760] inherits = FALSE) [08:12:36.760] } [08:12:36.760] }) [08:12:36.760] tryCatch({ [08:12:36.760] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.760] maxSize = getOption("future.globals.maxSize", [08:12:36.760] NA_real_)) [08:12:36.760] }, error = identity) [08:12:36.760] }) [08:12:36.760] } [08:12:36.761] function (x) [08:12:36.761] { [08:12:36.761] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.761] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.761] { [08:12:36.761] NULL [08:12:36.761] x <- NULL [08:12:36.761] } [08:12:36.761] ...future.env <- environment() [08:12:36.761] local({ [08:12:36.761] for (name in names(...future.x_jj)) { [08:12:36.761] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.761] inherits = FALSE) [08:12:36.761] } [08:12:36.761] }) [08:12:36.761] tryCatch({ [08:12:36.761] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.761] maxSize = getOption("future.globals.maxSize", [08:12:36.761] NA_real_)) [08:12:36.761] }, error = identity) [08:12:36.761] }) [08:12:36.761] } [08:12:36.761] [08:12:36.761] - identifying globals and packages ... [08:12:36.761] logi TRUE [08:12:36.761] - attr(*, "add")= chr "...future.x_ii" [08:12:36.761] - attr(*, "ignore")= chr "x" [08:12:36.776] List of 1 [08:12:36.776] $ ...future.x_ii: num 42 [08:12:36.776] - attr(*, "where")=List of 1 [08:12:36.776] ..$ ...future.x_ii: [08:12:36.776] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.776] - attr(*, "resolved")= logi FALSE [08:12:36.776] - attr(*, "total_size")= num 56 [08:12:36.779] - R expression: [08:12:36.780] { [08:12:36.780] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.780] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.780] { [08:12:36.780] NULL [08:12:36.780] x <- NULL [08:12:36.780] } [08:12:36.780] ...future.env <- environment() [08:12:36.780] local({ [08:12:36.780] for (name in names(...future.x_jj)) { [08:12:36.780] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.780] inherits = FALSE) [08:12:36.780] } [08:12:36.780] }) [08:12:36.780] tryCatch({ [08:12:36.780] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.780] maxSize = getOption("future.globals.maxSize", [08:12:36.780] NA_real_)) [08:12:36.780] }, error = identity) [08:12:36.780] }) [08:12:36.780] } [08:12:36.780] - globals: [1] '...future.x_ii' [08:12:36.781] List of 1 [08:12:36.781] $ ...future.x_ii: num 42 [08:12:36.781] - attr(*, "where")=List of 1 [08:12:36.781] ..$ ...future.x_ii: [08:12:36.781] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.781] - attr(*, "resolved")= logi FALSE [08:12:36.781] - attr(*, "total_size")= num 56 [08:12:36.784] - packages: [1] 'doFuture' [08:12:36.784] - identifying globals and packages ... DONE [08:12:36.784] Launching 1 futures (chunks) ... [08:12:36.785] Chunk #1 of 1 ... [08:12:36.785] - Finding globals in 'args_list' chunk #1 ... [08:12:36.786] [08:12:36.786] [08:12:36.786] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.786] - seeds: [08:12:36.798] Chunk #1 of 1 ... DONE [08:12:36.798] Launching 1 futures (chunks) ... DONE [08:12:36.799] - resolving futures [08:12:36.799] - gathering results & relaying conditions (except errors) [08:12:36.800] - Number of value chunks collected: 1 [08:12:36.800] Resolving 1 futures (chunks) ... DONE [08:12:36.800] Reducing values from 1 chunks ... [08:12:36.800] Raw results: [08:12:36.801] List of 1 [08:12:36.801] $ :List of 2 [08:12:36.801] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.801] .. ..$ label : chr "inner" [08:12:36.801] .. ..$ idx : int 3 [08:12:36.801] .. ..$ pid : int 140916 [08:12:36.801] .. ..$ maxSize: num 1234000 [08:12:36.801] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.801] .. ..$ label : chr "inner" [08:12:36.801] .. ..$ idx : int 4 [08:12:36.801] .. ..$ pid : int 140916 [08:12:36.801] .. ..$ maxSize: num 1234000 [08:12:36.807] Combined results: [08:12:36.807] List of 2 [08:12:36.807] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.807] ..$ label : chr "inner" [08:12:36.807] ..$ idx : int 3 [08:12:36.807] ..$ pid : int 140916 [08:12:36.807] ..$ maxSize: num 1234000 [08:12:36.807] $ :'data.frame': 1 obs. of 4 variables: [08:12:36.807] ..$ label : chr "inner" [08:12:36.807] ..$ idx : int 4 [08:12:36.807] ..$ pid : int 140916 [08:12:36.807] ..$ maxSize: num 1234000 [08:12:36.813] - accumulating results [08:12:36.813] - extracting results [08:12:36.813] doFuture2() ... DONE [08:12:36.824] - Number of value chunks collected: 1 [08:12:36.825] Resolving 1 futures (chunks) ... DONE [08:12:36.825] Reducing values from 1 chunks ... [08:12:36.825] Raw results: [08:12:36.825] List of 1 [08:12:36.825] $ :List of 2 [08:12:36.825] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:36.825] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.825] .. ..$ idx : int [1:3] 1 3 4 [08:12:36.825] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.825] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.825] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:36.825] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.825] .. ..$ idx : int [1:3] 2 3 4 [08:12:36.825] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.825] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.832] Combined results: [08:12:36.832] List of 2 [08:12:36.832] $ :'data.frame': 3 obs. of 4 variables: [08:12:36.832] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.832] ..$ idx : int [1:3] 1 3 4 [08:12:36.832] ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.832] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.832] $ :'data.frame': 3 obs. of 4 variables: [08:12:36.832] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:36.832] ..$ idx : int [1:3] 2 3 4 [08:12:36.832] ..$ pid : int [1:3] 140916 140916 140916 [08:12:36.832] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:36.837] - accumulating results [08:12:36.838] - extracting results [08:12:36.838] doFuture2() ... DONE label idx pid maxSize 1 outer 1 140916 1234000 2 inner 3 140916 1234000 3 inner 4 140916 1234000 4 outer 2 140916 1234000 5 inner 3 140916 1234000 6 inner 4 140916 1234000 - plan('sequential') ... [08:12:36.855] doFuture2() ... [08:12:36.860] Number of chunks: 1 [08:12:36.860] Number of futures (= number of chunks): 1 [08:12:36.861] seed = FALSE [08:12:36.861] NULL [08:12:36.862] seed = FALSE [08:12:36.862] seed = FALSE [08:12:36.862] - foreach iterator arguments: [1] 'x' [08:12:36.863] - dummy globals (as locals): [1] 'x' [08:12:36.863] - R expression: [08:12:36.863] { [08:12:36.863] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.863] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.863] { [08:12:36.863] NULL [08:12:36.863] x <- NULL [08:12:36.863] } [08:12:36.863] ...future.env <- environment() [08:12:36.863] local({ [08:12:36.863] for (name in names(...future.x_jj)) { [08:12:36.863] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.863] inherits = FALSE) [08:12:36.863] } [08:12:36.863] }) [08:12:36.863] tryCatch({ [08:12:36.863] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.863] maxSize = getOption("future.globals.maxSize", [08:12:36.863] NA_real_)) [08:12:36.863] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.863] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.863] maxSize = getOption("future.globals.maxSize", [08:12:36.863] NA_real_)) [08:12:36.863] } [08:12:36.863] inner <- do.call(rbind, inner) [08:12:36.863] rbind(outer, inner) [08:12:36.863] }, error = identity) [08:12:36.863] }) [08:12:36.863] } [08:12:36.865] function (x) [08:12:36.865] { [08:12:36.865] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.865] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.865] { [08:12:36.865] NULL [08:12:36.865] x <- NULL [08:12:36.865] } [08:12:36.865] ...future.env <- environment() [08:12:36.865] local({ [08:12:36.865] for (name in names(...future.x_jj)) { [08:12:36.865] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.865] inherits = FALSE) [08:12:36.865] } [08:12:36.865] }) [08:12:36.865] tryCatch({ [08:12:36.865] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.865] maxSize = getOption("future.globals.maxSize", [08:12:36.865] NA_real_)) [08:12:36.865] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.865] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.865] maxSize = getOption("future.globals.maxSize", [08:12:36.865] NA_real_)) [08:12:36.865] } [08:12:36.865] inner <- do.call(rbind, inner) [08:12:36.865] rbind(outer, inner) [08:12:36.865] }, error = identity) [08:12:36.865] }) [08:12:36.865] } [08:12:36.866] - identifying globals and packages ... [08:12:36.866] logi TRUE [08:12:36.866] - attr(*, "add")= chr "...future.x_ii" [08:12:36.866] - attr(*, "ignore")= chr "x" [08:12:36.892] List of 1 [08:12:36.892] $ ...future.x_ii: num 42 [08:12:36.892] - attr(*, "where")=List of 1 [08:12:36.892] ..$ ...future.x_ii: [08:12:36.892] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.892] - attr(*, "resolved")= logi FALSE [08:12:36.892] - attr(*, "total_size")= num 56 [08:12:36.898] - R expression: [08:12:36.898] { [08:12:36.898] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.898] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.898] { [08:12:36.898] NULL [08:12:36.898] x <- NULL [08:12:36.898] } [08:12:36.898] ...future.env <- environment() [08:12:36.898] local({ [08:12:36.898] for (name in names(...future.x_jj)) { [08:12:36.898] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.898] inherits = FALSE) [08:12:36.898] } [08:12:36.898] }) [08:12:36.898] tryCatch({ [08:12:36.898] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:36.898] maxSize = getOption("future.globals.maxSize", [08:12:36.898] NA_real_)) [08:12:36.898] inner <- foreach(x = 3:4) %dofuture% { [08:12:36.898] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.898] maxSize = getOption("future.globals.maxSize", [08:12:36.898] NA_real_)) [08:12:36.898] } [08:12:36.898] inner <- do.call(rbind, inner) [08:12:36.898] rbind(outer, inner) [08:12:36.898] }, error = identity) [08:12:36.898] }) [08:12:36.898] } [08:12:36.899] - globals: [1] '...future.x_ii' [08:12:36.899] List of 1 [08:12:36.899] $ ...future.x_ii: num 42 [08:12:36.899] - attr(*, "where")=List of 1 [08:12:36.899] ..$ ...future.x_ii: [08:12:36.899] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.899] - attr(*, "resolved")= logi FALSE [08:12:36.899] - attr(*, "total_size")= num 56 [08:12:36.904] - packages: [2] 'doFuture', 'foreach' [08:12:36.904] - identifying globals and packages ... DONE [08:12:36.904] Launching 1 futures (chunks) ... [08:12:36.905] Chunk #1 of 1 ... [08:12:36.905] - Finding globals in 'args_list' chunk #1 ... [08:12:36.906] [08:12:36.906] [08:12:36.907] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.907] - seeds: [08:12:37.091] Chunk #1 of 1 ... DONE [08:12:37.091] Launching 1 futures (chunks) ... DONE [08:12:37.092] - resolving futures [08:12:37.092] - gathering results & relaying conditions (except errors) [08:12:36.917] doFuture2() ... [08:12:36.919] Number of chunks: 1 [08:12:36.949] Number of futures (= number of chunks): 1 [08:12:36.949] seed = FALSE [08:12:36.950] NULL [08:12:36.950] seed = FALSE [08:12:36.951] seed = FALSE [08:12:36.951] - foreach iterator arguments: [1] 'x' [08:12:36.951] - dummy globals (as locals): [1] 'x' [08:12:36.952] - R expression: [08:12:36.952] { [08:12:36.952] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.952] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.952] { [08:12:36.952] NULL [08:12:36.952] x <- NULL [08:12:36.952] } [08:12:36.952] ...future.env <- environment() [08:12:36.952] local({ [08:12:36.952] for (name in names(...future.x_jj)) { [08:12:36.952] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.952] inherits = FALSE) [08:12:36.952] } [08:12:36.952] }) [08:12:36.952] tryCatch({ [08:12:36.952] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.952] maxSize = getOption("future.globals.maxSize", [08:12:36.952] NA_real_)) [08:12:36.952] }, error = identity) [08:12:36.952] }) [08:12:36.952] } [08:12:36.953] function (x) [08:12:36.953] { [08:12:36.953] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.953] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.953] { [08:12:36.953] NULL [08:12:36.953] x <- NULL [08:12:36.953] } [08:12:36.953] ...future.env <- environment() [08:12:36.953] local({ [08:12:36.953] for (name in names(...future.x_jj)) { [08:12:36.953] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.953] inherits = FALSE) [08:12:36.953] } [08:12:36.953] }) [08:12:36.953] tryCatch({ [08:12:36.953] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.953] maxSize = getOption("future.globals.maxSize", [08:12:36.953] NA_real_)) [08:12:36.953] }, error = identity) [08:12:36.953] }) [08:12:36.953] } [08:12:36.953] [08:12:36.954] - identifying globals and packages ... [08:12:36.954] logi TRUE [08:12:36.954] - attr(*, "add")= chr "...future.x_ii" [08:12:36.954] - attr(*, "ignore")= chr "x" [08:12:36.973] List of 1 [08:12:36.973] $ ...future.x_ii: num 42 [08:12:36.973] - attr(*, "where")=List of 1 [08:12:36.973] ..$ ...future.x_ii: [08:12:36.973] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.973] - attr(*, "resolved")= logi FALSE [08:12:36.973] - attr(*, "total_size")= num 56 [08:12:36.978] - R expression: [08:12:36.979] { [08:12:36.979] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:36.979] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:36.979] { [08:12:36.979] NULL [08:12:36.979] x <- NULL [08:12:36.979] } [08:12:36.979] ...future.env <- environment() [08:12:36.979] local({ [08:12:36.979] for (name in names(...future.x_jj)) { [08:12:36.979] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:36.979] inherits = FALSE) [08:12:36.979] } [08:12:36.979] }) [08:12:36.979] tryCatch({ [08:12:36.979] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:36.979] maxSize = getOption("future.globals.maxSize", [08:12:36.979] NA_real_)) [08:12:36.979] }, error = identity) [08:12:36.979] }) [08:12:36.979] } [08:12:36.980] - globals: [1] '...future.x_ii' [08:12:36.980] List of 1 [08:12:36.980] $ ...future.x_ii: num 42 [08:12:36.980] - attr(*, "where")=List of 1 [08:12:36.980] ..$ ...future.x_ii: [08:12:36.980] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:36.980] - attr(*, "resolved")= logi FALSE [08:12:36.980] - attr(*, "total_size")= num 56 [08:12:36.985] - packages: [1] 'doFuture' [08:12:36.985] - identifying globals and packages ... DONE [08:12:36.985] Launching 1 futures (chunks) ... [08:12:36.986] Chunk #1 of 1 ... [08:12:36.986] - Finding globals in 'args_list' chunk #1 ... [08:12:36.987] [08:12:36.987] [08:12:36.988] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:36.988] - seeds: [08:12:36.996] Chunk #1 of 1 ... DONE [08:12:36.996] Launching 1 futures (chunks) ... DONE [08:12:36.997] - resolving futures [08:12:36.997] - gathering results & relaying conditions (except errors) [08:12:36.998] - Number of value chunks collected: 1 [08:12:36.998] Resolving 1 futures (chunks) ... DONE [08:12:36.999] Reducing values from 1 chunks ... [08:12:36.999] Raw results: [08:12:36.999] List of 1 [08:12:36.999] $ :List of 2 [08:12:36.999] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.999] .. ..$ label : chr "inner" [08:12:36.999] .. ..$ idx : int 3 [08:12:36.999] .. ..$ pid : int 140916 [08:12:36.999] .. ..$ maxSize: num 1234000 [08:12:36.999] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:36.999] .. ..$ label : chr "inner" [08:12:36.999] .. ..$ idx : int 4 [08:12:36.999] .. ..$ pid : int 140916 [08:12:36.999] .. ..$ maxSize: num 1234000 [08:12:37.008] Combined results: [08:12:37.008] List of 2 [08:12:37.008] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.008] ..$ label : chr "inner" [08:12:37.008] ..$ idx : int 3 [08:12:37.008] ..$ pid : int 140916 [08:12:37.008] ..$ maxSize: num 1234000 [08:12:37.008] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.008] ..$ label : chr "inner" [08:12:37.008] ..$ idx : int 4 [08:12:37.008] ..$ pid : int 140916 [08:12:37.008] ..$ maxSize: num 1234000 [08:12:37.015] - accumulating results [08:12:37.016] - extracting results [08:12:37.017] doFuture2() ... DONE [08:12:37.019] doFuture2() ... [08:12:37.020] Number of chunks: 1 [08:12:37.020] Number of futures (= number of chunks): 1 [08:12:37.021] seed = FALSE [08:12:37.021] NULL [08:12:37.022] seed = FALSE [08:12:37.022] seed = FALSE [08:12:37.023] - foreach iterator arguments: [1] 'x' [08:12:37.023] - dummy globals (as locals): [1] 'x' [08:12:37.023] - R expression: [08:12:37.024] { [08:12:37.024] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.024] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.024] { [08:12:37.024] NULL [08:12:37.024] x <- NULL [08:12:37.024] } [08:12:37.024] ...future.env <- environment() [08:12:37.024] local({ [08:12:37.024] for (name in names(...future.x_jj)) { [08:12:37.024] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.024] inherits = FALSE) [08:12:37.024] } [08:12:37.024] }) [08:12:37.024] tryCatch({ [08:12:37.024] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.024] maxSize = getOption("future.globals.maxSize", [08:12:37.024] NA_real_)) [08:12:37.024] }, error = identity) [08:12:37.024] }) [08:12:37.024] } [08:12:37.025] function (x) [08:12:37.025] { [08:12:37.025] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.025] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.025] { [08:12:37.025] NULL [08:12:37.025] x <- NULL [08:12:37.025] } [08:12:37.025] ...future.env <- environment() [08:12:37.025] local({ [08:12:37.025] for (name in names(...future.x_jj)) { [08:12:37.025] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.025] inherits = FALSE) [08:12:37.025] } [08:12:37.025] }) [08:12:37.025] tryCatch({ [08:12:37.025] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.025] maxSize = getOption("future.globals.maxSize", [08:12:37.025] NA_real_)) [08:12:37.025] }, error = identity) [08:12:37.025] }) [08:12:37.025] } [08:12:37.025] [08:12:37.025] - identifying globals and packages ... [08:12:37.026] logi TRUE [08:12:37.026] - attr(*, "add")= chr "...future.x_ii" [08:12:37.026] - attr(*, "ignore")= chr "x" [08:12:37.043] List of 1 [08:12:37.043] $ ...future.x_ii: num 42 [08:12:37.043] - attr(*, "where")=List of 1 [08:12:37.043] ..$ ...future.x_ii: [08:12:37.043] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.043] - attr(*, "resolved")= logi FALSE [08:12:37.043] - attr(*, "total_size")= num 56 [08:12:37.048] - R expression: [08:12:37.048] { [08:12:37.048] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.048] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.048] { [08:12:37.048] NULL [08:12:37.048] x <- NULL [08:12:37.048] } [08:12:37.048] ...future.env <- environment() [08:12:37.048] local({ [08:12:37.048] for (name in names(...future.x_jj)) { [08:12:37.048] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.048] inherits = FALSE) [08:12:37.048] } [08:12:37.048] }) [08:12:37.048] tryCatch({ [08:12:37.048] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.048] maxSize = getOption("future.globals.maxSize", [08:12:37.048] NA_real_)) [08:12:37.048] }, error = identity) [08:12:37.048] }) [08:12:37.048] } [08:12:37.049] - globals: [1] '...future.x_ii' [08:12:37.049] List of 1 [08:12:37.049] $ ...future.x_ii: num 42 [08:12:37.049] - attr(*, "where")=List of 1 [08:12:37.049] ..$ ...future.x_ii: [08:12:37.049] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.049] - attr(*, "resolved")= logi FALSE [08:12:37.049] - attr(*, "total_size")= num 56 [08:12:37.054] - packages: [1] 'doFuture' [08:12:37.054] - identifying globals and packages ... DONE [08:12:37.055] Launching 1 futures (chunks) ... [08:12:37.055] Chunk #1 of 1 ... [08:12:37.055] - Finding globals in 'args_list' chunk #1 ... [08:12:37.056] [08:12:37.057] [08:12:37.057] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:37.057] - seeds: [08:12:37.065] Chunk #1 of 1 ... DONE [08:12:37.066] Launching 1 futures (chunks) ... DONE [08:12:37.066] - resolving futures [08:12:37.066] - gathering results & relaying conditions (except errors) [08:12:37.067] - Number of value chunks collected: 1 [08:12:37.068] Resolving 1 futures (chunks) ... DONE [08:12:37.068] Reducing values from 1 chunks ... [08:12:37.069] Raw results: [08:12:37.069] List of 1 [08:12:37.069] $ :List of 2 [08:12:37.069] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.069] .. ..$ label : chr "inner" [08:12:37.069] .. ..$ idx : int 3 [08:12:37.069] .. ..$ pid : int 140916 [08:12:37.069] .. ..$ maxSize: num 1234000 [08:12:37.069] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.069] .. ..$ label : chr "inner" [08:12:37.069] .. ..$ idx : int 4 [08:12:37.069] .. ..$ pid : int 140916 [08:12:37.069] .. ..$ maxSize: num 1234000 [08:12:37.074] Combined results: [08:12:37.075] List of 2 [08:12:37.075] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.075] ..$ label : chr "inner" [08:12:37.075] ..$ idx : int 3 [08:12:37.075] ..$ pid : int 140916 [08:12:37.075] ..$ maxSize: num 1234000 [08:12:37.075] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.075] ..$ label : chr "inner" [08:12:37.075] ..$ idx : int 4 [08:12:37.075] ..$ pid : int 140916 [08:12:37.075] ..$ maxSize: num 1234000 [08:12:37.081] - accumulating results [08:12:37.081] - extracting results [08:12:37.084] doFuture2() ... DONE [08:12:37.102] - Number of value chunks collected: 1 [08:12:37.102] Resolving 1 futures (chunks) ... DONE [08:12:37.102] Reducing values from 1 chunks ... [08:12:37.102] Raw results: [08:12:37.103] List of 1 [08:12:37.103] $ :List of 2 [08:12:37.103] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:37.103] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.103] .. ..$ idx : int [1:3] 1 3 4 [08:12:37.103] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.103] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.103] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:37.103] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.103] .. ..$ idx : int [1:3] 2 3 4 [08:12:37.103] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.103] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.109] Combined results: [08:12:37.109] List of 2 [08:12:37.109] $ :'data.frame': 3 obs. of 4 variables: [08:12:37.109] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.109] ..$ idx : int [1:3] 1 3 4 [08:12:37.109] ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.109] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.109] $ :'data.frame': 3 obs. of 4 variables: [08:12:37.109] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.109] ..$ idx : int [1:3] 2 3 4 [08:12:37.109] ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.109] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.115] - accumulating results [08:12:37.116] - extracting results [08:12:37.116] doFuture2() ... DONE label idx pid maxSize 1 outer 1 140916 1234000 2 inner 3 140916 1234000 3 inner 4 140916 1234000 4 outer 2 140916 1234000 5 inner 3 140916 1234000 6 inner 4 140916 1234000 - plan('multisession') ... [08:12:37.134] doFuture2() ... [08:12:37.138] Number of chunks: 1 [08:12:37.138] Number of futures (= number of chunks): 1 [08:12:37.138] seed = FALSE [08:12:37.139] NULL [08:12:37.139] seed = FALSE [08:12:37.139] seed = FALSE [08:12:37.140] - foreach iterator arguments: [1] 'x' [08:12:37.140] - dummy globals (as locals): [1] 'x' [08:12:37.140] - R expression: [08:12:37.140] { [08:12:37.140] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.140] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.140] { [08:12:37.140] NULL [08:12:37.140] x <- NULL [08:12:37.140] } [08:12:37.140] ...future.env <- environment() [08:12:37.140] local({ [08:12:37.140] for (name in names(...future.x_jj)) { [08:12:37.140] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.140] inherits = FALSE) [08:12:37.140] } [08:12:37.140] }) [08:12:37.140] tryCatch({ [08:12:37.140] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:37.140] maxSize = getOption("future.globals.maxSize", [08:12:37.140] NA_real_)) [08:12:37.140] inner <- foreach(x = 3:4) %dofuture% { [08:12:37.140] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.140] maxSize = getOption("future.globals.maxSize", [08:12:37.140] NA_real_)) [08:12:37.140] } [08:12:37.140] inner <- do.call(rbind, inner) [08:12:37.140] rbind(outer, inner) [08:12:37.140] }, error = identity) [08:12:37.140] }) [08:12:37.140] } [08:12:37.141] function (x) [08:12:37.141] { [08:12:37.141] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.141] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.141] { [08:12:37.141] NULL [08:12:37.141] x <- NULL [08:12:37.141] } [08:12:37.141] ...future.env <- environment() [08:12:37.141] local({ [08:12:37.141] for (name in names(...future.x_jj)) { [08:12:37.141] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.141] inherits = FALSE) [08:12:37.141] } [08:12:37.141] }) [08:12:37.141] tryCatch({ [08:12:37.141] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:37.141] maxSize = getOption("future.globals.maxSize", [08:12:37.141] NA_real_)) [08:12:37.141] inner <- foreach(x = 3:4) %dofuture% { [08:12:37.141] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.141] maxSize = getOption("future.globals.maxSize", [08:12:37.141] NA_real_)) [08:12:37.141] } [08:12:37.141] inner <- do.call(rbind, inner) [08:12:37.141] rbind(outer, inner) [08:12:37.141] }, error = identity) [08:12:37.141] }) [08:12:37.141] } [08:12:37.142] - identifying globals and packages ... [08:12:37.142] logi TRUE [08:12:37.142] - attr(*, "add")= chr "...future.x_ii" [08:12:37.142] - attr(*, "ignore")= chr "x" [08:12:37.160] List of 1 [08:12:37.160] $ ...future.x_ii: num 42 [08:12:37.160] - attr(*, "where")=List of 1 [08:12:37.160] ..$ ...future.x_ii: [08:12:37.160] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.160] - attr(*, "resolved")= logi FALSE [08:12:37.160] - attr(*, "total_size")= num 56 [08:12:37.163] - R expression: [08:12:37.164] { [08:12:37.164] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.164] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.164] { [08:12:37.164] NULL [08:12:37.164] x <- NULL [08:12:37.164] } [08:12:37.164] ...future.env <- environment() [08:12:37.164] local({ [08:12:37.164] for (name in names(...future.x_jj)) { [08:12:37.164] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.164] inherits = FALSE) [08:12:37.164] } [08:12:37.164] }) [08:12:37.164] tryCatch({ [08:12:37.164] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:37.164] maxSize = getOption("future.globals.maxSize", [08:12:37.164] NA_real_)) [08:12:37.164] inner <- foreach(x = 3:4) %dofuture% { [08:12:37.164] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.164] maxSize = getOption("future.globals.maxSize", [08:12:37.164] NA_real_)) [08:12:37.164] } [08:12:37.164] inner <- do.call(rbind, inner) [08:12:37.164] rbind(outer, inner) [08:12:37.164] }, error = identity) [08:12:37.164] }) [08:12:37.164] } [08:12:37.164] - globals: [1] '...future.x_ii' [08:12:37.165] List of 1 [08:12:37.165] $ ...future.x_ii: num 42 [08:12:37.165] - attr(*, "where")=List of 1 [08:12:37.165] ..$ ...future.x_ii: [08:12:37.165] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.165] - attr(*, "resolved")= logi FALSE [08:12:37.165] - attr(*, "total_size")= num 56 [08:12:37.168] - packages: [2] 'doFuture', 'foreach' [08:12:37.169] - identifying globals and packages ... DONE [08:12:37.169] Launching 1 futures (chunks) ... [08:12:37.169] Chunk #1 of 1 ... [08:12:37.169] - Finding globals in 'args_list' chunk #1 ... [08:12:37.170] [08:12:37.170] [08:12:37.170] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:37.171] - seeds: [08:12:37.338] Chunk #1 of 1 ... DONE [08:12:37.338] Launching 1 futures (chunks) ... DONE [08:12:37.339] - resolving futures [08:12:37.339] - gathering results & relaying conditions (except errors) [08:12:37.182] doFuture2() ... [08:12:37.186] Number of chunks: 1 [08:12:37.212] Number of futures (= number of chunks): 1 [08:12:37.213] seed = FALSE [08:12:37.213] NULL [08:12:37.214] seed = FALSE [08:12:37.214] seed = FALSE [08:12:37.214] - foreach iterator arguments: [1] 'x' [08:12:37.214] - dummy globals (as locals): [1] 'x' [08:12:37.215] - R expression: [08:12:37.215] { [08:12:37.215] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.215] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.215] { [08:12:37.215] NULL [08:12:37.215] x <- NULL [08:12:37.215] } [08:12:37.215] ...future.env <- environment() [08:12:37.215] local({ [08:12:37.215] for (name in names(...future.x_jj)) { [08:12:37.215] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.215] inherits = FALSE) [08:12:37.215] } [08:12:37.215] }) [08:12:37.215] tryCatch({ [08:12:37.215] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.215] maxSize = getOption("future.globals.maxSize", [08:12:37.215] NA_real_)) [08:12:37.215] }, error = identity) [08:12:37.215] }) [08:12:37.215] } [08:12:37.216] function (x) [08:12:37.216] { [08:12:37.216] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.216] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.216] { [08:12:37.216] NULL [08:12:37.216] x <- NULL [08:12:37.216] } [08:12:37.216] ...future.env <- environment() [08:12:37.216] local({ [08:12:37.216] for (name in names(...future.x_jj)) { [08:12:37.216] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.216] inherits = FALSE) [08:12:37.216] } [08:12:37.216] }) [08:12:37.216] tryCatch({ [08:12:37.216] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.216] maxSize = getOption("future.globals.maxSize", [08:12:37.216] NA_real_)) [08:12:37.216] }, error = identity) [08:12:37.216] }) [08:12:37.216] } [08:12:37.216] [08:12:37.216] - identifying globals and packages ... [08:12:37.217] logi TRUE [08:12:37.217] - attr(*, "add")= chr "...future.x_ii" [08:12:37.217] - attr(*, "ignore")= chr "x" [08:12:37.231] List of 1 [08:12:37.231] $ ...future.x_ii: num 42 [08:12:37.231] - attr(*, "where")=List of 1 [08:12:37.231] ..$ ...future.x_ii: [08:12:37.231] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.231] - attr(*, "resolved")= logi FALSE [08:12:37.231] - attr(*, "total_size")= num 56 [08:12:37.235] - R expression: [08:12:37.235] { [08:12:37.235] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.235] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.235] { [08:12:37.235] NULL [08:12:37.235] x <- NULL [08:12:37.235] } [08:12:37.235] ...future.env <- environment() [08:12:37.235] local({ [08:12:37.235] for (name in names(...future.x_jj)) { [08:12:37.235] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.235] inherits = FALSE) [08:12:37.235] } [08:12:37.235] }) [08:12:37.235] tryCatch({ [08:12:37.235] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.235] maxSize = getOption("future.globals.maxSize", [08:12:37.235] NA_real_)) [08:12:37.235] }, error = identity) [08:12:37.235] }) [08:12:37.235] } [08:12:37.236] - globals: [1] '...future.x_ii' [08:12:37.236] List of 1 [08:12:37.236] $ ...future.x_ii: num 42 [08:12:37.236] - attr(*, "where")=List of 1 [08:12:37.236] ..$ ...future.x_ii: [08:12:37.236] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.236] - attr(*, "resolved")= logi FALSE [08:12:37.236] - attr(*, "total_size")= num 56 [08:12:37.240] - packages: [1] 'doFuture' [08:12:37.240] - identifying globals and packages ... DONE [08:12:37.240] Launching 1 futures (chunks) ... [08:12:37.241] Chunk #1 of 1 ... [08:12:37.241] - Finding globals in 'args_list' chunk #1 ... [08:12:37.242] [08:12:37.242] [08:12:37.242] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:37.242] - seeds: [08:12:37.255] Chunk #1 of 1 ... DONE [08:12:37.255] Launching 1 futures (chunks) ... DONE [08:12:37.256] - resolving futures [08:12:37.256] - gathering results & relaying conditions (except errors) [08:12:37.257] - Number of value chunks collected: 1 [08:12:37.257] Resolving 1 futures (chunks) ... DONE [08:12:37.257] Reducing values from 1 chunks ... [08:12:37.257] Raw results: [08:12:37.258] List of 1 [08:12:37.258] $ :List of 2 [08:12:37.258] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.258] .. ..$ label : chr "inner" [08:12:37.258] .. ..$ idx : int 3 [08:12:37.258] .. ..$ pid : int 140916 [08:12:37.258] .. ..$ maxSize: num 1234000 [08:12:37.258] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.258] .. ..$ label : chr "inner" [08:12:37.258] .. ..$ idx : int 4 [08:12:37.258] .. ..$ pid : int 140916 [08:12:37.258] .. ..$ maxSize: num 1234000 [08:12:37.265] Combined results: [08:12:37.265] List of 2 [08:12:37.265] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.265] ..$ label : chr "inner" [08:12:37.265] ..$ idx : int 3 [08:12:37.265] ..$ pid : int 140916 [08:12:37.265] ..$ maxSize: num 1234000 [08:12:37.265] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.265] ..$ label : chr "inner" [08:12:37.265] ..$ idx : int 4 [08:12:37.265] ..$ pid : int 140916 [08:12:37.265] ..$ maxSize: num 1234000 [08:12:37.274] - accumulating results [08:12:37.274] - extracting results [08:12:37.274] doFuture2() ... DONE [08:12:37.276] doFuture2() ... [08:12:37.280] Number of chunks: 1 [08:12:37.280] Number of futures (= number of chunks): 1 [08:12:37.280] seed = FALSE [08:12:37.280] NULL [08:12:37.281] seed = FALSE [08:12:37.281] seed = FALSE [08:12:37.281] - foreach iterator arguments: [1] 'x' [08:12:37.282] - dummy globals (as locals): [1] 'x' [08:12:37.282] - R expression: [08:12:37.282] { [08:12:37.282] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.282] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.282] { [08:12:37.282] NULL [08:12:37.282] x <- NULL [08:12:37.282] } [08:12:37.282] ...future.env <- environment() [08:12:37.282] local({ [08:12:37.282] for (name in names(...future.x_jj)) { [08:12:37.282] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.282] inherits = FALSE) [08:12:37.282] } [08:12:37.282] }) [08:12:37.282] tryCatch({ [08:12:37.282] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.282] maxSize = getOption("future.globals.maxSize", [08:12:37.282] NA_real_)) [08:12:37.282] }, error = identity) [08:12:37.282] }) [08:12:37.282] } [08:12:37.283] function (x) [08:12:37.283] { [08:12:37.283] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.283] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.283] { [08:12:37.283] NULL [08:12:37.283] x <- NULL [08:12:37.283] } [08:12:37.283] ...future.env <- environment() [08:12:37.283] local({ [08:12:37.283] for (name in names(...future.x_jj)) { [08:12:37.283] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.283] inherits = FALSE) [08:12:37.283] } [08:12:37.283] }) [08:12:37.283] tryCatch({ [08:12:37.283] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.283] maxSize = getOption("future.globals.maxSize", [08:12:37.283] NA_real_)) [08:12:37.283] }, error = identity) [08:12:37.283] }) [08:12:37.283] } [08:12:37.283] [08:12:37.283] - identifying globals and packages ... [08:12:37.284] logi TRUE [08:12:37.284] - attr(*, "add")= chr "...future.x_ii" [08:12:37.284] - attr(*, "ignore")= chr "x" [08:12:37.296] List of 1 [08:12:37.296] $ ...future.x_ii: num 42 [08:12:37.296] - attr(*, "where")=List of 1 [08:12:37.296] ..$ ...future.x_ii: [08:12:37.296] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.296] - attr(*, "resolved")= logi FALSE [08:12:37.296] - attr(*, "total_size")= num 56 [08:12:37.299] - R expression: [08:12:37.300] { [08:12:37.300] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:37.300] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:37.300] { [08:12:37.300] NULL [08:12:37.300] x <- NULL [08:12:37.300] } [08:12:37.300] ...future.env <- environment() [08:12:37.300] local({ [08:12:37.300] for (name in names(...future.x_jj)) { [08:12:37.300] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:37.300] inherits = FALSE) [08:12:37.300] } [08:12:37.300] }) [08:12:37.300] tryCatch({ [08:12:37.300] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:37.300] maxSize = getOption("future.globals.maxSize", [08:12:37.300] NA_real_)) [08:12:37.300] }, error = identity) [08:12:37.300] }) [08:12:37.300] } [08:12:37.300] - globals: [1] '...future.x_ii' [08:12:37.300] List of 1 [08:12:37.300] $ ...future.x_ii: num 42 [08:12:37.300] - attr(*, "where")=List of 1 [08:12:37.300] ..$ ...future.x_ii: [08:12:37.300] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:37.300] - attr(*, "resolved")= logi FALSE [08:12:37.300] - attr(*, "total_size")= num 56 [08:12:37.304] - packages: [1] 'doFuture' [08:12:37.304] - identifying globals and packages ... DONE [08:12:37.304] Launching 1 futures (chunks) ... [08:12:37.305] Chunk #1 of 1 ... [08:12:37.305] - Finding globals in 'args_list' chunk #1 ... [08:12:37.306] [08:12:37.306] [08:12:37.306] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:37.306] - seeds: [08:12:37.318] Chunk #1 of 1 ... DONE [08:12:37.318] Launching 1 futures (chunks) ... DONE [08:12:37.318] - resolving futures [08:12:37.318] - gathering results & relaying conditions (except errors) [08:12:37.319] - Number of value chunks collected: 1 [08:12:37.320] Resolving 1 futures (chunks) ... DONE [08:12:37.320] Reducing values from 1 chunks ... [08:12:37.320] Raw results: [08:12:37.320] List of 1 [08:12:37.320] $ :List of 2 [08:12:37.320] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.320] .. ..$ label : chr "inner" [08:12:37.320] .. ..$ idx : int 3 [08:12:37.320] .. ..$ pid : int 140916 [08:12:37.320] .. ..$ maxSize: num 1234000 [08:12:37.320] ..$ :'data.frame': 1 obs. of 4 variables: [08:12:37.320] .. ..$ label : chr "inner" [08:12:37.320] .. ..$ idx : int 4 [08:12:37.320] .. ..$ pid : int 140916 [08:12:37.320] .. ..$ maxSize: num 1234000 [08:12:37.327] Combined results: [08:12:37.327] List of 2 [08:12:37.327] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.327] ..$ label : chr "inner" [08:12:37.327] ..$ idx : int 3 [08:12:37.327] ..$ pid : int 140916 [08:12:37.327] ..$ maxSize: num 1234000 [08:12:37.327] $ :'data.frame': 1 obs. of 4 variables: [08:12:37.327] ..$ label : chr "inner" [08:12:37.327] ..$ idx : int 4 [08:12:37.327] ..$ pid : int 140916 [08:12:37.327] ..$ maxSize: num 1234000 [08:12:37.332] - accumulating results [08:12:37.333] - extracting results [08:12:37.333] doFuture2() ... DONE [08:12:37.348] - Number of value chunks collected: 1 [08:12:37.348] Resolving 1 futures (chunks) ... DONE [08:12:37.348] Reducing values from 1 chunks ... [08:12:37.348] Raw results: [08:12:37.349] List of 1 [08:12:37.349] $ :List of 2 [08:12:37.349] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:37.349] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.349] .. ..$ idx : int [1:3] 1 3 4 [08:12:37.349] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.349] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.349] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:37.349] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.349] .. ..$ idx : int [1:3] 2 3 4 [08:12:37.349] .. ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.349] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.356] Combined results: [08:12:37.356] List of 2 [08:12:37.356] $ :'data.frame': 3 obs. of 4 variables: [08:12:37.356] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.356] ..$ idx : int [1:3] 1 3 4 [08:12:37.356] ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.356] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.356] $ :'data.frame': 3 obs. of 4 variables: [08:12:37.356] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:37.356] ..$ idx : int [1:3] 2 3 4 [08:12:37.356] ..$ pid : int [1:3] 140916 140916 140916 [08:12:37.356] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:37.365] - accumulating results [08:12:37.366] - extracting results [08:12:37.366] doFuture2() ... DONE label idx pid maxSize 1 outer 1 140916 1234000 2 inner 3 140916 1234000 3 inner 4 140916 1234000 4 outer 2 140916 1234000 5 inner 3 140916 1234000 6 inner 4 140916 1234000 Testing with 2 cores ... - plan('multisession') ... [08:12:38.531] doFuture2() ... [08:12:38.539] Number of chunks: 2 [08:12:38.539] Number of futures (= number of chunks): 2 [08:12:38.540] Rescaling option 'future.globals.maxSize' to account for the number of elements processed per chunk: [08:12:38.540] - Number of chunks: 2 [08:12:38.540] - globals.maxSize (original): 1234000 bytes [08:12:38.540] - globals.maxSize (adjusted): 2468000 bytes [08:12:38.541] - R expression (adjusted): [08:12:38.541] { [08:12:38.541] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [08:12:38.541] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [08:12:38.541] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [08:12:38.541] on.exit(options(oopts), add = TRUE) [08:12:38.541] } [08:12:38.541] { [08:12:38.541] outer <- data.frame(label = "outer", idx = x, pid = Sys.getpid(), [08:12:38.541] maxSize = getOption("future.globals.maxSize", NA_real_)) [08:12:38.541] inner <- foreach(x = 3:4) %dofuture% { [08:12:38.541] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:38.541] maxSize = getOption("future.globals.maxSize", [08:12:38.541] NA_real_)) [08:12:38.541] } [08:12:38.541] inner <- do.call(rbind, inner) [08:12:38.541] rbind(outer, inner) [08:12:38.541] } [08:12:38.541] } [08:12:38.542] seed = FALSE [08:12:38.542] NULL [08:12:38.543] seed = FALSE [08:12:38.543] seed = FALSE [08:12:38.544] - foreach iterator arguments: [1] 'x' [08:12:38.544] - dummy globals (as locals): [1] 'x' [08:12:38.545] - R expression: [08:12:38.545] { [08:12:38.545] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:38.545] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:38.545] { [08:12:38.545] NULL [08:12:38.545] x <- NULL [08:12:38.545] } [08:12:38.545] ...future.env <- environment() [08:12:38.545] local({ [08:12:38.545] for (name in names(...future.x_jj)) { [08:12:38.545] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:38.545] inherits = FALSE) [08:12:38.545] } [08:12:38.545] }) [08:12:38.545] tryCatch({ [08:12:38.545] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [08:12:38.545] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [08:12:38.545] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [08:12:38.545] on.exit(options(oopts), add = TRUE) [08:12:38.545] } [08:12:38.545] { [08:12:38.545] outer <- data.frame(label = "outer", idx = x, [08:12:38.545] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [08:12:38.545] NA_real_)) [08:12:38.545] inner <- foreach(x = 3:4) %dofuture% { [08:12:38.545] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:38.545] maxSize = getOption("future.globals.maxSize", [08:12:38.545] NA_real_)) [08:12:38.545] } [08:12:38.545] inner <- do.call(rbind, inner) [08:12:38.545] rbind(outer, inner) [08:12:38.545] } [08:12:38.545] }, error = identity) [08:12:38.545] }) [08:12:38.545] } [08:12:38.546] function (x) [08:12:38.546] { [08:12:38.546] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:38.546] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:38.546] { [08:12:38.546] NULL [08:12:38.546] x <- NULL [08:12:38.546] } [08:12:38.546] ...future.env <- environment() [08:12:38.546] local({ [08:12:38.546] for (name in names(...future.x_jj)) { [08:12:38.546] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:38.546] inherits = FALSE) [08:12:38.546] } [08:12:38.546] }) [08:12:38.546] tryCatch({ [08:12:38.546] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [08:12:38.546] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [08:12:38.546] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [08:12:38.546] on.exit(options(oopts), add = TRUE) [08:12:38.546] } [08:12:38.546] { [08:12:38.546] outer <- data.frame(label = "outer", idx = x, [08:12:38.546] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [08:12:38.546] NA_real_)) [08:12:38.546] inner <- foreach(x = 3:4) %dofuture% { [08:12:38.546] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:38.546] maxSize = getOption("future.globals.maxSize", [08:12:38.546] NA_real_)) [08:12:38.546] } [08:12:38.546] inner <- do.call(rbind, inner) [08:12:38.546] rbind(outer, inner) [08:12:38.546] } [08:12:38.546] }, error = identity) [08:12:38.546] }) [08:12:38.546] } [08:12:38.547] - identifying globals and packages ... [08:12:38.547] logi TRUE [08:12:38.547] - attr(*, "add")= chr "...future.x_ii" [08:12:38.547] - attr(*, "ignore")= chr "x" [08:12:38.574] List of 1 [08:12:38.574] $ ...future.x_ii: num 42 [08:12:38.574] - attr(*, "where")=List of 1 [08:12:38.574] ..$ ...future.x_ii: [08:12:38.574] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:38.574] - attr(*, "resolved")= logi FALSE [08:12:38.574] - attr(*, "total_size")= num 56 [08:12:38.579] - R expression: [08:12:38.579] { [08:12:38.579] lapply(seq_along(...future.x_ii), FUN = function(jj) { [08:12:38.579] ...future.x_jj <- ...future.x_ii[[jj]] [08:12:38.579] { [08:12:38.579] NULL [08:12:38.579] x <- NULL [08:12:38.579] } [08:12:38.579] ...future.env <- environment() [08:12:38.579] local({ [08:12:38.579] for (name in names(...future.x_jj)) { [08:12:38.579] assign(name, ...future.x_jj[[name]], envir = ...future.env, [08:12:38.579] inherits = FALSE) [08:12:38.579] } [08:12:38.579] }) [08:12:38.579] tryCatch({ [08:12:38.579] ...future.globals.maxSize.org <- getOption("future.globals.maxSize") [08:12:38.579] if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) { [08:12:38.579] oopts <- options(future.globals.maxSize = ...future.globals.maxSize) [08:12:38.579] on.exit(options(oopts), add = TRUE) [08:12:38.579] } [08:12:38.579] { [08:12:38.579] outer <- data.frame(label = "outer", idx = x, [08:12:38.579] pid = Sys.getpid(), maxSize = getOption("future.globals.maxSize", [08:12:38.579] NA_real_)) [08:12:38.579] inner <- foreach(x = 3:4) %dofuture% { [08:12:38.579] data.frame(label = "inner", idx = x, pid = Sys.getpid(), [08:12:38.579] maxSize = getOption("future.globals.maxSize", [08:12:38.579] NA_real_)) [08:12:38.579] } [08:12:38.579] inner <- do.call(rbind, inner) [08:12:38.579] rbind(outer, inner) [08:12:38.579] } [08:12:38.579] }, error = identity) [08:12:38.579] }) [08:12:38.579] } [08:12:38.581] - globals: [1] '...future.x_ii' [08:12:38.581] List of 1 [08:12:38.581] $ ...future.x_ii: num 42 [08:12:38.581] - attr(*, "where")=List of 1 [08:12:38.581] ..$ ...future.x_ii: [08:12:38.581] - attr(*, "class")= chr [1:3] "FutureGlobals" "Globals" "list" [08:12:38.581] - attr(*, "resolved")= logi FALSE [08:12:38.581] - attr(*, "total_size")= num 56 [08:12:38.585] - packages: [2] 'doFuture', 'foreach' [08:12:38.586] - identifying globals and packages ... DONE [08:12:38.586] Launching 2 futures (chunks) ... [08:12:38.586] Chunk #1 of 2 ... [08:12:38.587] - Finding globals in 'args_list' chunk #1 ... [08:12:38.587] [08:12:38.588] [08:12:38.588] - Finding globals in 'args_list' for chunk #1 ... DONE [08:12:38.589] - seeds: [08:12:38.616] Chunk #1 of 2 ... DONE [08:12:38.617] Chunk #2 of 2 ... [08:12:38.617] - Finding globals in 'args_list' chunk #2 ... [08:12:38.618] [08:12:38.618] [08:12:38.619] - Finding globals in 'args_list' for chunk #2 ... DONE [08:12:38.619] - seeds: [08:12:38.766] Chunk #2 of 2 ... DONE [08:12:38.766] Launching 2 futures (chunks) ... DONE [08:12:38.767] - resolving futures [08:12:38.767] - gathering results & relaying conditions (except errors) [08:12:39.028] - Number of value chunks collected: 2 [08:12:39.028] Resolving 2 futures (chunks) ... DONE [08:12:39.029] Reducing values from 2 chunks ... [08:12:39.029] Raw results: [08:12:39.029] List of 2 [08:12:39.029] $ :List of 1 [08:12:39.029] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:39.029] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:39.029] .. ..$ idx : int [1:3] 1 3 4 [08:12:39.029] .. ..$ pid : int [1:3] 135436 135436 135436 [08:12:39.029] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:39.029] $ :List of 1 [08:12:39.029] ..$ :'data.frame': 3 obs. of 4 variables: [08:12:39.029] .. ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:39.029] .. ..$ idx : int [1:3] 2 3 4 [08:12:39.029] .. ..$ pid : int [1:3] 85660 85660 85660 [08:12:39.029] .. ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:39.036] Combined results: [08:12:39.037] List of 2 [08:12:39.037] $ :'data.frame': 3 obs. of 4 variables: [08:12:39.037] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:39.037] ..$ idx : int [1:3] 1 3 4 [08:12:39.037] ..$ pid : int [1:3] 135436 135436 135436 [08:12:39.037] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:39.037] $ :'data.frame': 3 obs. of 4 variables: [08:12:39.037] ..$ label : chr [1:3] "outer" "inner" "inner" [08:12:39.037] ..$ idx : int [1:3] 2 3 4 [08:12:39.037] ..$ pid : int [1:3] 85660 85660 85660 [08:12:39.037] ..$ maxSize: num [1:3] 1234000 1234000 1234000 [08:12:39.044] - accumulating results [08:12:39.045] - extracting results [08:12:39.045] doFuture2() ... DONE label idx pid maxSize 1 outer 1 135436 1234000 2 inner 3 135436 1234000 3 inner 4 135436 1234000 4 outer 2 85660 1234000 5 inner 3 85660 1234000 6 inner 4 85660 1234000 > > message("*** Options in nested parallelization ... done") *** Options in nested parallelization ... done > > source("incl/end.R") R Under development (unstable) (2023-12-19 r85710 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.0 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.78 0.15 3.29