From e423258a448f3b0c2d3381040cbe58423029e7ab Mon Sep 17 00:00:00 2001 From: nperez Date: Thu, 20 Aug 2020 18:18:42 +0200 Subject: [PATCH] change name chunk by .chunk in inst/chunking folder --- inst/chunking/load_process_save_chunk.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/inst/chunking/load_process_save_chunk.R b/inst/chunking/load_process_save_chunk.R index a8a31a8..c50c79b 100644 --- a/inst/chunking/load_process_save_chunk.R +++ b/inst/chunking/load_process_save_chunk.R @@ -52,7 +52,7 @@ for (input in 1:length(data)) { split_dims_to_alter <- which(names(split_dims[[k]]) %in% names_dims_to_alter) chunks_split_dims[split_dims_to_alter] <- unlist(chunks[names(split_dims[[k]])[split_dims_to_alter]]) chunks_indices_split_dims[split_dims_to_alter] <- chunk_indices[names(split_dims[[k]])[split_dims_to_alter]] - start_call[[names(split_dims)[k]]] <- chunk(chunks_indices_split_dims, chunks_split_dims, + start_call[[names(split_dims)[k]]] <- .chunk(chunks_indices_split_dims, chunks_split_dims, eval(start_call[[names(split_dims)[k]]])) dims_to_alter_to_remove <- which(names_dims_to_alter %in% names(split_dims[[k]])) if (length(dims_to_alter_to_remove) > 0) { @@ -63,7 +63,7 @@ for (input in 1:length(data)) { } if (length(dims_to_alter) > 0) { for (call_dim in names_dims_to_alter) { - start_call[[call_dim]] <- chunk(chunk_indices[call_dim], chunks[[call_dim]], + start_call[[call_dim]] <- .chunk(chunk_indices[call_dim], chunks[[call_dim]], eval(start_call[[call_dim]])) } } -- GitLab