From e31d88c2af47f82dfcade88419e3850421129e1f Mon Sep 17 00:00:00 2001 From: nperez Date: Wed, 9 Oct 2019 17:49:21 +0200 Subject: [PATCH 1/2] adding names to parameter 'data' in Apply call --- R/ByChunks.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/ByChunks.R b/R/ByChunks.R index 8c293b9..b202a3d 100644 --- a/R/ByChunks.R +++ b/R/ByChunks.R @@ -633,6 +633,7 @@ ByChunks <- function(step_fun, cube_headers, ..., chunks = 'auto', if (!silent) { startR:::.message(paste("Processing...")) } + names(data) <- names(cube_headers) t_begin_compute <- Sys.time() result <- multiApply::Apply(data, target_dims = attr(step_fun, 'TargetDims'), -- GitLab From dad186150d9a298afea865332a11df2ab5ad841d Mon Sep 17 00:00:00 2001 From: aho Date: Thu, 10 Oct 2019 14:47:50 +0200 Subject: [PATCH 2/2] Add TODO comment for future development --- R/ByChunks.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/ByChunks.R b/R/ByChunks.R index b202a3d..4560121 100644 --- a/R/ByChunks.R +++ b/R/ByChunks.R @@ -633,6 +633,7 @@ ByChunks <- function(step_fun, cube_headers, ..., chunks = 'auto', if (!silent) { startR:::.message(paste("Processing...")) } + #TODO: Find a better way to assign the names of data. When multiple steps for Compute is available, this way may fail. names(data) <- names(cube_headers) t_begin_compute <- Sys.time() result <- multiApply::Apply(data, -- GitLab