diff --git a/R/ByChunks.R b/R/ByChunks.R index 8c293b9fb568053f19f3b638c0ba327432b15ca3..4560121408653c344affd9977021a85d2738a4ed 100644 --- a/R/ByChunks.R +++ b/R/ByChunks.R @@ -633,6 +633,8 @@ 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, target_dims = attr(step_fun, 'TargetDims'),