Commit 3efdca8b authored by Nuria Pérez-Zanón's avatar Nuria Pérez-Zanón
Browse files

Merge branch 'develop-envir' into 'master'

Undo environment fun

See merge request !26
parents a26efbe5 90301e42
Pipeline #4895 passed with stage
in 50 seconds
Package: multiApply
Title: Apply Functions to Multiple Multidimensional Arrays or Vectors
Version: 2.1.2
Version: 2.1.3
Authors@R: c(
person("BSC-CNS", role = c("aut", "cph")),
person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = "aut"),
......
......@@ -507,7 +507,7 @@ Apply <- function(data, target_dims = NULL, fun, ...,
chunk_sizes <- c(chunk_sizes, total_size %% chunk_size)
}
fun_env <- new.env(parent = environment(fun))
fun_env <- new.env(parent = parent.frame())
for (i in seq_along(extra_info)) {
assign(names(extra_info)[i], extra_info[[i]], envir = fun_env)
}
......
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