Commit d80722bd authored by Nicolau Manubens's avatar Nicolau Manubens
Browse files

Sending .margin_index to the atomic function.

parent d996b127
Pipeline #891 failed with stage
......@@ -569,13 +569,16 @@ Apply <- function(data, target_dims = NULL, fun, ...,
attributes(iteration_input[[i]]) <- c(attributes(iteration_input[[i]]),
attributes_to_send[[i]])
}
if (!is.null(mad)) {
first_marg_indices <- add_one_multidim(first_marg_indices, mad)
}
assign('.margin_indices', first_marg_indices)
# SPLATTED_F
result <- splatted_f(iteration_input, ...)
if (!is.null(mad)) {
first_marg_indices <- add_one_multidim(first_marg_indices, mad)
}
# SUB-ITERATION OUTRO
if (!is.list(result)) {
result <- list(result)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment