diff --git a/DESCRIPTION b/DESCRIPTION index 4f7c94f7417187f674d1e761d37acf472abb8bd6..f39632b70baeb353fd71ef479b4d63c7913ccddf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: multiApply Title: Apply Functions to Multiple Multidimensional Arrays or Vectors -Version: 2.1.1 +Version: 2.1.2 Authors@R: c( person("BSC-CNS", role = c("aut", "cph")), person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = "aut"), @@ -29,9 +29,9 @@ Imports: plyr Suggests: testthat -License: LGPL-3 +License: Apache License 2.0 URL: https://earth.bsc.es/gitlab/ces/multiApply -BugReports: https://earth.bsc.es/gitlab/ces/multiApply/issues +BugReports: https://earth.bsc.es/gitlab/ces/multiApply/-/issues Encoding: UTF-8 LazyData: true RoxygenNote: 5.0.0 diff --git a/R/Apply.R b/R/Apply.R index bbd71ae426f9973c3ea77ea4f2a0c214a5f4d4ce..108811dc74a533cefbd97fe04e1447d471ac8480 100644 --- a/R/Apply.R +++ b/R/Apply.R @@ -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 = parent.frame()) + fun_env <- new.env(parent = environment(fun)) for (i in seq_along(extra_info)) { assign(names(extra_info)[i], extra_info[[i]], envir = fun_env) }