DESCRIPTION

 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

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)
   }