From fbebce779df9ba3d8b0871ea90531e1ca13d9ef3 Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Wed, 23 Jan 2019 00:53:48 +0100 Subject: [PATCH] Hotfix after Rds temporary files named incorrectly. --- inst/chunking/load_process_save_chunk.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/inst/chunking/load_process_save_chunk.R b/inst/chunking/load_process_save_chunk.R index 7c1bc8a..8a5843c 100644 --- a/inst/chunking/load_process_save_chunk.R +++ b/inst/chunking/load_process_save_chunk.R @@ -81,8 +81,8 @@ if (!is.null(attr(fun, 'UseLibraries'))) { require(attr(fun, 'UseLibraries')[i], character.only = TRUE) } } -chunk_indices <- setNames(as.integer(chunk_indices), names(chunk_indices)) -chunk_indices <- chunk_indices[names(chunks)[which(chunks > 1)]] +chunk_indices_apply <- setNames(as.integer(chunk_indices), names(chunk_indices)) +chunk_indices_apply <- chunk_indices_apply[names(chunks)[which(chunks > 1)]] Apply <- multiApply::Apply res <- do.call("Apply", c( @@ -91,7 +91,7 @@ res <- do.call("Apply", fun = fun, output_dims = attr(fun, 'OutputDims'), use_attributes = attr(fun, 'UseAttributes'), - extra_info = list(chunk_indices = chunk_indices), + extra_info = list(chunk_indices = chunk_indices_apply), ncores = threads_compute), params ) -- GitLab